if (FALSE) {
library(embryogrowth)
data(resultNest_4p_SSM)
testsize1 <- Generate_hatchling_metric(resultNest_4p_SSM)
testsize2 <- Generate_hatchling_metric(series=resultNest_4p_SSM,
hatchling.metric=c(Mean=39.3, SD=1.92))
}
Run the code above in your browser using DataLab