Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Gebhardt, Albrecht
baykrig
Commits
c65f212e
Commit
c65f212e
authored
Jun 02, 2002
by
agebhard
Browse files
*** empty log message ***
parent
85cebf7e
Changes
1
Hide whitespace changes
Inline
Side-by-side
devel/fresh/.Rhistory
View file @
c65f212e
gc
()
ls
()
leman.bk.0
<-
bk.grid
(
point
=
leman.88.pt
,
at
=
"cadpbm"
,
prior
=
leman.prior.0
,
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
=
100
,
ny
=
100
,
trend
=
0
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
library
(
baykrig
)
leman.bk.0
<-
bk.grid
(
point
=
leman.88.pt
,
at
=
"cadpbm"
,
prior
=
leman.prior.0
,
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
=
100
,
ny
=
100
,
trend
=
0
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
plot
(
leman.bk.0
)
leman.prior.0
leman.bk.0
<-
bk.grid
(
point
=
leman.88.pt
,
at
=
"cadpbm"
,
prior
=
leman.prior.0
,
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
=
50
,
ny
=
50
,
trend
=
0
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
plot
(
leman.bk.0
)
source
(
"leman-example.R"
)
library
(
baykrig
)
leman.bk.0
<-
bk.grid
(
point
=
leman.88.pt
,
at
=
"cadpbm"
,
prior
=
leman.prior.0
,
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
=
50
,
ny
=
50
,
trend
=
0
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
leman.bk.0
<-
bk.grid
(
point
=
leman.88.pt
,
at
=
"cadpbm"
,
prior
=
leman.prior.0
,
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
=
100
,
ny
=
100
,
trend
=
0
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
plot
(
leman.bk.0
)
dev.print
(
"leman-0.ps"
)
dev.print
(
file
=
"leman-0.ps"
)
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
=
100
,
ny
=
100
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
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
=
100
,
ny
=
100
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
library
(
baykrig
)
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
=
100
,
ny
=
100
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
,
method
=
"ols"
)
library
(
baykrig
)
library
(
baykrig
)
q
(
)
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"
)
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
=
100
,
ny
=
100
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
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"
)
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
=
50
,
ny
=
50
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
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
=
150
,
ny
=
50
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
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
=
10
,
ny
=
10
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
plot
(
leman.bk
)
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
=
100
,
ny
=
100
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
plot
(
leman.bk
)
leman.bk.2
<-
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
=
200
,
ny
=
200
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
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
=
10
,
ny
=
10
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
plot
(
leman.bk
)
q
()
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
=
100
,
ny
=
100
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
,
method
=
"ols"
)
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"
)
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
=
50
,
ny
=
50
,
trend
=
1
,
rsearch
=
10
,
extrap
=
F
,
border
=
leman.bank
,
duplicate
=
"mean"
)
plot
(
leman.bk
)
plot
(
leman.bk
,
show.snb
=
T
)
plot
(
leman.bk
,
show.snb
=
T
,
bias
=
T
)
dev.print
(
file
=
"bias.ps"
)
q
()
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment