# \donttest{
tor.data <- covid19.Toronto.data()
single.trend(tor.data[tor.data$status=="Active Cases",])
# }
ts.data <- covid19.data("ts-confirmed")
ont.data <- ts.data[ ts.data$Province.State == "Ontario",]
single.trend(ont.data)
single.trend(ts.data[ ts.data$Country.Region=="Italy",])
Run the code above in your browser using DataLab