[Robast-commits] r70 - pkg/RobLox/inst/tests

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

Author: stamats
Date: 2008-02-22 13:53:20 +0100 (Fri, 22 Feb 2008)
New Revision: 70

Modified:
   pkg/RobLox/inst/tests/tests.R
Log:
one further timing added ...

Modified: pkg/RobLox/inst/tests/tests.R
===================================================================
--- pkg/RobLox/inst/tests/tests.R	2008-02-22 11:55:48 UTC (rev 69)
+++ pkg/RobLox/inst/tests/tests.R	2008-02-22 12:53:20 UTC (rev 70)
@@ -216,3 +216,7 @@
 
 system.time(apply(X, 1, roblox))
 system.time(rowRoblox(X))
+M <- apply(X, 1, median)
+S <- apply(X, 1, mad)
+init <- cbind(M, S)
+system.time(rowRoblox(X, initial.est = init))