Percentage who Completed PN (Reddam, Cran, Bishoy

Reddam

setwd("~/Dropbox/Schools Study Data/Reddam")
reddam<-read.csv("Reddam House PN.csv")
reddam<-reddam[-1,]
summary(reddam$Last.Complete)

##             0  2.5.1    3.2  4.2.1  5.0.1 5.0.15 5.0.17  5.0.3  5.0.4 
##      0      1      1      7      1      1      1     10      1      1 
##  5.0.7  5.0.9  6.0.1 
##      2      1     16

Cranbrook

setwd("~/Git/stats/Cranbook Study")
Cranbrook<-read.csv("CranbrookPN.csv")
Cranbrook<-Cranbrook[-1,]
summary(Cranbrook$Last.Complete)

##      0  1.1.1 1.1.12 1.1.13  1.1.7  1.1.9 2.0.10  2.0.2  2.0.5  2.0.6 
##     12      1      1      2      1      1      1      1      1      1 
##  2.1.1  2.1.4    2.2    2.3    2.4  2.5.1    2.6  2.6.1 2.6.10  2.6.4 
##      1      8      4      5      1     17      2      1     10      1 
##  2.6.8  2.6.9  3.0.1    3.1    3.2 4.1.36  4.1.4  4.2.1 5.0.13 5.0.17 
##      1      1     25     15     18      2      3      1      1      3 
##  5.0.3  5.0.4  5.0.5  5.0.6  5.0.7  5.0.9  6.0.1 
##      3      4      2      1      2      1     20

St Bishoy

setwd("~/Dropbox/St Bishoy Study")
Bishoy<-read.csv("BishoyPN.csv")
Bishoy<-Bishoy[-1,]
summary(Bishoy$Last.Complete)

##             0  2.0.5    2.2    2.3    2.4  2.5.1  3.0.1    3.1 5.0.17 
##      0      4      1      2      1      2      1      1      1      6 
##  5.0.8  6.0.1 
##      1      7