I am calling two function repeatedly (Nrep times) and save the results using the below code:

repeat.gendat <- function(Nreps,N, quantilelist=c(0,1,5,50,95,99,100),
                          distrib='norm',n.mean=5, n.stdev=3,e.lambda=0.1,
                          qq=0.5,M=1) {
  for (j in 1:Nreps) {
    if (j==1) {
      if (distrib=='norm') { output.data <- gen.norm.dat(N,n.mean,n.stdev,quantilelist)}
      if (distrib=='exp')  { output.data <- gen.exp.dat(N,e.lambda,quantilelist)}
      if (distrib=='binom')  { output.data <- 
        gen.binom.dat(N,qq, M,quantilelist)}
    }
    if (j>1) {
      if (distrib=='norm') { output.data <- rbind(output.data,
                                 gen.norm.dat(N,n.mean,n.stdev,quantilelist)) }
      if (distrib=='exp') { output.data <- rbind(output.data,
                                 gen.exp.dat(N,e.lambda,quantilelist)) }
      if (distrib=='binom') { output.data <- rbind(output.data,
                                 gen.binom.dat(N,qq,M,quantilelist)) }
      }
  } 
return(output.data)
}

And then to generate the normally distributed data I run the below code in Rstudio:

data1 <- repeat.gendat(100, 50,quantilelist=c(0,1,5,50,95,99,100),
                       distrib='norm', n.mean = 5, n.stdev = 3)

But I am getting this error: Error in rnorm(Nreps, N, n.mean, n.stdev) : unused argument (n.stdev)
I don't know where am I wrong.
Any help would be appreciated



Source link