R/segMeth-accessors.R

# modification on git from copied files
#setMethod("dim", "segMeth", function(x) {
#  nrows <- c(nrow([email protected]), nrow([email protected]), length([email protected]), nrow([email protected]))
#  ncols <- c(length([email protected]), ncol([email protected]), ncol([email protected]))
#  if(any(nrows != 0)) nrow <- nrows[nrows != 0][1] else nrow <- 0
#  if(any(ncols != 0)) ncol <- ncols[ncols != 0][1] else ncol <- 0  
#  c(nrow, ncol)
#})

#setMethod("show", "segMeth", function(object) {
#  callNextMethod(object)

#  cat('\nSlot "nonconversion":\n')
#  print([email protected])
#  cat('\nSlot "Cs":\n')
#  .printIRangesMatrix(round([email protected]))
#  cat('\nSlot "Ts":\n')
#  .printIRangesMatrix(round([email protected]))
#  })

#setMethod("[", "segMeth", function(x, i, j, ..., drop = FALSE) {
#  x <- callNextMethod(x, i, j, ..., drop = FALSE)
#  if(!missing(j)) {
#    j <- as.vector(j)  
#    if(nrow([email protected]) > 0) [email protected] <- [email protected][,j, drop = FALSE]
#    if(nrow([email protected]) > 0) [email protected] <- [email protected][,j, drop = FALSE]
#    if(length([email protected])) [email protected] <- [email protected][j]
#  }
#  if(!missing(i)) {
#    i <- as.vector(i)
#    if(nrow([email protected]) > 0) [email protected] <- [email protected][i,, drop = FALSE]
#    if(nrow([email protected]) > 0) [email protected] <- [email protected][i,, drop = FALSE]
#    } 
#  x
#})

Try the segmentSeq package in your browser

Any scripts or data that you put into this service are public.

segmentSeq documentation built on May 2, 2018, 4:12 a.m.