diff --git a/R/PrestoGP_Multivariate_Vecchia.R b/R/PrestoGP_Multivariate_Vecchia.R index 642c125..65810e2 100755 --- a/R/PrestoGP_Multivariate_Vecchia.R +++ b/R/PrestoGP_Multivariate_Vecchia.R @@ -110,9 +110,7 @@ setMethod("prestogp_predict", "MultivariateVecchiaModel", ndx.out <- c(ndx.out, rep(i, nrow(locs[[i]]))) } for (i in seq_along(locs)) { - Vec.sds[ndx.out == i] <- sqrt(Vec.sds[ndx.out == i] + - model@covparams[model@param_sequence[4, - i]]) + Vec.sds[ndx.out == i] <- sqrt(Vec.sds[ndx.out == i] + model@covparams[model@param_sequence[4, i]]) } return.list <- list(means = Vec.mean, sds = Vec.sds) } diff --git a/R/RcppExports.R b/R/RcppExports.R index dd16aaf..c50230c 100755 --- a/R/RcppExports.R +++ b/R/RcppExports.R @@ -2,10 +2,9 @@ # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393 na_omit_c <- function(x) { - .Call('_PrestoGP_na_omit_c', PACKAGE = 'PrestoGP', x) + .Call('_PrestoGP_na_omit_c', PACKAGE = 'PrestoGP', x) } createU_helper_mat <- function(olocs, ondx, curqys, curqzs, vijs, aijs, full_const, nugget, sig2, U_beginning) { - .Call('_PrestoGP_createU_helper_mat', PACKAGE = 'PrestoGP', olocs, ondx, curqys, curqzs, vijs, aijs, full_const, nugget, sig2, U_beginning) -} - + .Call('_PrestoGP_createU_helper_mat', PACKAGE = 'PrestoGP', olocs, ondx, curqys, curqzs, vijs, aijs, full_const, nugget, sig2, U_beginning) +} \ No newline at end of file