复制循环

Question

R问题：

我希望能够复制我的“ if else”语句，但是在使用“ i”并重命名最终对象并添加不同数字时遇到困难。

基本上，我有72个站点，我将其划分为7个不同的区域，我想从该文件中随机删除站点。而且，其中一个站点只有很少的观测值，因此我应用了Bernoulli，并根据结果（如果有其他结果）对所有7个站点或仅对6个站点进行了计算。 当我应用它时，它突出显示就很好了，因此我很难在尝试将我所做的事情复制5次时遇到困难。

# My dataframe
# data.frame':  69 obs. of  4 variables:
# $ Site      : int  4488 4489 4490 4491 4492 4524 4536 4544 4546 4548 ...
# $ Group_site: Factor w/ 7 levels "Cam","Little_Ouse_&_Lark",..: 2 2 2 2 2 4 4 4 4 4 ...
# $ Class     : int  6 6 6 6 6 1 1 1 1 1 ...
# $ Patch_ID  : int  149 147 145 144 144 37 32 224 214 204 ...

fun <- if (rbinom(1, 1, 1/2) == 0) {
  seven <- ddply(sites,.(Class),function(x) x[sample(nrow(x),1),])
  avector <- seven[,4]
  seven2 <- obs[obs$Loc0 %in% avector,]
  dseven <- d[!d$ObsNum %in% seven2$ObsNum, ]
  } else {
    six <- ddply(sites2,.(Class),function(x) x[sample(nrow(x),1),])
    bvector <- six[,4]
    six2 <- obs[obs$Loc0 %in% bvector,]
    dsix <- d[!d$ObsNum %in% six2$ObsNum, ]
        } 

for(i in 1:5) {
  fun[i] <- paste("fun", i, sep="")   
  repeat(fun)
}

我希望得到类似的东西：我的5个副本中有5个对象。 示例：fun1，fun2，fun3，fun4，fun5。 由于我是随机带出的站点，因此副本应该有所不同。