# NOT RUN {
data(mafragh)
# PCA on response table Y
Y <- mafragh$flo
dudiY <- dudi.pca(Y, scannf = FALSE, scale = FALSE)
# Variation partitioning based on RDA
vprda <- varipart(dudiY, mafragh$env, mafragh$xy, type = "parametric")
vprda
# }
Run the code above in your browser using DataLab