Suomi: Koronaviruksen R0 Suomessa keväällä 2020. Gam-polynomilla silitetty data. Musta käyrä: keskiarvo. Vihreä käyrä, mediaani. Yhtenäiset käyrät luottamusväli...
metodi="loess" widthi=10 heighti=5 plottaa=1 ## must be 1 tulosta_svg=1 # plot to out svg 0, 1 of 2 tulosfilee1="./R0_Suomessa_2.svg" beginday0=as.Date(beginday1)...
debug plottaa<-1 levylle<-1 ## 0 to display, 1 to disc plotname<-"R0_Suomessa_1.svg" ## name of plot file polku<-"/Users/himot/akor1/" ## path of plot...
metodi="loess" widthi=10 heighti=5 plottaa=1 ## must be 1 tulosta_svg=1 # plot to out svg 0, 1 of 2 tulosfilee1="./R0_Suomessa_2.svg" beginday0=as.Date(beginday1)...
debug plottaa<-1 levylle<-1 ## 0 to display, 1 to disc plotname<-"R0_Suomessa_4.svg" ## name of plot file polku<-"/Users/himot/akor1/" ## path of plot...
library(stringr) library(datamart) library(XML) library(jsonlite) plotname<-"R0_Suomessa_3.svg" ## name of plot file polku<-"../" ## path of plot file yala=0.6 yyla=1...
else: return(1) tau=5.0 k=math.log(2.0)/td r0=math.exp(k*tau) if(r0==32): r0=1 if(r0>32): r0=4 return(r0) def calculate_multiple_r0(daata1): lenu1=len(daata1)...
debug plottaa<-1 levylle<-1 ## 0 to display, 1 to disc plotname<-"R0_Suomessa_4.svg" ## name of plot file polku<-"/Users/himot/akor1/" ## path of plot...
metodi="loess" widthi=10 heighti=5 plottaa=1 ## must be 1 tulosta_svg=1 # plot to out svg 0, 1 of 2 tulosfilee1="./R0_Suomessa_2.svg" beginday0=as.Date(beginday1)...
weekly,type = "o", col = "red", xlab = "Viikko", ylab = "R0", main="Koronaviruksen R0 Suomessa") TD.weekly$R[1] I, the copyright holder of this work, hereby...
