#生成slope在总体样地中的变化情况 #灰度图
setwd("D:/R/mvpart")
habitat <- read.csv("mvpart.csv")
slope <- habitat$slope
slope <- matrix(slope,ncol = 22)
y <- (1:nrow(slope))
x <- (1:ncol(slope))
image(y, x, slope, col = gray.colors(30), axes = FALSE,main="slope")