#生成slope在总体样地中的变化情况 #灰度图library(mvpart)library(rpart)library(MVPARTwrap)library(permute)library(lattice)library(vegan)setwd("D:/R/mvpart")habitat <- read.csv("mvpart.csv")slope <- habitat$slopes