Community-Based Decision Making and Priority Setting Using the R Software: The Community Priority Index

Algorithm 4

CPIReport = function(data, likert = 3, boot = 10000)

 data = likertCheck(data, likert)

 report = data.frame(CPICal(data), CI95.CPI(data, likert, boot))

 report$sCPI = (report$CPI-1)/(likert2-1)

 report$sLL = (report$LL-1)/(likert2-1)

 report$sUL = (report$UL-1)/(likert2-1)