求助，怎么生成13*2的随机矩阵

nc142715 发表于 2012-12-10 22:47
没事没事  非常感谢大家！第一次发帖回复那么快、、、、、、
太感谢打架了！

写错了  大家  嘿嘿

jmpamao 发表于 2012-12-10 22:42
a

结合jmpamao，使用向量化能缩短运行时间
matrix <- matrix(NA,ncol=2,nrow=13)
matrix[,1]<-sample(c(0,1),size=13,replace=T)
matrix[,2][matrix[,1]==1] <- 0
matrix[,2][matrix[,1]==0] <- 1

jmpamao 发表于 2012-12-10 21:59
动作 好快啊  qoiqpwqr 兄。
x [  i  ]的bug,qoiqpwqr 兄 能解决吗？

你是说会变成斜体的bug？那是管理员的工作了，非我这个小版主能搞定的。

nc142715 发表于 2012-12-10 22:25
不行试过了
每行要么是1 0
要么是0 1

没看清要求

这样比较简单

m1 <- sample(0:1, 13, replace =T)
mat <- cbind(m1, 1-m1)

qoiqpwqr 发表于 2012-12-11 03:13
没看清要求

这样比较简单

哇塞，更简洁。厉害