Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R中for循环内的子集集_R_Loops_For Loop_Subset - Fatal编程技术网

R中for循环内的子集集

R中for循环内的子集集,r,loops,for-loop,subset,R,Loops,For Loop,Subset,请回答一个简短的问题:我试图比较R中两列的值。如果我手动操作,它工作得非常好。如果我使用下面的for循环,它将不起作用 任何关于为什么会发生这种情况的指导都将不胜感激 费尔南多 #Done Manually: accuracies <- c( mean (predictions[,1] == mnist_27$test$y), mean (predictions[,2] == mnist_27$test$y), mean (predictions[,3] == mnist_27$test

请回答一个简短的问题:我试图比较
R
中两列的值。如果我手动操作,它工作得非常好。如果我使用下面的for循环,它将不起作用

任何关于为什么会发生这种情况的指导都将不胜感激

费尔南多

#Done Manually:

accuracies <- c(
mean (predictions[,1] == mnist_27$test$y),
mean (predictions[,2] == mnist_27$test$y),
mean (predictions[,3] == mnist_27$test$y),
mean (predictions[,4] == mnist_27$test$y),
mean (predictions[,5] == mnist_27$test$y),
mean (predictions[,6] == mnist_27$test$y),
mean (predictions[,7] == mnist_27$test$y),
mean (predictions[,8] == mnist_27$test$y),
mean (predictions[,9] == mnist_27$test$y),
mean (predictions[,10] == mnist_27$test$y))

#Done with the for loop:

accuracies <- for (i in 1:10) {
  mean (predictions[,i] == mnist_27$test$y)  
}
#手动完成:

如果我们想对
循环使用
,则精确度。初始化一个空对象,然后在每次迭代时连接该对象,同时更新它

v1 <- c()
for (i in 1:ncol(predictions)) {
   v1 <- c(v1, mean (predictions[,i] == mnist_27$test$y))

 }

R
中,使用

colMeans(predictions == mnist_27$test$y)

基准


如果我们想为
循环使用一个
,则预测。初始化一个空对象,然后在每次迭代时连接该对象,同时更新它

v1 <- c()
for (i in 1:ncol(predictions)) {
   v1 <- c(v1, mean (predictions[,i] == mnist_27$test$y))

 }

R
中,使用

colMeans(predictions == mnist_27$test$y)

基准


预言?错误?意外结果??错误?意外的结果?非常感谢!这帮了大忙。真的非常感谢你!这帮了大忙。