Last chance! 50% off unlimited learning
Sale ends in
.txt
containing three columns -- the weeknumber (week), the observed number of counts (observed) and a state (state). The data are read using read.table(...,header=T)
, hence the file has to contain a header.readData(abb,week53to52=TRUE,sysPath=TRUE)
TRUE
then R automatically looks in the data directory of the
disProg
(disease progress) including a list of the observed and the state chain.data
.m1
, m2
, m3
, m4
, m5
,
q1_nrwh
, q2
, s1
, s2
, s3
,
k1
, n1
, n2
, h1_nrwrp
readData("m5")
#To bring a single vector of counts into a format, which can be
#handled by readData. Assume ``counts'' is a vector of counts.
counts <- rpois(100,20)
counts <- data.frame("week"=1:length(counts),"observed"=counts,
"state"=rep(0,length(counts)))
write(c("week","observed","state"),file="disease.txt",ncol=3)
write(t(as.matrix(counts)),file="disease.txt",ncol=3,append=TRUE)
disease <- readData("disease",week53to52=FALSE,sysPath=FALSE)
Run the code above in your browser using DataLab