diff --git a/DESCRIPTION b/DESCRIPTION
index 814a782..aa1da43 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: daDoctoR
 Type: Package
 Title: FUNCTIONS FOR HEALTH RESEARCH
-Version: 0.1.0.9029
+Version: 0.1.0.9030
 Author: c(person("Andreas", "Gammelgaard Damsbo", email = "agdamsbo@pm.me", role = c("cre", "aut")))
 Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>
 Description: I am a Danish medical doctor involved in neuropsychiatric research. 
diff --git a/R/strobe_pred.R b/R/strobe_pred.R
index 32f110f..b3a37bb 100644
--- a/R/strobe_pred.R
+++ b/R/strobe_pred.R
@@ -164,11 +164,11 @@ strobe_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
   rona<-c()
   for (i in 1:length(ads)){
     if (is.factor(ads[,i])){
-      rona<-c(rona,names(ads[i]),levels(ads[,i]))
+      rona<-c(rona,names(ads[i]),levels(ads[,i]))}
       if (!is.factor(ads[,i])){
         rona<-c(rona,names(ads[i]),"Per unit increase")
       }
-    }}
+    }
 
   if (p.val==TRUE){
     ref<-data.frame(c(NA,rona),re[,2],re[,5],re[,6],re[,3],re[,4])
@@ -331,11 +331,11 @@ strobe_pred<-function(meas,adj,data,dec=2,n.by.adj=FALSE,p.val=FALSE){
     rona<-c()
     for (i in 1:length(ads)){
       if (is.factor(ads[,i])){
-        rona<-c(rona,names(ads[i]),levels(ads[,i]))
+        rona<-c(rona,names(ads[i]),levels(ads[,i]))}
         if (!is.factor(ads[,i])){
           rona<-c(rona,names(ads[i]),"Per unit increase")
         }
-      }}
+      }
 
     if (p.val==TRUE){
       ref<-data.frame(c(NA,rona),re[,2],re[,5],re[,6],re[,3],re[,4])