[rkward-cvs] SF.net SVN: rkward:[3616] branches/jss_dec_10/examples/demo.R

[sjar at users.sourceforge.net]

Revision: 3616
          http://rkward.svn.sourceforge.net/rkward/?rev=3616&view=rev
Author:   sjar
Date:     2011-05-26 00:23:48 +0000 (Thu, 26 May 2011)

Log Message:
-----------
updated changes for current state

Modified Paths:
--------------
    branches/jss_dec_10/examples/demo.R

Modified: branches/jss_dec_10/examples/demo.R
===================================================================
--- branches/jss_dec_10/examples/demo.R	2011-05-26 00:23:13 UTC (rev 3615)
+++ branches/jss_dec_10/examples/demo.R	2011-05-26 00:23:48 UTC (rev 3616)
@@ -16,11 +16,26 @@
 ## Figure 2
 my.data <- data.frame (var=numeric (1), var1=factor (1), var2=character (1), var3=logical (1), stringsAsFactors=FALSE)
 rk.sync.global ()
+#Interactive console with syntax highlighting
+f <- function () {
+      print ("Interactive console with syntax highlighting")
+   }
+   f ()
+#show an S4 object in workspace browser, source: help {utils}
+## define a S4 generic function and some methods
+combo <- function(x, y) c(x, y)
+setGeneric("combo")
+setMethod("combo", c("numeric", "numeric"), function(x, y) x+y)
 
 ok.to.proceed ("<b>Replication of Figure 2</b>:<br>The object \"my.data\" has been created in the global environment.<br><br>
 Click on the \"Workspace\" button in the left tool view to show object information in the workspace browser.
 Click on the '+'-symbol next to the object to expand it.")
 
+
+ok.to.proceed ("<b>Replication of Figure 2</b>:<br>The object \"my.data\" has been created in the global environment.<br><br>
+Click on the \"Workspace\" button in the left tool view to show object information in the workspace browser.
+Click on the '+'-symbol next to the object to expand it.")
+
 ## Figure 5
 library (datasets)
 data (CO2)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.