offset prameter debuged (hope)

livioivil · Apr 26, 2024 · 572a387 · 572a387
1 parent 42145c1
commit 572a387
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/utiliy_score_functions.R b/R/utiliy_score_functions.R
@@ -113,10 +113,10 @@ socket_compute_scores <- function(i,model,score_type){
   # model$call$formula=update( model$call$formula,formula(paste("~.",paste("-",colnames(model[["x"]])[i],collapse=""))))
   frml=as.formula(paste(yname,"~0+."))
   model$call$formula=as.formula(paste(yname,"~0+."))
-  if(!is.null(model$offset)){
-    offs<-model$offset
-    model$call$formula=update( model$call$formula,formula(paste("~+offset(offs)")))
-  }
+  # if(!is.null(model$offset)){
+  #   offs<-model$offset
+  #   model$call$formula=update( model$call$formula,formula(paste("~+offset(offs)")))
+  # }
   model$call$score_type=NULL
   model$call$perms = NULL