稀疏矩阵——创建和可视化

来源:互联网 发布:js怎么让按钮显示 编辑:程序博客网 时间:2024/06/13 15:48

m1 <- matrix(200+100*rnorm(750),nrow = 25,byrow = TRUE)


m2 <- matrix(sample(c(0,1),750,replace = TRUE,prob=c(0.95,0.05)),nrow = 25,byrow = TRUE)


m <- m1*m2


ss <- which(m !=0, arr.ind=TRUE)


plot(ss,pch = 22)
原创粉丝点击