R语言验证大数定律出现错误: 意外的'}' in "}"，求教大神们有什么问题

LLN <- function(m=300)
{
  y<-mapply(function(n)mean(sample(c(0,1),n,replace = T)),c(1:m))
  x<-seq(1:m)
  plot(x,y,type = 'l')
  abline(h=0.5 col=3)
}