andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-22 11:50:23 +01:00
Code Issues Projects Releases Wiki Activity

u

Browse Source
This commit is contained in:
agdamsbo 2018-10-04 12:07:23 +02:00
parent 76dd8a4ce7
commit 85b404c646
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
R/cie_test.R
View File

@ -5,6 +5,7 @@
#' @param v1 Main variable in model #' @param v1 Main variable in model
#' @param string String of columnnames from dataframe to include. Use dput(). #' @param string String of columnnames from dataframe to include. Use dput().
#' @keywords change-in-estimate #' @keywords change-in-estimate
#' @export
#' @examples #' @examples
#' l<-5 #' l<-5
#' y<-factor(rep(c("a","b"),l)) #' y<-factor(rep(c("a","b"),l))
@ -15,7 +16,6 @@
#' d<-data.frame(y,x,v1,v2,v3) #' d<-data.frame(y,x,v1,v2,v3)
#' preds<-dput(names(d)[3:ncol(d)]) #' preds<-dput(names(d)[3:ncol(d)])
#' cie_test(meas="y",vars="x",string=preds,data=d,logistic = TRUE,cut = 0.1) #' cie_test(meas="y",vars="x",string=preds,data=d,logistic = TRUE,cut = 0.1)
#' @export
cie_test<-function(meas,vars,string,data,logistic=FALSE,cut=0.1){ cie_test<-function(meas,vars,string,data,logistic=FALSE,cut=0.1){

2
R/rep_glm.R
View File

@ -7,6 +7,7 @@
#' @param ci flag to get results as OR with 95% confidence interval. #' @param ci flag to get results as OR with 95% confidence interval.
#' @param data data frame to pull variables from. #' @param data data frame to pull variables from.
#' @keywords logistic regression #' @keywords logistic regression
#' @export
#' @examples #' @examples
#' l<-5 #' l<-5
#' y<-factor(rep(c("a","b"),l)) #' y<-factor(rep(c("a","b"),l))
@ -17,7 +18,6 @@
#' d<-data.frame(y,x,v1,v2,v3) #' d<-data.frame(y,x,v1,v2,v3)
#' preds<-dput(names(d)[3:ncol(d)]) #' preds<-dput(names(d)[3:ncol(d)])
#' rep_glm(meas="y",vars="x",string=preds,ci=FALSE,data=df) #' rep_glm(meas="y",vars="x",string=preds,ci=FALSE,data=df)
#' @export
rep_glm<-function(meas,vars,string,ci=FALSE,data){ rep_glm<-function(meas,vars,string,ci=FALSE,data){
## x is data.frame of predictors, y is vector of an aoutcome as a factor ## x is data.frame of predictors, y is vector of an aoutcome as a factor