[FLR-list] bug in lh::noise

[Poos, Jan Jaap]

Hi, 

I am trying to use noise method in package lh, and it returns error Error in .local(n, len, ...) : could not find function "aaply" '. Indeed, in rand-noise.R there is 

# setMethod("noise", signature(n='numeric', len="missing"),
#           function(n,len))
          
setMethod("noise", signature(n='numeric', len="FLQuant"),
          function(n=n,len=len,sd=0.3,b=0) {
          
          if (dims(len)$iter!=1) stop("len can not have iter>1")
        
          res=aaply(len,c(1,3:5), function(x) 
            maply(seq(n), function(x) noiseFn(dims(len)$year,b=b,sd=sd,trunc=0)))
   .......................

I guess that should be "apply". I'll fix it in a local copy, maybe you can fix it on the repos that is used to build it. Thanks in advance.

Cheers, JJP