data("iris")
col4o <- c(rep("red", 50), rep("blue", 50), rep("green", 50))
col4g <- c(setosa = 'red', versicolor = 'blue', virginica = 'green')
resIris <- moRa::mora_pca(iris[,1:4], iris[,5], col4obs = col4o, col4group = col4g, want34 = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.