[Swift-commit] r3608 - SwiftApps/SwiftR/Swift/man

[noreply at svn.ci.uchicago.edu]

Author: wilde
Date: 2010-09-07 12:22:04 -0500 (Tue, 07 Sep 2010)
New Revision: 3608

Modified:
   SwiftApps/SwiftR/Swift/man/Swift-package.Rd
Log:
Adjusted examples to get test data from data() function rather than boot package.

Modified: SwiftApps/SwiftR/Swift/man/Swift-package.Rd
===================================================================
--- SwiftApps/SwiftR/Swift/man/Swift-package.Rd	2010-09-07 17:20:50 UTC (rev 3607)
+++ SwiftApps/SwiftR/Swift/man/Swift-package.Rd	2010-09-07 17:22:04 UTC (rev 3608)
@@ -45,18 +45,17 @@
 %%}
 \examples{
 
-require("boot")
-sumcrits <- function(duckdata,dogdata) { sum( duckdata$plumage, dogdata$mvo ) }
+myfunc <- function(treedata,cardata) { sum( treedata$Height, cardata$dist ) }
+data(cars)
+data(trees)
 
-args=list(ducks,dogs)
-arglist = rep(list(args),9)
-res = swiftapply(sumcrits,arglist)
+args=list(trees,cars)
+arglist = rep(list(args),10) # Create 10 calls
 
-res = swiftapply(sumcrits,arglist,callsperbatch=10)
+res = swiftapply(myfunc,arglist)
 
-res = swiftapply(sumcrits,arglist,callsperbatch=2)
+res = swiftapply(myfunc,arglist,callsperbatch=5)
 
-res = swiftapply(sumcrits,arglist,callsperbatch=3)
+# res = swiftapply(myfunc,arglist,callsperbatch=2,site="pbs")
 
-# res = swiftapply(sumcrits,arglist,callsperbatch=2,site="pbs")
 }