Revision 9af100ae3074c045d5f0639637e096b1b094f9e1 authored by Edzer J. Pebesma on 02 February 2004, 16:39:05 UTC, committed by cran-robot on 02 February 2004, 16:39:05 UTC
1 parent ae42623
na.action.R
library(gstat)
data(meuse)
data(meuse.grid)
set.seed(13131) # reproduce results
# select 10 random rows;
# create two missing values in the coordinates:
m = meuse.grid[sample(nrow(meuse.grid), 10), ]
m[c(2,8), "x"] = NA
krige(log(zinc)~1,~x+y,meuse,m, na.action = na.pass)
krige(log(zinc)~1,~x+y,meuse,m, na.action = na.omit)
krige(log(zinc)~1,~x+y,meuse,m, na.action = na.exclude)
try(krige(log(zinc)~1,~x+y,meuse,m, na.action = na.fail))
# select 10 random rows;
# create two missing values in the regressor variable:
m = meuse.grid[sample(nrow(meuse.grid), 10), ]
m[c(3,7), "dist"] = NA
krige(log(zinc)~dist,~x+y,meuse,m, na.action = na.pass)
krige(log(zinc)~dist,~x+y,meuse,m, na.action = na.omit)
krige(log(zinc)~dist,~x+y,meuse,m, na.action = na.exclude)
try(krige(log(zinc)~dist,~x+y,meuse,m, na.action = na.fail))
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...