跪求！！！在R中如何对数组进行整列的删除。在线等！！谢谢了！！！

qoiqpwqr 发表于 2012-4-15 21:00
sample

sample选取的列向量，有没有选取行向量的命令？谢谢麻烦啦！！

icupid 发表于 2012-4-15 21:09
sample选取的列向量，有没有选取行向量的命令？谢谢麻烦啦！！

不知道是不是你想要的。。

假设x是个10x20的矩阵
x <- matrix(1:200, nrow = 10, ncol = 20)
你想随机选其中的10列
x2 <- x[, sample(20, 10)]
如果随机想选其中的5行
x3 <- x[sample(10, 5), ]

qoiqpwqr 发表于 2012-4-15 21:00
sample

请问版主，若要删除某几行应该怎么处理呢？

Mollieさん 发表于 2012-4-17 09:17
请问版主，若要删除某几行应该怎么处理呢？

x = x[-c(3,6,9), ]

qoiqpwqr 发表于 2012-4-17 10:22
x = x[-c(3,6,9), ]

soga 。谢啦

qoiqpwqr 发表于 2012-4-17 10:22
x = x[-c(3,6,9), ]

再请教一个问题哦。一直不明白在做任何一个分析的时候（比如说adaboost，怎么讲数据随机分成5份，然后做5折交叉验证。而后得出来的测试集概率和训练集概率都是怎么来的啊？？？看也看不懂啊。


library(mboost) ##调用mboost 包
mboostlm=blackboost(a1~.,control=boost_control(mstop=50),data=algaetree[,1:12])
attributes(mboostlm)

t=predict(mboostlm)
cat("mboost 训练集上的NMSE 为:", mean((algaetree$a1-as.numeric(t))^2)/mean((mean(algaetree$a1)-algaetree$a1)^2),"\n")
mboost 训练集上的NMSE 为: 0.3943555
t1=predict(mboostlm,algaetest[,1:12])
cat("mboost 测试集上的NMSE 为:",mean((algaetest$a1-as.numeric(t1))^2)/mean((mean(algaetest$a1)-algaetest$a1)^2), "\n")
mboost 测试集上的NMSE 为: 0.5679551


求版主帮忙啊。

Mollieさん 发表于 2012-4-18 10:27
再请教一个问题哦。一直不明白在做任何一个分析的时候（比如说adaboost，怎么讲数据随机分成5份，然后做5 ...

没用过mboost包，不清楚怎么回事。帮你顶一个。

qoiqpwqr 发表于 2012-4-18 10:39
没用过mboost包，不清楚怎么回事。帮你顶一个。

好吧。 thx