bugs in latest version of SubtypeDrug

[liangdp1984]

I followed your vignettes and run the code using your internal data, but i got errors information. Can you fix the issue? I will try my own data and see if this errorrs still happens.
library(SubtypeDrug)#R3.51
packageVersion("SubtypeDrug")
[1] ‘0.1.5’

Subtype_drugs<-PrioSubtypeDrug(Geneexp,
"Control",
SpwSymbolList,
drug.spw.data=DrugSpwData,

•                            Subtype_labels,
  

•                            "Control",
  

•                            SpwSymbolList,
  

•                            drug.spw.data=DrugSpwData,
  

•                            E_FDR=1, S_FDR=1)
  

Error in up.drug.sample.score - down.drug.sample.score :
non-numeric argument to binary operator