# Make a plot to show the number of Covid-19 infections over time
# in mainland China (first 19 days)
# Source: https://blog.ephorie.de/epidemiology-how-contagious-is-novel-coronavirus-2019-ncov
Infected <- c(45, 62, 121, 198, 291, 440, 571, 830, 1287, 1975, 2744, 4515, 5974, 7711, 9692, 11791, 14380, 17205, 20440)
Day <- 1:(length(Infected)) # length is the number of observation days
N <- 1400000000 # population of mainland china
Plot these data
# If you use a PC, remove the # sign in the next line and add # to following line
# windows(height=5, width=5)
quartz.options(height=5, width=5)
plot.new()
par(oma = c(0.1,1.0,0.1,0.1))
plot(Day, Infected, las = 1, pch=19, col="blue", cex=1.2)
title("Confirmed Cases Covid-19 in mainland China")