Update fit_basset.R

jsilve24 · Jan 31, 2024 · cb22e3b · cb22e3b
1 parent 81bcd59
commit cb22e3b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fit_basset.R b/R/fit_basset.R
@@ -198,7 +198,7 @@ basset <- function(Y=NULL, X, upsilon=NULL, Theta=NULL, Gamma=NULL, Xi=NULL, lin
             samp_mean <- sweep(Lambda_mean, c(1,2), Theta_mean, FUN = "+")
             collapse_samps$Lambda - samp_mean
           }
-          Gamma_comb_red <- Reduce('+', Gamma_trans[c(i:num.comp)])
+          Gamma_comb_red <- Reduce('+', Gamma_trans[c((i+1):num.comp)])
           fitu <- add.uncollapse(unc_samples, newdata, Theta[[i]], Gamma[[i]], Gamma_comb_red, Xi, collapse_samps$Sigma,
                                  upsilon, ret_mean, ncores, seed, linear)
           Lambda[[i]] <- fitu$Lambda