Added option in select_weight

2025-05-26 14:19:25 +02:00
parent 9a9c7aab6f
commit 1dc42a2708
2 changed files with 2 additions and 2 deletions
--- a/R/select_weight.R
+++ b/R/select_weight.R
@ -15,7 +15,7 @@
 #' @export


-select_weight <- function(df=NULL,grp=NULL,X=NULL,instr=NULL,type.res="deviance",std=T) {
+select_weight <- function(df=NULL,grp=NULL,X=NULL,instr=NULL,type.res="deviance",std=F) {
  formu <- paste0(grp,"~")
  formu2 <- paste(X,sep="+",collapse="+")
  formu3 <- paste(instr,sep="+",collapse="+")
--- a/man/select_weight.Rd
+++ b/man/select_weight.Rd
@ -10,7 +10,7 @@ select_weight(
  X = NULL,
  instr = NULL,
  type.res = "deviance",
-  std = T
+  std = F
 )
 }
 \arguments{