mirror of
https://github.com/agdamsbo/daDoctoR.git
synced 2024-10-30 02:31:52 +01:00
31 lines
1.0 KiB
R
31 lines
1.0 KiB
R
#' A repeated function for bivariate analyses
|
|
#'
|
|
#' For bivariate analyses, for gating by p-value or change-in-estimate.
|
|
#' @param y Effect meassure.
|
|
#' @param v1 Main variable in model
|
|
#' @param string String of columnnames to include. Obtained with dput(). Input as c().
|
|
#' @param data dataframe of data to analyse
|
|
#' @param method method of gating analysis. Can be "pval" for a simple analysis of p-values below or equal to 0.1 or "cie" for change in estimate to asses the change of the estimate when a second variable is added to the model.
|
|
#' @keywords logistic regression
|
|
#' @export
|
|
#' @examples
|
|
#' rep_biv()
|
|
|
|
rep_biv<-function(y,v1,string,data,method="pval",logistic=FALSE,ci=FALSE,cut=0.1,v2=NULL,v3=NULL){
|
|
|
|
require(rep_lm)
|
|
require(rep_glm)
|
|
require(cie_test)
|
|
|
|
if (method=="pval"&logistic==FALSE){
|
|
rep_lm(y=y,v1=v1,string=string,data=data,ci=ci)
|
|
}
|
|
if (method=="pval"&logistic==TRUE){
|
|
rep_lm(y=y,v1=v1,string=string,data=data,ci=ci)
|
|
}
|
|
if (method=="cie"){
|
|
cie_test(y=y,v1=v1,string=string,data=data,logistic=logistic,cut=cut,v2=v2,v3=v3)
|
|
}
|
|
return(df)
|
|
}
|