Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.