This commit is contained in:
agdamsbo 2018-10-09 14:36:13 +02:00
parent cac6172dd6
commit 7c1c1e51b5

View File

@ -19,7 +19,7 @@ plot_ord_odds<-function(x, title = NULL,dec=3,lbls=NULL){
rodds<-round(odds,digits = dec) rodds<-round(odds,digits = dec)
if (!is.null(lbls)){ if (!is.null(lbls)){
odds$vars<-paste0(v.names," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]")) odds$vars<-paste0(lbls," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
} }
else { else {
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,"]"))