periodic variograms
Paulo Justiniano Ribeiro Jr wrote:
You could try with the wave model:
require(geoR)
plot(c(0,100), c(0,1.5), type="n")
lines.variomodel(1:100,"wave", cov.pars=c(1, 5), nug=0.2)
which is also implemented by other packages
yes, as in:
library(gstat)
data(meuse)
coordinates(meuse)= c("x", "y")
v = variogram(log(zinc)~1,meuse)
plot(v, fit.variogram(v, vgm(1, "Hol", 200, 1)))
(you may need to update your gstat package to get sane results for it)
--
Edzer
Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus On Thu, 11 Dec 2008, Satterthwaite, Paul wrote:
Hello, I am a beginner with R, and have 2 questions concerning spatial/geostatistics. I doing a little exercise investigating periodicity in artificial patch landscapes and resulting periodicity of semivariograms. Does anyone know if there is an already-existing model semivariogram that contains a "hole effect" that can dampen with increasing lag, i.e., includes some periodicity in the model semivariogram fit to the empirical data? Any ideas would be GREATLY appreciated! Cheers! Sincerely, Paul M. Satterthwaite Paul M. Satterthwaite MS Student, Forest Science Richardson 201A Oregon State University Corvallis, OR 97331 paul.satterthwaite at oregonstate.edu <mailto:paul.satterthwaite at oregonstate.edu> [[alternative HTML version deleted]]
_______________________________________________ R-sig-Geo mailing list R-sig-Geo at stat.math.ethz.ch https://stat.ethz.ch/mailman/listinfo/r-sig-geo
_______________________________________________ R-sig-Geo mailing list R-sig-Geo at stat.math.ethz.ch https://stat.ethz.ch/mailman/listinfo/r-sig-geo
Edzer Pebesma Institute for Geoinformatics (ifgi), University of M?nster Weseler Stra?e 253, 48151 M?nster, Germany. Phone: +49 251 8333081, Fax: +49 251 8339763 http://ifgi.uni-muenster.de/ http://www.springer.com/978-0-387-78170-9 e.pebesma at wwu.de