data(paracou16)
# Keep only 20% of points to run this example
X <- rthin(paracou16, 0.2)
plot(X)
# Calculate Lmm
r <- seq(0, 30, 2)
ActualValues.X <- Lmm.r(X, r)
# Calculate confidence envelope (should be 1000 simulations, reduced to 4 to save time)
NumberOfSimulations <- 4
Alpha <- .10
LocalEnvelope.X <- LmmEnvelope(NumberOfSimulations, Alpha, X, r)
# Plot
PlotResults(r, ActualValues.X, LocalEnvelope.X, ylab="Lmm", ReferenceValue=0)
Run the code above in your browser using DataLab