将函数的不同版本应用于R中另一个数据帧的不同列

Question

遵循此线程计算概率

经过验证的答案包含for循环和prop.tables；b"；应该表示数据帧的一列。

例如：

df.base<-as.data.frame(ncol(dataframe0),replicate(vector("numeric",1000)))

其中数据帧0中的每一列都包含整数或连续值采样1000次。我还想指出，当对dataframe0中的第一列进行采样时，其值必须存储在df.base[，1]中

computeFun<-function(dataframe){
set.seed(1234)
for (i in 1:1000){
df.base[i] <- sample(dataframe0[,1:ncol(dataframe)], size=1, replace = T)
return(df.base]}

几天来，我一直在想办法，但我做不到。

谢谢

Answer 1

sampleLoop<-function(x){
set.seed(1234)
for (i in c(1:ncol(x))){
df.base[,i] <-replicate(1000,sample(x = x[,i],size = 1,replace = T))
}
return(as.data.frame(df.base))
}
test.sample2<-sampleLoop(dataframe0)

我必须使用replicate()而不是for循环进行采样，然后我使用for循环循环遍历列。换句话说，replicate函数负责行，而for循环负责列。

就像足球中的中后卫一样，一个负责空中球，另一个负责地面上的球：(