list.files(“C:/Users/asus/Desktop/Temur/input/chelsea/Aggregated_chelsea/chelsa_aggregated/chelsa_aggregated”, pattern=”tif”)
> bio <- raster::stack(paste(“C:/Users/asus/Desktop/Temur/input/chelsea/Aggregated_chelsea/chelsa_aggregated/chelsa_aggregated/”, n, sep = “”))
> bio2 <- rast(bio)
> # Perepare data for modelling
> ## PCA of all 19 env variables
> rpc1 <- rasterPCA(bio2, nComp = 3)
Error in .local(object, …) : 找不到对象’levs’