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