data("iris", package = "datasets")
#Iris species
X = scale(iris[,-5])
res_iPCA = i_pca(data1 = X[1:50,-5], data2 = X[51:150,-5], nchunk = c(50,50))
#static plot, final solution
plot(res_iPCA, animation = FALSE)
##\donttest is used here because the code calls the saveGIF function of the animation package
#which requires ImageMagick or GraphicsMagick to be installed in your system
#See help(im.convert) for details on the configuration of ImageMagick or GraphicsMagick.
#Creates animated GIF movies for objects and variables
plot(res_iPCA, animation = TRUE, frames = 10)
Run the code above in your browser using DataLab