xvars <- c(paste("ndvi0", 1:8, sep = ""),
paste("ndwi0", 1:8, sep = ""))
fo <- as.formula(paste("class ~", paste(xvars, collapse=" +" )))
wrp <- pca_warper(maipofields, xvars = xvars, yvar = "class")
summary(wrp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.