####################################################
## CONSENT CORRECTIONS ##
## This file contains running corrections ##
## to the data before any analysis was conducted. ##
####################################################
##################
# KINOYA
##################
#Kinoya house #95 - need to fix house barcode and house number in the consent survey
#there was a problem in the survey (still forcing Indonesian barcodes - this has since been fixed)
#was entered as NZ-HH-001; should be FK-HH-095
consent$barcode_id_text[consent$duration == 1163 & consent$barcode_id_text == "NZ-HH-001"] <- "FK-HH-095"
consent$barcode_scan_text[consent$duration == 1163 & is.na(consent$barcode_scan_text)] <- "FK-HH-095"
consent$house_no[consent$duration == 1163 & consent$barcode_id_text == "FK-HH-095"] <- 95
#Kinoya house # 16 need to fix head of household to to Siteri Rasovo Lagilevu
consent$hhd_head_name[consent$duration == 391 & consent$hhd_head_name == "Asinate Bituleka"] <- "Siteri Rasovo Lagilevu"
#Kinoya house # 95 need to change hhd to Udite Rokotuinasau so that house and hhd is able to merge
consent$hhd_head_name[consent$duration == 1163 & consent$hhd_head_name == "Paula Rawiriwiri"] <- "Udite Rokotuinasau"
#Kinoya House# 19 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Kinoya" & child_consent_list$house.no == 19 & child_consent_list$child.name == "Semisi Nadaku Vave Jnr" & child_consent_list$dob == "2017-02-20"] <- "2017-02-28"
child_consent_list$dob[child_consent_list$settlement == "Kinoya" & child_consent_list$house.no == 19 & child_consent_list$child.name == "Alumita Qio Grace Vave" & child_consent_list$dob == "2018-08-07"] <- "2018-09-07"
#Kinoya House# 88 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Kinoya" & child_consent_list$house.no == 88 & child_consent_list$child.name == "Joseva Saumaki" & child_consent_list$dob == "2015-04-15"] <- "2015-01-12"
child_consent_list$dob[child_consent_list$settlement == "Kinoya" & child_consent_list$house.no == 88 & child_consent_list$child.name == "Claire Saumaki" & child_consent_list$dob == "2017-12-03"] <- "2017-07-29"
#Kinoya House #73 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Kinoya" & child_consent_list$house.no == 73 & child_consent_list$child.name == "Salote Eta" & child_consent_list$dob == "2018-07-03"] <- "2018-08-15"
#Kinoya House #85 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Kinoya" & child_consent_list$house.no == 85 & child_consent_list$child.name == "Semisi Tuinisau" & child_consent_list$dob == "2015-11-04"] <- "2015-11-03"
#Kinoya House#32 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Kinoya" & child_consent_list$house.no == 32 & child_consent_list$child.name == "Savaira Salumi" & child_consent_list$dob == "2019-03-24"] <- "2019-03-23"
##################
# WAINIVOKAI
##################
#Wainivokai house #36 change to 37 ??
# Change name of head of household too
consent_list$hhd_id[consent_list$settlement == "Wainivokai" &
consent_list$house.no == 37 & consent_list$hhd_id == "Menani Qoli"] <- "Maoni Mala Kalou"
# consent$house_no[consent$duration == 949 & consent$barcode_scan == "FA-HH-036"] <- 37 #this is wrong
# consent$hhd_head_name[consent$duration == 949 & consent$hhd_head_name == "Menani Qoli"] <- "Maoni Mala Kalou" #this is wrong
#Wainivokai house # 10 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Wainivokai" & child_consent_list$house.no == 10 & child_consent_list$child.name== "Joy Alena" & child_consent_list$dob == "2018-01-28"] <- "2018-01-29"
#Wainivokai house # 27 incorrect child name
child_consent_list$child.name[child_consent_list$settlement == "Wainivokai" & child_consent_list$house.no == 27 & child_consent_list$dob=="2018-04-08" & child_consent_list$child.name == "Meleti Camaibatiki" ] <- "Meleti Ralulu Camaibatiki"
#Wainivokai House# 37 incorrect name and dob
child_consent_list$dob[child_consent_list$settlement == "Wainivokai" & child_consent_list$house.no == 37 & child_consent_list$child.name== "Samisoni Tuienawai" & child_consent_list$dob == "2017-05-19"] <- "2017-05-19"
child_consent_list$child.name[child_consent_list$settlement == "Wainivokai" & child_consent_list$house.no == 37 & child_consent_list$child.name== "Samisoni Tuienawai" & child_consent_list$dob == "2017-05-19"] <- "Samisoni Tuenawai"
##################
# MUANIVATU
##################
#Muanivatu house #89 - need to fix house barcode and house number in the consent survey
#there was a problem in the survey (still forcing Indonesian barcodes - this has since been fixed)
#was entered as NZ-HH-001; should be FJ-HH-089
consent$barcode_id_text[consent$duration == 780 & consent$barcode_id_text == "NZ-HH-001"] <- "FJ-HH-089"
consent$barcode_scan_text[consent$duration == 780 & is.na(consent$barcode_scan_text)] <- "FJ-HH-089"
consent$extract_house_no2[consent$duration == 780 & consent$extract_house_no2 == 1] <- 89
consent$extract_house_no[consent$duration == 780 & consent$extract_house_no == 1] <- 89
#Muanivatu House # 89 change house no so consent is able to merge with house and household
consent$house_no[consent$duration == 780 & consent$house_no == 1] <- 89
#Muanivatu House# 14 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Muanivatu" & child_consent_list$house.no == 14 & child_consent_list$child.name== "Kalara Likucokocoko" & child_consent_list$dob == "2018-02-22"] <- "2018-02-20"
#Muanivatu House# 2 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Muanivatu" & child_consent_list$house.no == 2 & child_consent_list$child.name== "Aisake Tewa" & child_consent_list$dob == "2017-12-22"] <- "2018-12-24"
child_consent_list$dob[child_consent_list$settlement == "Muanivatu" & child_consent_list$house.no == 2 & child_consent_list$child.name== "Sakiusa Bici" & child_consent_list$dob == "2015-12-25"] <- "2015-12-27"
#Muanivatu House# 51 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Muanivatu" & child_consent_list$house.no == 51 & child_consent_list$child.name== "Elisha Vakacegu" & child_consent_list$dob == "2015-06-20"] <- "2017-05-04"
#Muanivatu House# 85 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Muanivatu" & child_consent_list$house.no == 85 & child_consent_list$child.name == "Anaya Sharma" & child_consent_list$dob == "2018-05-06"] <- "2018-02-05"
#Muanivatu House# 90 incorrect name
consent.childname$child_name[consent.childname$child_name == "Meredani Bulabalavu" & consent.childname$gender == 0 & consent.childname$dob == "May 9, 2016"] <- "Mereani Vulabalavu"
consent.childname$dob[consent.childname$child_name == "Mereani Vulabalavu" & consent.childname$gender == 0 & consent.childname$dob == "May 9, 2016"] <- "09/05/2016"
consent.childname$child_name[consent.childname$child_name == "Akuila Temo Vakacegu" & consent.childname$gender == 1 & consent.childname$dob == "Oct 27, 2017"] <- "Akuila Temp Vakacegu"
consent.childname$dob[consent.childname$child_name == "Akuila Temp Vakacegu" & consent.childname$gender == 1 & consent.childname$dob == "Oct 27, 2017"] <- "27/10/2017"
#Muanivatu House #55 change hhd name so consent house and household to merge
consent_list$hhd_id[consent_list$settlement == "Muanivatu" &
consent_list$house.no == 55 &consent_list$hhd_id == "Salote Ditamani"] <- "Salote Ditamana"
##################
# WAINIDINU
##################
#Wainidinu house # 15 need to fix head of household to to Theresa Hoyte
consent$hhd_head_name[consent$duration == 185 & consent$hhd_head_name == "Wilisoni Tui" ] <- "Wilson Tui"
#Wainidinu House# 1 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Wainidinu" & child_consent_list$house.no == 1 & child_consent_list$child.name == "Merelesita Vola" & child_consent_list$dob =="2015-07-11"] <- "2014-05-24"
##################
# NEWTOWN
##################
#Newtown house #108 filter out consent as another consent was done under correct household name
consent <- consent %>%
filter (KEY != "uuid:3187a88d-87b3-4245-8beb-940b017fc7a0")
x <- consent %>%
filter (KEY == "uuid:3187a88d-87b3-4245-8beb-940b017fc7a0")
rm(x)
#Newtown house #108 - need to fix house barcode and house number in the consent survey
#there was a problem in the survey (still forcing Indonesian barcodes - this has since been fixed)
#was entered as NZ-HH-001; should be FH-HH-108
consent$barcode_id_text[consent$duration == 2415 & consent$barcode_id_text == "NZ-HH-001"] <- "FH-HH-108"
consent$barcode_scan_text[consent$duration == 2415 & is.na(consent$barcode_scan_text)] <- "FH-HH-108"
consent$extract_house_no2[consent$duration == 2415 & consent$barcode_id_text == "FH-HH-108"] <- 108
consent$house_no[consent$duration == 2415 & consent$barcode_id_text == "FH-HH-108"] <- 108
#Newtown house #21 - need to fix house barcode and house number in the consent survey
#there was a problem in the survey (still forcing Indonesian barcodes - this has since been fixed)
#was entered as NZ-HH-001; should be FH-HH-021
consent$barcode_id_text[consent$duration == 1955 & consent$barcode_id_text == "NZ-HH-001"] <- "FH-HH-021"
consent$barcode_scan_text[consent$duration == 1955 & is.na(consent$barcode_scan_text)] <- "FH-HH-021"
consent$extract_house_no2[consent$duration == 1955 & consent$barcode_id_text == "FH-HH-021"] <- 21
consent$house_no[consent$duration == 1955 & consent$barcode_id_text == "FH-HH-021"] <- 21
#Newtown House# 111 barcode incorrectly entered
consent$barcode_id_text[consent$duration == 180 & consent$barcode_id_text == "FH-HH-11"] <- "FH-HH-111"
#Newtown house # 86 need to fix head of household to to Samuela Toko
consent$hhd_head_name[consent$duration == 341 & consent$hhd_head_name == "Samuel Toko"] <- "Samuela Toko"
#Newtown house # 140 need to fix head of household to to Filomena Soro
consent$hhd_head_name[consent$duration == 392 & consent$hhd_head_name == "Filomena Lisi Soro"] <- "Filomena Soro"
#Newtown house # 120 need to fix head of household to to Tomu Nawako
consent$hhd_head_name[consent$duration == 790 & consent$hhd_head_name == "Milika Nawako"] <- "Tomu Nawako"
#Newtown house # 22 need to fix head of household to to Masilina Liganitoba
consent$hhd_head_name[consent$duration == 486 & consent$hhd_head_name == "Masilina Cegutabua"] <- "Masilina Liganitoba"
#Newtown house # 51 need to fix head of household to to Theresa Hoyte
consent$hhd_head_name[consent$duration == 774 & consent$hhd_head_name == "Jean Baptist Kaufuti" ] <- "Theresa Hoyte"
#Newtown #13 change settlement, settlement_name and hhd name incorrectly entered during consent
consent$settlement[consent$duration == 513 & consent$settlement == "D"] <- "H"
consent$settlement_name[consent$duration == 513 & consent$settlement_name == "Matata"] <- "Newtown"
consent$hhd_head_name[consent$duration == 513 & consent$hhd_head_name == "Pita Sakosese"] <- "Akosita Cagi"
#Newtown #16 change settlement, settlement_name incorrectly entered during consent
consent$settlement[consent$duration == 391 & consent$settlement == "K"] <- "H"
consent$settlement_name[consent$duration == 391 & consent$settlement_name == "Kinoya"] <- "Newtown"
consent$hhd_head_name[consent$duration == 391 & consent$hhd_head_name == "Siteri Rasovo Lagilevu"] <- "Asinate Bituleka"
#Newtown House# 51 incorrect name
consent.childname$child_name[consent.childname$child_name == "Jean Baptist Kaufuti Jnr" & consent.childname$gender == 1 & consent.childname$dob == "Nov 28, 2015"] <- "Jean Baptist Kaufuti"
consent.childname$dob[consent.childname$child_name == "Jean Baptist Kaufuti" & consent.childname$gender == 1 & consent.childname$dob == "Nov 28, 2015"] <- "28/11/2015"
#Newtown House# 54 incorrect dob
consent.childname$dob[consent.childname$child_name == "David Johnson Yalovinaka" & consent.childname$gender == 1 & consent.childname$dob == "Jun 17, 2018"] <- "17/06/2018"
#Newtown House#115 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Newtown" & child_consent_list$house.no == 115 & child_consent_list$child.name == "Kyla Angel Jane" & child_consent_list$dob =="2015-07-07"] <- "2015-03-07"
#Newtown House# 33 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Newtown" & child_consent_list$house.no == 33 & child_consent_list$child.name == "Louise Bitu" & child_consent_list$dob =="2015-05-15"] <- "2015-05-21"
#Newtown House#108 incorrect name
consent.childname$child_name[consent.childname$child_name== "Rachael Naiqoqo" & consent.childname$gender == 1 & consent.childname$dob == "Jul 2, 2017"] <- "Rachel Naiqoqo"
consent.childname$dob[consent.childname$child_name == "Rachel Naiqoqo" & consent.childname$gender == 1 & consent.childname$dob == "Jul 2, 2017"] <- "07/02/2017"
#Newtown House#120 incorrect name and dob
consent.childname$child_name[consent.childname$child_name== "Pioneer Tome" & consent.childname$gender == 1 & consent.childname$dob == "Dec 23, 2016"] <- "Pio Tome"
consent.childname$dob[consent.childname$child_name == "Pio Tome" & consent.childname$gender == 1 & consent.childname$dob == "Dec 23, 2016"] <- "09/07/2017"
consent.childname$dob[consent.childname$child_name == "Sakiusa Nawako" & consent.childname$gender == 1 & consent.childname$dob == "Aug 18, 2015"] <- "09/07/2016"
#Newtown House#112 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Newtown" & child_consent_list$house.no == 112 & child_consent_list$child.name== "Lasaro Cagica" & child_consent_list$dob =="2019-01-28"] <- "2019-01-30"
##################
# LOBAU
##################
#Newtown House#6 incorrect dob and name
consent.childname$child_name[consent.childname$child_name== "Sera Faith Tuivanua" & consent.childname$gender == 0 & consent.childname$dob == "Jan 3, 2017"] <- "Sara Faith Tuivanua"
consent.childname$dob[consent.childname$child_name == "Sara Faith Tuivanua" & consent.childname$gender == 0 & consent.childname$dob == "Jan 3, 2017"] <- "03/01/2017"
#Lobau House#18 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Lobau" & child_consent_list$house.no == 18 & child_consent_list$child.name== "Adyah Unay Prasad" & child_consent_list$dob =="2019-05-23"] <- "2019-05-20"
#Lobau House# 39 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Lobau" & child_consent_list$house.no == 39 & child_consent_list$child.name== "Jaden Adrinal Gounder" & child_consent_list$dob =="2016-04-03"] <- "2016-04-01"
#Change hhd name to merge consent, house and household Lobau House # 15
consent$hhd_head_name[consent$duration == 223 & consent$hhd_head_name == "Anil Chand"] <- "Ami Chand"
#Change hhd name to merge consent, house and household Lobau House # 25
consent$hhd_head_name[consent$duration == 501 & consent$hhd_head_name == "Neelam Sajeshni Lata"] <- "Neelam Sanjeshni Lata"
#Change hhd name to merge consent, house and household Lobau House # 110
consent$hhd_head_name[consent$duration == 150 & consent$hhd_head_name == "Anjana Devi"] <- "Pisalieli Seleivalu"
##################
# WAILEA
##################
#Wailea House#37 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Wailea" & child_consent_list$house.no == 37 & child_consent_list$child.name == "Reapi Rokolewesau" & child_consent_list$dob =="2015-05-20"] <- "2015-06-11"
#Wailea House# 43 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Wailea" & child_consent_list$house.no == 43 & child_consent_list$child.name == "James Cakavinaka" & child_consent_list$dob =="2016-12-12"] <- "2016-12-14"
#Wailea House# 42 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Wailea" & child_consent_list$house.no == 42 & child_consent_list$child.name == "Adi Akisi Raiwasa" & child_consent_list$dob =="2014-11-18"] <- "2014-11-19"
#Wailea House # 94 incorrect name and dob
child_consent_list$dob[child_consent_list$settlement == "Wailea" & child_consent_list$house.no == 94 & child_consent_list$child.name == "Aranam Kyan Roshan" & child_consent_list$dob =="2017-12-12"] <- "2017-12-17"
child_consent_list$child.name[child_consent_list$settlement == "Wailea" & child_consent_list$house.no == 94 & child_consent_list$child.name == "Aranam Kyan Roshan" & child_consent_list$dob =="2017-12-17"] <- "Arnav kayan Roshan"
#Wailea House # 89 incorrect dob
consent.childname$dob[consent.childname$child_name == "Jacob Baranita Prasad" & consent.childname$gender == 1 & consent.childname$dob == "Oct 20, 2018"] <- "20/10/2018"
# Wailea House #48 incorrect name
consent$hhd_head_name[consent$duration == 579 & consent$hhd_head_name == "Anikesh ashmit kumar"] <- "Anikesh Ashmit Kumar"
# Wailea House #46 incorrect name
consent$hhd_head_name[consent$duration == 265 & consent$hhd_head_name == "Shivinil Kaushik Kumar"] <- "Shivnil kaushik kumar"
##################
# KOMAVE
##################
#Komave House# 3 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Komave" & child_consent_list$house.no == 3 & child_consent_list$child.name == "April Susau" & child_consent_list$dob =="2016-04-17"] <- "2017-04-17"
#Komave House# 18 incorrect dob
consent.childname$dob[consent.childname$child_name == "Stephen Datt" & consent.childname$gender == 1 & consent.childname$dob == "Dec 20, 2014"] <- "20/12/2014"
#Komave House# 25 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Komave" & child_consent_list$house.no == 25 & child_consent_list$child.name == "Mosese Vueti Gaunavou" & child_consent_list$dob =="2018-07-21"] <- "2018-07-30"
#Komave House #45 incorrect dob
consent.childname$dob[consent.childname$child_name == "Sidhaarth Chand" & consent.childname$gender == 1 & consent.childname$dob == "Aug 10, 2017"] <- "10/08/2017"
#Komave House# 47 incorrect name and dob
consent.childname$child_name[consent.childname$child_name== "Siddharth Vinayak Prakash" & consent.childname$gender == 1 & consent.childname$dob == "Dec 22, 2014"] <- "Siddharth Prakash"
consent.childname$dob[consent.childname$child_name == "Siddharth Prakash" & consent.childname$gender == 1 & consent.childname$dob == "Dec 22, 2014"] <- "22/12/2014"
##################
# MATATA.
##################
#Matata House# 12 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Matata" & child_consent_list$house.no == 12 & child_consent_list$child.name == "Akariva Tukana Jnr" & child_consent_list$dob =="2015-10-15"] <- "2015-01-15"
child_consent_list$dob[child_consent_list$settlement == "Matata" & child_consent_list$house.no == 12 & child_consent_list$child.name == "Tomasi Tukana" & child_consent_list$dob =="2016-09-18"] <- "2016-10-18"
#Matata House# 17 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Matata" & child_consent_list$house.no == 17 & child_consent_list$child.name== "Wainikiti Loloma Leano" & child_consent_list$dob =="2018-01-18"] <- "2018-01-19"
##################
# MARAVU
##################
#Maravu House# 17 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Maravu" & child_consent_list$house.no == 17 & child_consent_list$child.name == "Ratu Sakiusa Junior Dauveiqaravi Narara" & child_consent_list$dob =="2017-08-09"] <- "2016-10-24"
##################
# NAULUVATU
##################
# Nauluvatu House# 58 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no ==58 & child_consent_list$child.name == "Joshua Tuibuca Vulaono" & child_consent_list$dob =="2015-04-24"] <- "2015-04-20"
# Nauluvatu House# 44 incorrect dob and name
child_consent_list$child.name[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no == 44 & child_consent_list$child.name == "Ravendra Bali" & child_consent_list$dob =="2019-05-04"] <- "Davendra Bali"
child_consent_list$dob[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no ==44 & child_consent_list$child.name == "Davendra Bali" & child_consent_list$dob =="2019-05-04"] <- "2016-03-13"
#Nauluvatu House# 76 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no == 76 & child_consent_list$child.name == "Peniyasi Cawanibuka" & child_consent_list$dob =="2016-02-14"] <- "2016-02-08"
child_consent_list$dob[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no == 76 & child_consent_list$child.name == "Filimoni Valegatu" & child_consent_list$dob =="2019-01-13"] <- "2019-01-05"
#Nauluvatu House#74 incorrect dob
child_consent_list$dob[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no == 74 & child_consent_list$child.name == "Tevita Vasuikoro" & child_consent_list$dob =="2015-11-12"] <- "2015-11-13"
# Nauluvatu House #42 incorrect name
consent$hhd_head_name[consent$duration == 1390 & consent$hhd_head_name == "Lusi Mills"] <- "Leba Nasaroa"
#Nauluvatu House# 37 incorrect name and dob
child_consent_list$child.name[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no ==37 & child_consent_list$child.name== "Bulou WainikitiTuraganivalu" & child_consent_list$dob=="2016-08-26"] <- "Bulou Donu"
child_consent_list$dob[child_consent_list$settlement == "Nauluvatu" & child_consent_list$house.no ==37 & child_consent_list$child.name== "Bulou Donu" & child_consent_list$dob=="2016-08-26"] <- "2019-04-21"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.