# NOT RUN {
v<-c(11,22,33,22)
names(v)<-c("1-st","2-nd","3-rd","4-th")
names_argMax(v)
v<-c(11,NaN,33,22)
names(v)<-c("1-st","2-nd","3-rd","4-th")
names_argMax(v)
# }
# NOT RUN {
f <- fit_Bayesian_FROC(
ite = 111,
cha = 1,
dataList = d)
a <- summary(f)$summary[,"Rhat"]
names_argMax(a)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab