Classwork 3-24
Data analysis of Covid-19 Pandemic

Get Data and basic data book keeping

alldat=Import["https://covid.ourworldindata.org/data/ecdc/full_data.csv"];

alldat[[1]]

columncat=alldat[[1]];alldat1=Drop[alldat,1]; catdata=Transpose[alldat1];
{dateStr,location,newcases,newdeaths,totalcases,totaldeaths}= catdata;

locationCat=DeleteDuplicates[location];
{countrydat,dateXrange}=Reap[Do[u=Select[alldat1,StringMatchQ[#[[2]] ,l]&];
u1=Drop[Transpose[u],{2}];
dateXAbs=AbsoluteTime /@  u1[[1]];
datemm=MinMax[dateXAbs];
u1[[1]]=dateXAbs;
Sow[u1,A];Sow[datemm,B];
,{l,locationCat}]
][[2]];
dateAbsRange=MinMax[Flatten[dateXrange]];
datelength=(dateAbsRange[[2]]-dateAbsRange[[1]])/(3600*24) ;
dateList=dateAbsRange[[1]]+Range[datelength]3600*24;

Data analysis and modeling

We will do basic data analysis like the below.

Model based on most recent data, showing very high transmission rate, and an optimistic scenario of successful containment.

Model based on the assumption of lower transmission rate that has been going on undetected

Projection without efforts to slow down the transmission rate or low effectiveness of containment efforts.