`usHoutiDeal` VARCHAR(200) COLLATE utf8_unicode_ci,
`usSaudiNuclear` VARCHAR(200) COLLATE utf8_unicode_ci,
`trumpRightThingUSIsrael` VARCHAR(200) COLLATE utf8_unicode_ci,
`trumpExpectationsUsIsrael` VARCHAR(200) COLLATE utf8_unicode_ci,
`trumpRightThingIran` VARCHAR(200) COLLATE utf8_unicode_ci,
`trumpRightThingAntisemitism` VARCHAR(200) COLLATE utf8_unicode_ci,
`usSupport` VARCHAR(200) COLLATE utf8_unicode_ci,
`twoStateSolution` VARCHAR(200) COLLATE utf8_unicode_ci,
`jewishActivity` VARCHAR(200) COLLATE utf8_unicode_ci,
`involvementJewish` VARCHAR(200) COLLATE utf8_unicode_ci,
`involvementJewishWant` VARCHAR(200) COLLATE utf8_unicode_ci,
`involvementSocial` VARCHAR(200) COLLATE utf8_unicode_ci,
`involvementSocialWant` VARCHAR(200) COLLATE utf8_unicode_ci,
`futureIsrael` VARCHAR(200) COLLATE utf8_unicode_ci,
`futureUS` VARCHAR(200) COLLATE utf8_unicode_ci,
`futureUSJews` VARCHAR(200) COLLATE utf8_unicode_ci,
`vote2024` VARCHAR(200) COLLATE utf8_unicode_ci,


factors##########

monthly16$trumpRightThingIran <- factor(monthly16$trumpRightThingIran,
levels = c("A lot", "A little", "Not at all", "Don’t know"))

monthly16$iranTalkFail <- factor(monthly16$iranTalkFail,
levels = c("Yes", "No", "Don’t know"))

monthly16$nuclearAgreeementBibi <- factor(monthly16$nuclearAgreeementBibi,
levels = c("I support Netanyahu’s demand for a complete dismantling of Iran’s program", "I agree with the US position that limiting Iran’s enrichment would be good enough", "I don’t know"))

monthly16$trumpRightThingAntisemitism <- factor(monthly16$trumpRightThingAntisemitism,
levels = c("A lot", "A little", "Not at all", "Don’t know"))

monthly16$harvardFrozenFundsTrump <- factor(monthly16$harvardFrozenFundsTrump,
levels = c("I generally agree with the content of the administration’s statement and with the action of freezing funds", "I generally agree with the content of the administration’s statement but disagree with the freezing of funds", "I generally disagree with the content of the administration’s statement and with the freezing of funds", "Don’t know"))

monthly16$harvardFrozenFundsHarvard <- factor(monthly16$harvardFrozenFundsHarvard,
levels = c("I generally agree with the content of Harvard’s statement but oppose the freezing of funds", "I generally agree with the content of Harvard’s statement but don't think it necessitates supplying federal funds to the university", "I generally disagree with the content of Harvard’s statement", "Don’t know"))

monthly16$harvardRestructure <- factor(monthly16$harvardRestructure,
levels = c("Support the demand", "Oppose the demand", "Don’t know"))

monthly16$harvardDiversity <- factor(monthly16$harvardDiversity,
levels = c("Support the demand", "Oppose the demand", "Don’t know"))

monthly16$harvardValues <- factor(monthly16$harvardValues,
levels = c("Support the demand", "Oppose the demand", "Don’t know"))

monthly16$harvardAntisemitics <- factor(monthly16$harvardAntisemitics,
levels = c("Support the demand", "Oppose the demand", "Don’t know"))

monthly16$harvardFuelAntisemitism <- factor(monthly16$harvardFuelAntisemitism,
levels = c("Support the demand", "Oppose the demand", "Don’t know"))

monthly16$harvardDiscipline <- factor(monthly16$harvardDiscipline,
levels = c("Support the demand", "Oppose the demand", "Don’t know"))

monthly16$harvardDEI <- factor(monthly16$harvardDEI,
levels = c("Support the demand", "Oppose the demand", "Don’t know"))

monthly16$usSupport <- factor(monthly16$usSupport,
levels = c("The US supports Israel too much", "The US supports Israel at the right level", "The US doesn’t support Israel enough", "Don’t know"))

monthly16$israelAction <- factor(monthly16$israelAction,
levels = c("Much too aggressive", "A little too aggressive", "At the right level", "Not agggressive enough", "Not sure"))

monthly16$ageMarriage <- factor(monthly16$ageMarriage,
levels = c())

monthly16$ageChildren <- factor(monthly16$ageChildren,
levels = c())

monthly16$ageRetirement <- factor(monthly16$ageRetirement,
levels = c())

monthly16$vote2024 <- factor(monthly16$vote2024,
levels = c("Donald Trump", "Kamala Harris", "Someone else", "Didn’t vote"))

buildSheet(monthly16, trumpRightThingIran)
buildSheet(monthly16, iranTalkFail)
buildSheet(monthly16, nuclearAgreeementBibi)
buildSheet(monthly16, trumpRightThingAntisemitism)
buildSheet(monthly16, harvardFrozenFundsTrump)
buildSheet(monthly16, harvardFrozenFundsHarvard)
buildSheet(monthly16, harvardRestructure)
buildSheet(monthly16, harvardDiversity)
buildSheet(monthly16, harvardValues)
buildSheet(monthly16, harvardAntisemitics)
buildSheet(monthly16, harvardFuelAntisemitism)
buildSheet(monthly16, harvardDiscipline)
buildSheet(monthly16, harvardDEI)
buildSheet(monthly16, usSupport)
buildSheet(monthly16, israelAction)
buildSheet(monthly16, ageMarriage)
buildSheet(monthly16, ageChildren)
buildSheet(monthly16, ageRetirement)
buildSheet(monthly16, vote2024)
names = c(