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

update

Browse Source
This commit is contained in:
agdamsbo 2018-10-22 14:05:19 +02:00
parent 9648fe69f3
commit 46328c1f13
3 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -1,7 +1,7 @@
Package: daDoctoR Package: daDoctoR
Type: Package Type: Package
Title: FUNCTIONS FOR HEALTH RESEARCH Title: FUNCTIONS FOR HEALTH RESEARCH
Version: 0.1.0.9011 Version: 0.1.0.9012
Author@R: c(person("Andreas", "Gammelgaard Damsbo", email = "agdamsbo@pm.me", role = c("cre", "aut"))) Author@R: c(person("Andreas", "Gammelgaard Damsbo", email = "agdamsbo@pm.me", role = c("cre", "aut")))
Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me> Maintainer: Andreas Gammelgaard Damsbo <agdamsbo@pm.me>
Description: I am a Danish medical doctor involved in neuropsychiatric research. Description: I am a Danish medical doctor involved in neuropsychiatric research.

22
R/rep_epi_tests.R
View File

@ -1,24 +1,40 @@
#' A repeated epi.tests function #' A repeated epi.tests function
#' #'
#' Repeats the epi.tests from the epiR package. #' Repeats the epi.tests from the epiR package. Either gs or test should be of length 1.
#' @description 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. #' @description 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.
#' @param gs the test or meassure used as "golden standard". Format as dichotomised factor. #' @param gold the test or meassure used as "golden standard". Format as dichotomised factor.
#' @param test possible predictive tests to evaluate. Format as dichotomised factor. #' @param test possible predictive tests to evaluate. Format as dichotomised factor.
#' @param data dataframe to draw variables from.
#' @keywords ppv npv sensitivity specificity #' @keywords ppv npv sensitivity specificity
#' @export #' @export
#' @examples #' @examples
#' rep_epi_tests() #' rep_epi_tests()
rep_epi_tests<-function(gs,test){ rep_epi_tests<-function(gold,test,data){
require(epiR) require(epiR)
d<-data
test<-d[,c(test)]
gs<-d[,c(gold)]
ls<-list() ls<-list()
if (length(gold)==1){
for (i in 1:ncol(test)){ for (i in 1:ncol(test)){
t<-table(test[,i],gs) t<-table(test[,i],gs)
rval <- epi.tests(t, conf.level = 0.95) rval <- epi.tests(t, conf.level = 0.95)
n<-names(test)[i] n<-names(test)[i]
ls[[i]]<-list(n,rval) ls[[i]]<-list(n,rval)
}}
else {
for (i in 1:ncol(gs)){
t<-table(test,gs[,i])
rval <- epi.gss(t, conf.level = 0.95)
n<-names(gs)[i]
ls[[i]]<-list(n,rval)
} }
}
return(ls) return(ls)
} }

8
man/rep_epi_tests.Rd
View File

@ -4,18 +4,20 @@
\alias{rep_epi_tests} \alias{rep_epi_tests}
\title{A repeated epi.tests function} \title{A repeated epi.tests function}
\usage{ \usage{
rep_epi_tests(gs, test) rep_epi_tests(gold, test, data)
} }
\arguments{ \arguments{
\item{gs}{the test or meassure used as "golden standard". Format as dichotomised factor.} \item{gold}{the test or meassure used as "golden standard". Format as dichotomised factor.}
\item{test}{possible predictive tests to evaluate. Format as dichotomised factor.} \item{test}{possible predictive tests to evaluate. Format as dichotomised factor.}
\item{data}{dataframe to draw variables from.}
} }
\description{ \description{
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.
} }
\details{ \details{
Repeats the epi.tests from the epiR package. Repeats the epi.tests from the epiR package. Either gs or test should be of length 1.
} }
\examples{ \examples{
rep_epi_tests() rep_epi_tests()