Commit 3e669914 authored by agebhard's avatar agebhard

.RData nicht commitbar!?

parent 488a9216
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=10, ny=10, trend=0, rsearch = 10, extrap = F,border=leman.bank, duplicate="mean")
leman.bk1 <- bk.grid(point = leman.88.pt , at = "cadpbm", prior=leman.prior.1,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=10, ny=10, trend=0, rsearch = 10, extrap = F,border=leman.bank, duplicate="mean",trend=1)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
gc()
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
q()
library(baykrig)
library(baykrig)
library(baykrig)
library(baykrig)
leman.bk1 <- bk.grid(point = leman.88.pt , at = "cadpbm", prior=leman.prior.1,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=10, ny=10, trend=1, rsearch = 10, extrap = F,border=leman.bank, duplicate="mean")
library(baykrig)
leman.bk1 <- bk.grid(point = leman.88.pt , at = "cadpbm", prior=leman.prior.1,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=10, ny=10, trend=1, rsearch = 10, extrap = F,border=leman.bank, duplicate="mean")
plot(leman.bk1)
leman.bk1$z
leman.bk1$snb
leman.bk1$
q()
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