R/champ.read.R

In JoshuaTian/ChAMP: Chip Analysis Methylation Pipeline for Illumina HumanMethylation450 and EPIC

champ.read <-
function(betaFile="beta.txt",sampleSheet="sampleSheet.txt",resultsDir)
{
	beta <-read.table(betaFile,header =T, sep = "\t")
	pd <- read.table(sampleSheet,header=T,sep="\t")
	if(file.exists(resultsDir))
	{
		message("The directory ",resultsDir," already exists. To avoid overwriting please rename in the arguments or delete this folder.")
		
	}else{ 
    
		dir.create(resultsDir)	
	}	
	return(list(beta=beta,pd=pd))
}