#Initialize the SELEX package
#options(java.parameters="-Xmx1500M")
#library(SELEX)
# Configure the current session
workDir = file.path(".", "SELEX_workspace")
selex.config(workingDir=workDir,verbose=FALSE, maxThreadNumber= 4)
# Extract sample data from package, including XML database
sampleFiles = selex.exampledata(workDir)
# Load all sample files using XML database
selex.loadAnnotation(sampleFiles[3])
# Create sample handles
r0 = selex.sample(seqName="R0.libraries", sampleName="R0.barcodeGC", round=0)
r2 = selex.sample(seqName='R2.libraries', sampleName='ExdHox.R2', round=2)
# Split the r0 sample into testing and training datasets
r0.split = selex.split(sample=r0)
# Run entire analysis
selex.run(trainingSample=r0.split$train, crossValidationSample=r0.split$test,
infoGainSample=r2)
# Display results
selex.mmSummary()[,c(1,2,3,4,5,6)]
selex.infogainSummary()[,c(1,2,3,4,5)]
Run the code above in your browser using DataLab