R/loadMethylumi2.R

In schalkwyk/wateRmelon: Illumina DNA methylation array normalization and metrics

loadMethylumi2 <-
function(methylationData, controlData=NULL){

	methLumi_data <- lumiMethyR2(methylationData)
	
	if(!is.null(controlData)) methLumi_data <- addControlData2methyLumiM(controlData, methLumi_data)

	return(methLumi_data)
}