data(dataIPMpackSuccisa)
print(head(dataIPMpackSuccisa))
Sp <- dataIPMpackSuccisa
fo<-makeFecObj(Sp, Formula = list(fec1Bolt ~ size+size2,
fec2Stem ~ size, fec3Head ~ size),
Family = c("binomial","poisson","poisson"),
Transform=c("none","-1","none"),
fecConstants = data.frame(seedsPerHead=50,
seedlingEstablishmentRate= 0.02))
co<-makeClonalObj(Sp, Formula = list(cloning ~ size,
clonesNext ~ size), Family = c("binomial","poisson"),
Transform=c("none","-1"), offspringSizeExplanatoryVariables = "size")
Run the code above in your browser using DataLab