Revert back

PhilipMostert · Aug 12, 2024 · 065e95e · 065e95e
1 parent 0dc6625
commit 065e95e
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/R/blockedCV.R b/R/blockedCV.R
@@ -346,7 +346,6 @@ blockedCV <- function(data, options = list(),
         #if (testLike[[pd]]$family == 'cp') {
 
         #  nIPS <- nrow(data$.__enclos_env__$private$IPS)
-        testLike[[pd]]$inla.family <- 'gaussian'
         #  testLike[[pd]]$data$olikhoodvar <- c(testPredicts$mean, rep(0, nIPS))
 
         #} else 
@@ -359,7 +358,6 @@ blockedCV <- function(data, options = list(),
         foldOptions$control.family <- foldOptions$control.family[sourcePred]
 
         optionsTest <- append(options, foldOptions)
-        optionsTest$control.family[[1]]$link <- 'default'
         compsIntercepts <- paste0('testIntercept', 1:length(testData[[1]]),'(1)')
         compPreds <- formula(paste0('~ - 1 + olikhoodvar(main = olikhoodvar, model = "offset") + ', paste0(compsIntercepts, collapse = ' + ')))