1
我是R新手,在解决如何在下面的函数中替换FOR循环时遇到问题。该函数估计总体平均值。任何帮助都将不胜感激。谢谢!替换R函数中的循环
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
}