Added option in select_weight

This commit is contained in:
2025-05-26 14:19:25 +02:00
parent 9a9c7aab6f
commit 1dc42a2708
2 changed files with 2 additions and 2 deletions

View File

@ -15,7 +15,7 @@
#' @export #' @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,"~") formu <- paste0(grp,"~")
formu2 <- paste(X,sep="+",collapse="+") formu2 <- paste(X,sep="+",collapse="+")
formu3 <- paste(instr,sep="+",collapse="+") formu3 <- paste(instr,sep="+",collapse="+")

View File

@ -10,7 +10,7 @@ select_weight(
X = NULL, X = NULL,
instr = NULL, instr = NULL,
type.res = "deviance", type.res = "deviance",
std = T std = F
) )
} }
\arguments{ \arguments{