u

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: daDoctoR
 Title: daDoctoR
-Version: 0.0.0.9003
+Version: 0.0.0.9004
 Authors@R: c(
     person("Andreas", "Gammelgaard Damsbo", email = "agdamsbo@pm.me", role = c("cre", "aut")))
 Description: Tools for Danish health research. A collection of 

R/strobe_olr.R

@@ -25,10 +25,12 @@ strobe_olr<-function(meas,var,adj,data,dec=2){
   v<-d[,c(var)]
 
   ads<-d[,c(adj)]
-  dat<-data.frame(m,v,ads)
+  dat<-data.frame(m,v)
   df<-data.frame(matrix(ncol=4))
 
-  mn <- polr(m ~ v, data = dat, Hess=TRUE)
+  mn <- polr(m ~ ., data = dat, Hess=TRUE)
+
+  dat<-data.frame(dat,ads)
   ma <- polr(m ~ ., data = dat, Hess=TRUE)
 
   ctable <- coef(summary(mn))

packing.R

@@ -13,5 +13,3 @@ document()
 
 
 # Inspiration: "https://hilaryparker.com/2014/04/29/writing-an-r-package-from-scratch/"
-
-

update local version.R

@@ -5,7 +5,6 @@
 remove.packages("daDoctoR")
 .rs.restartR()
 
-# Install from GitHub
 
 setwd("/")
 devtools::install_github('agdamsbo/daDoctoR')

updatePackageVersion.R

@@ -1,4 +1,6 @@
 updatePackageVersion <- function(packageLocation ="."){
+  ## Seen at: https://www.mango-solutions.com/blog/how-to-auto-update-a-package-version-number
+
   ## Read DESCRIPTION file
   desc <- readLines(file.path(packageLocation, "DESCRIPTION"))