I am trying to use filtered_R to select differential expressed genes from Filtall (a non-specific filtering subset ) by BH. An error occurred. How should I do this correctly? Thanks a lot.

# Filtall
ExpressionSet (storageMode: lockedEnvironment)
assayData: 379 features, 111 samples 

rawp <- esApply(Filtall, MARGIN = 1, FUN = function(x) {
t.test(x[BCR], x[!NEG], alternative="two.sided",mu=0, paired = FALSE, var.equal = FALSE)$p.value
})

sum(rawp<=0.05)
[1] 312

fwer <- mt.rawp2adjp(rawp, c("BH", "BY"))
mt.reject(fwer$adjp, alpha = 0.05)$r

 rawp  BH  BY 
 0.05  312 310 286

theta = seq(from=0, to=0.5, by=0.1)

rejBH = filtered_R(alpha=0.05, filter= Filtall, test=rawp, theta=theta, method=BH)

Error in (1 - h) * qs[i] : non-numeric argument to binary operator
In addition: Warning messages:
1: In is.na(x) : is.na() applied to non-(list or vector) of type 'S4'
2: In is.na(x) : is.na() applied to non-(list or vector) of type 'S4'