[BioC] bug for MTP

[Haiyan Pan]

bioconductor:

 when I used the following example to do MTP analysis


     #data 
     set.seed(99)
     data<-matrix(rnorm(90),nr=9)
     group<-c(rep(1,5),rep(0,5))

     m1<-MTP(X=data,Y=group,test = "f.block",alternative="less",B=100,method="sd.minP")

 the following error information occurs:

 Error in "[<-"(`*tmp*`, (i - 1) * l + j, value = numeric(0)) : 
        nothing to replace with
In addition: Warning messages: 
1: number of items to replace is not a multiple of replacement length 
2: number of items to replace is not a multiple of replacement length 
3: number of items to replace is not a multiple of replacement length 
4: number of items to replace is not a multiple of replacement length  

how to fix it? Thanks