[Rprotobuf-commits] r380 - pkg/inst/examples/HighFrequencyFinance

[noreply at r-forge.r-project.org]

Author: edd
Date: 2010-08-13 20:48:03 +0200 (Fri, 13 Aug 2010)
New Revision: 380

Modified:
   pkg/inst/examples/HighFrequencyFinance/loadInR.r
Log:
added some comments


Modified: pkg/inst/examples/HighFrequencyFinance/loadInR.r
===================================================================
--- pkg/inst/examples/HighFrequencyFinance/loadInR.r	2010-08-12 21:49:30 UTC (rev 379)
+++ pkg/inst/examples/HighFrequencyFinance/loadInR.r	2010-08-13 18:48:03 UTC (rev 380)
@@ -84,7 +84,7 @@
     trds <- Module("trades", dll)
     td <- new( trds$Trades )
     td$init(file)
-    print(n <- td$numberOfFills())
+    #print(n <- td$numberOfFills())
     df <- td$getData()
 
     if (verbose) print(summary(df))
@@ -100,15 +100,14 @@
 
 dll <- dyn.load("protoModule.so")
 
-#print(summary(moduled()));
-#print(summary(moduled()));
-#q()
+## uncomment next line to see a crash when running twice !
+#moduled(TRUE); moduled(TRUE); q()
 
 
 
 
 print(benchmark(compiled  = compiled(FALSE),
-                #moduled   = moduled(FALSE),
+                #moduled   = moduled(FALSE),   ## uncomment and crash
                 basicUse  = basicUse(FALSE),
                 betterUs  = betterUse(FALSE),
                 preAlloc  = preAlloc(FALSE),