private void writeResultsToSPOTProjectCache() {
runCommand(
"inputConfig$alg.currentResult <- read.table(textConnection(\""
+ currentRES.toString()
+ "\"), header=TRUE)",
false);
}
private void initResultHeading() {
runCommand(
"inputConfig$alg.currentResult <- read.table(textConnection(\""
+ currentRES.toString()
+ "\"), header=TRUE)",
false);
}
public void initSPOTConfFileName() {
runCommand(
"inputFile=paste(getwd(), \""
+ investigationId
+ ".conf\", sep = \""
+ File.separator
+ "\")",
false);
}
private void saveSPOTHistory() throws InPUTException {
runCommand(
"savehistory(file=paste(getwd(), \""
+ studyId
+ "\",\".Rhistory\", sep = \""
+ File.separator
+ "\"))",
false);
}
private void saveSPOTWorkspace() throws InPUTException {
runCommand(
"save.image(paste(getwd(), \""
+ studyId
+ "\", \".RData\", sep = \""
+ File.separator
+ "\"))",
false);
saveSPOTHistory();
}
public void reset(String studyId) throws InPUTException {
this.studyId = studyId;
runCommand("rm(list=ls())", false);
}
public void initSPOTSequentialDesign() {
String command = "inputConfig<-spot(inputFile,\"seq\", spotConfig=inputConfig)";
runCommand(command, false);
}
public void initSPOTinitialDesign() {
initInverseFunction();
runCommand("inputConfig<-spot(inputFile,\"init\")", false);
}
private void initInverseFunction() {
runCommand(
"source(textConnection(\"inverse<-function(x){v<-x\n if(x>0)v<-1/x\n return(v)}\"))",
false);
}
private void loadSPOTWorkspace() {
runCommand(
"load(paste(getwd(), \"" + studyId + "\", \".RData\", sep = \"" + File.separator + "\"))",
false);
}