This commit is contained in:
agdamsbo 2018-10-10 09:47:46 +02:00
parent 4207e8349d
commit a0c01207b8

View File

@ -26,7 +26,7 @@ plot_ord_odds<-function(x, title = NULL,dec=3,lbls=NULL,short=FALSE){
odds$vars<-paste0(row.names(odds)," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]")) odds$vars<-paste0(row.names(odds)," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
} }
ticks<-c(seq(.1, 1, by =.1), seq(0, 10, by =1), seq(10, 100, by =10)) ticks<-c(seq(0, 1, by =.1), seq(0, 10, by =1), seq(10, 100, by =10))
if (short==TRUE){ if (short==TRUE){
ticks<-ticks[seq(1, length(ticks), 2)] ticks<-ticks[seq(1, length(ticks), 2)]