Commit 661f90c0 authored by agebhard's avatar agebhard

...

parent 662c81c4
library(rgeostat);library(baykrig);
str(ans)
library(rgeostat);library(baykrig);
str(ans)
str(leman.bk.ord)
str(ans)
str(leman.bk.ord)
str(ans)
library(rgeostat);library(baykrig);
str(ans)
str(leman.bk.ord)
str(leman.bk.ord)
rm(leman.bk.ord)
rm(leman.bk.ord)
str(leman.bk.ord)
str(ans)
str(leman.bk.ord)
q()
library(rgeostat);library(baykrig);
......@@ -27,6 +11,22 @@ ls(ans)
ls()
library(rgeostat);library(baykrig);
library(rgeostat);library(baykrig);
leman.bk.ord <- bk.grid(point = leman.pt, at = "cadpbm", prior=leman.prior.ord,var.mod.obj = leman.sph, 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=0, rsearch = 10, extrap = F,border=leman.bank, duplicate="mean");
library(rgeostat);library(baykrig);
ls()
library(rgeostat);library(baykrig);
library(rgeostat);library(baykrig);
dyn.load("getpid.so")
.C("getpid")
.C("getpid",integer(1))
.C("R_getpid",integer(1))
dyn.load("getpid.so")
.C("R_getpid",integer(1))
library(rgeostat);library(baykrig);
dyn.load("getpid.so")
.C("R_getpid",integer(1))
library(rgeostat);library(baykrig);
leman.bk.ord <- bk.grid(point = leman.pt, at = "cadpbm", prior=leman.prior.ord,var.mod.obj = leman.sph, 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=0, rsearch = 10, extrap = F,border=leman.bank, duplicate="mean");
dyn.load("getpid.so")
.C("R_getpid",integer(1))
library(rgeostat);library(baykrig);
leman.bk.ord <- bk.grid(point = leman.pt, at = "cadpbm", prior=leman.prior.ord,var.mod.obj = leman.sph, 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=0, rsearch = 10, extrap = T,border=leman.bank, duplicate="mean");
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment