R/statDivMelt.R

In DivMelt: HRM Diversity Assay Analysis Tool

statDivMelt <- function(dir,
	singleFile="",
	selectList="",
	theta1=50.,
	theta2=30.,
	excludeEarly=TRUE,
	earlyCutoff=3.0,
	excludeLate=FALSE,
	lateCutoff=3.0,
	includeShoulders=TRUE,
	shoulderCutoff=0.1,
	t1Cutoff=1.0,
	t2Cutoff=1.0,
	t1SlopeWindow=1.0,
	t2SlopeWindow=1.0,
	statsFile="DivMelt_stats.csv"){

    processDivMelt(dir=dir,
	singleFile=singleFile,
	selectList=selectList,
	theta1=theta1,
	theta2=theta2,
	format="",
	showStats=TRUE,
	excludeEarly=excludeEarly,
	earlyCutoff=earlyCutoff,
	excludeLate=excludeLate,
	lateCutoff=lateCutoff,
	includeShoulders=includeShoulders,
	shoulderCutoff=shoulderCutoff,
	t1Cutoff=t1Cutoff,
	t2Cutoff=t2Cutoff,
	t1SlopeWindow=t1SlopeWindow,
	t2SlopeWindow=t2SlopeWindow,
	useLasso=FALSE,
	scoreFile="",
	rejectsFile="",
	statsFile=statsFile)
}