如何使用tapply（）内的for循环和打印输出中的R？(How to use tapply() w

我使用tapply（）的函数适用于我的数据

Myrepfun <- function(x,n){
    nstudents <- replicate(1000,sum(sample(x, size=n,replace=TRUE)))
    quantile(nstudents,probs=0.95)
}

tapply(weight,schoolcode,Myrepfun,n=2)

我想内的使用for循环并打印输出。 我曾尝试以下和我得到的错误消息： Error: unexpected symbol in "for(n in 12:13) (t=tapply(ow,sc,ndropfunction,n,p=0.95) output

for(n in 1:25) {t=tapply(weight,schoolcode,Myrepfun,n,p=0.95) print(c=(t,n))}

Answer 1:

重现的例子让世界去圆。 然而，你的问题是，你的代码在语法上不合法。 如果你想要把一切都在同一行，需要用分号来的命令分开： ; 。 或者，把它们放在两个不同的线路。 举两个例子：

> x <- runif(100)
> for (i in 1:3){out <- mean(x);print(c(out,i))}
#-----
[1] 0.4958944 1.0000000
[1] 0.4958944 2.0000000
[1] 0.4958944 3.0000000
> for (i in 1:3){
+   out <- mean(x)
+   print(c(out,i))
+ }
#-----
[1] 0.4958944 1.0000000
[1] 0.4958944 2.0000000
[1] 0.4958944 3.0000000

文章来源: How to use tapply() within a for loop and print output in R?