#获取矩阵的函数和列数
m
mrow(m)
ncol(m)
#矩阵删除元素
m <- matrix(1:12,nrow =4)
m
m[-1,]
m[,-1]
m[-1,-1]
#改变矩阵的值
m
m.value <- matrix(rep(6.0),nrow = 2)
m.value
m[c(1,3),]
m[c(1,3),] <- m.value
m
#应用:修改图片
install.packages(“pixmap”)
library(pixmap)
p <- read.pnm(python.pgm)
p
plot§
str§
p2 <- p
p2 @grey[80:103,10:60] < -1
plot(p2)
#apply函数,对矩阵的行或者列调用函数
?apply
#apply(m,dim.index, f)dim.index:1代表每一行应用函数f,2代表每一列应用函数f
m <- matrix(1:6,nrow =3)
m
#求每一行最大值
apply(m,1,max)
#求每一列最大值
apply(m,2,max)
#cbind()rbind()组合矩阵数据
m <- matrix(1:12, nrow = 3)
m
col.v <- matrix(21:26, nrow = 3)
cbind(m,col.v)
rbind(m,col.v)
row.v <- matrix(2
r语言第三节课
最新推荐文章于 2023-05-24 08:00:00 发布