# [NB] Visualizing the Epidemic Data COVID-19

Posted 22 days ago
1030 Views
|
9 Replies
|
12 Total Likes
|
 MODERATOR NOTE: coronavirus resources & updates: https://wolfr.am/coronavirus There are many much more sophisticated models out there using the COVID-19 data but i wanted a simple overview of the data to monitor the progression of the countries and do some comparisons. . Therefore i made a simple plot interface of the Infected and deaths of the countries which can be plotted linear and logarithmic. i chose to align all the data to day 0 which is defined as the first day of >100 confirmed infected cases in a country. This makes comparison of countries in their early stage to more affected countries more intuitive. To fill my own curiosity i have added sigmoidal fits to data to see the "prediction", which only becomes reliable once a tipping point in controlling the disease is reached. I also calculate the mortality of the confirmed cases. I have chosen to only include the first 20 most affected countries but changing the included countries is easy. The interface allows to turn on and off countries to make comparisons.Hope its also useful to others. Attachments:
9 Replies
Sort By:
Posted 22 days ago
 -- you have earned Featured Contributor Badge Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you, keep it coming, and consider contributing to the The Notebook Archive!
Posted 22 days ago
 Very interesting post, thanks! I am collecting notebooks like yours here:https://github.com/WolframResearch/COVID-19May I put a copy of your notebook there?
Posted 22 days ago
 yes of course, please feel free to use it any way you like
Posted 21 days ago
 Nice one there as usual
Posted 9 days ago
 For beginners to Mma: In[1]:= data = {{5, 99}, {6, 164}, {9, 423}, {10, 647}}Out[1]= {{5, 99}, {6, 164}, {9, 423}, {10, 647}}In[2]:= FindFit[data, k E^(a t), {k, a}, t]Out[2]= {k -> 16.3433, a -> 0.366346}In[3]:= f[t_] := 17.395 E^(0.3597 t)In[43]:= Plot[f[x], {x, 1, 22}] Attachments:
Posted 9 days ago
 Modified NotebookDeaths/dayWith wide variation in testing, I prefer to look at Deaths rather than Cases. While this gives a useful insight into PEAKING (i.e. max number deaths per day) , I have now added a Deaths/day tab.Look, for example, at Italy and Spain where there is hope that a peak is near, but at almost 1000 deaths/day.Country and time offsetThere is a table of country and time100 offset, sorted by either variableMisc. parametersI have also added a few parameters e,g nc=30 (no of countries) and model=False (to hide the dotted modelling). Attachments:
Posted 9 days ago
 I updated my code a bit to now be fully incorporated in Manipulate.There are three coises to make before running the code. alignment of lines can be done on infected or deaths or normal time since 20-1looks a bit different now and also includes the "predicted" tipping point. Attachments: