From f5429af71942378b1e564128e08a9e993508d9f5 Mon Sep 17 00:00:00 2001
From: helmutm <helmutm@fd906abe-77d9-0310-91a1-e0d9ade77398>
Date: Mon, 8 Oct 2007 11:00:52 +0000
Subject: [PATCH] more on rstat.getDataFrame()

git-svn-id: svn://svn.cy55.de/Zope3/src/cybertools/trunk@2097 fd906abe-77d9-0310-91a1-e0d9ade77398
---
 pyscript/rstat.txt | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 pyscript/rstat.txt

diff --git a/pyscript/rstat.txt b/pyscript/rstat.txt
new file mode 100644
index 0000000..2b2e7d7
--- /dev/null
+++ b/pyscript/rstat.txt
@@ -0,0 +1,34 @@
+==================================================
+Using the R Statistics Package with Python Scripts
+==================================================
+
+  >>> from cybertools.pyscript.tests import Root
+  >>> from cybertools.pyscript.script import PythonScript
+
+  >>> pp = PythonScript()
+  >>> pp.__parent__ = Root()
+  >>> pp.__name__ = 'pp'
+  >>> request = None
+
+  >>> pp.setSource(u"return 'Hello World'")
+  >>> pp(request)
+  'Hello World'
+
+  >>> source = """
+  ... data = [('r1', 'c1', 1),
+  ...         ('r1', 'c2', 1),
+  ...         ('r1', 'c3', 0),
+  ...         ('r2', 'c1', 0),
+  ...         ('r2', 'c2', 1),
+  ...         ('r2', 'c3', 1),
+  ...         ('r3', 'c1', 0),
+  ...         ('r3', 'c2', 1),
+  ... ]
+  ... matrix = rstat.getDataFrame(data)
+  ... #return matrix
+  ... return rstat.intermediateData
+  ... x = rpy.with_mode(rpy.BASIC_CONVERSION, r.descript)(matrix)
+  ... return x
+  ... """
+  >>> pp.setSource(source)
+  >>> pp(request)