diff options
| -rw-r--r-- | R/tests/test_lossdistrib.R | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/R/tests/test_lossdistrib.R b/R/tests/test_lossdistrib.R deleted file mode 100644 index 34c7554c..00000000 --- a/R/tests/test_lossdistrib.R +++ /dev/null @@ -1,15 +0,0 @@ -library(lossdistrib) -p <- runif(1000) -S <- runif(1000) -w <- rep(1/10000,10000) - -run1 <- system.time(for(i in 1:1000){ - lossdistC(p, w, S, 301) -}) -cat("simple lossdist", run1["elapsed"], "\n") - -run2 <- system.time(for(i in 1:1000){ - lossdistCblas(p, w, S, 301) -}) -# the blas function should be roughly twice as fast -cat("blas lossdist", run2["elapsed"], "\n") |