# NOT RUN {
# get example data
df <- data.frame(
sample = c(as.integer(rep(1, times = 6))),
fresh.weight = c(1.23, 1.19, 1.15, 1.12, 1.09, 1.0),
leaf.area = c(10.5, NA, NA, 9.8, NA, 8.4))
# fit leaf area
df_new <- FitLeafArea(df)
# }
Run the code above in your browser using DataLab