## Not run:
# library(embryogrowth)
# data(resultNest_4p)
# testsize1 <- GenerateTest(resultNest_4p)
# testsize2 <- GenerateTest(series=resultNest_4p,
# size=c(Mean=39.3, SD=1.92))
# ## End(Not run)
Run the code above in your browser using DataLab