E-preparedness
for (i in 1:35){
if(i%%6 != 0){
print(round(prop.table(table(data1[,19+i]))*100,2))
}
else{
cat("\n--------- Next Indicator -----------\n")
}
}
##
## 1 2 3 4 5 6 7
## 64.81 12.04 1.85 6.48 6.48 6.48 1.85
##
## 1 2 3 4 5 6 7
## 46.30 17.59 7.41 11.11 6.48 3.70 7.41
##
## 1 2 3 4 5 6 7
## 58.33 11.11 5.56 8.33 6.48 1.85 8.33
##
## 1 2 3 4 5 6 7
## 74.07 10.19 3.70 3.70 3.70 1.85 2.78
##
## 1 2 3 4 5 6 7
## 83.33 6.48 4.63 1.85 1.85 0.93 0.93
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 7
## 60.19 12.96 8.33 9.26 5.56 3.70
##
## 1 2 3 4 5 6 7
## 76.85 5.56 7.41 1.85 4.63 0.93 2.78
##
## 1 2 3 4 5 7
## 82.41 5.56 4.63 1.85 2.78 2.78
##
## 1 2 3 4 5 6 7
## 35.19 12.96 7.41 9.26 6.48 10.19 18.52
##
## 1 2 3 4 5 6 7
## 78.70 10.19 0.93 2.78 3.70 2.78 0.93
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 6 7
## 48.15 7.41 5.56 6.48 5.56 3.70 23.15
##
## 1 2 3 4 5 6 7
## 50.93 10.19 6.48 2.78 5.56 3.70 20.37
##
## 1 2 3 4 5 6 7
## 77.78 1.85 1.85 6.48 1.85 2.78 7.41
##
## 1 2 3 5 7
## 89.81 3.70 0.93 2.78 2.78
##
## 1 2 3 4 5 7
## 83.33 4.63 0.93 3.70 2.78 4.63
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 6 7
## 57.41 12.04 8.33 6.48 4.63 1.85 9.26
##
## 1 2 3 4 5 7
## 66.67 13.89 3.70 5.56 6.48 3.70
##
## 1 2 3 4 5 6 7
## 58.33 6.48 10.19 7.41 7.41 2.78 7.41
##
## 1 2 3 4 5 6 7
## 41.67 14.81 11.11 4.63 4.63 4.63 18.52
##
## 1 2 3 4 5 6 7
## 65.74 7.41 6.48 4.63 4.63 2.78 8.33
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 6 7
## 50.00 11.11 13.89 7.41 3.70 4.63 9.26
##
## 1 2 3 4 5 6 7
## 77.78 4.63 1.85 4.63 2.78 1.85 6.48
##
## 1 2 3 4 5 6 7
## 61.11 10.19 3.70 3.70 2.78 2.78 15.74
##
## 1 2 3 4 5 6 7
## 79.63 6.48 1.85 4.63 1.85 0.93 4.63
##
## 1 2 3 4 5 6 7
## 85.19 4.63 2.78 1.85 2.78 0.93 1.85
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 6 7
## 63.89 8.33 1.85 6.48 7.41 2.78 9.26
##
## 1 2 3 4 5 6 7
## 35.19 14.81 8.33 6.48 12.04 1.85 21.30
##
## 1 2 3 4 5 6 7
## 48.15 10.19 6.48 8.33 6.48 1.85 18.52
##
## 1 2 3 4 5 6 7
## 36.11 9.26 11.11 6.48 10.19 4.63 22.22
##
## 1 2 3 4 5 6 7
## 51.85 14.81 5.56 8.33 5.56 2.78 11.11
Perceived Effectiveness
for (i in 1:23){
if(i%%6 != 0){
print(round(prop.table(table(data1[,56+i]))*100,2))
}
else{
cat("\n--------- Next Indicator -----------\n")
}
}
##
## 1 2 3 4 5 6 7
## 30.56 12.96 15.74 7.41 12.04 5.56 15.74
##
## ` 1 2 3 4 5 6 7
## 0.93 34.26 13.89 12.04 12.04 10.19 3.70 12.96
##
## 1 2 3 4 5 6 7
## 37.04 10.19 9.26 14.81 12.04 2.78 13.89
##
## 1 2 3 4 5 6 7
## 31.48 8.33 11.11 9.26 8.33 8.33 23.15
##
## 1 2 3 4 5 6 7
## 30.56 12.96 8.33 7.41 10.19 9.26 21.30
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 6 7
## 61.11 13.89 6.48 11.11 3.70 1.85 1.85
##
## 1 2 3 4 5 6 7
## 52.78 11.11 11.11 14.81 6.48 0.93 2.78
##
## 1 2 3 4 5 6 7
## 44.44 8.33 15.74 12.04 8.33 5.56 5.56
##
## 1 2 3 4 5 6 7
## 40.74 12.96 15.74 14.81 2.78 5.56 7.41
##
## 1 2 3 4 5 6 7
## 37.96 14.81 12.96 14.81 10.19 3.70 5.56
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 6 7
## 48.15 15.74 10.19 11.11 7.41 1.85 5.56
##
## 1 2 3 4 5 6 7
## 42.59 15.74 12.04 11.11 8.33 4.63 5.56
##
## 1 2 3 4 5 6 7
## 49.07 15.74 9.26 9.26 6.48 4.63 5.56
##
## 1 2 3 4 5 6 7
## 70.37 9.26 8.33 3.70 4.63 1.85 1.85
##
## 1 2 3 4 5 6 7
## 50.93 15.74 6.48 13.89 5.56 3.70 3.70
##
## --------- Next Indicator -----------
##
## 1 2 3 4 5 6 7
## 50.93 12.04 12.96 9.26 2.78 5.56 6.48
##
## 1 2 3 4 5 6 7
## 48.15 12.04 15.74 7.41 5.56 3.70 7.41
##
## 1 2 3 4 5 6 7
## 45.37 10.19 19.44 7.41 5.56 5.56 6.48
##
## 1 2 3 4 5 6 7
## 36.11 12.96 13.89 9.26 6.48 6.48 14.81
##
## 1 2 3 4 5 6 7
## 41.67 18.52 7.41 9.26 3.70 6.48 12.96