# NOT RUN {
data(Europefit)
Europefit
plot(Europefit)
## The following example takes a lot of time and will therefore not
## be run unless you type: example(Europefit, run.dontrun=TRUE)
# }
# NOT RUN {
## We load the data for the entire world
data(GNIPdata)
## We prepare the data for Europe
GNIPdataEU <- queryGNIP(
data=GNIPdata,
long.min = -30,
long.max = 60,
lat.min = 30,
lat.max = 70)
## We fit the isoscape model
Europefit <- isofit(iso.data=GNIPdataEU,
mean.model.fix=list(elev=TRUE, lat.abs=TRUE),
mean.model.rand=list("uncorr"=TRUE),
disp.model.rand=list("uncorr"=TRUE))
## We created the object Europefit stored in this package using
## save(Europefit, file="Europefit.rda", compress="xz")
Europefit
plot(Europefit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab