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

Algorithm 2

CPICal = function(data)

 imp.mean = tapply(data[,3], data[,2], mean, na.rm = TRUE)

 cha.mean = tapply(data[,4], data[,2], mean, na.rm = TRUE)

 CPI = imp.mean*cha.mean

 data.frame(imp.mean, cha.mean,  CPI)