Added option in select_weight
This commit is contained in:
@ -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="+")
|
||||||
|
@ -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{
|
||||||
|
Reference in New Issue
Block a user