ทดลอง run Rescript แล้ว error

[Wanna Hanshaoworakul]

ทดลอง run Rscript โดยใช้ script ที่อาจารย์ให้มาสำหรับ model SEIRS_flu_vaccine_treatment.R มันขึ้น error ตรงตำแหน่งตามด้านล่าง เนื่งอจากอะไรคะ
> library(deSolve)
> #set working directory, making sure your ‘flu.csv’ is there
> setwd(“C:/Modelling”)
> #read in flu.csv
> flu #plot weekly flu report over a year
> plot(flu$week.no,flu$no.case,type=’p’,ylim=c(0,15),col=’black’,pch=19,cex.axis=1.2,
+ cex=1.2, cex.lab=1.2,xlab=”week.no”,ylab=”number new case”)
> #run the identical SEIRS model from the class
> SEIRS_model<-function(t, state, parameters) {
+ with(as.list(c(state, parameters)),{
+ P <- (S+E+I+R)
+ lam<-parameters[‘beta’]*I/P
+
+ dS <- mu*P-mu*S-lam*S + alpha*R
+ dE <- lam*S-gam*E- mu*E
+ dI <- gam*E-tau*I- mu*I + dR #run the same initial conditions > initP initE initI initR initS istate #run the same parameter set
> parameters #but change the output interval to weekly
> time_start time_stop deltat tps out R0 Rt

[Wirichada Pan-ngum]

พอดีว่าไม่เห็นว่า error message ขึ้นว่าอะไร รบกวนส่งให้ดูได้มั้ยคะ หรือจะเข้ามาคุยกันวันพุธนี้ตอนเย็น 5 โมงก็ยินดีนะคะ

[Author]

Posts