# Set your working directory
rm(list = (ls()))
main.directory <- getwd()
data.directory <- paste(main.directory, "data", sep = "/")
image.directory <- paste(main.directory, "images", sep = "/")
results.directory <- paste(main.directory, "results", sep = "/")
get.csv.postcode.LSOA.file <- function(pFileName) {
setwd(postcode.and.LSOA.directory)
mydataframe <- read.csv(pFileName)
}
get.csv.data.file <- function(pFileName) {
setwd(data.directory)
mydataframe <- read.csv(pFileName)
}
get.csv.data.file.no.header <- function(pFileName) {
setwd(data.directory)
mydataframe <- read.csv(pFileName, header = FALSE)
}
get.data.table.file <- function(pFileName) {
setwd(data.directory)
mydataframe <- read.table(pFileName, header=TRUE, sep=",")
}
get.data.file <- function(pFileName, skip = 0) {
setwd(data.directory)
df <- read_excel(pFileName, skip = skip)
}
get.data.file.2 <- function(pFileName, pTab) {
setwd(data.directory)
df <- read_excel(pFileName, pTab)
}
get.results.file <- function(pFileName) {
setwd(results.directory)
df <- read_excel(pFileName)
}
get.csv.data.file <- function(pFileName) {
setwd(data.directory)
mydataframe <- read.csv(pFileName)
}
write.csv.data.file <- function(pDf, pFileName) {
setwd(data.directory)
write.csv(pDf, pFileName, row.names=FALSE)
}
write.data.file <- function(pDf, pFileName) {
setwd(data.directory)
write_xlsx(pDf, pFileName, col_names = TRUE, format_headers = TRUE)
}
write.results.file <- function(pDf, pFileName) {
setwd(results.directory)
write_xlsx(pDf, pFileName, col_names = TRUE, format_headers = TRUE)
}
save.graph <- function(pImageFileName) {
setwd(image.directory)
ggsave(pImageFileName)
}
save.graph.1 <- function(pImageFileName, pDir) {
i.directory = pDir
setwd(i.directory)
ggsave(pImageFileName)
}
save.graph.2 <- function(pGraph, pImageFileName) {
setwd(image.directory)
png(pImageFileName)
print(pGraph)
dev.off()
}
write.object.to.text.file.first <- function(pObject, pFile) {
(out <- capture.output(pObject))
setwd(results.directory)
cat(out, file = pFile, sep= "\n", append = FALSE)
}
write.object.to.text.file <- function(pObject, pFile) {
(out <- capture.output(pObject))
setwd(results.directory)
cat(out, file = pFile, sep= "\n", append = TRUE)
}
suppressMessages(suppressWarnings(library(writexl, warn.conflicts = F, quietly = T)))
suppressMessages(suppressWarnings(library(readxl, warn.conflicts = F, quietly = T)))
suppressMessages(suppressWarnings(library(tidyverse, warn.conflicts = F, quietly = T)))
# section visits
# df.site.navigation <- get.csv.data.file("clickSPClose.csv")
# df.site.navigation <- get.csv.data.file("clickSPCloseX.csv")
df.site.navigation <- get.csv.data.file("clickSPCloseY.csv")
# names(df.site.navigation) <- c("id", "page", "XID", "startTime", "endTime")
df.site.navigation <- mutate(df.site.navigation, timeDifference = endTime - startTime)
df.site.navigation <- mutate(df.site.navigation, timeDifferenceSeconds = timeDifference/1000)
df.site.navigation <- mutate(df.site.navigation, timeDifferenceMinutes = timeDifferenceSeconds/60)
df.grouped <- group_by(df.site.navigation, XID)
df.total.dwell.time <- summarise(df.grouped, total.dwell.time = sum(timeDifferenceMinutes))
df.grouped <- group_by(df.site.navigation, XID, page)
df.section.visits <- summarise(df.grouped, count = n())
write.data.file(df.site.navigation, "site.navigation.xlsx")
write.csv.data.file(df.site.navigation, "site.navigation.csv")
# page visits
# df.page.navigation <- get.csv.data.file("clickInPage.csv")
# df.page.navigation <- get.csv.data.file("clickInPageX.csv")
df.page.navigation <- get.csv.data.file("clickInPageY.csv")
df.page.navigation <- df.page.navigation %>% select(id:XID)
df.grouped <- group_by(df.page.navigation, XID, page, target)
df.page.visits <- summarise(df.grouped, count = n())
write.data.file(df.page.navigation, "page.navigation.xlsx")
write.csv.data.file(df.page.navigation, "page.navigation.csv")
# PET by participant
df.PET.by.participant <- get.csv.data.file("participant.csv")
df.PET.by.participant <- get.csv.data.file("participantX.csv")
df.PET.by.participant <- df.PET.by.participant %>% rename(group = thegroup)
df.additional.row <- df.PET.by.participant[1,]
df.additional.row$completed <- 0
df.PET.by.participant <- rbind(df.PET.by.participant, df.additional.row)
df.PET.by.participant <- filter(df.PET.by.participant, completed != 0)
df.PETs.completed.in.tool <- df.PET.by.participant %>% select(id:completed)
write.data.file(df.PETs.completed.in.tool, "PETs.completed.in.tool.xlsx")
write.csv.data.file(df.PETs.completed.in.tool, "PETs.completed.in.tool.csv")
df.PETs.used <- select(df.PET.by.participant, id:group, VPN:Faraday)
df.PETs.used <- df.PETs.used %>% gather(key = PET.type, value = PET.name, -c(id, XID, group))
write.data.file(df.PETs.used, "PETs.used.xlsx")
write.csv.data.file(df.PETs.used, "PETs.used.csv")
rm(df.additional.row, df.grouped, df.page.navigation, df.page.visits, df.PET.by.participant,
df.PETs.completed.in.tool, df.PETs.used, df.section.visits, df.site.navigation, df.total.dwell.time)
df.variable.names <- get.data.file("variable.names.xlsx")
# control-condition data
# df.Qualtrics.control.data <- get.data.file("PETS FINAL - CONTROL_June 11, 2024_05.27.xlsx")
df.Qualtrics.control.data <- get.data.file("PETS FINAL - CONTROL_June 12, 2024_11.12.xlsx")
n <- dim(df.Qualtrics.control.data)[1]
df.Qualtrics.control.data <- df.Qualtrics.control.data[2:n,]
df.variable.names.control <- filter(df.variable.names, control == 1)
df.variable.names.control <- df.variable.names.control %>% select(control.variable.name, variable.name)
# write.data.file(df.variable.names.control, "df1.xlsx")
df.control.data.variable.names <- data.frame(names(df.Qualtrics.control.data))
# write.data.file(df.control.data.variable.names, "df2.xlsx")
names(df.control.data.variable.names) <- names(df.variable.names.control)[1]
df.control.data.variable.names <- left_join(df.control.data.variable.names, df.variable.names.control)
# write.data.file(df.control.data.variable.names, "df3.xlsx")
# df.control.data.variable.names$control.variable.name
#
# df <- cbind(names(df.Qualtrics.control.data), df.control.data.variable.names)
# df$equal.test <- df[1] == df[2]
# names(df.Qualtrics.control.data)
names(df.Qualtrics.control.data) <- df.control.data.variable.names$variable.name
write.data.file(df.Qualtrics.control.data, "Qualtrics.control.data.xlsx")
# experimental-condition data
# df.Qualtrics.experimental.data <- get.data.file("PETS FINAL_June 12, 2024_11.12.xlsx")
# df.Qualtrics.experimental.data <- get.data.file("PETS FINAL_June 13, 2024_05.22X.xlsx")
df.Qualtrics.experimental.data <- get.data.file("PETS FINAL_June 13, 2024_15.48Y.xlsx")
n <- dim(df.Qualtrics.experimental.data)[1]
df.Qualtrics.experimental.data <- df.Qualtrics.experimental.data[2:n,]
df.variable.names.experimental <- filter(df.variable.names, experimental == 1)
df.variable.names.experimental <- df.variable.names.experimental %>% select(experimental.variable.name, variable.name)
df.variable.names.experimental <- filter(df.variable.names, experimental == 1)
df.variable.names.experimental <- df.variable.names.experimental %>% select(experimental.variable.name, variable.name)
df.variable.names.experimental <- filter(df.variable.names, experimental == 1)
df.variable.names.experimental <- df.variable.names.experimental %>% select(experimental.variable.name, variable.name)
df.experimental.data.variable.names <- data.frame(names(df.Qualtrics.experimental.data))
names(df.experimental.data.variable.names) <- names(df.variable.names.experimental)[1]
df.experimental.data.variable.names <- left_join(df.experimental.data.variable.names, df.variable.names.experimental)
names(df.Qualtrics.experimental.data) <- df.experimental.data.variable.names$variable.name
write.data.file(df.Qualtrics.experimental.data, "Qualtrics.experimental.data.xlsx")
# combine control-condition and experimental-condition data on common variables
df.common.variable.names <- filter(df.variable.names, control == 1, experimental == 1)
variable.names <- df.common.variable.names$variable.name
df.control.common <- select(df.Qualtrics.control.data, variable.names)
df.control.common$condition <- "control"
names.control <- names(df.control.common)
df.experimental.common <- select(df.Qualtrics.experimental.data, variable.names)
df.experimental.common$condition <- "experimental"
df.experimental.common <- select(df.experimental.common, names.control)
df.control.experimental.common <- rbind(df.control.common, df.experimental.common)
df.control.experimental.common <- select(df.control.experimental.common, condition, everything())
write.data.file(df.control.experimental.common, "Qualtrics.control.and.experimental.data.xlsx")
# solution: match multiple-option answer with individual options
df.Qualtrics.experimental.data <- get.data.file("Qualtrics.experimental.data.xlsx")
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1 = ifelse(is.na(VPNKnowledgeTest1), "", VPNKnowledgeTest1),
VPNKnowledgeTest2 = ifelse(is.na(VPNKnowledgeTest2), "", VPNKnowledgeTest2),
VPNKnowledgeTest3 = ifelse(is.na(VPNKnowledgeTest3), "", VPNKnowledgeTest3),
VPN8UsefulInformation = ifelse(is.na(VPN8UsefulInformation), "", VPN8UsefulInformation),
VPN6bConcerns = ifelse(is.na(VPN6bConcerns), "", VPN6bConcerns),
encryptionKnowledgeTest1 = ifelse(is.na(encryptionKnowledgeTest1), "", encryptionKnowledgeTest1),
encryptionKnowledgeTest2 = ifelse(is.na(encryptionKnowledgeTest2), "", encryptionKnowledgeTest2),
encryptionKnowledgeTest3 = ifelse(is.na(encryptionKnowledgeTest3), "", encryptionKnowledgeTest3),
encryption8UsefulInformation = ifelse(is.na(encryption8UsefulInformation), "", encryption8UsefulInformation),
encryption6bConcerns = ifelse(is.na(encryption6bConcerns), "", encryption6bConcerns),
webcamcoverKnowledgeTest1 = ifelse(is.na(webcamcoverKnowledgeTest1), "", webcamcoverKnowledgeTest1),
webcamcoverKnowledgeTest2 = ifelse(is.na(webcamcoverKnowledgeTest2), "", webcamcoverKnowledgeTest2),
webcamcoverKnowledgeTest3 = ifelse(is.na(webcamcoverKnowledgeTest3), "", webcamcoverKnowledgeTest3),
webcamcover8UsefulInformation = ifelse(is.na(webcamcover8UsefulInformation), "", webcamcover8UsefulInformation),
webcamcover6bConcerns = ifelse(is.na(webcamcover6bConcerns), "", webcamcover6bConcerns),
nontrackingSEKnowledgeTest1 = ifelse(is.na(nontrackingSEKnowledgeTest1), "", nontrackingSEKnowledgeTest1),
nontrackingSEKnowledgeTest2 = ifelse(is.na(nontrackingSEKnowledgeTest2), "", nontrackingSEKnowledgeTest2),
nontrackingSEKnowledgeTest3 = ifelse(is.na(nontrackingSEKnowledgeTest3), "", nontrackingSEKnowledgeTest3),
nontrackingSE8UsefulInformation = ifelse(is.na(nontrackingSE8UsefulInformation), "", nontrackingSE8UsefulInformation),
nontrackingSE6bConcerns = ifelse(is.na(nontrackingSE6bConcerns), "", nontrackingSE6bConcerns),
anonBrowserKnowledgeTest1 = ifelse(is.na(anonBrowserKnowledgeTest1), "", anonBrowserKnowledgeTest1),
anonBrowserKnowledgeTest2 = ifelse(is.na(anonBrowserKnowledgeTest2), "", anonBrowserKnowledgeTest2),
anonBrowserKnowledgeTest3 = ifelse(is.na(anonBrowserKnowledgeTest3), "", anonBrowserKnowledgeTest3),
anonBrowser8UsefulInformation = ifelse(is.na(anonBrowser8UsefulInformation), "", anonBrowser8UsefulInformation),
anonBrowser6bConcerns = ifelse(is.na(anonBrowser6bConcerns), "", anonBrowser6bConcerns),
FaradayBagKnowledgeTest1 = ifelse(is.na(FaradayBagKnowledgeTest1), "", FaradayBagKnowledgeTest1),
FaradayBagKnowledgeTest2 = ifelse(is.na(FaradayBagKnowledgeTest2), "", FaradayBagKnowledgeTest2),
FaradayBagKnowledgeTest3 = ifelse(is.na(FaradayBagKnowledgeTest3), "", FaradayBagKnowledgeTest3),
FaradayBag8UsefulInformation = ifelse(is.na(FaradayBag8UsefulInformation), "", FaradayBag8UsefulInformation),
FaradayBag6bConcerns = ifelse(is.na(FaradayBag6bConcerns), "", FaradayBag6bConcerns))
df.answers <- get.data.file("multiple.question.answer.options.xlsx")
df.answers <- mutate(df.answers, answer.short = substr(answer, first.character, last.character))
# ***** VPN *****
# question: VPNKnowledgeTest1
df.answers.1.question <- filter(df.answers, question.name == "VPNKnowledgeTest1")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.1 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.2 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.3 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.4 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.5 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.6 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.7 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[8,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest1.Answer.8 = ifelse(str_detect(VPNKnowledgeTest1, the.answer), 1, 0))
# question: VPNKnowledgeTest2
df.answers.1.question <- filter(df.answers, question.name == "VPNKnowledgeTest2")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest2.Answer.1 = ifelse(str_detect(VPNKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest2.Answer.2 = ifelse(str_detect(VPNKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest2.Answer.3 = ifelse(str_detect(VPNKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest2.Answer.4 = ifelse(str_detect(VPNKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest2.Answer.5 = ifelse(str_detect(VPNKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest2.Answer.6 = ifelse(str_detect(VPNKnowledgeTest2, the.answer), 1, 0))
# question: VPNKnowledgeTest3
df.answers.1.question <- filter(df.answers, question.name == "VPNKnowledgeTest3")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest3.Answer.1 = ifelse(str_detect(VPNKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest3.Answer.2 = ifelse(str_detect(VPNKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest3.Answer.3 = ifelse(str_detect(VPNKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest3.Answer.4 = ifelse(str_detect(VPNKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest3.Answer.5 = ifelse(str_detect(VPNKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest3.Answer.6 = ifelse(str_detect(VPNKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPNKnowledgeTest3.Answer.7 = ifelse(str_detect(VPNKnowledgeTest3, the.answer), 1, 0))
# question: VPN8UsefulInformation
df.answers.1.question <- filter(df.answers, question.name == "VPN8UsefulInformation")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN8UsefulInformation.Answer.1 = ifelse(str_detect(VPN8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN8UsefulInformation.Answer.2 = ifelse(str_detect(VPN8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN8UsefulInformation.Answer.3 = ifelse(str_detect(VPN8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN8UsefulInformation.Answer.4 = ifelse(str_detect(VPN8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN8UsefulInformation.Answer.5 = ifelse(str_detect(VPN8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN8UsefulInformation.Answer.6 = ifelse(str_detect(VPN8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN8UsefulInformation.Answer.7 = ifelse(str_detect(VPN8UsefulInformation, the.answer), 1, 0))
# question: VPN6bConcerns
df.answers.1.question <- filter(df.answers, question.name == "VPN6bConcerns")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN6bConcerns.Answer.1 = ifelse(str_detect(VPN6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN6bConcerns.Answer.2 = ifelse(str_detect(VPN6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN6bConcerns.Answer.3 = ifelse(str_detect(VPN6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN6bConcerns.Answer.4 = ifelse(str_detect(VPN6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN6bConcerns.Answer.5 = ifelse(str_detect(VPN6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN6bConcerns.Answer.6 = ifelse(str_detect(VPN6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
VPN6bConcerns.Answer.7 = ifelse(str_detect(VPN6bConcerns, the.answer), 1, 0))
# ***** encryption *****
# question: encryptionKnowledgeTest1
df.answers.1.question <- filter(df.answers, question.name == "encryptionKnowledgeTest1")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.1 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.2 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.3 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.4 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.5 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.6 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.7 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[8,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest1.Answer.8 = ifelse(str_detect(encryptionKnowledgeTest1, the.answer), 1, 0))
# question: encryptionKnowledgeTest2
df.answers.1.question <- filter(df.answers, question.name == "encryptionKnowledgeTest2")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest2.Answer.1 = ifelse(str_detect(encryptionKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest2.Answer.2 = ifelse(str_detect(encryptionKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest2.Answer.3 = ifelse(str_detect(encryptionKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest2.Answer.4 = ifelse(str_detect(encryptionKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest2.Answer.5 = ifelse(str_detect(encryptionKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest2.Answer.6 = ifelse(str_detect(encryptionKnowledgeTest2, the.answer), 1, 0))
# question: encryptionKnowledgeTest3
df.answers.1.question <- filter(df.answers, question.name == "encryptionKnowledgeTest3")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest3.Answer.1 = ifelse(str_detect(encryptionKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest3.Answer.2 = ifelse(str_detect(encryptionKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest3.Answer.3 = ifelse(str_detect(encryptionKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest3.Answer.4 = ifelse(str_detect(encryptionKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest3.Answer.5 = ifelse(str_detect(encryptionKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest3.Answer.6 = ifelse(str_detect(encryptionKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryptionKnowledgeTest3.Answer.7 = ifelse(str_detect(encryptionKnowledgeTest3, the.answer), 1, 0))
# question: encryption8UsefulInformation
df.answers.1.question <- filter(df.answers, question.name == "encryption8UsefulInformation")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption8UsefulInformation.Answer.1 = ifelse(str_detect(encryption8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption8UsefulInformation.Answer.2 = ifelse(str_detect(encryption8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption8UsefulInformation.Answer.3 = ifelse(str_detect(encryption8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption8UsefulInformation.Answer.4 = ifelse(str_detect(encryption8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption8UsefulInformation.Answer.5 = ifelse(str_detect(encryption8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption8UsefulInformation.Answer.6 = ifelse(str_detect(encryption8UsefulInformation, the.answer), 1, 0))
# question: encryption6bConcerns
df.answers.1.question <- filter(df.answers, question.name == "encryption6bConcerns")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption6bConcerns.Answer.1 = ifelse(str_detect(encryption6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption6bConcerns.Answer.2 = ifelse(str_detect(encryption6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption6bConcerns.Answer.3 = ifelse(str_detect(encryption6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption6bConcerns.Answer.4 = ifelse(str_detect(encryption6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption6bConcerns.Answer.5 = ifelse(str_detect(encryption6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
encryption6bConcerns.Answer.6 = ifelse(str_detect(encryption6bConcerns, the.answer), 1, 0))
# ***** webcamcover *****
# question: webcamcoverKnowledgeTest1
df.answers.1.question <- filter(df.answers, question.name == "webcamcoverKnowledgeTest1")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.1 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.2 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.3 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.4 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.5 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.6 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.7 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[8,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest1.Answer.8 = ifelse(str_detect(webcamcoverKnowledgeTest1, the.answer), 1, 0))
# question: webcamcoverKnowledgeTest2
df.answers.1.question <- filter(df.answers, question.name == "webcamcoverKnowledgeTest2")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest2.Answer.1 = ifelse(str_detect(webcamcoverKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest2.Answer.2 = ifelse(str_detect(webcamcoverKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest2.Answer.3 = ifelse(str_detect(webcamcoverKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest2.Answer.4 = ifelse(str_detect(webcamcoverKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest2.Answer.5 = ifelse(str_detect(webcamcoverKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest2.Answer.6 = ifelse(str_detect(webcamcoverKnowledgeTest2, the.answer), 1, 0))
# question: webcamcoverKnowledgeTest3
df.answers.1.question <- filter(df.answers, question.name == "webcamcoverKnowledgeTest3")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest3.Answer.1 = ifelse(str_detect(webcamcoverKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest3.Answer.2 = ifelse(str_detect(webcamcoverKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest3.Answer.3 = ifelse(str_detect(webcamcoverKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest3.Answer.4 = ifelse(str_detect(webcamcoverKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest3.Answer.5 = ifelse(str_detect(webcamcoverKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest3.Answer.6 = ifelse(str_detect(webcamcoverKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcoverKnowledgeTest3.Answer.7 = ifelse(str_detect(webcamcoverKnowledgeTest3, the.answer), 1, 0))
# question: webcamcover8UsefulInformation
df.answers.1.question <- filter(df.answers, question.name == "webcamcover8UsefulInformation")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover8UsefulInformation.Answer.1 = ifelse(str_detect(webcamcover8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover8UsefulInformation.Answer.2 = ifelse(str_detect(webcamcover8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover8UsefulInformation.Answer.3 = ifelse(str_detect(webcamcover8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover8UsefulInformation.Answer.4 = ifelse(str_detect(webcamcover8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover8UsefulInformation.Answer.5 = ifelse(str_detect(webcamcover8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover8UsefulInformation.Answer.6 = ifelse(str_detect(webcamcover8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover8UsefulInformation.Answer.7 = ifelse(str_detect(webcamcover8UsefulInformation, the.answer), 1, 0))
# question: webcamcover6bConcerns
df.answers.1.question <- filter(df.answers, question.name == "webcamcover6bConcerns")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover6bConcerns.Answer.1 = ifelse(str_detect(webcamcover6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover6bConcerns.Answer.2 = ifelse(str_detect(webcamcover6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover6bConcerns.Answer.3 = ifelse(str_detect(webcamcover6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover6bConcerns.Answer.4 = ifelse(str_detect(webcamcover6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover6bConcerns.Answer.5 = ifelse(str_detect(webcamcover6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover6bConcerns.Answer.6 = ifelse(str_detect(webcamcover6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
webcamcover6bConcerns.Answer.7 = ifelse(str_detect(webcamcover6bConcerns, the.answer), 1, 0))
# ***** nontrackingSE *****
# question: nontrackingSEKnowledgeTest1
df.answers.1.question <- filter(df.answers, question.name == "nontrackingSEKnowledgeTest1")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.1 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.2 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.3 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.4 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.5 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.6 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.7 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[8,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest1.Answer.8 = ifelse(str_detect(nontrackingSEKnowledgeTest1, the.answer), 1, 0))
# question: nontrackingSEKnowledgeTest2
df.answers.1.question <- filter(df.answers, question.name == "nontrackingSEKnowledgeTest2")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest2.Answer.1 = ifelse(str_detect(nontrackingSEKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest2.Answer.2 = ifelse(str_detect(nontrackingSEKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest2.Answer.3 = ifelse(str_detect(nontrackingSEKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest2.Answer.4 = ifelse(str_detect(nontrackingSEKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest2.Answer.5 = ifelse(str_detect(nontrackingSEKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest2.Answer.6 = ifelse(str_detect(nontrackingSEKnowledgeTest2, the.answer), 1, 0))
# question: nontrackingSEKnowledgeTest3
df.answers.1.question <- filter(df.answers, question.name == "nontrackingSEKnowledgeTest3")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest3.Answer.1 = ifelse(str_detect(nontrackingSEKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest3.Answer.2 = ifelse(str_detect(nontrackingSEKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest3.Answer.3 = ifelse(str_detect(nontrackingSEKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest3.Answer.4 = ifelse(str_detect(nontrackingSEKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest3.Answer.5 = ifelse(str_detect(nontrackingSEKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest3.Answer.6 = ifelse(str_detect(nontrackingSEKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSEKnowledgeTest3.Answer.7 = ifelse(str_detect(nontrackingSEKnowledgeTest3, the.answer), 1, 0))
# question: nontrackingSE8UsefulInformation
df.answers.1.question <- filter(df.answers, question.name == "nontrackingSE8UsefulInformation")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE8UsefulInformation.Answer.1 = ifelse(str_detect(nontrackingSE8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE8UsefulInformation.Answer.2 = ifelse(str_detect(nontrackingSE8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE8UsefulInformation.Answer.3 = ifelse(str_detect(nontrackingSE8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE8UsefulInformation.Answer.4 = ifelse(str_detect(nontrackingSE8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE8UsefulInformation.Answer.5 = ifelse(str_detect(nontrackingSE8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE8UsefulInformation.Answer.6 = ifelse(str_detect(nontrackingSE8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE8UsefulInformation.Answer.7 = ifelse(str_detect(nontrackingSE8UsefulInformation, the.answer), 1, 0))
# question: nontrackingSE6bConcerns
df.answers.1.question <- filter(df.answers, question.name == "nontrackingSE6bConcerns")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE6bConcerns.Answer.1 = ifelse(str_detect(nontrackingSE6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE6bConcerns.Answer.2 = ifelse(str_detect(nontrackingSE6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE6bConcerns.Answer.3 = ifelse(str_detect(nontrackingSE6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE6bConcerns.Answer.4 = ifelse(str_detect(nontrackingSE6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE6bConcerns.Answer.5 = ifelse(str_detect(nontrackingSE6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE6bConcerns.Answer.6 = ifelse(str_detect(nontrackingSE6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
nontrackingSE6bConcerns.Answer.7 = ifelse(str_detect(nontrackingSE6bConcerns, the.answer), 1, 0))
# ***** anonBrowser *****
# question: anonBrowserKnowledgeTest1
df.answers.1.question <- filter(df.answers, question.name == "anonBrowserKnowledgeTest1")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.1 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.2 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.3 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.4 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.5 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.6 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.7 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[8,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest1.Answer.8 = ifelse(str_detect(anonBrowserKnowledgeTest1, the.answer), 1, 0))
# question: anonBrowserKnowledgeTest2
df.answers.1.question <- filter(df.answers, question.name == "anonBrowserKnowledgeTest2")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest2.Answer.1 = ifelse(str_detect(anonBrowserKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest2.Answer.2 = ifelse(str_detect(anonBrowserKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest2.Answer.3 = ifelse(str_detect(anonBrowserKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest2.Answer.4 = ifelse(str_detect(anonBrowserKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest2.Answer.5 = ifelse(str_detect(anonBrowserKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest2.Answer.6 = ifelse(str_detect(anonBrowserKnowledgeTest2, the.answer), 1, 0))
# question: anonBrowserKnowledgeTest3
df.answers.1.question <- filter(df.answers, question.name == "anonBrowserKnowledgeTest3")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest3.Answer.1 = ifelse(str_detect(anonBrowserKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest3.Answer.2 = ifelse(str_detect(anonBrowserKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest3.Answer.3 = ifelse(str_detect(anonBrowserKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest3.Answer.4 = ifelse(str_detect(anonBrowserKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest3.Answer.5 = ifelse(str_detect(anonBrowserKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest3.Answer.6 = ifelse(str_detect(anonBrowserKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowserKnowledgeTest3.Answer.7 = ifelse(str_detect(anonBrowserKnowledgeTest3, the.answer), 1, 0))
# question: anonBrowser8UsefulInformation
df.answers.1.question <- filter(df.answers, question.name == "anonBrowser8UsefulInformation")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser8UsefulInformation.Answer.1 = ifelse(str_detect(anonBrowser8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser8UsefulInformation.Answer.2 = ifelse(str_detect(anonBrowser8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser8UsefulInformation.Answer.3 = ifelse(str_detect(anonBrowser8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser8UsefulInformation.Answer.4 = ifelse(str_detect(anonBrowser8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser8UsefulInformation.Answer.5 = ifelse(str_detect(anonBrowser8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser8UsefulInformation.Answer.6 = ifelse(str_detect(anonBrowser8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser8UsefulInformation.Answer.7 = ifelse(str_detect(anonBrowser8UsefulInformation, the.answer), 1, 0))
# question: anonBrowser6bConcerns
df.answers.1.question <- filter(df.answers, question.name == "anonBrowser6bConcerns")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser6bConcerns.Answer.1 = ifelse(str_detect(anonBrowser6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser6bConcerns.Answer.2 = ifelse(str_detect(anonBrowser6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser6bConcerns.Answer.3 = ifelse(str_detect(anonBrowser6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser6bConcerns.Answer.4 = ifelse(str_detect(anonBrowser6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser6bConcerns.Answer.5 = ifelse(str_detect(anonBrowser6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser6bConcerns.Answer.6 = ifelse(str_detect(anonBrowser6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
anonBrowser6bConcerns.Answer.7 = ifelse(str_detect(anonBrowser6bConcerns, the.answer), 1, 0))
# ***** FaradayBag *****
# question: FaradayBagKnowledgeTest1
df.answers.1.question <- filter(df.answers, question.name == "FaradayBagKnowledgeTest1")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.1 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.2 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.3 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.4 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.5 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.6 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.7 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
the.answer <- df.answers.1.question[8,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest1.Answer.8 = ifelse(str_detect(FaradayBagKnowledgeTest1, the.answer), 1, 0))
# question: FaradayBagKnowledgeTest2
df.answers.1.question <- filter(df.answers, question.name == "FaradayBagKnowledgeTest2")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest2.Answer.1 = ifelse(str_detect(FaradayBagKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest2.Answer.2 = ifelse(str_detect(FaradayBagKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest2.Answer.3 = ifelse(str_detect(FaradayBagKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest2.Answer.4 = ifelse(str_detect(FaradayBagKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest2.Answer.5 = ifelse(str_detect(FaradayBagKnowledgeTest2, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest2.Answer.6 = ifelse(str_detect(FaradayBagKnowledgeTest2, the.answer), 1, 0))
# question: FaradayBagKnowledgeTest3
df.answers.1.question <- filter(df.answers, question.name == "FaradayBagKnowledgeTest3")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest3.Answer.1 = ifelse(str_detect(FaradayBagKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest3.Answer.2 = ifelse(str_detect(FaradayBagKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest3.Answer.3 = ifelse(str_detect(FaradayBagKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest3.Answer.4 = ifelse(str_detect(FaradayBagKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest3.Answer.5 = ifelse(str_detect(FaradayBagKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[6,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest3.Answer.6 = ifelse(str_detect(FaradayBagKnowledgeTest3, the.answer), 1, 0))
the.answer <- df.answers.1.question[7,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBagKnowledgeTest3.Answer.7 = ifelse(str_detect(FaradayBagKnowledgeTest3, the.answer), 1, 0))
# question: FaradayBag8UsefulInformation
df.answers.1.question <- filter(df.answers, question.name == "FaradayBag8UsefulInformation")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag8UsefulInformation.Answer.1 = ifelse(str_detect(FaradayBag8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag8UsefulInformation.Answer.2 = ifelse(str_detect(FaradayBag8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag8UsefulInformation.Answer.3 = ifelse(str_detect(FaradayBag8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag8UsefulInformation.Answer.4 = ifelse(str_detect(FaradayBag8UsefulInformation, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag8UsefulInformation.Answer.5 = ifelse(str_detect(FaradayBag8UsefulInformation, the.answer), 1, 0))
# question: FaradayBag6bConcerns
df.answers.1.question <- filter(df.answers, question.name == "FaradayBag6bConcerns")
the.answer <- df.answers.1.question[1,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag6bConcerns.Answer.1 = ifelse(str_detect(FaradayBag6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[2,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag6bConcerns.Answer.2 = ifelse(str_detect(FaradayBag6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[3,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag6bConcerns.Answer.3 = ifelse(str_detect(FaradayBag6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[4,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag6bConcerns.Answer.4 = ifelse(str_detect(FaradayBag6bConcerns, the.answer), 1, 0))
the.answer <- df.answers.1.question[5,]$answer.short
df.Qualtrics.experimental.data <- mutate(df.Qualtrics.experimental.data,
FaradayBag6bConcerns.Answer.5 = ifelse(str_detect(FaradayBag6bConcerns, the.answer), 1, 0))
write.data.file(df.Qualtrics.experimental.data , "Qualtrics.experimental.data.with.binary.answers.xlsx")