diff --git a/devel/fresh/test.R b/devel/fresh/test.R
new file mode 100644
index 0000000000000000000000000000000000000000..636bec6b60e65a71f01d1a7392c28c400cd51239
--- /dev/null
+++ b/devel/fresh/test.R
@@ -0,0 +1,2 @@
+library(baykrig)
+leman.bk<- bk.grid(point = leman.88.pt , at = "cadpbm", prior=leman.prior,var.mod.obj = leman.88.vmsph, xsw=min(leman.bank$x),ysw=min(leman.bank$y), xne=max(leman.bank$x), yne=max(leman.bank$y), nx=5, ny=5, trend=1, rsearch = 10, extrap = F,border=leman.bank, duplicate="mean")