R中的意外符号

Question

尝试进行等位基因频率采样，并遇到意外符号的问题。任何帮助表示赞赏！下面的代码。

for (alleles.amount in 1:20) (event = sample(c('red', 'red'), 20, F, 
prob=c(0.75, 0.25)) white.count = c(white.count, sum(event == "white")))