data(paracou16)
plot(paracou16)
# Calculate M
r <- seq(0, 30, 2)
ActualValues.X <- M.r(paracou16, r, "V. Americana", "Q. Rosea")
# Plot
PlotResults(r, ActualValues.X, ylab="M", ReferenceValue=1)
Run the code above in your browser using DataLab