R/is_multiseg.r

In igordot/copynumber: Segmentation of single- and multi-track copy number data by penalized least squares regression (with hg38 and mm10).

####################################################################
## Author: Gro Nilsen, Knut Liestøl and Ole Christian Lingjærde.
## Maintainer: Gro Nilsen <gronilse@ifi.uio.no>
## License: Artistic 2.0
## Part of the copynumber package
## Reference: Nilsen and Liestøl et al. (2012), BMC Genomics
####################################################################

# Function to check if segments come from pcf-routine or multipcf-routine


## Input:
### segments: a data frame with segmentation results from pcf, multipcf or aspcf

## Output:
### multi: logical value indicating whether segments comes from multipcf or not

## Required by:
## checkSegments
## getUnisegFormat
## selectSegments

## Requires:
## none


is.multiseg <- function(segments) {
  # If not multisegment, the first column name should be "sampleID"
  multi <- ifelse(colnames(segments)[1] == "sampleID", FALSE, TRUE)

  return(multi)
} # end is.multiseg