Denmark strange patterns

[timriffe]

Denmark strange patterns

[timriffe]

The convergence looks to have been a data entry error, amended some time ago, sorry for the late response to that one:

osf_retrieve_file("5hyvs") %>%
  osf_download(conflicts = "overwrite") 

# This reads it in
Output_5 <-  read_csv("Output_5.csv",
                       skip = 3,
                       col_types = "ccccciiddd")
# convert to date class
Output_5 <- 
  Output_5 %>% 
  mutate(Date = dmy(Date))

Output_5 %>% 
  filter(Country == "Denmark") %>% 
  select(-Deaths,-Tests) %>% 
  pivot_wider(names_from = "Sex", values_from = "Cases") %>% 
  mutate(SR = m/f,
         Date = ymd(Date)) %>% 
  ggplot(aes(x=Date,y=SR,group=Age,color=as.factor(Age)))+
  geom_line()+
  scale_y_log10()