powered by
A data set of COVID-19 cases with 99 obs. of 11 variables.
dataCovidBeds20200624
A data frame with 32239 rows and 6 columns:
int 2 2 3 3 3 3 3 3 4 4 ...
int 0 0 0 0 0 0 0 0 0 0 ...
Date, format: '2020-03-03' '2020-03-04' '2020-03-05' '2020-03-06' ...
num 5 0 0 0 0 0 0 7 2 5 ...
num 5 5 5 5 5 5 5 12 14 19 ...
The variable obk$Sick was generated from the Infected data as follows: slide_dbl(obk$Infected, ~sum(.x), .before = (amntDaysSickness -1)) amntDaysSickness was set to 20.
obk$Sick
slide_dbl(obk$Infected, ~sum(.x), .before = (amntDaysSickness -1))
amntDaysSickness
# NOT RUN { x <- dataCovidBeds20200624 # first look str(x) # plot x$InfCum <- cumsum(x$Infected) plot(x$Day, x$InfCum, type = "l", log = "y", ylim = c(1, 500)) lines(x$Day, x$Infected + 1e-6) # }
Run the code above in your browser using DataLab