X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=test%2FpkgExample.R;fp=test%2FpkgExample.R;h=215c46296244d6e1dc5378a6135314eff42d9c7a;hp=0000000000000000000000000000000000000000;hb=64cceb2ece0d8142fee3e82e1cc56e20261caf45;hpb=01b234a0239845b349bf08bd7fc7d9c74ab83671

diff --git a/test/pkgExample.R b/test/pkgExample.R
new file mode 100644
index 0000000..215c462
--- /dev/null
+++ b/test/pkgExample.R
@@ -0,0 +1,8 @@
+library(valse)
+n = 50; m = 10; p = 5
+beta = array(0, dim=c(p,m,2))
+beta[,,1] = 1
+beta[,,2] = 2
+data = generateXY(n, c(0.4,0.6), rep(0,p), beta, diag(0.5, p), diag(0.5, m))
+X = data$X ; Y = data$Y
+res = runValse(X, Y, kmax = 5)