R/is_multiseg.r

In luciansmith/copynumber: Segmentation of single- and multi-track copy number data by penalized least squares regression.

####################################################################
## 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