library(agricolae)
#example 1
data(clay)
model<-"ralstonia ~ days"
simulation.model(200,clay,model)
#example 2
data(sweetpotato)
model<-"yield~virus"
simulation.model(300,sweetpotato,model,categorical=1)
#example 3
data(Glycoalkaloids)
model<-"HPLC ~ spectrophotometer"
simulation.model(100,Glycoalkaloids,model)
#example 4
data(potato)
model<-"cutting~date+variety"
simulation.model(200,potato,model,categorical=c(1,2,3))
Run the code above in your browser using DataLab