diff --git a/R/BSseq-class.R b/R/BSseq-class.R index 5ff7c2c..174ef7b 100644 --- a/R/BSseq-class.R +++ b/R/BSseq-class.R @@ -93,9 +93,6 @@ BSseq <- function(M = NULL, Cov = NULL, coef = NULL, se.coef = NULL, if (is.null(pData)) { # BSseq object will have no colnames. pData <- S4Vectors:::new_DataFrame(nrows = ncol(M)) - } else { - # BSseq object will have 'sampleNames' as colnames. - pData <- DataFrame(row.names = sampleNames) } } else { if (is.null(pData)) {