This commit is contained in:
agdamsbo 2018-10-22 14:12:32 +02:00
parent c84b971ab7
commit 9c29e951e4

View File

@ -31,7 +31,7 @@ if (length(gold)==1){
else { else {
for (i in 1:ncol(gs)){ for (i in 1:ncol(gs)){
t<-table(tst,gs[,i]) t<-table(tst,gs[,i])
rval <- epi.gss(t, conf.level = 0.95) rval <- epi.tests(t, conf.level = 0.95)
n<-names(gs)[i] n<-names(gs)[i]
ls[[i]]<-list(n,rval) ls[[i]]<-list(n,rval)
} }