Displaying 1 result from an estimated 1 matches for "bugtest2".
Did you mean:
  bugtest
  
2003 Dec 09
1
Maybe some bug on sapply and cbind (PR#5628)
...paramtmp
}
If you run :
> bugTest()
$mean
expression(1)
$sd
expression(2)
Everything seems Ok!!! But, now, continue by running :
> cbind(1,rep(2,1))
Segmentation fault
In fact, every cbind, rbind applying vectors seem to fail.
Now, change in the bugTest the sapply by some for instance:
bugTest2<-function() {
  paramnames <- c("mean","sd")
  param <- list(expression(1),expression(2))
  paramtmp <- list(mean=0,sd=1)
  if(length(param)) {
      for( i in 1:length(param)) paramtmp[[paramnames[i]]]<-param[[i]]
  }
  paramtmp
}
>  bugTest2()
$mean
expressi...