生成灰度图
#生成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
·
#生成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")
更多推荐


所有评论(0)