在R函数中替换循环

Question

我是R的新手,我在查找如何在下面的函数中替换FOR循环时遇到了麻烦.该函数估计人口平均值.任何帮助都将非常感激.谢谢!

 myFunc<- function(){


myFRAME <- read.csv(file="2008short.csv",head=TRUE,sep=",")

meanTotal <- 0

for(i in 1:100)
{

mySample <- sample(myFRAME$TaxiIn, 100, replace = TRUE)

tempMean <- mean(mySample)

meanTotal <- meanTotal + tempMean


}

cat("Estimated Mean: ", meanTotal/100, "\n") #print result

}

Answer 1

正如Rob所说,你的循环是不必要的,但在问题的精神中,'replicate()'函数可以直接替换你的for循环.像这样:

   myFunc <- function(){
      myFRAME <- read.csv(file="2008short.csv",head=TRUE,sep=",")
      meanTotal <- <- mean(replicate(100,mean(sample(myFRAME$TaxiIn,100,T))))
      cat("Estimated Mean: ", meanTotal, "\n")
    }