How to resolve the algorithm Logistic curve fitting in epidemiology step by step in the XPL0 programming language
How to resolve the algorithm Logistic curve fitting in epidemiology step by step in the XPL0 programming language
Table of Contents
Problem Statement
The least-squares method (see references below) in statistics is used to fit data
to the best of a family of similar curves by finding the parameters for a curve
which minimizes the total of the distances from each data point to the curve.
Often, the curve used is a straight line, in which case the method is also called
linear regression. If a curve which uses logarithmic growth is fit, the method can be
called logistic regression.
A commonly used family of functions used in statistical studies of populations,
including the growth of epidemics, are curves akin to the logistic curve:
Though predictions based on fitting to such curves may error, especially if used to
extrapolate from incomplete data, curves similar to the logistic curve have had
good fits in population studies, including modeling the growth of past epidemics.
Given the following daily world totals since December 31, 2019 for persons who have become infected with the novel coronavirus Covid-19:
Use the following variant of the logistic curve as a formula: Where:
The R0 of an infection (different from r above) is a measure of how many new individuals will become infected for every individual currently infected. It is an important measure of how quickly an infectious disease may spread. R0 is related to the logistic curve's r parameter by the formula: where G the generation time, is roughly the sum of the incubation time, perhaps 5 days, and the mean contagion period, perhaps 7 days, so, for covid-19, roughly we have:
Let's start with the solution:
Step by Step solution about How to resolve the algorithm Logistic curve fitting in epidemiology step by step in the XPL0 programming language
Source code in the xpl0 programming language
def K = 7.8e9;
def N0 = 27.;
real Actual;
int ActualSize;
func real Func(R);
real R;
real Sq, Eri, Guess, Diff;
int I;
[Sq:= 0.;
for I:= 0 to ActualSize-1 do
[Eri:= Exp(R * float(I));
Guess:= N0 * Eri / (1. + N0 * (Eri-1.) / K);
Diff:= Guess - Actual(I);
Sq:= Sq + Diff*Diff;
];
return Sq;
];
func real Solve(Guess, Epsilon);
real Guess, Epsilon;
real Delta, F0, Factor, NF;
[Delta:= if Guess # 0. then Guess else 1.;
F0:= Func(Guess);
Factor:= 2.;
while Delta > Epsilon and Guess # Guess-Delta do
[NF:= Func(Guess - Delta);
if NF < F0 then
[F0:= NF;
Guess:= Guess - Delta;
]
else
[NF:= Func(Guess + Delta);
if NF < F0 then
[F0:= NF;
Guess:= Guess + Delta;
]
else Factor:= 0.5;
];
Delta:= Delta * Factor;
];
return Guess;
];
real R, R0;
[Actual:= [
27., 27., 27., 44., 44., 59., 59., 59., 59., 59., 59., 59., 59., 60., 60.,
61., 61., 66., 83., 219., 239., 392., 534., 631., 897., 1350., 2023., 2820.,
4587., 6067., 7823., 9826., 11946., 14554., 17372., 20615., 24522., 28273.,
31491., 34933., 37552., 40540., 43105., 45177., 60328., 64543., 67103.,
69265., 71332., 73327., 75191., 75723., 76719., 77804., 78812., 79339.,
80132., 80995., 82101., 83365., 85203., 87024., 89068., 90664., 93077.,
95316., 98172., 102133., 105824., 109695., 114232., 118610., 125497.,
133852., 143227., 151367., 167418., 180096., 194836., 213150., 242364.,
271106., 305117., 338133., 377918., 416845., 468049., 527767., 591704.,
656866., 715353., 777796., 851308., 928436., 1000249., 1082054., 1174652.];
ActualSize:= 97;
R:= Solve(0.5, 0.0);
R0:= Exp(12.*R);
Text(0, "R = "); RlOut(0, R); CrLf(0);
Text(0, "R0 = "); RlOut(0, R0); CrLf(0);
]
You may also check:How to resolve the algorithm Egyptian division step by step in the Swift programming language
You may also check:How to resolve the algorithm Self-describing numbers step by step in the EasyLang programming language
You may also check:How to resolve the algorithm User input/Graphical step by step in the LabVIEW programming language
You may also check:How to resolve the algorithm Population count step by step in the COBOL programming language
You may also check:How to resolve the algorithm Hello world/Newbie step by step in the PARI/GP programming language