library(readxl)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
questions <-read_excel("C:/Users/Sujay/Desktop/Data-Gray Matter Capital/BlockData-raw.xlsx")
questions <-data.frame(questions)
View(questions)
HHA2<-filter(questions,Paper.Code=="HHA2")
View(HHA2)
#keys
keys <- read_excel("C:/Users/Sujay/Desktop/Data-Gray Matter Capital/Answer_Keys_All.xlsx")
keys <-data.frame(keys)
View(keys)
names(keys)[1]<-"Paper.Code"
HHA2keys<-filter(keys,Paper.Code=="HHA2")
View(HHA2keys)
#matches-Hindi Class-3
HHA2$Q1matches<-(HHA2$Q1==HHA2keys$Q1)
HHA2$Q2matches<-(HHA2$Q2==HHA2keys$Q2)
HHA2$Q3matches<-(HHA2$Q3==HHA2keys$Q3)
HHA2$Q4matches<-(HHA2$Q4==HHA2keys$Q4)
HHA2$Q5matches<-(HHA2$Q5==HHA2keys$Q5)
HHA2$Q6matches<-(HHA2$Q6==HHA2keys$Q6)
HHA2$Q7matches<-(HHA2$Q7==HHA2keys$Q7)
HHA2$Q8matches<-(HHA2$Q8==HHA2keys$Q8)
HHA2$Q9matches<-(HHA2$Q9==HHA2keys$Q9)
HHA2$Q10matches<-(HHA2$Q10==HHA2keys$Q10)
HHA2$Q11matches<-(HHA2$Q1==HHA2keys$Q11)
HHA2$Q12matches<-(HHA2$Q12==HHA2keys$Q12)
HHA2$Q13matches<-(HHA2$Q13==HHA2keys$Q13)
HHA2$Q14matches<-(HHA2$Q14==HHA2keys$Q14)
HHA2$Q15matches<-(HHA2$Q15==HHA2keys$Q15)
HHA2$Q16matches<-(HHA2$Q16==HHA2keys$Q16)
HHA2$Q17matches<-(HHA2$Q17==HHA2keys$Q17)
HHA2$Q18matches<-(HHA2$Q18==HHA2keys$Q18)
HHA2$Q19matches<-(HHA2$Q19==HHA2keys$Q19)
HHA2$Q20matches<-(HHA2$Q20==HHA2keys$Q20)
HHA2$Q21matches<-(HHA2$Q21==HHA2keys$Q21)
HHA2$Q22matches<-(HHA2$Q22==HHA2keys$Q22)
HHA2$Q23matches<-(HHA2$Q23==HHA2keys$Q23)
HHA2$Q24matches<-(HHA2$Q24==HHA2keys$Q24)
HHA2$Q25matches<-(HHA2$Q25==HHA2keys$Q25)
HHA2$Q26matches<-(HHA2$Q26==HHA2keys$Q26)
HHA2$Q27matches<-(HHA2$Q27==HHA2keys$Q27)
HHA2$Q28matches<-(HHA2$Q28==HHA2keys$Q28)
HHA2$Q29matches<-(HHA2$Q29==HHA2keys$Q29)
HHA2$Q30matches<-(HHA2$Q30==HHA2keys$Q30)
HHA2$Q31matches<-(HHA2$Q31==HHA2keys$Q31)
HHA2$Q32matches<-(HHA2$Q32==HHA2keys$Q32)
HHA2$Q33matches<-(HHA2$Q33==HHA2keys$Q33)
HHA2$Q34matches<-(HHA2$Q34==HHA2keys$Q34)
HHA2$Q35matches<-(HHA2$Q35==HHA2keys$Q35)
HHA2$Q36matches<-(HHA2$Q36==HHA2keys$Q36)
HHA2$Q37matches<-(HHA2$Q37==HHA2keys$Q37)
HHA2$Q38matches<-(HHA2$Q38==HHA2keys$Q38)
HHA2$Q39matches<-(HHA2$Q39==HHA2keys$Q39)
HHA2$Q40matches<-(HHA2$Q40==HHA2keys$Q40)
HHA2$Q41matches<-(HHA2$Q41==HHA2keys$Q41)
HHA2$Q42matches<-(HHA2$Q42==HHA2keys$Q42)
HHA2$Q43matches<-(HHA2$Q43==HHA2keys$Q43)
HHA2$Q44matches<-(HHA2$Q44==HHA2keys$Q44)
HHA2_A<-cbind(HHA2$Q1matches, HHA2$Q2matches, HHA2$Q3matches, HHA2$Q4matches, HHA2$Q4matches, HHA2$Q5matches, HHA2$Q6matches, HHA2$Q7matches, HHA2$Q8matches, HHA2$Q9matches, HHA2$Q10matches, HHA2$Q11matches, HHA2$Q12matches, HHA2$Q13matches, HHA2$Q14matches, HHA2$Q15matches, HHA2$Q16matches, HHA2$Q17matches, HHA2$Q18matches, HHA2$Q19matches, HHA2$Q20matches, HHA2$Q21matches, HHA2$Q22matches, HHA2$Q23matches, HHA2$Q24matches, HHA2$Q25matches, HHA2$Q26matches, HHA2$Q27matches, HHA2$Q28matches, HHA2$Q29matches, HHA2$Q30matches, HHA2$Q31matches, HHA2$Q32matches, HHA2$Q33matches, HHA2$Q33matches, HHA2$Q34matches, HHA2$Q35matches, HHA2$Q36matches, HHA2$Q37matches, HHA2$Q38matches, HHA2$Q39matches, HHA2$Q40matches, HHA2$Q41matches, HHA2$Q42matches, HHA2$Q43matches, HHA2$Q44matches)
HHA2_A<-data.frame(HHA2_A)
Total_HHA2<-rowSums(HHA2_A)
View(Total_HHA2)
Total_HHA2<-data.frame(Total_HHA2)
names(Total_HHA2)[1]<-"Total_Hindi_3"
View(Total_HHA2)
#matches-Hindi Class-5
HHC2<-filter(questions,Paper.Code=="HHC2")
View(HHC2)
HHC2keys<-filter(keys,Paper.Code=="HHC2")
View(HHC2keys)
HHC2$Q1matches<-(HHC2$Q1==HHC2keys$Q1)
HHC2$Q2matches<-(HHC2$Q2==HHC2keys$Q2)
HHC2$Q3matches<-(HHC2$Q3==HHC2keys$Q3)
HHC2$Q4matches<-(HHC2$Q4==HHC2keys$Q4)
HHC2$Q5matches<-(HHC2$Q5==HHC2keys$Q5)
HHC2$Q6matches<-(HHC2$Q6==HHC2keys$Q6)
HHC2$Q7matches<-(HHC2$Q7==HHC2keys$Q7)
HHC2$Q8matches<-(HHC2$Q8==HHC2keys$Q8)
HHC2$Q9matches<-(HHC2$Q9==HHC2keys$Q9)
HHC2$Q10matches<-(HHC2$Q10==HHC2keys$Q10)
HHC2$Q11matches<-(HHC2$Q1==HHC2keys$Q11)
HHC2$Q12matches<-(HHC2$Q12==HHC2keys$Q12)
HHC2$Q13matches<-(HHC2$Q13==HHC2keys$Q13)
HHC2$Q14matches<-(HHC2$Q14==HHC2keys$Q14)
HHC2$Q15matches<-(HHC2$Q15==HHC2keys$Q15)
HHC2$Q16matches<-(HHC2$Q16==HHC2keys$Q16)
HHC2$Q17matches<-(HHC2$Q17==HHC2keys$Q17)
HHC2$Q18matches<-(HHC2$Q18==HHC2keys$Q18)
HHC2$Q19matches<-(HHC2$Q19==HHC2keys$Q19)
HHC2$Q20matches<-(HHC2$Q20==HHC2keys$Q20)
HHC2$Q21matches<-(HHC2$Q21==HHC2keys$Q21)
HHC2$Q22matches<-(HHC2$Q22==HHC2keys$Q22)
HHC2$Q23matches<-(HHC2$Q23==HHC2keys$Q23)
HHC2$Q24matches<-(HHC2$Q24==HHC2keys$Q24)
HHC2$Q25matches<-(HHC2$Q25==HHC2keys$Q25)
HHC2$Q26matches<-(HHC2$Q26==HHC2keys$Q26)
HHC2$Q27matches<-(HHC2$Q27==HHC2keys$Q27)
HHC2$Q28matches<-(HHC2$Q28==HHC2keys$Q28)
HHC2$Q29matches<-(HHC2$Q29==HHC2keys$Q29)
HHC2$Q30matches<-(HHC2$Q30==HHC2keys$Q30)
HHC2$Q31matches<-(HHC2$Q31==HHC2keys$Q31)
HHC2$Q32matches<-(HHC2$Q32==HHC2keys$Q32)
HHC2$Q33matches<-(HHC2$Q33==HHC2keys$Q33)
HHC2$Q34matches<-(HHC2$Q34==HHC2keys$Q34)
HHC2$Q35matches<-(HHC2$Q35==HHC2keys$Q35)
HHC2$Q36matches<-(HHC2$Q36==HHC2keys$Q36)
HHC2$Q37matches<-(HHC2$Q37==HHC2keys$Q37)
HHC2$Q38matches<-(HHC2$Q38==HHC2keys$Q38)
HHC2$Q39matches<-(HHC2$Q39==HHC2keys$Q39)
HHC2$Q40matches<-(HHC2$Q40==HHC2keys$Q40)
HHC2$Q41matches<-(HHC2$Q41==HHC2keys$Q41)
HHC2$Q42matches<-(HHC2$Q42==HHC2keys$Q42)
HHC2$Q43matches<-(HHC2$Q43==HHC2keys$Q43)
HHC2$Q44matches<-(HHC2$Q44==HHC2keys$Q44)
HHC2$Q45matches<-(HHC2$Q45==HHC2keys$Q45)
HHC2$Q46matches<-(HHC2$Q46==HHC2keys$Q46)
HHC2$Q47matches<-(HHC2$Q47==HHC2keys$Q47)
HHC2_B<-cbind(HHC2$Q1matches, HHC2$Q2matches, HHC2$Q3matches, HHC2$Q4matches, HHC2$Q5matches, HHC2$Q6matches, HHC2$Q7matches, HHC2$Q8matches, HHC2$Q9matches, HHC2$Q10matches, HHC2$Q11matches, HHC2$Q12matches, HHC2$Q13matches, HHC2$Q14matches, HHC2$Q15matches, HHC2$Q16matches, HHC2$Q17matches, HHC2$Q18matches, HHC2$Q19matches, HHC2$Q20matches, HHC2$Q21matches, HHC2$Q22matches, HHC2$Q23matches, HHC2$Q24matches, HHC2$Q25matches, HHC2$Q26matches, HHC2$Q27matches, HHC2$Q28matches, HHC2$Q29matches, HHC2$Q30matches, HHC2$Q31matches, HHC2$Q32matches, HHC2$Q33matches, HHC2$Q34matches, HHC2$Q35matches, HHC2$Q36matches, HHC2$Q37matches, HHC2$Q38matches, HHC2$Q39matches, HHC2$Q40matches, HHC2$Q41matches, HHC2$Q42matches, HHC2$Q43matches, HHC2$Q44matches, HHC2$Q45matches, HHC2$Q46matches, HHC2$Q47matches)
HHC2_B<-data.frame(HHC2_B)
Total_HHC2<-rowSums(HHC2_B)
View(Total_HHC2)
Total_HHC2<-data.frame(Total_HHC2)
names(Total_HHC2)[1]<-"Total_Hindi_5"
View(Total_HHC2)
#matches-Hindi Class-7
HHE2<-filter(questions,Paper.Code=="HHE2")
View(HHE2)
HHE2keys<-filter(keys,Paper.Code=="HHE2")
View(HHE2keys)
HHE2$Q1matches<-(HHE2$Q1==HHE2keys$Q1)
HHE2$Q2matches<-(HHE2$Q2==HHE2keys$Q2)
HHE2$Q3matches<-(HHE2$Q3==HHE2keys$Q3)
HHE2$Q4matches<-(HHE2$Q4==HHE2keys$Q4)
HHE2$Q5matches<-(HHE2$Q5==HHE2keys$Q5)
HHE2$Q6matches<-(HHE2$Q6==HHE2keys$Q6)
HHE2$Q7matches<-(HHE2$Q7==HHE2keys$Q7)
HHE2$Q8matches<-(HHE2$Q8==HHE2keys$Q8)
HHE2$Q9matches<-(HHE2$Q9==HHE2keys$Q9)
HHE2$Q10matches<-(HHE2$Q10==HHE2keys$Q10)
HHE2$Q11matches<-(HHE2$Q1==HHE2keys$Q11)
HHE2$Q12matches<-(HHE2$Q12==HHE2keys$Q12)
HHE2$Q13matches<-(HHE2$Q13==HHE2keys$Q13)
HHE2$Q14matches<-(HHE2$Q14==HHE2keys$Q14)
HHE2$Q15matches<-(HHE2$Q15==HHE2keys$Q15)
HHE2$Q16matches<-(HHE2$Q16==HHE2keys$Q16)
HHE2$Q17matches<-(HHE2$Q17==HHE2keys$Q17)
HHE2$Q18matches<-(HHE2$Q18==HHE2keys$Q18)
HHE2$Q19matches<-(HHE2$Q19==HHE2keys$Q19)
HHE2$Q20matches<-(HHE2$Q20==HHE2keys$Q20)
HHE2$Q21matches<-(HHE2$Q21==HHE2keys$Q21)
HHE2$Q22matches<-(HHE2$Q22==HHE2keys$Q22)
HHE2$Q23matches<-(HHE2$Q23==HHE2keys$Q23)
HHE2$Q24matches<-(HHE2$Q24==HHE2keys$Q24)
HHE2$Q25matches<-(HHE2$Q25==HHE2keys$Q25)
HHE2$Q26matches<-(HHE2$Q26==HHE2keys$Q26)
HHE2$Q27matches<-(HHE2$Q27==HHE2keys$Q27)
HHE2$Q28matches<-(HHE2$Q28==HHE2keys$Q28)
HHE2$Q29matches<-(HHE2$Q29==HHE2keys$Q29)
HHE2$Q30matches<-(HHE2$Q30==HHE2keys$Q30)
HHE2$Q31matches<-(HHE2$Q31==HHE2keys$Q31)
HHE2$Q32matches<-(HHE2$Q32==HHE2keys$Q32)
HHE2$Q33matches<-(HHE2$Q33==HHE2keys$Q33)
HHE2$Q34matches<-(HHE2$Q34==HHE2keys$Q34)
HHE2$Q35matches<-(HHE2$Q35==HHE2keys$Q35)
HHE2$Q36matches<-(HHE2$Q36==HHE2keys$Q36)
HHE2$Q37matches<-(HHE2$Q37==HHE2keys$Q37)
HHE2$Q38matches<-(HHE2$Q38==HHE2keys$Q38)
HHE2$Q39matches<-(HHE2$Q39==HHE2keys$Q39)
HHE2$Q40matches<-(HHE2$Q40==HHE2keys$Q40)
HHE2$Q41matches<-(HHE2$Q41==HHE2keys$Q41)
HHE2$Q42matches<-(HHE2$Q42==HHE2keys$Q42)
HHE2$Q43matches<-(HHE2$Q43==HHE2keys$Q43)
HHE2$Q44matches<-(HHE2$Q44==HHE2keys$Q44)
HHE2$Q45matches<-(HHE2$Q45==HHE2keys$Q45)
HHE2$Q46matches<-(HHE2$Q46==HHE2keys$Q46)
HHE2$Q47matches<-(HHE2$Q47==HHE2keys$Q47)
HHE2$Q48matches<-(HHE2$Q48==HHE2keys$Q48)
HHE2$Q49matches<-(HHE2$Q49==HHE2keys$Q49)
HHE2$Q50matches<-(HHE2$Q50==HHE2keys$Q50)
HHE2_C<-cbind(HHE2$Q1matches, HHE2$Q2matches, HHE2$Q3matches, HHE2$Q4matches, HHE2$Q5matches, HHE2$Q6matches, HHE2$Q7matches, HHE2$Q8matches, HHE2$Q9matches, HHE2$Q10matches, HHE2$Q11matches, HHE2$Q12matches, HHE2$Q13matches, HHE2$Q14matches, HHE2$Q15matches, HHE2$Q16matches, HHE2$Q17matches, HHE2$Q18matches, HHE2$Q19matches, HHE2$Q20matches, HHE2$Q21matches, HHE2$Q22matches, HHE2$Q23matches, HHE2$Q24matches, HHE2$Q25matches, HHE2$Q26matches, HHE2$Q27matches, HHE2$Q28matches, HHE2$Q29matches, HHE2$Q30matches, HHE2$Q31matches, HHE2$Q32matches, HHE2$Q33matches, HHE2$Q34matches, HHE2$Q35matches, HHE2$Q36matches, HHE2$Q37matches, HHE2$Q38matches, HHE2$Q39matches, HHE2$Q40matches, HHE2$Q41matches, HHE2$Q42matches, HHE2$Q43matches, HHE2$Q44matches, HHE2$Q45matches, HHE2$Q46matches, HHE2$Q47matches, HHE2$Q48matches, HHE2$Q49matches, HHE2$Q50matches)
HHE2_C<-data.frame(HHE2_C)
Total_HHE2<-rowSums(HHE2_C)
View(Total_HHE2)
Total_HHE2<-data.frame(Total_HHE2)
names(Total_HHE2)[1]<-"Total_Hindi_7"
View(Total_HHE2)
#matches-Maths Class-3
HMA2<-filter(questions,Paper.Code=="HMA2")
View(HMA2)
HMA2keys<-filter(keys,Paper.Code=="HMA2")
View(HMA2keys)
HMA2$Q1matches<-(HMA2$Q1==HMA2keys$Q1)
HMA2$Q2matches<-(HMA2$Q2==HMA2keys$Q2)
HMA2$Q3matches<-(HMA2$Q3==HMA2keys$Q3)
HMA2$Q4matches<-(HMA2$Q4==HMA2keys$Q4)
HMA2$Q5matches<-(HMA2$Q5==HMA2keys$Q5)
HMA2$Q6matches<-(HMA2$Q6==HMA2keys$Q6)
HMA2$Q7matches<-(HMA2$Q7==HMA2keys$Q7)
HMA2$Q8matches<-(HMA2$Q8==HMA2keys$Q8)
HMA2$Q9matches<-(HMA2$Q9==HMA2keys$Q9)
HMA2$Q10matches<-(HMA2$Q10==HMA2keys$Q10)
HMA2$Q11matches<-(HMA2$Q11==HMA2keys$Q11)
HMA2$Q12matches<-(HMA2$Q12==HMA2keys$Q12)
HMA2$Q13matches<-(HMA2$Q13==HMA2keys$Q13)
HMA2$Q14matches<-(HMA2$Q14==HMA2keys$Q14)
HMA2$Q15matches<-(HMA2$Q15==HMA2keys$Q15)
HMA2$Q16matches<-(HMA2$Q16==HMA2keys$Q16)
HMA2$Q17matches<-(HMA2$Q17==HMA2keys$Q17)
HMA2$Q18matches<-(HMA2$Q18==HMA2keys$Q18)
HMA2$Q19matches<-(HMA2$Q19==HMA2keys$Q19)
HMA2$Q20matches<-(HMA2$Q20==HMA2keys$Q20)
HMA2$Q21matches<-(HMA2$Q21==HMA2keys$Q21)
HMA2$Q22matches<-(HMA2$Q22==HMA2keys$Q22)
HMA2$Q23matches<-(HMA2$Q23==HMA2keys$Q23)
HMA2$Q24matches<-(HMA2$Q24==HMA2keys$Q24)
HMA2$Q25matches<-(HMA2$Q25==HMA2keys$Q25)
HMA2$Q26matches<-(HMA2$Q26==HMA2keys$Q26)
HMA2$Q27matches<-(HMA2$Q27==HMA2keys$Q27)
HMA2$Q28matches<-(HMA2$Q28==HMA2keys$Q28)
HMA2$Q29matches<-(HMA2$Q29==HMA2keys$Q29)
HMA2$Q30matches<-(HMA2$Q30==HMA2keys$Q30)
HMA2$Q31matches<-(HMA2$Q31==HMA2keys$Q31)
HMA2$Q32matches<-(HMA2$Q32==HMA2keys$Q32)
HMA2$Q33matches<-(HMA2$Q33==HMA2keys$Q33)
HMA2$Q34matches<-(HMA2$Q34==HMA2keys$Q34)
HMA2$Q35matches<-(HMA2$Q35==HMA2keys$Q35)
HMA2_D<-cbind(HMA2$Q1matches, HMA2$Q2matches, HMA2$Q3matches, HMA2$Q4matches, HMA2$Q5matches, HMA2$Q6matches, HMA2$Q7matches, HMA2$Q8matches, HMA2$Q9matches, HMA2$Q10matches, HMA2$Q11matches, HMA2$Q12matches, HMA2$Q13matches, HMA2$Q14matches, HMA2$Q15matches, HMA2$Q16matches, HMA2$Q17matches, HMA2$Q18matches, HMA2$Q19matches, HMA2$Q20matches, HMA2$Q21matches, HMA2$Q22matches, HMA2$Q23matches, HMA2$Q24matches, HMA2$Q25matches, HMA2$Q26matches, HMA2$Q27matches, HMA2$Q28matches, HMA2$Q29matches, HMA2$Q30matches, HMA2$Q31matches, HMA2$Q32matches, HMA2$Q33matches, HMA2$Q34matches, HMA2$Q35matches)
HMA2_D<-data.frame(HMA2_D)
Total_HMA2<-rowSums(HMA2_D)
View(Total_HMA2)
Total_HMA2<-data.frame(Total_HMA2)
names(Total_HMA2)[1]<-"Total_Maths_3"
View(Total_HMA2)
Total_HMA2<-(Total_HMA2/50)*100
Total_HMA2<-Total_HMA2-100
Total_HMA2<-Total_HMA2*-1
View(Total_HMA2)
#matches-Maths Class-5
HMC2<-filter(questions,Paper.Code=="HMC2")
View(HMC2)
HMC2keys<-filter(keys,Paper.Code=="HMC2")
View(HMC2keys)
HMC2$Q1matches<-(HMC2$Q1==HMC2keys$Q1)
HMC2$Q2matches<-(HMC2$Q2==HMC2keys$Q2)
HMC2$Q3matches<-(HMC2$Q3==HMC2keys$Q3)
HMC2$Q4matches<-(HMC2$Q4==HMC2keys$Q4)
HMC2$Q5matches<-(HMC2$Q5==HMC2keys$Q5)
HMC2$Q6matches<-(HMC2$Q6==HMC2keys$Q6)
HMC2$Q7matches<-(HMC2$Q7==HMC2keys$Q7)
HMC2$Q8matches<-(HMC2$Q8==HMC2keys$Q8)
HMC2$Q9matches<-(HMC2$Q9==HMC2keys$Q9)
HMC2$Q10matches<-(HMC2$Q10==HMC2keys$Q10)
HMC2$Q11matches<-(HMC2$Q11==HMC2keys$Q11)
HMC2$Q12matches<-(HMC2$Q12==HMC2keys$Q12)
HMC2$Q13matches<-(HMC2$Q13==HMC2keys$Q13)
HMC2$Q14matches<-(HMC2$Q14==HMC2keys$Q14)
HMC2$Q15matches<-(HMC2$Q15==HMC2keys$Q15)
HMC2$Q16matches<-(HMC2$Q16==HMC2keys$Q16)
HMC2$Q17matches<-(HMC2$Q17==HMC2keys$Q17)
HMC2$Q18matches<-(HMC2$Q18==HMC2keys$Q18)
HMC2$Q19matches<-(HMC2$Q19==HMC2keys$Q19)
HMC2$Q20matches<-(HMC2$Q20==HMC2keys$Q20)
HMC2$Q21matches<-(HMC2$Q21==HMC2keys$Q21)
HMC2$Q22matches<-(HMC2$Q22==HMC2keys$Q22)
HMC2$Q23matches<-(HMC2$Q23==HMC2keys$Q23)
HMC2$Q24matches<-(HMC2$Q24==HMC2keys$Q24)
HMC2$Q25matches<-(HMC2$Q25==HMC2keys$Q25)
HMC2$Q26matches<-(HMC2$Q26==HMC2keys$Q26)
HMC2$Q27matches<-(HMC2$Q27==HMC2keys$Q27)
HMC2$Q28matches<-(HMC2$Q28==HMC2keys$Q28)
HMC2$Q29matches<-(HMC2$Q29==HMC2keys$Q29)
HMC2$Q30matches<-(HMC2$Q30==HMC2keys$Q30)
HMC2$Q31matches<-(HMC2$Q31==HMC2keys$Q31)
HMC2$Q32matches<-(HMC2$Q32==HMC2keys$Q32)
HMC2$Q33matches<-(HMC2$Q33==HMC2keys$Q33)
HMC2$Q34matches<-(HMC2$Q34==HMC2keys$Q34)
HMC2$Q35matches<-(HMC2$Q35==HMC2keys$Q35)
HMC2$Q36matches<-(HMC2$Q36==HMC2keys$Q36)
HMC2$Q37matches<-(HMC2$Q37==HMC2keys$Q37)
HMC2_E<-cbind(HMC2$Q1matches, HMC2$Q2matches, HMC2$Q3matches, HMC2$Q4matches, HMC2$Q5matches, HMC2$Q6matches, HMC2$Q7matches, HMC2$Q8matches, HMC2$Q9matches, HMC2$Q10matches, HMC2$Q11matches, HMC2$Q12matches, HMC2$Q13matches, HMC2$Q14matches, HMC2$Q15matches, HMC2$Q16matches, HMC2$Q17matches, HMC2$Q18matches, HMC2$Q19matches, HMC2$Q20matches, HMC2$Q21matches, HMC2$Q22matches, HMC2$Q23matches, HMC2$Q24matches, HMC2$Q25matches, HMC2$Q26matches, HMC2$Q27matches, HMC2$Q28matches, HMC2$Q29matches, HMC2$Q30matches, HMC2$Q31matches, HMC2$Q32matches, HMC2$Q33matches, HMC2$Q34matches, HMC2$Q35matches, HMC2$Q36matches, HMC2$Q37matches)
HMC2_E<-data.frame(HMC2_E)
Total_HMC2<-rowSums(HMC2_E)
View(Total_HMC2)
Total_HMC2<-data.frame(Total_HMC2)
names(Total_HMC2)[1]<-"Total_Maths_5"
View(Total_HMC2)
#matches-Maths Class-7
HME2<-filter(questions,Paper.Code=="HME2")
View(HME2)
HME2keys<-filter(keys,Paper.Code=="HME2")
View(HME2keys)
HME2$Q1matches<-(HME2$Q1==HME2keys$Q1)
HME2$Q2matches<-(HME2$Q2==HME2keys$Q2)
HME2$Q3matches<-(HME2$Q3==HME2keys$Q3)
HME2$Q4matches<-(HME2$Q4==HME2keys$Q4)
HME2$Q5matches<-(HME2$Q5==HME2keys$Q5)
HME2$Q6matches<-(HME2$Q6==HME2keys$Q6)
HME2$Q7matches<-(HME2$Q7==HME2keys$Q7)
HME2$Q8matches<-(HME2$Q8==HME2keys$Q8)
HME2$Q9matches<-(HME2$Q9==HME2keys$Q9)
HME2$Q10matches<-(HME2$Q10==HME2keys$Q10)
HME2$Q11matches<-(HME2$Q11==HME2keys$Q11)
HME2$Q12matches<-(HME2$Q12==HME2keys$Q12)
HME2$Q13matches<-(HME2$Q13==HME2keys$Q13)
HME2$Q14matches<-(HME2$Q14==HME2keys$Q14)
HME2$Q15matches<-(HME2$Q15==HME2keys$Q15)
HME2$Q16matches<-(HME2$Q16==HME2keys$Q16)
HME2$Q17matches<-(HME2$Q17==HME2keys$Q17)
HME2$Q18matches<-(HME2$Q18==HME2keys$Q18)
HME2$Q19matches<-(HME2$Q19==HME2keys$Q19)
HME2$Q20matches<-(HME2$Q20==HME2keys$Q20)
HME2$Q21matches<-(HME2$Q21==HME2keys$Q21)
HME2$Q22matches<-(HME2$Q22==HME2keys$Q22)
HME2$Q23matches<-(HME2$Q23==HME2keys$Q23)
HME2$Q24matches<-(HME2$Q24==HME2keys$Q24)
HME2$Q25matches<-(HME2$Q25==HME2keys$Q25)
HME2$Q26matches<-(HME2$Q26==HME2keys$Q26)
HME2$Q27matches<-(HME2$Q27==HME2keys$Q27)
HME2$Q28matches<-(HME2$Q28==HME2keys$Q28)
HME2$Q29matches<-(HME2$Q29==HME2keys$Q29)
HME2$Q30matches<-(HME2$Q30==HME2keys$Q30)
HME2$Q31matches<-(HME2$Q31==HME2keys$Q31)
HME2$Q32matches<-(HME2$Q32==HME2keys$Q32)
HME2$Q33matches<-(HME2$Q33==HME2keys$Q33)
HME2$Q34matches<-(HME2$Q34==HME2keys$Q34)
HME2$Q35matches<-(HME2$Q35==HME2keys$Q35)
HME2$Q36matches<-(HME2$Q36==HME2keys$Q36)
HME2$Q37matches<-(HME2$Q37==HME2keys$Q37)
HME2$Q38matches<-(HME2$Q38==HME2keys$Q38)
HME2$Q39matches<-(HME2$Q39==HME2keys$Q39)
HME2$Q40matches<-(HME2$Q40==HME2keys$Q40)
HME2_E<-cbind(HME2$Q1matches, HME2$Q2matches, HME2$Q3matches, HME2$Q4matches, HME2$Q5matches, HME2$Q6matches, HME2$Q7matches, HME2$Q8matches, HME2$Q9matches, HME2$Q10matches, HME2$Q11matches, HME2$Q12matches, HME2$Q13matches, HME2$Q14matches, HME2$Q15matches, HME2$Q16matches, HME2$Q17matches, HME2$Q18matches, HME2$Q19matches, HME2$Q20matches, HME2$Q21matches, HME2$Q22matches, HME2$Q23matches, HME2$Q24matches, HME2$Q25matches, HME2$Q26matches, HME2$Q27matches, HME2$Q28matches, HME2$Q29matches, HME2$Q30matches, HME2$Q31matches, HME2$Q32matches, HME2$Q33matches, HME2$Q34matches, HME2$Q35matches, HME2$Q36matches, HME2$Q37matches, HME2$Q38matches, HME2$Q39matches, HME2$Q40matches)
HME2_E<-data.frame(HME2_E)
Total_HME2<-rowSums(HME2_E)
View(Total_HME2)
Total_HME2<-data.frame(Total_HME2)
names(Total_HME2)[1]<-"Total_Maths_7"
View(Total_HME2)