#--- Load raster ---#
r <- system.file("extdata", "mraster.tif", package = "sgsR")
mr <- terra::rast(r)
calculate_pcomp(
mraster = mr,
nComp = 2
)
pcomp <- calculate_pcomp(
mraster = mr,
nComp = 3,
details = TRUE
)
#--- Display principal component details ---#
# pcomp$pca
#--- Display importance of components ---#
# summary(pcomp$pca)
Run the code above in your browser using DataLab