data(paracou16)
plot(paracou16)
# Calculate Kd
r <- 0:100
ActualValues.X <- Kd.r(paracou16, r, "Q. Rosea", "Q. Rosea")
# Plot
PlotResults(r, ActualValues.X, ylab="Kd", Legend=TRUE, LegendItems="Kd",
LegendPosition="bottomright")
Run the code above in your browser using DataLab