data(spdata)
species<-spdata$species #species column
trt<-cbind(spdata$t1,spdata$t2) #two traits
env<-spdata$env #one env gradient
site<-spdata$site #site information
result1<-Traitspace(species, trt, env, site)
print(result1)
result1
Run the code above in your browser using DataLab