R翻动粘在零件上的硬币

这里是真正的新手。如果这个问题对某些人来说太明显，我道歉。我转向在线社区，因为没有人知道我在哪里工作

问题：一千枚普通硬币。每枚硬币独立抛10次。设c_1，c_rand，c_min为第一枚抛硬币中的人头数，随机硬币和人头数最少的硬币（平局时选择较早的一枚）。到目前为止，我成功地编写了进行实验的代码。我现在想拿出第一枚硬币，一枚随机硬币和一枚硬币，上面有给定序列中最后一个人头，但我丢了。我很想知道这方面的方向

 i<-1

while(i<=10){
    x<-1
    heads<-0
    tails<-0

    while(x<=10){
        s<-sample(0:1,1)

        if(s==1) heads=heads+1
        else tails=tails+1
        x=x+1}
    cat("heads: ", heads)
    i=i+1}

---

i首先：1000枚公平硬币翻转10次的结果与1枚硬币翻转10000次的结果相同，结果以10个为一组记录

 coins <- matrix( rbinom( 10000, 1, .5), ncol=10)
 coins <- cbind( coins, c_1 = apply( coins, 1, sum) )  # number of heads

从二项分布（以及其他）中取样所需的
硬币。请参阅
？示例
您可以从
rbinom（1000，10，0.5）
开始，如果您有特定问题，您可以询问，但不要要求他人为您编写代码。谢谢。我将尝试更好地阐述我的问题，这是stackoverflow社区的新成员。random coin=一千枚硬币中随机翻转的一枚