This commit is contained in:
agdamsbo 2018-10-04 12:40:22 +02:00
parent fca077fd40
commit 25c126360e
2 changed files with 2 additions and 18 deletions

View File

@ -17,14 +17,6 @@ cie_test(meas, vars, string, data, logistic = FALSE, cut = 0.1)
For bivariate analyses. From "Modeling and variable selection in epidemiologic analysis." - S. Greenland, 1989. For bivariate analyses. From "Modeling and variable selection in epidemiologic analysis." - S. Greenland, 1989.
} }
\examples{ \examples{
l<-5 cie_test()
y<-factor(rep(c("a","b"),l))
x<-rnorm(length(y), mean=50, sd=10)
v1<-factor(rep(c("r","s"),length(y)/2))
v2<-as.numeric(sample(1:100, length(y), replace=FALSE))
v3<-as.numeric(1:length(y))
d<-data.frame(y,x,v1,v2,v3)
preds<-dput(names(d)[3:ncol(d)])
cie_test(meas="y",vars="x",string=preds,data=d,logistic = TRUE,cut = 0.1)
} }
\keyword{change-in-estimate} \keyword{change-in-estimate}

View File

@ -21,15 +21,7 @@ rep_glm(meas, vars, string, ci = FALSE, data)
For bivariate analyses. The confint() function is rather slow, causing the whole function to hang when including many predictors and calculating the ORs with CI. For bivariate analyses. The confint() function is rather slow, causing the whole function to hang when including many predictors and calculating the ORs with CI.
} }
\examples{ \examples{
l<-5 rep_glm()
y<-factor(rep(c("a","b"),l))
x<-rnorm(length(y), mean=50, sd=10)
v1<-factor(rep(c("r","s"),length(y)/2))
v2<-sample(1:100, length(y), replace=FALSE)
v3<-as.numeric(1:length(y))
d<-data.frame(y,x,v1,v2,v3)
preds<-dput(names(d)[3:ncol(d)])
rep_glm(meas="y",vars="x",string=preds,ci=FALSE,data=df)
} }
\keyword{logistic} \keyword{logistic}
\keyword{regression} \keyword{regression}