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

u

Browse Source
This commit is contained in:
agdamsbo 2018-10-22 14:07:44 +02:00
parent 46328c1f13
commit c84b971ab7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
R/rep_epi_tests.R
View File

@ -15,22 +15,22 @@ rep_epi_tests<-function(gold,test,data){
require(epiR)
d<-data
test<-d[,c(test)]
tst<-d[,c(test)]
gs<-d[,c(gold)]
ls<-list()
if (length(gold)==1){
for (i in 1:ncol(test)){
t<-table(test[,i],gs)
for (i in 1:ncol(tst)){
t<-table(tst[,i],gs)
rval <- epi.tests(t, conf.level = 0.95)
n<-names(test)[i]
n<-names(tst)[i]
ls[[i]]<-list(n,rval)
}}
else {
for (i in 1:ncol(gs)){
t<-table(test,gs[,i])
t<-table(tst,gs[,i])
rval <- epi.gss(t, conf.level = 0.95)
n<-names(gs)[i]
ls[[i]]<-list(n,rval)