[Swift-commit] r3255 - SwiftApps/SwiftR

[noreply at svn.ci.uchicago.edu]

Author: wilde
Date: 2010-02-25 22:24:59 -0600 (Thu, 25 Feb 2010)
New Revision: 3255

Added:
   SwiftApps/SwiftR/TODO
   SwiftApps/SwiftR/TestOpenMx1.R
Log:
Add TODO list and temporary OpenMx text.

Added: SwiftApps/SwiftR/TODO
===================================================================
--- SwiftApps/SwiftR/TODO	                        (rev 0)
+++ SwiftApps/SwiftR/TODO	2010-02-26 04:24:59 UTC (rev 3255)
@@ -0,0 +1,35 @@
+
+x n args
+x batch
+x into svn
+x unique dirs
+_ select sites and swift args (throttles etc)
+  R docs
+  R package (SwiftR)
+  Swift docs
+  async exec
+  clean up boot: fix all calls to statistics; update boot package w/ pboot() or swiftboot()
+  error handling and null and missing values: ensure res#s correspond to arg#s
+  status
+  specify swift scripts
+  run async and grab status (track 'runs' in R)
+  increm result collect
+  pass the func as val
+  pass extra funcs and packages required
+  pass extra vals
+  pass extra files
+  specifiy unique swift scritps ala Dirk's tools
+  setup the R envs (???)
+  coasters for persistent R Servers
+  test suites
+  use littleR
+  args as alists vs args as list
+  runids, output logging
+  select exec sites and swift  params etc
+  make polymorphic to *apply and snow
+  stream results back to R (so use can inspect as they arrive)
+  (pull them in with a Swift.poll() func)
+  handle discontiguous results
+  return good error messages including messages from R eval and from Swift
+  TUI
+  Name pbs jobs mnemonically

Added: SwiftApps/SwiftR/TestOpenMx1.R
===================================================================
--- SwiftApps/SwiftR/TestOpenMx1.R	                        (rev 0)
+++ SwiftApps/SwiftR/TestOpenMx1.R	2010-02-26 04:24:59 UTC (rev 3255)
@@ -0,0 +1,16 @@
+require(OpenMx)
+
+    data(demoOneFactor)
+    manifests <- names(demoOneFactor)
+    latents <- c("G")
+
+    factorModel <- mxModel("One Factor",
+        type="RAM",
+            manifestVars = manifests,
+            latentVars = latents,
+            mxPath(from=latents, to=manifests),
+            mxPath(from=manifests, arrows=2),
+            mxPath(from=latents, arrows=2, free=F, values=1.0),
+            mxData(observed=cov(demoOneFactor), type="cov", numObs=500))
+
+    summary(mxRun(factorModel))