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