# thisdir<-getwd()
# fn<-paste(thisdir,"/true.dat",sep='')
fn<-"../../true.dat" # THIS WILL NOT BE TESTABLE IN SIMS DIRECTORY
parms<-read.table(fn, header=TRUE)

sigma<-exp(parms[[4,2]])
b1<-exp(parms[[1,2]])
b2<-exp(parms[[2,2]])
b3<-exp(parms[[3,2]])

t<-seq(1,12)

predy<-100*b1/(1+10*b2*exp(-0.1*b3*t))

err<-rnorm(length(t), mean=0, sd=sigma)
y<-predy+err
dat<-data.frame(t,y)

# Write data in the same filename and format as the real data 

write.table(dat,file="weeds.dat",row.names=FALSE)