data(ecospat.testNichePOSNB)
df<-ecospat.testNichePOSNB
# 1 axes
POSNB<-ecospat.nichePOSNB(df,colvar=c(2),colfreq = 6:17)
# 2 axes
POSNB<-ecospat.nichePOSNB(df,colvar=c(2:3),colfreq = 6:17)
ecospat.nicheNBmean(POSNB,w=c(2,1))
# 4 axes
POSNB<-ecospat.nichePOSNB(df,colvar=c(2:5),colfreq = 6:17)
ecospat.nicheNBmean(POSNB,w=c(1,0.8,0.2,0.1))
Run the code above in your browser using DataLab