library(usdm)
## Loading required package: sp
## Loading required package: raster
library(vegan)
## Loading required package: permute
## Loading required package: lattice
## This is vegan 2.5-7
library(rgl)

env1 <- read.table("env_predictors.txt", header = T)
env2<-env1[,4:9]
pc.env<-prcomp(env2,scale=T,center=T)
plot3d(pc.env$x[,1:3])