dspm

date,cases_counties,cases_total,cases_foreign
2020-03-21,206,206,0
2020-03-22,254,NA,NA
2020-03-23,255,254,-1
2020-03-24,382,NA,NA
2020-03-25,442,442,0
2020-03-25,442,382,-60
2020-03-25,442,315,-127
2020-03-26,495,NA,NA
2020-03-27,585,586,1

dspm

library(tidyverse)
library(jsonlite)
set.seed(666)
data <-
  "https://www.koronavirus.hr/json/?action=po_osobama" %>%
  fromJSON() %>% 
  as_tibble() %>%
  transmute(report = as.Date(Datum)) %>%
  mutate(
    test_delay = rgamma(n(), 2, 2),

dspm

library(tidyverse)
library(rvest)
library(stringr)
library(hms)

"https://www.konzum.hr/web/trgovine" %>%
    read_html() %>%
    html_nodes(".location") -> locations

konzum <-

dspm

library(tidyverse)
library(purrr)

set.seed(123)

nsim <- 10000
df <- data.frame(
    num_cases = 2000,
    prop_underreporting = rnorm(nsim, .3, .05),
    prop_asymptomatic = rnorm(nsim, .6, .05)