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

u

Browse Source
This commit is contained in:
agdamsbo 2018-10-11 08:42:14 +02:00
parent f2e586c94b
commit 764fd90e27
5 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

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

6
R/strobe_olr.R
View File

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

2
packing.R
View File

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

1
update local version.R
View File

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

2
updatePackageVersion.R
View File

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