#setwd("C:/Users/Dave/HalfStarted/predictFromSequence/")
target.dir <- "results/mus_X_inactivation/mXi.BatchOpt.2016.11.14.dpsf/"
target.files <- dir(target.dir, pattern="1000.waveList.Rdata")
resTable <- data.frame()
for(thisFile in target.files) {
load(paste(target.dir, thisFile, sep="/"))
thisRow <- data.frame(file=thisFile, finalRound= length(optim.scores.vec), max.score=max(optim.scores.vec),
final.stateWidth = keep.XFS$bf.spreadRep.1$mods$H3K27me3$stateWidth,
final.offset = keep.XFS$bf.spreadRep.1$mods$H3K27me3$offset)
resTable <- rbind(resTable, thisRow)
}
write.table(resTable, file=paste(target.dir, "parameterResultsTable.tab", sep="/"), quote=F, row.names=F, sep="\t")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.