Update segmentation.R

akdess · Feb 5, 2020 · 3d0c99b · 3d0c99b
1 parent 5f1e627
commit 3d0c99b
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/segmentation.R b/R/segmentation.R
@@ -295,7 +295,6 @@ PerformSegmentationWithHMM <- function(object, cnv.scale, removeCentromere = T,
     for (i in 1:dim(data)[2]) {
         rdata <- RangedData(IRanges(start = annotation$start, end = annotation$end), space = annotation$cytoband, copy = data[, 
             i])
-        rdata <- data.frame(rdata)
         hmm.segments <- HMMsegment(rdata, param = object@hmmparam, verbose = F)
         segments <- rbind(segments, data.frame(ID = colnames(data)[i], hmm.segments$segs))
     }