CODEWITHSUNDEEP
rkriginggstat
Georgios Boumis
Georgios Boumis

Reputation: 25

Iterate over multiple dependent variables (columns) of an sp dataframe when using krige.cv

I have a SpatialPointsDataframe called rain and I would like to fit a variogram and perfom cross-validation for each one of its last 10 columns (dependent variables) like below:

  fit.reg.vgm <- autofitVariogram(
  column (dependent variable) ~ X + Y + Z + AS + SL,
  rain,
  model = c("Sph", "Exp", "Gau", "Lin", "Log"),
  fix.values = c(NA, NA, NA),
  verbose = FALSE,
  GLS.model = NA,
  start_vals = c(NA, NA, NA),
  miscFitOptions = list()
)
  cv <-krige.cv(column (dependent variable) ~ X + Y + Z + AS + SL, rain, fit.reg.vgm$var_model)

Does anyone know how to construct such a for-loop?

Thanks in advance!

Upvotes: 0

Views: 138

Answers (2)

akrun
akrun

Reputation: 887741

An option with reformulate

out <- vector('list', length(x))
for(i in seq_along(x)) {out[[i]] <- reformulate(c("X", "Y", "Z"), response = x[i]) }
out
#[[1]]
#a ~ X + Y + Z

#[[2]]
#b ~ X + Y + Z

#[[3]]
#c ~ X + Y + Z

Upvotes: 0

Roman Luštrik
Roman Luštrik

Reputation: 70653

You will need to construct a formula. Try formula() and paste(). Something along the lines of

x <- c("a", "b", "c")
out <- list()

for (i in seq_along(x)) {
  out[[i]] <- formula(paste(x[i], "~ X + Y + Z"))
}


> out
[[1]]
a ~ X + Y + Z

[[2]]
b ~ X + Y + Z

[[3]]
c ~ X + Y + Z

Upvotes: 0

Related Questions