--- /dev/null
+// RegisteringDynamic Symbols
+
+#include <R.h>
+#include <Rinternals.h>
+#include <R_ext/Rdynload.h>
+
+void R_init_morpheus(DllInfo* info) {
+ R_registerRoutines(info, NULL, NULL, NULL, NULL);
+ R_useDynamicSymbols(info, TRUE);
+}
test_that("naive computation provides the same result as vectorized computations",
{
h <- 1e-7 #for finite-difference tests
- tol <- 5e-4 #.25 * sqrt(h) #about 7.9 e-5
+ tol <- 1e-3 #large tolerance, necessary in some cases... (generally 1e-6 is OK)
for (dK in list( c(2,2), c(5,3)))
{
d = dK[1]