#Iris Species
data("iris", package = "datasets")
X = scale(iris[,-5])
res_iPCA = i_pca(data1 = X[1:50,], data2 = X[51:150,], nchunk = 2)
#static plot
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)
#Daily Closing Prices of Major European Stock Indices, 1991-1998
data("EuStockMarkets", package = "datasets")
res_iPCA = i_pca(data1 = EuStockMarkets[1:50,], data2 = EuStockMarkets[51:1860,], nchunk = 5)
#\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