data(succisaDataSubset)
print(head(succisaDataSubset))
Sp <- succisaDataSubset
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