# NOT RUN {
data(mock)
model_SE <- pkm(formula_p = p ~ HabitatType, formula_k = k ~ 1,
data = mock$SE)
model_CP <- cpm(formula_l = l ~ Visibility, formula_s = s ~ Visibility,
data = mock$CP, left = "LastPresentDecimalDays",
right = "FirstAbsentDecimalDays")
avgSS <- averageSS(mock$SS)
ghatsGeneric <- estgGeneric(nsim = 1000, avgSS, model_SE, model_CP)
plot(ghatsGeneric)
# }
Run the code above in your browser using DataLab