[kepler-code] r28800 - trunk/modules/science-pipes-backend/src/edu/cornell/birds/is/bap/actor/survivorship

[barseghian at ecoinformatics.org]

Author: barseghian
Date: 2011-10-14 18:48:04 -0700 (Fri, 14 Oct 2011)
New Revision: 28800

Modified:
   trunk/modules/science-pipes-backend/src/edu/cornell/birds/is/bap/actor/survivorship/LifeTable.java
Log:
include some commented-out, failed attempts to just pass along the life table from the stdout of the summary command

Modified: trunk/modules/science-pipes-backend/src/edu/cornell/birds/is/bap/actor/survivorship/LifeTable.java
===================================================================
--- trunk/modules/science-pipes-backend/src/edu/cornell/birds/is/bap/actor/survivorship/LifeTable.java	2011-10-14 03:30:42 UTC (rev 28799)
+++ trunk/modules/science-pipes-backend/src/edu/cornell/birds/is/bap/actor/survivorship/LifeTable.java	2011-10-15 01:48:04 UTC (rev 28800)
@@ -71,8 +71,9 @@
         dataPort = new TypedIOPort(this, "dataPort", true, false);
         //dataPort.setTypeEquals(BaseType.GENERAL);    	
     	
-		//outPort = new TypedIOPort(this, "out", false, true);
+		//outPort = new TypedIOPort(this, "outPort", false, true);
 		//outPort.setTypeEquals(BaseType.OBJECT);
+		//outPort.setTypeEquals(BaseType.STRING);
 
 		expression.setExpression("filled in when actor fires");
 	}
@@ -83,8 +84,14 @@
 		String survivalCurveRcode = "" +
 			"demographyData.survfit <- dataPort\n" + 
 			"library(survival)\n" +
+			//"sink(\""+home+"lifetable.txt\")\n" + 
 			"summary(demographyData.survfit)\n";
-			//"out <- summary(demographyData.survfit)\n";
+			//"outPort <- summary(demographyData.survfit)\n" +
+			//"sink()\n" +
+			//"readLines(\""+home+"lifetable.txt\")\n";
+			//"outPort <- \""+home+"lifetable.txt\"\n" +
+			//"outPort <- capture.output(summary(demographyData.survfit))\n" + 
+			//"outPort\n";
 		
 		expression.setExpression(survivalCurveRcode);