From fca077fd402596cafb935d6849c865f3b0eea77a Mon Sep 17 00:00:00 2001
From: agdamsbo <agdamsbo@protonmail.com>
Date: Thu, 4 Oct 2018 12:39:26 +0200
Subject: [PATCH] fixing

---
 R/cie_test.R | 10 +---------
 R/rep_glm.R  | 10 +---------
 2 files changed, 2 insertions(+), 18 deletions(-)

diff --git a/R/cie_test.R b/R/cie_test.R
index 3155c5b..bb57ac6 100644
--- a/R/cie_test.R
+++ b/R/cie_test.R
@@ -7,15 +7,7 @@
 #' @keywords change-in-estimate
 #' @export
 #' @examples
-#' l<-5
-#' 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)
+#' cie_test()
 
 cie_test<-function(meas,vars,string,data,logistic=FALSE,cut=0.1){
 
diff --git a/R/rep_glm.R b/R/rep_glm.R
index 850a27d..4083dae 100644
--- a/R/rep_glm.R
+++ b/R/rep_glm.R
@@ -9,15 +9,7 @@
 #' @keywords logistic regression
 #' @export
 #' @examples
-#' l<-5
-#' 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)
+#' rep_glm()
 
 rep_glm<-function(meas,vars,string,ci=FALSE,data){
   ## x is data.frame of predictors, y is vector of an aoutcome as a factor