GetCorrelation for methylbaseDB does not accept methods other than 'pearson'

[alexg9010]

Error:

library(methylKit)

?getCorrelation

data("methylKit")

mdb <- makeMethylDB(methylBase.obj)

lapply(c("pearson", "kendall", "spearman"), function(x) getCorrelation(methylBase.obj, method = x))
lapply(c("pearson", "kendall", "spearman"), function(x) getCorrelation(mdb, method = x))

Fix at https://github.com/al2na/methylKit/blob/4735b6fca820c8bda1f84b03e12d19bada2df1fc/R/methylDBFunctions.R#L885-L886:

setMethod("getCorrelation", "methylBaseDB",
          function(object,method = c("pearson", "kendall", "spearman"),plot,nrow=2e6){