g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_bit_christian-values_temp.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: CHRISTIAN VALUES BIT *****/ /***** Last Update: 03 December 2022 *****/ /***** *****/ /***** *****/ /***** The following programs invoke this routine: *****/ /***** 1. subroutine_relig_frame.do *****/ /***** 2. subroutine_values_frame.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte relig_christ_sub_values = 0; label var relig_christ_sub_values "Christian Values"; replace relig_christ_sub_values = 1 if /*Matthew 5:3-11*/ strpos(dummy_text,"poor in spirit") | strpos(dummy_text,"they that mourn") | strpos(dummy_text," meek") | strpos(dummy_text,"hunger and thirst after righteousness") | strpos(dummy_text,"hunger and thirst for righteousness") | strpos(dummy_text,"merciful") | strpos(dummy_text,"have mercy") | strpos(dummy_text,"show mercy") | strpos(dummy_text,"pure in heart") | strpos(dummy_text,"peacemaker") | strpos(dummy_text,"persecuted for righteousness") | /*Galatians 5:22-23*/ strpos(dummy_text," love") | strpos(dummy_text," love your enemies") | strpos(dummy_text," joy") | strpos(dummy_text,"joy comes in the morning") | strpos(dummy_text,"joy in the morning") | strpos(dummy_text," peace") | strpos(dummy_text," longsuffering") | strpos(dummy_text," patience") | strpos(dummy_text," gentle") | strpos(dummy_text," goodness") | strpos(dummy_text,"do good") | strpos(dummy_text,"good person") | strpos(dummy_text,"good man") | strpos(dummy_text,"good woman") | strpos(dummy_text,"good works") | strpos(dummy_text," faith") | strpos(dummy_text," temperance") ; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_bit_relig_creationism_temp.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DUMMY VARIABLE FOR CREATION *****/ /***** Last Update: 05 February 2022 *****/ /***** *****/ /***** *****/ /***** This subroutine is executed as part of the following: *****/ /***** 1. subroutine_fringe_frame.do *****/ /***** 2. subroutine_relig_frame.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte relig_christ_sub_prot_c1 = 0; label var relig_christ_sub_prot_c1 "Creationist Bit"; replace relig_christ_sub_prot_c1 = 1 if strpos(dummy_text,"creationism") | strpos(dummy_text,"creationist") | strpos(dummy_text,"intelligent design") | strpos(dummy_text,"young earth"); g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_bit_spiritual-warfare_temp.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: SPIRITUAL WARFARE BIT *****/ /***** Last Update: 13 December 2022 *****/ /***** *****/ /***** *****/ /***** This subroutine is executed in the following subroutines: *****/ /***** 1. subroutine_bit_christian-right.do *****/ /***** 2. subroutine_frame_military.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte relig_christ_sub_right_a = 0; label var relig_christ_sub_right_a "Spiritual Warfare & Christian Militarism Nano"; replace relig_christ_sub_right_a = 1 if /*ii corinthians 10:3-5*/ (strpos(dummy_text,"the weapons of our warfare") & (strpos(dummy_text,"not carnal") | strpos(dummy_text,"mighty"))) | (strpos(dummy_text,"pull down") & (strpos(dummy_text,"strongholds") | strpos(dummy_text,"strong holds"))) | /*ephesians 6:10-17*/ strpos(dummy_text,"be strong in the lord") | strpos(dummy_text,"armor of god") | strpos(dummy_text,"armour of god") | strpos(dummy_text,"gods armor") | strpos(dummy_text,"gods armour") | strpos(dummy_text,"wrestle not against flesh and blood") | (strpos(dummy_text,"wrestle") & (strpos(dummy_text,"principalities") | strpos(dummy_text,"powers"))) | (strpos(dummy_text," loin") & strpos(dummy_text,"truth")) | strpos(dummy_text,"belt of truth") | strpos(dummy_text,"breastplate of righteousness") | (strpos(dummy_text, "feet") & strpos(dummy_text,"gospel of peace")) | strpos(dummy_text,"shield of faith") | strpos(dummy_text,"helmet of salvation") | strpos(dummy_text,"sword of the spirit") | /*army*/ strpos(dummy_text,"army of god") | strpos(dummy_text,"army of the lord") | strpos(dummy_text,"black robed regiment") | strpos(dummy_text,"blackrobed regiment") | strpos(dummy_text,"camp elah") | strpos(dummy_text,"generation of davids") | strpos(dummy_text,"generations of davids") | strpos(dummy_text,"gods army") | strpos(dummy_text,"lords army") | /*fortress*/ (strpos(dummy_text,"fortress") & (strpos(dummy_text,"god") | strpos(dummy_text,"almighty"))) | strpos(dummy_text,"mighty fortress") | strpos(dummy_text," stronghold") | strpos(dummy_text,"strong hold") | /*warfare and conflict*/ strpos(dummy_text,"battle is the lords") | strpos(dummy_text,"battle belongs to god") | strpos(dummy_text,"battle belongs to you") | strpos(dummy_text,"battle belongs to the lord") | strpos(dummy_text,"battle between good and evil") | ((strpos(dummy_text,"battle") | strpos(dummy_text,"fight") | (strpos(dummy_text," war") & strpos(dummy_text,"more war") == 0)) & (strpos(dummy_text,"christ") | strpos(dummy_text,"church") | strpos(dummy_text,"god") | strpos(dummy_text,"jesus") | strpos(dummy_text,"lord") | strpos(dummy_text,"spiritual"))) | strpos(dummy_text,"christian soldier") | strpos(dummy_text,"soldier of christ") | strpos(dummy_text,"soldiers of christ") | strpos(dummy_text,"christian warfare") | strpos(dummy_text,"christian warrior") | (strpos(dummy_text,"warrior") & (strpos(dummy_text,"christ") | strpos(dummy_text,"god") | strpos(dummy_text,"jesus") | strpos(dummy_text,"yeshua"))) | strpos(dummy_text,"church militant") | strpos(dummy_text,"militant church") | strpos(dummy_text,"enemies of god") | strpos(dummy_text,"gods enemies") | strpos(dummy_text,"fight the good fight") | strpos(dummy_text,"god is my strength") | strpos(dummy_text,"god is our strength") | strpos(dummy_text,"god wins") | strpos(dummy_text,"god won") | strpos(dummy_text,"gods battle") | strpos(dummy_text,"gods war") | strpos(dummy_text,"holy war") | strpos(dummy_text,"jesus wins") | strpos(dummy_text,"im gonna see a victory") | strpos(dummy_text,"more than conquerors") | strpos(dummy_text,"praise is a weapon") | strpos(dummy_text,"prayer warrior") | strpos(dummy_text,"religious war") | strpos(dummy_text,"spiritual battle") | strpos(dummy_text,"spiritual combat") | strpos(dummy_text,"spiritual war") | strpos(dummy_text,"spiritual warfare") | (strpos(dummy_text,"stand against") & strpos(dummy_text,"devil")) | ((strpos(dummy_text,"victory") | strpos(dummy_text,"victorious")) & (strpos(dummy_text,"christ") | strpos(dummy_text,"god") | strpos(dummy_text,"jesus") | strpos(dummy_text,"the lord") | strpos(dummy_text,"spirit"))) | strpos(dummy_text,"victory in jesus") | strpos(dummy_text,"war on the saints") | /*other*/ (strpos(dummy_text,"david") & strpos(dummy_text,"goliath")) | strpos(dummy_text,"god on our side") | strpos(dummy_text,"jericho march") | strpos(dummy_text,"lion of judah") | strpos(dummy_text,"lion of the tribe of judah") | strpos(dummy_text,"rod of iron") | strpos(dummy_text," shofar") | strpos(dummy_text,"spiritual mapping") | strpos(dummy_text,"we know how the story ends") ; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_combo_pvd_partial.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: POTENTIALLY VIOLENT DISCOURSE *****/ /***** Last Update: 29 April 2024 *****/ /***** *****/ /***** *****/ /***** This program requires the following outside data set: *****/ /***** bit_christian-right_{filedate}.dta *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte pvd_combo = 0; label var pvd_combo "Potentially Violent Discourse"; replace pvd_combo = 1 if military_frame | qanon_frame | values_toxic_sub; generate relig_pvd_int = relig_frame * pvd; label var relig_pvd_int "Religious PVD"; generate relig_military_int = relig_frame * military_frame; label var relig_military_int "Religion / Military Interaction"; generate relig_qanon_int = relig_frame * qanon_frame; label var relig_military_int "Religion / QAnon Interaction"; generate relig_toxic_int = relig_frame * values_toxic_sub; label var relig_military_int "Religion / Toxicity Interaction"; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_combo_sexcrime_partial.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: QANON / SEX CRIMES CALCULATION *****/ /***** Attributed Date: 28 Decemeber 2023 *****/ /***** Last Update: 29 April 2024 *****/ /***** *****/ /***** *****/ /***** This program requires the following outside data set: *****/ /***** bit_christian-right_{filedate}.dta *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate sexcrime_combo = pubsafety_crime_sub_sex | qanon_core_sub; label var sexcrime_combo "Sex Crime Combo"; generate sexcrime_type = 9; label var sexcrime_type "Sex Crime Typology"; replace sexcrime_type = 1 if qanon_core_sub; replace sexcrime_type = 2 if qanon_frame & pubsafety_crime_sub_sex & sexcrime_type == 9; replace sexcrime_type = 3 if st_qanon & pubsafety_crime_sub_sex & sexcrime_type == 9; replace sexcrime_type = 4 if pubsafety_crime_sub_sex & sexcrime_type == 9; label define sexcrime 1 "QAnon Core" 2 "QAnon Frame Sex Crimes" 3 "QAnon Comm Sex Crimes" 4 "Non-QAnon Sex Crimes" 9 "Not Sex Crime"; label values sexcrime_type sexcrime; generate sexqanoncore_int = 0; label var sexqanoncore_int "QAnon Core"; replace sexqanoncore_int = 1 if sexcrime_type == 1; generate sexqanonframe_int = 0; label var sexqanonframe_int "QAnon Frame Sex Crimes"; replace sexqanonframe_int = 1 if sexcrime_type == 2; generate sexqanoncomm_int = 0; label var sexqanoncomm_int "QAnon Forum Sex Crimes"; replace sexqanoncomm_int = 1 if sexcrime_type == 3; generate sexother_int = 0; label var sexother_int "Other Sex Crimes"; replace sexother_int = 1 if sexcrime_type == 4; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_antisemitism.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: CODE ANTISEMITISM FRAME *****/ /***** Attributed Original Date: 07 October 2023 *****/ /***** Last Update: 23 June 2024 *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** Jewish Identification **********/ /***** Calculations *****/ /* general terminology */ egen w_jew = noccurlong(dummy_text), string(" jew "); egen w_jews = noccurlong(dummy_text), string(" jews "); egen w_jewish = noccurlong(dummy_text), string(" jewish"); egen w_jewess = noccurlong(dummy_text), string(" jewess"); egen w_jewry = noccurlong(dummy_text), string(" jewry"); egen w_judaism = noccurlong(dummy_text), string("judaism"); /* other identifiers */ egen w_ashkenazi = noccurlong(dummy_text), string("ashkenazi"); egen w_israelite = noccurlong(dummy_text), string("israelite"); egen w_zionist = noccurlong(dummy_text), string(" zionist"); generate temp_judaism_w = 0; /***** Tally *****/ foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace temp_judaism_w = temp_judaism_w + `var'; }; replace temp_judaism_w = wordcount if temp_judaism_w > wordcount; generate indicator_judaism_w = 0; replace indicator_judaism_w = 1 if temp_judaism_w > 0; drop w_*; /********** Antisemitism Coding **********/ /* Antisemitism / General Antisemitic Language */ egen w_kanye = noccurlong(dummy_text) if temp_judaism_w, string("kanye"); egen w_antisemit = noccurlong(dummy_text), string(" antisemit"); egen w_fight_the_jew = noccurlong(dummy_text), string("fight the jew"); egen w_from_river_to_sea = noccurlong(dummy_text), string("from the river to the sea"); egen w_goyim_defense_league = noccurlong(dummy_text), string("goyim defense league"); egen w_jew_hate = noccurlong(dummy_text), string("jew hate"); egen w_jew_lies = noccurlong(dummy_text), string("jew lies"); egen w_jew_logic = noccurlong(dummy_text), string("jew logic"); egen w_jewless = noccurlong(dummy_text), string(" jewless"); egen w_jewish_question = noccurlong(dummy_text), string("jewish question"); egen w_jq = noccurlong(dummy_text), string(" jq "); egen w_jewish_race = noccurlong(dummy_text), string("jewish race"); egen w_jews_will_not_replace_us = noccurlong(dummy_text), string("jews will not replace us"); egen w_semit = noccurlong(dummy_text), string(" semit"); egen w_u_jew = noccurlong(dummy_text), string("u jew"); egen w_you_jew = noccurlong(dummy_text), string("you jew"); /***** Blood Libel and Satanism *****/ /*qualified string*/ egen w_blood_sacrifice = noccurlong(dummy_text) if temp_judaism_w, string("blood sacrifice"); egen w_cannibal = noccurlong(dummy_text) if temp_judaism_w, string("cannibal"); egen w_child_sacrifice = noccurlong(dummy_text) if temp_judaism_w, string("child sacrifice"); egen w_devil = noccurlong(dummy_text) if temp_judaism_w, string(" devil"); egen w_lucifer = noccurlong(dummy_text) if temp_judaism_w, string("lucifer"); egen w_paedophil = noccurlong(dummy_text) if temp_judaism_w, string(" paedophil"); egen w_paedo = noccurlong(dummy_text) if temp_judaism_w, string(" paedo "); egen w_paedos = noccurlong(dummy_text) if temp_judaism_w, string(" paedos "); egen w_pedophil = noccurlong(dummy_text) if temp_judaism_w, string(" pedophil"); egen w_pedo = noccurlong(dummy_text) if temp_judaism_w, string(" pedo "); egen w_pedos = noccurlong(dummy_text) if temp_judaism_w, string(" pedos "); egen w_satan = noccurlong(dummy_text) if temp_judaism_w, string(" satan"); /*unqualified string*/ egen w_blood_libel = noccurlong(dummy_text), string("blood libel"); /***** Conspiracy Words *****/ /*qualified string*/ egen w_cabal = noccurlong(dummy_text) if temp_judaism_w, string(" cabal"); egen w_conspir = noccurlong(dummy_text) if temp_judaism_w, string(" conspir"); egen w_covid = noccurlong(dummy_text) if temp_judaism_w, string("covid"); egen w_jewish_infiltration = noccurlong(dummy_text) if temp_judaism_w, string("jewish infiltration"); egen w_new_world_order = noccurlong(dummy_text) if temp_judaism_w, string("new world order"); egen w_nwo = noccurlong(dummy_text) if temp_judaism_w, string(" nwo "); egen w_plot = noccurlong(dummy_text) if temp_judaism_w, string(" plot"); egen w_poison = noccurlong(dummy_text) if temp_judaism_w, string(" poison"); egen w_protocols = noccurlong(dummy_text) if temp_judaism_w, string(" protocols"); egen w_rothschild = noccurlong(dummy_text) if temp_judaism_w, string(" rothschild"); egen w_scare_tactic = noccurlong(dummy_text) if temp_judaism_w, string("scare tactic"); egen w_scheme = noccurlong(dummy_text) if temp_judaism_w, string(" scheme"); egen w_trick = noccurlong(dummy_text) if temp_judaism_w, string(" trick"); egen w_vaccin = noccurlong(dummy_text) if temp_judaism_w, string(" vaccin"); /***** Economic and political power *****/ /* qualified strings */ egen w_bank = noccurlong(dummy_text) if temp_judaism_w, string(" bank"); egen w_bureaucrat = noccurlong(dummy_text) if temp_judaism_w, string("bureaucrat"); egen w_control = noccurlong(dummy_text) if temp_judaism_w, string(" control"); egen w_department_store = noccurlong(dummy_text) if temp_judaism_w, string("department store"); egen w_elite = noccurlong(dummy_text) if temp_judaism_w, string(" elite"); egen w_financ = noccurlong(dummy_text) if temp_judaism_w, string(" financ"); egen w_fur = noccurlong(dummy_text) if temp_judaism_w, string(" hollywood"); egen w_hollywood = noccurlong(dummy_text) if temp_judaism_w, string(" fur "); egen w_jew_boss = noccurlong(dummy_text), string("jew boss"); egen w_rich_jew = noccurlong(dummy_text), string("rich jew"); egen w_lawyer = noccurlong(dummy_text) if temp_judaism_w, string(" lawyer"); egen w_media = noccurlong(dummy_text) if temp_judaism_w, string(" media"); egen w_mogul = noccurlong(dummy_text) if temp_judaism_w, string(" mogul"); egen w_money = noccurlong(dummy_text) if temp_judaism_w, string(" money"); /*includes money changer*/ egen w_monopol = noccurlong(dummy_text) if temp_judaism_w, string("monopol"); egen w_mossad = noccurlong(dummy_text) if temp_judaism_w, string(" mossad"); egen w_overlord = noccurlong(dummy_text) if temp_judaism_w, string("overlord"); egen w_power = noccurlong(dummy_text) if temp_judaism_w, string(" power"); egen w_run_the_world = noccurlong(dummy_text) if temp_judaism_w, string("run the world"); egen w_shekel = noccurlong(dummy_text) if temp_judaism_w, string(" shekel"); egen w_shill = noccurlong(dummy_text) if temp_judaism_w, string(" shill"); egen w_supremac = noccurlong(dummy_text) if temp_judaism_w, string("supremac"); /* unqualified strings */ egen w_dirty_jew = noccurlong(dummy_text), string("dirty jew"); egen w_jew_america = noccurlong(dummy_text), string("jew america"); egen w_jewamerica = noccurlong(dummy_text), string("jewamerica"); egen w_jewmerica = noccurlong(dummy_text), string("jewmerica"); egen w_jew_master = noccurlong(dummy_text), string("jew master"); egen w_jew_owner = noccurlong(dummy_text), string("jew owner"); egen w_jew_town = noccurlong(dummy_text), string("jew town"); egen w_jew_york = noccurlong(dummy_text), string("jew york"); egen w_zionist_occupatiow_government = noccurlong(dummy_text), string("zionist occupation government"); egen w_zog = noccurlong(dummy_text), string(" zog"); /***** Holocaust *****/ egen w_holocaust_cartoon = noccurlong(dummy_text), string("holocaust cartoon"); egen w_holocaust_did_not_happen = noccurlong(dummy_text), string("holocaust did not happen"); egen w_holocaust_didn't happen = noccurlong(dummy_text), string("holocaust didnt happen"); egen w_pogrom = noccurlong(dummy_text), string(" pogrom"); egen w_six_million_gorillion = noccurlong(dummy_text), string("six million gorillion"); egen w_6_million_gorillion = noccurlong(dummy_text), string("6 million gorillion"); egen w_six_million_not_enough = noccurlong(dummy_text), string("six million wasnt enough"); egen w_6_million_not_enough = noccurlong(dummy_text), string("6 million wasnt enough"); egen w_6mwe = noccurlong(dummy_text), string("6mwe"); /***** Marxist and Socialist Language *****/ egen w_bolshevi = noccurlong(dummy_text) if temp_judaism_w, string("bolshevi"); egen w_bourgeois = noccurlong(dummy_text) if temp_judaism_w, string(" bourgeois"); egen w_commissar = noccurlong(dummy_text) if temp_judaism_w, string("commissar"); egen w_communis = noccurlong(dummy_text) if temp_judaism_w, string("communis"); egen w_commie = noccurlong(dummy_text) if temp_judaism_w, string(" commie"); egen w_fascis = noccurlong(dummy_text) if temp_judaism_w, string(" fascis"); egen w_foreign_jew = noccurlong(dummy_text), string("foreign jew"); egen w_jewish_revolution = noccurlong(dummy_text), string("jewish revolution"); egen w_leftis = noccurlong(dummy_text) if temp_judaism_w, string(" leftis"); egen w_lenin = noccurlong(dummy_text) if temp_judaism_w, string(" lenin"); egen w_marx = noccurlong(dummy_text) if temp_judaism_w, string(" marx"); egen w_socialism = noccurlong(dummy_text) if temp_judaism_w, string("socialism"); egen w_socialist = noccurlong(dummy_text) if temp_judaism_w, string("socialist"); egen w_trotsky = noccurlong(dummy_text) if temp_judaism_w, string(" trotsky"); /***** Negative Images and Slurs *****/ egen w_bitch = noccurlong(dummy_text) if temp_judaism_w, string(" bitch"); egen w_chameleon = noccurlong(dummy_text) if temp_judaism_w, string("chameleon"); egen w_crooked_nose = noccurlong(dummy_text) if temp_judaism_w, string("crooked nose"); egen w_hooked_nose = noccurlong(dummy_text), string("hooked nose"); egen w_jew_boy = noccurlong(dummy_text), string("jew boy"); egen w_jew_nose = noccurlong(dummy_text), string("jew nose"); egen w_jewish_bugbear = noccurlong(dummy_text), string("jewish bugbear"); egen w_jewish_crime = noccurlong(dummy_text), string("jewish crime"); egen w_kike = noccurlong(dummy_text) if temp_judaism_w, string(" kike"); egen w_lizard = noccurlong(dummy_text) if temp_judaism_w, string(" lizard"); egen w_pissrael = noccurlong(dummy_text), string("pissrael"); egen w_reptil = noccurlong(dummy_text) if temp_judaism_w, string(" reptil"); egen w_vampir = noccurlong(dummy_text) if temp_judaism_w, string(" vampir"); egen w_world_jew = noccurlong(dummy_text), string("world jew"); egen w_edom = noccurlong(dummy_text), string(" edom"); egen w_golem = noccurlong(dummy_text), string(" golem"); egen w_liesofkikes = noccurlong(dummy_text), string("liesofkikes"); /********** Final **********/ generate antisemitism_frame_w = 0; label var antisemitism_frame_w "Antisemitism Frame # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace antisemitism_frame_w = antisemitism_frame_w + `var'; }; *drop w_*; generate byte antisemitism_frame = 0; label var antisemitism_frame "Antisemitism Frame"; replace antisemitism_frame = 1 if antisemitism_frame_w > 0; replace antisemitism_frame_w = wordcount if antisemitism_frame_w > wordcount; keep source yearmonth yearmonthno antisemitism_frame_w antisemitism_frame; save "${framesdir}frame_antisemitism_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_disorder.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DISORDER FRAME *****/ /***** Original Date: 22 August 2023 *****/ /***** Last Update: 25 June 2024 *****/ /***** *****/ /***** *****/ /***** This program incorporates the following data set: *****/ /***** ${outputdir}frame_military_${filedate}.dta *****/ /***** *****/ /***** This program invokes the following routine: *****/ /***** subroutine_bit_christian-dysfunc_temp.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_disorder_aggress_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_disorder_accel_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_disorder_chaos_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_disorder_crime_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_disorder_harm_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_disorder_militarism_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_disorder_toxic_${filedate}_${timeperiod}.dta"; /********** Evil **********/ egen w_abhorrent = noccurlong(dummy_text), string("abhorrent"); egen w_abominable = noccurlong(dummy_text), string("abominable"); egen w_amoral = noccurlong(dummy_text), string("amoral"); egen w_atrocious = noccurlong(dummy_text), string("Atrocious"); egen w_avaricious = noccurlong(dummy_text), string("avaricious"); egen w_corrupt = noccurlong(dummy_text), string("corrupt"); egen w_dark_heart = noccurlong(dummy_text), string("dark hearted"); egen w_dastardly = noccurlong(dummy_text), string("dastardly"); egen w_demoniac = noccurlong(dummy_text), string(" demoniac"); egen w_demonic = noccurlong(dummy_text), string(" demonic"); egen w_demonpossessed = noccurlong(dummy_text), string("demon possessed"); egen w_possessedwithademon = noccurlong(dummy_text), string("possessed with a demon"); egen w_depraved = noccurlong(dummy_text), string("depraved"); egen w_despicable = noccurlong(dummy_text), string("despicable"); egen w_detestable = noccurlong(dummy_text), string("detestable"); egen w_devil = noccurlong(dummy_text), string(" devil"); if strpos(dummy_text," not evil") == 0 { ; egen w_evil = noccurlong(dummy_text), string(" evil"); } ; egen w_devious = noccurlong(dummy_text), string("devious"); egen w_diabolical = noccurlong(dummy_text), string("diabolical"); egen w_heinous = noccurlong(dummy_text), string(" heinous"); egen w_heretical = noccurlong(dummy_text), string("heretical"); egen w_illicit = noccurlong(dummy_text), string("illicit"); egen w_immoral = noccurlong(dummy_text), string("immoral"); egen w_impious = noccurlong(dummy_text), string("impious"); egen w_inhuman = noccurlong(dummy_text), string("inhuman"); egen w_loathsome = noccurlong(dummy_text), string("loathsome"); egen w_malefic = noccurlong(dummy_text), string("malefic"); egen w_malevolent = noccurlong(dummy_text), string("malevolent"); egen w_malicious = noccurlong(dummy_text), string("malicious"); egen w_malignant = noccurlong(dummy_text), string("malignant"); egen w_mephistophelian = noccurlong(dummy_text), string("mephistophelian"); egen w_misanthropic = noccurlong(dummy_text), string("misanthropic"); egen w_nefarious = noccurlong(dummy_text), string(" nefarious"); egen w_odious = noccurlong(dummy_text), string("odious"); egen w_perfidious = noccurlong(dummy_text), string("perfidious"); egen w_reprehensible = noccurlong(dummy_text), string("reprehensible"); egen w_repugnant = noccurlong(dummy_text), string("repugnant"); egen w_satan = noccurlong(dummy_text), string(" satan"); egen w_sinful = noccurlong(dummy_text), string("sinful"); egen w_sinister = noccurlong(dummy_text), string("sinister"); egen w_twisted = noccurlong(dummy_text), string("twisted"); egen w_unblessed = noccurlong(dummy_text), string("unblessed"); egen w_unconsecrated = noccurlong(dummy_text), string("unconsecrated"); egen w_unforgiv = noccurlong(dummy_text), string("unforgiv"); egen w_unhallowed = noccurlong(dummy_text), string("unhallowed"); egen w_unjust = noccurlong(dummy_text), string("unjust"); egen w_unmoral = noccurlong(dummy_text), string("unmoral"); egen w_unpardonable = noccurlong(dummy_text), string("unpardonable"); egen w_unprincipled = noccurlong(dummy_text), string("unprincipled"); egen w_unredeemed = noccurlong(dummy_text), string("unredeemed"); egen w_unregenerate = noccurlong(dummy_text), string("unregenerate"); egen w_unrighteous = noccurlong(dummy_text), string("unrighteous"); egen w_unsanctified = noccurlong(dummy_text), string("unsanctified"); egen w_unsaved = noccurlong(dummy_text), string("unsaved"); egen w_unscrupulous = noccurlong(dummy_text), string("unscrupulous"); egen w_unvirtuous = noccurlong(dummy_text), string("unvirtuous"); egen w_villain = noccurlong(dummy_text), string(" villain"); egen w_wicked = noccurlong(dummy_text), string(" wicked"); generate byte disorder_evil_sub_w = 0; label var disorder_evil_sub_w "Evil # Thematic Words"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_evil_sub_w = disorder_evil_sub_w + `var'; } ; generate byte disorder_evil_sub = 0; label var disorder_evil_sub "Evil"; replace disorder_evil_sub = 1 if disorder_evil_sub_w > 0; drop w_*; replace disorder_evil_sub_w = wordcount if disorder_evil_sub_w > wordcount; /********* Violence Combo **********/ generate long disorder_violence_combo_w = disorder_harm_sub_w + disorder_militarism_sub_w + disorder_crime_sub_w; label var disorder_violence_combo_w "Violence Combo # Words"; if disorder_aggress_sub_w > 0 { ; replace disorder_violence_combo_w = disorder_violence_combo_w + disorder_aggress_sub_w if disorder_violence_combo_w > 0; replace disorder_aggress_sub_w = 0; replace disorder_aggress_sub = 0; } ; replace disorder_violence_combo_w = wordcount if disorder_violence_combo_w > wordcount; generate byte disorder_violence_combo = 0; label var disorder_violence_combo "Violence Indicator"; replace disorder_violence_combo = 1 if disorder_violence_combo_w > 0; /********* Final Totals **********/ generate long disorder_frame_w = disorder_accel_sub_w + disorder_aggress_sub_w + disorder_chaos_sub_w + disorder_crime_sub_w + disorder_evil_sub_w + disorder_harm_sub_w + disorder_militarism_sub_w + disorder_toxic_sub_w; label var disorder_frame_w "Disorder Frame # Words"; replace disorder_frame_w = wordcount if disorder_frame_w > wordcount; generate byte disorder_frame = 0; label var disorder_frame "Disorder Frame Indicator"; replace disorder_frame = 1 if disorder_frame_w > 0; keep source yearmonth yearmonthno disorder_frame disorder_frame_w disorder_accel_sub disorder_accel_sub_w disorder_aggress_sub disorder_aggress_sub_w disorder_chaos_sub disorder_chaos_sub_w disorder_crime_sub disorder_crime_sub_w disorder_evil_sub disorder_evil_sub_w disorder_harm_sub disorder_harm_sub_w disorder_militarism_sub disorder_militarism_sub_w disorder_toxic_sub disorder_toxic_sub_w disorder_toxic_sub_incel disorder_toxic_sub_incel_w disorder_toxic_sub_gend disorder_toxic_sub_gend_w disorder_toxic_sub_nongend disorder_toxic_sub_nongend_w disorder_violence_combo disorder_violence_combo_w; order source yearmonth yearmonthno disorder_frame disorder_frame_w disorder_accel_sub disorder_accel_sub_w disorder_aggress_sub disorder_aggress_sub_w disorder_chaos_sub disorder_chaos_sub_w disorder_crime_sub disorder_crime_sub_w disorder_evil_sub disorder_evil_sub_w disorder_harm_sub disorder_harm_sub_w disorder_militarism_sub disorder_militarism_sub_w disorder_toxic_sub disorder_toxic_sub_w disorder_toxic_sub_incel disorder_toxic_sub_incel_w disorder_toxic_sub_gend disorder_toxic_sub_gend_w disorder_toxic_sub_nongend disorder_toxic_sub_nongend_w disorder_violence_combo disorder_violence_combo_w; save "${framesdir}frame_disorder_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_diversity.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: CULTURAL DIVERSITY *****/ /***** Last Update: 02 August 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; generate diversity_train_sub = 0; label var diversity_train_sub "Diversity Subframe"; replace diversity_train_sub = 1 if strpos(dummy_text,"cultural competence") | strpos(dummy_text,"diversity training") | strpos(dummy_text,"racial training") | strpos(dummy_text,"sensitivity training"); generate byte diversity_war_sub = 0; label var diversity_war_sub "Culture War Bit"; replace diversity_war_sub= 1 if strpos(dummy_text,"cancel culture") | strpos(dummy_text,"charles coughlin") | strpos(dummy_text,"father coughlin") | strpos(dummy_text,"culture war") | strpos(dummy_text,"cultural marxism") | strpos(dummy_text,"mccarthyism") | strpos(dummy_text,"joseph mccarthy") | strpos(dummy_text,"joe mccarthy") | strpos(dummy_text,"red scare") | strpos(dummy_text,"virtue signal") | strpos(dummy_text,"war against christmas") ; generate byte diversity_crtblm_sub = 0; label var diversity_crtblm_sub "CRT/BLM Battlegrounds"; replace diversity_crtblm_sub = 1 if strpos(dummy_text,"1619 project") | strpos(dummy_text,"critical race theory") | strpos(dummy_text," crt ") | strpos(dummy_text,"black lives matter") | strpos(dummy_text," blm ") | strpos(dummy_text,"microaggression") | strpos(dummy_text,"white privilege") | (strpos(dummy_text,"school board") & (strpos(dummy_text," pedo") | strpos(dummy_text,"child abuse"))) | strpos(dummy_text,"arbery") | strpos(dummy_text,"kyle rittenhouse" ) | (strpos(dummy_text,"rittenhouse") & (strpos(dummy_text,"trial") | strpos(dummy_text,"kenosha"))) ; generate diversity_frame = 0; label var diversity_frame "Diversity Frame"; replace diversity_frame = 1 if diversity_train_sub | diversity_war_sub | diversity_crtblm_sub ; keep source yearmonth yearmonthno diversity_*; save "${framesdir}frame_diversity_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_economic.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE ECONOMIC FRAME *****/ /***** Last Update: 29 October 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /*********************************************************************************/ /*********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** General references **********/ generate byte economic_gref_sub = 0; label var economic_gref_sub "General Economic References Subframe"; replace economic_gref_sub = 1 if /*general terms*/ strpos(dummy_text,"cost of") | strpos(dummy_text," econom") | strpos(dummy_text, "business") | strpos(dummy_text,"employment") | strpos(dummy_text,"price of") | strpos(dummy_text," prices") | strpos(dummy_text," trade") | /*currencies*/ strpos(dummy_text,"british pound") | strpos(dummy_text," dollar") | strpos(dummy_text," peso") | strpos(dummy_text," ruble") ; /********** Finance, banking, and investment subframe **********/ generate byte economic_finance_sub = 0; label var economic_finance_sub "Finance, Banking, & Investment Subframe"; replace economic_finance_sub = 1 if /*banking and finance*/ strpos(dummy_text," bank") | (strpos(dummy_text,"bank account") & strpos(dummy_text,"frozen")) | strpos(dummy_text,"basel iii") | strpos(dummy_text,"brokerage") | strpos(dummy_text,"central bank") | ((strpos(dummy_text," coin") | strpos(dummy_text,"currency")) & (strpos(dummy_text,"invest") | strpos(dummy_text,"money") | strpos(dummy_text,"profit") | strpos(dummy_text,"value"))) | strpos(dummy_text," financ") | strpos(dummy_text,"liquidity") | strpos(dummy_text," money") | /*companies*/ strpos(dummy_text,"bank of america") | strpos(dummy_text," cibc ") | strpos(dummy_text,"fortis") | strpos(dummy_text,"merrill lynch") | strpos(dummy_text,"morgan stanley") | strpos(dummy_text,"wachovia") | strpos(dummy_text,"wells fargo") | /*exchanges*/ strpos(dummy_text,"stock exchange") | strpos(dummy_text," ftse ") | strpos(dummy_text," nyse") | /*market economy*/ strpos(dummy_text,"capitalis") | strpos(dummy_text," market ") | strpos(dummy_text," markets ") | /*market indices*/ strpos(dummy_text,"dow jones") | strpos(dummy_text,"forbes 500") | strpos(dummy_text," nasdaq") | strpos(dummy_text," stock index") | strpos(dummy_text,"stock indices") | /*market instruments*/ strpos(dummy_text,"fund manager") | strpos(dummy_text,"hedge funds") | /*meme stock*/ strpos(dummy_text,"meme stock") | strpos(dummy_text," amc ") | strpos(dummy_text," gamestop") | /*quantum banking system*/ (strpos(dummy_text,"quantum") & (strpos(dummy_text,"bank") | strpos(dummy_text,"finance") | strpos(dummy_text,"invest"))) | strpos(dummy_text,"quantumbank") | strpos(dummy_text,"bounty seeker") | strpos(dummy_text,"bountyseeker") ; /********** Credit and debt subframe **********/ generate byte economic_debt_sub_cancel= 0; label var economic_debt_sub_cancel "Debt Cancellataion Bit"; replace economic_debt_sub_cancel = 1 if strpos(dummy_text,"debt cancel") | strpos(dummy_text,"debts cancel") | strpos(dummy_text,"fiscal irresponsibility") | strpos(dummy_text,"jubilee") | strpos(dummy_text,"nesara") | strpos(dummy_text,"gesara"); generate byte economic_debt_sub_intlbank = 0; label var economic_debt_sub_intlbank "International Financial Institutions Bit"; replace economic_debt_sub_intlbank = 1 if strpos(dummy_text,"international monetary fund") | strpos(dummy_text,"world bank"); generate byte economic_debt_sub = 0; label var economic_debt_sub "Economic Debt Subframe"; replace economic_debt_sub = 1 if strpos(dummy_text," credit") | strpos(dummy_text," debt") | strpos(dummy_text,"interest rate") | strpos(dummy_text," loan") | strpos(dummy_text," mortgage") | economic_debt_sub_cancel | economic_debt_sub_intlbank; /********** Commodities subframe **********/ generate byte economic_commodities_sub = 0; label var economic_commodities_sub "Commodities Subframe"; replace economic_commodities_sub = 1 if (strpos(dummy_text,"gold") & (strpos(dummy_text,"commodit") | strpos(dummy_text,"gold contract") | strpos(dummy_text,"gold standard") | strpos(dummy_text,"allocated gold") | strpos(dummy_text,"silver"))); /********** Cryptocurrency subframe **********/ generate byte economic_crypto_sub = 0; label var economic_crypto_sub "Cryptocurrency Subframe"; replace economic_crypto_sub = 1 if strpos(dummy_text,"cryptocurrency") | strpos(dummy_text,"cryptoasset") | strpos(dummy_text,"crypto-asset") | strpos(dummy_text," bitcoin") | strpos(dummy_text," dogecoin") | strpos(dummy_text," exbit") | strpos(dummy_text,"non-fungible token") | strpos(dummy_text," nft ") | strpos(dummy_text,"stellar finance coin") | strpos(dummy_text,"stelarfinancecoin") | strpos(dummy_text,"stellarmint") | strpos(dummy_text,"zodiac coin") ; /********** Economic trend subframe **********/ generate byte economic_trends_sub = 0; label var economic_trends_sub "Economic Trends Subframe"; replace economic_trends_sub = 1 if (strpos(dummy_text,"depression") & strpos(dummy_text,"econom")) | strpos(dummy_text,"great depression") | strpos(dummy_text,"economic depression") | strpos(dummy_text,"great resignation") | strpos(dummy_text,"inflation") & strpos(dummy_text,"econom") | strpos(dummy_text,"isolationis") | strpos(dummy_text,"labor shortage") | strpos(dummy_text,"labour shortage") | strpos(dummy_text,"market crash") | strpos(dummy_text,"protectionis") | strpos(dummy_text,"recession") | strpos(dummy_text,"stagflation"); /********** Economic section subframe **********/ generate byte economic_sector_sub = 0; label var economic_sector_sub "Economic Sector Subframe"; replace economic_sector_sub = 1 if /*sector terms*/ strpos(dummy_text,"agricultur") | strpos(dummy_text," garden") | strpos(dummy_text,"construction industry") | strpos(dummy_text,"construction work") | strpos(dummy_text," industr") | strpos(dummy_text,"manufactur") | strpos(dummy_text," mining") | /*corporate terms -- review to create a list of X companies -- need to work out intersection with corporate elite conspiracies*/ (strpos(dummy_text,"apple") & strpos(dummy_text,"computer")) | strpos(dummy_text," boeing") | strpos(dummy_text," disney") | strpos(dummy_text," ford") | strpos(dummy_text,"general motors") | strpos(dummy_text," google") | strpos(dummy_text,"microsoft") | strpos(dummy_text," netflix") | strpos(dummy_text," walmart") ; /********** Economic infrastructure subframe **********/ generate byte economic_infra_sub = 0; label var economic_infra_sub "Infrastructure Subframe"; replace economic_infra_sub = 1 if (strpos(dummy_text," bridge") & (strpos(dummy_text,"auto") | strpos(dummy_text,"car") | strpos(dummy_text,"train"))) | strpos(dummy_text,"communication") | (strpos(dummy_text,"harbor") & strpos(dummy_text,"ship")) | strpos(dummy_text,"infrastructur") | strpos(dummy_text,"mail order") | strpos(dummy_text,"mailorder") | strpos(dummy_text,"postal service") | strpos(dummy_text,"usps") | strpos(dummy_text,"supply chain") | strpos(dummy_text,"supplychain") | strpos(dummy_text,"back order") | strpos(dummy_text," backorder") | strpos(dummy_text," shipping") | strpos(dummy_text,"transportation"); /********** Funding services **********/ generate byte economic_transfer_sub = 0; label var economic_transfer_sub "Transfer and Funding services"; replace economic_transfer_sub = 1 if strpos(dummy_text,"givesendgo") | strpos(dummy_text,"gofundme") | strpos(dummy_text,"paypal") ; /********** Economic frame **********/ generate byte economic_frame = 0; label var economic_frame "Economic Frame"; replace economic_frame = 1 if economic_gref_sub | economic_finance_sub | economic_debt_sub | economic_commodities_sub | economic_trends_sub | economic_crypto_sub | economic_sector_sub | economic_infra_sub | economic_transfer_sub ; keep source yearmonth yearmonthno economic_*; save "${framesdir}frame_economic_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_elites.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: ELITE FRAME *****/ /***** Assigned Original Date: 17 October 2022 *****/ /***** Last Update: 29 December 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ # delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /*********** elites mention subframe **********/ generate byte elites_mention_sub = 0; label var elites_mention_sub "Elite & Class Mentions Subframe"; replace elites_mention_sub = 1 if /*elites*/ strpos(dummy_text," cabal") | strpos(dummy_text," elite") | strpos(dummy_text," elitism") | strpos(dummy_text," elitist") | /*general language of class*/ strpos(dummy_text,"social class") | strpos(dummy_text,"middle class") | strpos(dummy_text,"ultrarich") | strpos(dummy_text,"upper class") | strpos(dummy_text,"upper strat") | strpos(dummy_text,"working class") | strpos(dummy_text,"working class") | /*caste*/ (strpos(dummy_text," caste ") & strpos(dummy_text," casten") == 0) | strpos(dummy_text,"caste-specific") | strpos(dummy_text," slave") | strpos(dummy_text," enslave") | /*equality*/ (strpos(dummy_text,"equality") & (strpos(dummy_text,"income") | strpos(dummy_text,"social"))) | strpos(dummy_text,"social revolution") | /*globalism*/ strpos(dummy_text,"global elit") | strpos(dummy_text,"globalis") | /*marxist language*/ strpos(dummy_text," bourgeois") | strpos(dummy_text,"lumpenproletari") | strpos(dummy_text,"proletaria") | strpos(dummy_text," prole ") | strpos(dummy_text," proles ") | strpos(dummy_text,"worker power") | strpos(dummy_text,"workers power") | /*other language*/ strpos(dummy_text,"aristocra") | strpos(dummy_text," deplorables") | strpos(dummy_text,"oligarch") | strpos(dummy_text,"pandora papers") | strpos(dummy_text,"plutocra") | strpos(dummy_text,"power structure") | strpos(dummy_text,"rich people") | strpos(dummy_text,"the rich ") | strpos(dummy_text,"worlds richest") | strpos(dummy_text,"richest person") | strpos(dummy_text," sheeple") | strpos(dummy_text,"technocracy") | strpos(dummy_text," wealth") | strpos(dummy_text,"wealthy donor") | /*individuals*/ (strpos(dummy_text,"gates") & strpos(dummy_text,"farm")) ; /********** corporate subframe **********/ /********** need to work out individual corporations and ceos ***********/ /********** right now only focus is on bill gates **********/ generate byte elites_corporations_sub = 0; label var elites_corporations_sub "Corporate Elite Subframe"; replace elites_corporations_sub = 1 if strpos(dummy_text,"big corporations") | strpos(dummy_text,"big oil") | strpos(dummy_text,"big pharma") | strpos(dummy_text,"big tech") | strpos(dummy_text,"corporate elite") | strpos(dummy_text,"corporate power") | strpos(dummy_text,"giant corporations") | strpos(dummy_text," monopol") | strpos(dummy_text,"tech giant") | (strpos(dummy_text,"gates") & strpos(dummy_text,"microsoft")) | /* conspiracies */ strpos(dummy_text,"shadowgate") | strpos(dummy_text,"shadow gate") ; /********** Media subframe **********/ /********** still needs work -- not clear how to deal with individual outlets ***********/ generate byte elites_media_sub = 0; label var elites_media_sub "Media Elite Subframe"; replace elites_media_sub = 1 if /*general media*/ strpos(dummy_text,"mainstream media") | strpos(dummy_text," msm ") | (strpos(dummy_text,"media") & strpos(dummy_text,"elite")) | /*news media*/ strpos(dummy_text,"fake news") | (strpos(dummy_text,"news") & strpos(dummy_text,"bias")) | strpos(dummy_text," the press ") | /*celebrities*/ strpos(dummy_text," celeb ") | strpos(dummy_text,"celebrit") | strpos(dummy_text,"hollywood") | strpos(dummy_text,"film industry") | strpos(dummy_text,"movie industry") | /*music*/ strpos(dummy_text,"music industry") | /*instances*/ strpos(dummy_text,"ivory becker") | strpos(dummy_text,"ivory hecker") | /*companies*/ strpos(dummy_text,"disney") | strpos(dummy_text,"hulu") | strpos(dummy_text,"netflix"); /********** Other subframes **********/ generate byte elites_corruption_sub = 0; label var elites_corruption_sub "Corruption Subframe"; replace elites_corruption_sub = 1 if strpos(dummy_text,"corrupt") ; generate elites_sex_sub = 0; label var elites_sex_sub "Elite Sexual Behavior"; replace elites_sex_sub = 1 if (strpos(dummy_text,"bezos") & strpos(dummy_text,"divorce")) | strpos(dummy_text,"jeffrey epstein") | (strpos(dummy_text,"gates") & (strpos(dummy_text,"affair") | strpos(dummy_text,"divorce"))); /********** Overall elites frame **********/ generate byte elites_frame = 0; label var elites_frame "Elites Frame"; replace elites_frame = elites_mention_sub | elites_corporations_sub | elites_media_sub | elites_corruption_sub | elites_sex_sub; keep source yearmonth yearmonthno elites_*; save "${framesdir}frame_elites_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_environment.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE ENVIRONMENT FRAME *****/ /***** Assigned Original Date: 03 December 2022 *****/ /***** Last Update: 29 December 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /*********************************************************************************/ /*********************************************************************************/ #delimit ; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********* general mention -- adjusted at end **********/ generate byte environment_gref_sub = 0; replace environment_gref_sub = 1 if strpos(dummy_text,"environment") | strpos(dummy_text,"environmental") | strpos(dummy_text,"climate change") | strpos(dummy_text,"climate science") | (strpos(dummy_text,"human cause") & strpos(dummy_text,"climate")) | (strpos(dummy_text,"human contribution") & strpos(dummy_text,"climate")) | strpos(dummy_text," gaia") | strpos(dummy_text,"lindzen") | strpos(dummy_text,"mother earth") | strpos(dummy_text," nature") | (strpos(dummy_text," natural") & strpos(dummy_text,"naturally") == 0) | strpos(dummy_text,"natural environment") | (strpos(dummy_text,"paris") & strpos(dummy_text,"climate")) | strpos(dummy_text,"paris accords") | strpos(dummy_text,"paris agreement") | strpos(dummy_text,"save the environment") | strpos(dummy_text,"sustainab") | strpos(dummy_text," thunberg") | /*mt sinai summit of religious leaders*/ (strpos(dummy_text,"environment") & strpos(dummy_text,"summit") & strpos(dummy_text,"pope")) | (strpos(dummy_text,"environment") & (strpos(dummy_text,"ten commandments") | strpos(dummy_text,"10 commandments"))) | strpos(dummy_text,"ten principles of climate repentance") | strpos(dummy_text,"ten principles of climate repentance") ; label var environment_gref_sub "General Environmental References Subframe"; /********** environment subframes **********/ /****** global warming subframe *****/ generate byte environment_warming_sub = 0; replace environment_warming_sub = 1 if strpos(dummy_text," drought") | strpos(dummy_text,"extreme heat") | strpos(dummy_text,"global warming") | (strpos(dummy_text,"ice cap") & strpos(dummy_text,"melt")) | strpos(dummy_text,"ice sheet") | (strpos(dummy_text,"ocean") & strpos(dummy_text,"current")) | strpos(dummy_text,"stratospheric aerosol injection") | strpos(dummy_text," sai "); label var environment_warming_sub "Global Warming Subframe"; /***** weather subframe *****/ generate byte environment_weather_sub = 0; replace environment_weather_sub = 1 if strpos(dummy_text,"blizzard") | strpos(dummy_text," hail") | strpos(dummy_text,"heat wave") | (strpos(dummy_text,"heat") & strpos(dummy_text,"triple digits")) | strpos(dummy_text,"hundred degrees") | (strpos(dummy_text," temp") & strpos(dummy_text," normal")) | strpos(dummy_text,"humidity") | strpos(dummy_text,"hurricane") | strpos(dummy_text," ice ") | strpos(dummy_text," icing ") | strpos(dummy_text,"lightning") | strpos(dummy_text," rain") | strpos(dummy_text," snow") | strpos(dummy_text,"thunderstorm") | strpos(dummy_text,"thunder storm") | strpos(dummy_text," tides") | strpos(dummy_text," tidal") | strpos(dummy_text,"high tide") | strpos(dummy_text,"low tide") | strpos(dummy_text,"tornado") | strpos(dummy_text," wind ") | strpos(dummy_text," winds "); /***** electric car subframe (regarded here as a pro-environmental issue) *****/ generate byte environment_electriccar_sub = 0; replace environment_electriccar_sub = 1 if strpos(dummy_text,"electric car") | strpos(dummy_text,"tesla") | strpos(dummy_text,"boring company") | strpos(dummy_text,"ford f-150") | strpos(dummy_text,"ford lightning"); label var environment_electriccar_sub "Electric Car Subframe"; /***** pollution subframe *****/ generate byte environment_pollution_sub = 0; replace environment_pollution_sub = 1 if (strpos(dummy_text,"ocean") & strpos(dummy_text,"dump")) | strpos(dummy_text,"water utility") | strpos(dummy_text,"hazardous material") | strpos(dummy_text,"hazmat") | (strpos(dummy_text,"leak") & (strpos(dummy_text,"chemical") | strpos(dummy_text,"acid"))) | strpos(dummy_text,"toxic waste") | (strpos(dummy_text,"clean") & (strpos(dummy_text,"water") | strpos(dummy_text,"air"))); replace environment_pollution_sub = 1 if strpos(dummy_text," chemtrail") | strpos(dummy_text," contrail"); label var environment_pollution_sub "Pollution Subframe"; /********** energy subframe **********/ generate byte environment_energy_sub = 0; replace environment_energy_sub = 1 if /*oil*/ strpos(dummy_text,"diesel") | strpos(dummy_text,"fracking") | strpos(dummy_text," gas ") | strpos(dummy_text,"gasoline") | strpos(dummy_text,"natural gas") | strpos(dummy_text," oil ") | strpos(dummy_text,"pipeline") | strpos(dummy_text,"refinery") | strpos(dummy_text,"refineries") | /*oil companies*/ strpos(dummy_text,"chevron") | strpos(dummy_text,"exxon") | strpos(dummy_text,"gazprom") | strpos(dummy_text,"lukoil") | (strpos(dummy_text,"shell") & strpos(dummy_text,"gas") | strpos(dummy_text,"oil")) | /*other*/ strpos(dummy_text,"chernobyl") | strpos(dummy_text," coal") | strpos(dummy_text," electric") | strpos(dummy_text,"electromagnet") | strpos(dummy_text," energy") | strpos(dummy_text,"nuclear power") | strpos(dummy_text,"power plant") | strpos(dummy_text,"radioactive fuel") | strpos(dummy_text,"solar power") ; label var environment_energy_sub "Energy Subframe"; /***** overall frame and adjustments *****/ generate byte environment_frame = 0; replace environment_frame = 1 if environment_gref_sub | environment_warming_sub | environment_weather_sub | environment_electriccar_sub | environment_pollution_sub | environment_energy_sub; label var environment_frame "Environment & Energy Frame"; keep source yearmonth yearmonthno environment_*; save "${framesdir}frame_environment_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_expert.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFY EDUCATION AND EXPERT FRAME *****/ /***** Last Update: 02 August 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; generate expert_gref_sub = 0; replace expert_gref_sub = 1 if strpos(dummy_text," expert") | strpos(dummy_text," study") | strpos(dummy_text," studies") | strpos(dummy_text," studied") | strpos(dummy_text,"train for") | strpos(dummy_text," trains") | strpos(dummy_text," trained") | strpos(dummy_text," training") | strpos(dummy_text,"specialize") | strpos(dummy_text,"specializing") | strpos(dummy_text,"specialist"); label var expert_gref_sub "Expertise General Subframe"; generate expert_institutional_sub = 0; replace expert_institutional_sub = 1 if strpos(dummy_text,"academia") | strpos(dummy_text,"academic") | strpos(dummy_text,"academy") | strpos(dummy_text,"curriculum") | strpos(dummy_text," college") | strpos(dummy_text,"instructor") | strpos(dummy_text,"professor") | strpos(dummy_text,"university"); label var expert_institutional_sub "Educational Institution Subframe"; generate expert_research_sub = 0; replace expert_research_sub = 1 if (strpos(dummy_text,"article") & strpos(dummy_text,"journal")) | strpos(dummy_text,"control group") | strpos(dummy_text,"experiment") | strpos(dummy_text,"journal of the american medical association") | strpos(dummy_text," jama ") | strpos(dummy_text,"new england journal of medicine") | strpos(dummy_text," nejm ") | strpos(dummy_text,"peer-review") | strpos(dummy_text,"peer review") | strpos(dummy_text,"placebo") | strpos(dummy_text," research"); label var expert_research_sub "Research Subframe"; generate expert_education_sub = 0; replace expert_education_sub = 1 if strpos(dummy_text,"education") | strpos(dummy_text," school") | strpos(dummy_text," teacher") | strpos(dummy_text,"home school") | strpos(dummy_text,"home school"); label var expert_education_sub "Education Subframe"; generate expert_frame = 0; replace expert_frame = 1 if expert_gref_sub | expert_institutional_sub | expert_research_sub | expert_education_sub; label var expert_frame "Expertise Frame"; keep source yearmonth yearmonthno expert_*; save "${framesdir}frame_expert_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_extremeleft.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFICATION OF POLITICS FRAME *****/ /***** Assigned Original Date: 02 August 2022 *****/ /***** Last Update: 12 July 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** Anarchism Subframe **********/ egen w_anarchist = noccurlong(dummy_text), string(" anarchis"); egen w_anarchy = noccurlong(dummy_text), string(" anarchy"); egen w_anarcho_primitivism = noccurlong(dummy_text), string(" anarcho primativism"); egen w_anarchoprimitivism = noccurlong(dummy_text), string(" anarchoprimitivism"); egen w_anti_civ = noccurlong(dummy_text), string(" anti civilization"); egen w_anticiv = noccurlong(dummy_text), string(" anticivilization"); egen w_black_cross_of_moscow = noccurlong(dummy_text), string("black cross of moscow"); generate extremeleft_anarchism_sub_w = 0; label var extremeleft_anarchism_sub_w "Anarchism (left)"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace extremeleft_anarchism_sub_w = extremeleft_anarchism_sub_w + `var'; }; replace extremeleft_anarchism_sub_w = wordcount if extremeleft_anarchism_sub_w > wordcount; drop w_*; generate extremeleft_anarchism_sub = 0; label var extremeleft_anarchism_sub "Anarchism (left)"; replace extremeleft_anarchism_sub = 1 if extremeleft_anarchism_sub_w > 0; /********** Antifa Subframe **********/ egen w_antifa = noccurlong(dummy_text), string(" antifa"); egen w_antifascis = noccurlong(dummy_text), string(" antifascis"); egen w_art_of_not_being_governed = noccurlong(dummy_text), string("art of not being governed"); generate long extremeleft_antifa_sub_w = 0; label var extremeleft_antifa_sub_w "Antifa"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace extremeleft_antifa_sub_w = extremeleft_antifa_sub_w + `var'; }; replace extremeleft_antifa_sub_w = wordcount if extremeleft_antifa_sub_w > wordcount; drop w_*; generate extremeleft_antifa_sub = 0; label var extremeleft_antifa_sub "Antifa"; replace extremeleft_antifa_sub = 1 if extremeleft_antifa_sub_w > 0; /***** Marxism and Socialism Subframe *****/ egen w_bakunin = noccurlong(dummy_text), string(" bakunin"); egen w_bolshevik = noccurlong(dummy_text), string(" bolshevik"); egen w_collectivis = noccurlong(dummy_text), string(" collectivis"); egen w_communism = noccurlong(dummy_text), string(" communis"); egen w_lenin = noccurlong(dummy_text), string(" lenin"); egen w_libcom = noccurlong(dummy_text), string("libcom"); egen w_marx = noccurlong(dummy_text), string(" marx"); egen w_sandinista = noccurlong(dummy_text), string(" sandinista"); egen w_socialism = noccurlong(dummy_text), string(" socialis"); egen w_trotsky = noccurlong(dummy_text), string(" trotsky"); generate long extremeleft_socialism_sub_w = 0; label var extremeleft_socialism_sub_w "Marxism & Socialism"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace extremeleft_socialism_sub_w = extremeleft_socialism_sub_w + `var'; }; replace extremeleft_socialism_sub_w = wordcount if extremeleft_socialism_sub_w > wordcount; drop w_*; generate byte extremeleft_socialism_sub = 0; label var extremeleft_socialism_sub "Marxism & Socialism"; replace extremeleft_socialism_sub = 1 if extremeleft_socialism_sub_w > 0; /********** Other Left **********/ egen w_alinksy = noccurlong(dummy_text), string(" alinksy"); egen w_anti_militar = noccurlong(dummy_text), string("anti militar"); egen w_antimilitar = noccurlong(dummy_text), string("antimilitar"); egen w_anti_racism = noccurlong(dummy_text), string(" anti racis"); egen w_antiracism = noccurlong(dummy_text), string(" antiracis"); egen w_radical = noccurlong(dummy_text), string(" radicalism"); egen w_rules_for_radical = noccurlong(dummy_text), string(" rules for radicals"); generate long extremeleft_otherleft_sub_w = 0; label var extremeleft_otherleft_sub_w "Other Left"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace extremeleft_otherleft_sub_w = extremeleft_otherleft_sub_w + `var'; }; replace extremeleft_otherleft_sub_w = wordcount if extremeleft_otherleft_sub_w > wordcount; drop w_*; generate byte extremeleft_otherleft_sub = 0; label var extremeleft_otherleft_sub "Other Left"; replace extremeleft_otherleft_sub = 1 if extremeleft_otherleft_sub_w > 0; /********** Totals **********/ generate long extremeleft_theme_w = 0; label var extremeleft_theme_w "Left & Extreme Left Themes"; replace extremeleft_theme_w = extremeleft_anarchism_sub_w + extremeleft_antifa_sub_w + extremeleft_socialism_sub_w + extremeleft_otherleft_sub_w; generate byte extremeleft_forum = 0; label var extremeleft_forum "Left & Extreme Left Forum"; replace extremeleft_forum = 1 if st_extremeleft > 0; generate byte extremeleft_frame = 0; label var extremeleft_frame "Left & Extreme Left Frame"; replace extremeleft_frame = 1 if extremeleft_theme_w > 0 | extremeleft_forum; keep source yearmonth yearmonthno extremeleft_*; save "${framesdir}frame_extremeleft_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_fringe.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: ALTERNATIVE REALITY FRAME (M-A-C POSTS) *****/ /***** Original Date: 26 May 2022 *****/ /***** Last Update: 24 December 2023 *****/ /***** *****/ /***** *****/ /***** This frame is incomplete. The following subroutine creates data *****/ /***** that must be executed prior to this program: *****/ /***** 1. subroutine_topic_covid19.do *****/ /***** 1. subroutine_frame_military.do *****/ /***** 1. subroutine_frame_pol.do *****/ /***** *****/ /***** The following subroutine is executed within this program: *****/ /***** 1. subroutine_subframe_nwo_conspirgref_temp.do *****/ /***** 2. subroutine_bit_relig_creationism_temp.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_month.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_health_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_military_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_pol_${filedate}_${timeperiod}.dta"; /********** General References to fringe Theory Subframe **********/ do "${framescode}subroutine_subframe_nwo_conspirgref_temp.do"; // adds variables nwo_conspirgref_sub rename nwo_conspirgref_sub fringe_gref_sub; label var fringe_gref_sub "General Fringe Theory Subframe"; replace fringe_gref_sub = 1 if /* general */ strpos(dummy_text,"above top secret") | strpos(dummy_text,"conspiracy") | strpos(dummy_text,"conspiracism") | strpos(dummy_text,"conspiracism") | strpos(dummy_text,"conspiracist") | strpos(dummy_text,"counterspin") | strpos(dummy_text,"disinformation") | strpos(dummy_text,"fact check") | strpos(dummy_text,"factcheck") | strpos(dummy_text," fringe") | strpos(dummy_text," hoax") | strpos(dummy_text,"information war") | strpos(dummy_text,"misinformation") | strpos(dummy_text,"misinformatipn") | strpos(dummy_text,"propaganda") | strpos(dummy_text," scam") | strpos(dummy_text," staged") | strpos(dummy_text,"truther") ; /********** Metaphysics Subframe **********/ generate byte fringe_metaphysics_sub = 0; label var fringe_metaphysics_sub "Fringe Metaphysics Subframe"; replace fringe_metaphysics_sub = 1 if strpos(dummy_text,"alternative fact") | strpos(dummy_text,"alternative reality") | strpos(dummy_text,"alternative realities") | strpos(dummy_text,"alt realit") | strpos(dummy_text,"bend reality") | strpos(dummy_text,"bending reality") | strpos(dummy_text,"bible code") | (strpos(dummy_text,"code") & (strpos(dummy_text,"hidden") | strpos(dummy_text,"secret"))) | strpos(dummy_text,"crunchy cult") | strpos(dummy_text,"davinci code") | strpos(dummy_text,"gematria") | strpos(dummy_text,"hive mind") | strpos(dummy_text,"holographic simulation") | strpos(dummy_text,"multiple realit") | strpos(dummy_text,"mandela effect") | strpos(dummy_text," matrix") | strpos(dummy_text,"mind control") | strpos(dummy_text,"mind manipulation") | strpos(dummy_text,"parallel universe") | strpos(dummy_text," psiop") | strpos(dummy_text,"psi op") | strpos(dummy_text," psyop") | strpos(dummy_text," psy op") | strpos(dummy_text,"quantum shift") | strpos(dummy_text,"reality shift") | strpos(dummy_text,"shift reality") | strpos(dummy_text,"replica minds") | strpos(dummy_text,"replica planet") | strpos(dummy_text,"simulation") | /* matrix */ strpos(dummy_text," archonic matrix") | strpos(dummy_text,"glitch in the matrix") | strpos(dummy_text,"glitches in the matrix") | strpos(dummy_text,"life in a matrix") | strpos(dummy_text,"life in the matrix") | strpos(dummy_text,"live in a matrix") | strpos(dummy_text,"live in the matrix") | strpos(dummy_text,"living in a matrix") | strpos(dummy_text,"living in the matrix") ; /***** Cryptids and Monsters *****/ generate byte fringe_cryptid_sub = 0; label var fringe_cryptid_sub "Cryptids and Monsters Subframe"; replace fringe_cryptid_sub = 1 if strpos(dummy_text,"abominable snow") | strpos(dummy_text," yeti") | strpos(dummy_text,"basilisk") | strpos(dummy_text," bigfoot") | strpos(dummy_text,"big foot") | strpos(dummy_text," champy") | strpos(dummy_text,"chupacabra") | strpos(dummy_text," cryptid") | strpos(dummy_text,"cryptozoolog") | strpos(dummy_text,"flatwoods monster") | strpos(dummy_text,"jersey devil") | strpos(dummy_text,"lochness") | strpos(dummy_text,"loch ness") | strpos(dummy_text," nessie") | strpos(dummy_text,"melon heads") | strpos(dummy_text,"mokele-mbembe") | strpos(dummy_text,"mothman") | strpos(dummy_text," moth man") | strpos(dummy_text,"shapeshift") | strpos(dummy_text,"shape shift") | strpos(dummy_text,"shadow people") | strpos(dummy_text,"swamp thing") | strpos(dummy_text,"vampire") | strpos(dummy_text,"wendigo") | strpos(dummy_text,"werewolf") | strpos(dummy_text,"werewolves") | strpos(dummy_text," zombie") | source == 323 ; /***** Alternative History *****/ generate byte fringe_hist_sub = 0; label var fringe_hist_sub "Alternative History Subframe"; replace fringe_hist_sub = 1 if /*ancient civilizations*/ strpos(dummy_text,"annunnaki") | strpos(dummy_text,"anunnaki") | strpos(dummy_text,"annunaki") | strpos(dummy_text,"lemuria") | strpos(dummy_text," atlantis") | strpos(dummy_text,"atlantean") | strpos(dummy_text,"bimini road") | strpos(dummy_text,"kandahar giant") | strpos(dummy_text,"lemuria") | strpos(dummy_text,"moundbuilder") | strpos(dummy_text,"mound builder") | (strpos(dummy_text,"mounds") & (strpos(dummy_text,"giants") | strpos(dummy_text,"nephilim") | strpos(dummy_text,"lost tribes"))) | strpos(dummy_text,"cahokia") | strpos(dummy_text,"ocmulgee") | strpos(dummy_text,"serpent mound") | strpos(dummy_text,"serpents mound") | strpos(dummy_text,"nephilim") | (strpos(dummy_text,"pyramid") & strpos(dummy_text,"venezuela")) | strpos(dummy_text,"tartaria") | strpos(dummy_text,"tartary") | strpos(dummy_text,"mudflood") | strpos(dummy_text,"mud flood") | source == 378 | /*antarctica*/ (strpos(dummy_text,"antarctica") & (strpos(dummy_text,"byrd") | strpos(dummy_text,"crystal city") | strpos(dummy_text,"german"))) | /*artifacts*/ strpos(dummy_text,"crystal skull") | strpos(dummy_text,"kensington runestone") | /*codes*/ strpos(dummy_text,"bible code") | strpos(dummy_text,"davinci code") | strpos(dummy_text,"dan brown") | /*events and people*/ (strpos(dummy_text,"astroworld") & (strpos(dummy_text,"occult") | strpos(dummy_text,"sacrifice"))) | strpos(dummy_text,"donation of constantine") | strpos(dummy_text,"king arthur") | (strpos(dummy_text,"arthur") & (strpos(dummy_text,"excalibur") | strpos(dummy_text,"merlin") | strpos(dummy_text,"round table"))) | (strpos(dummy_text,"kennedy") | strpos(dummy_text," jfk")) & (strpos(dummy_text,"assasin") | strpos(dummy_text,"conspiracy")) | strpos(dummy_text,"titanic") | ((strpos(dummy_text,"911") | strpos(dummy_text,"9 11")) & (strpos(dummy_text,"emergency") == 0 | strpos(dummy_text,"truther") | strpos(dummy_text,"twin towers") | strpos(dummy_text,"world trade center") | strpos(dummy_text," wtc"))) | strpos(dummy_text,"9 11 setup") | strpos(dummy_text,"911 setup") | /*modern civilizations*/ strpos(dummy_text,"empire of the cities") | strpos(dummy_text,"tartaria") | strpos(dummy_text,"tartary") | /*religious events and artifacts*/ strpos(dummy_text,"holy grail") | strpos(dummy_text,"lost tribes") | strpos(dummy_text,"noahs ark") | (strpos(dummy_text,"shroud") & strpos(dummy_text,"turin")) | strpos(dummy_text,"true cross") | /*surfside*/ (strpos(dummy_text," surfside") & strpos(dummy_text,"controlled demolition")) | /*other*/ strpos(dummy_text,"bermuda triangle") | strpos(dummy_text,"father crespi") | strpos(dummy_text," orion mystery") | strpos(dummy_text,"www.stolenhistory.org") | source == 319 | source == 410 ; /***** Paranormal and Psychic *****/ generate byte fringe_para_sub = 0; label var fringe_para_sub "Paranormal Subframe"; replace fringe_para_sub = 1 if strpos(dummy_text,"parapsychology") | strpos(dummy_text,"paranormal") | strpos(dummy_text,"clairvoyan") | strpos(dummy_text,"clairaudience") | strpos(dummy_text," esp ") | strpos(dummy_text," e s p") | (strpos(dummy_text,"ghost") & (strpos(dummy_text,"ghost ezra") == 0 & strpos(dummy_text,"ghostezra") == 0 & strpos(dummy_text,"ghostchat") == 0)) | strpos(dummy_text," haunted") | strpos(dummy_text,"hypnosis") | strpos(dummy_text,"hypnotize") | strpos(dummy_text,"hypnotic") | strpos(dummy_text,"levitation") | strpos(dummy_text,"levitate") | strpos(dummy_text," ouija") | strpos(dummy_text," prescien") | strpos(dummy_text," psychic") | strpos(dummy_text,"remote view") | strpos(dummy_text," seance") | strpos(dummy_text,"sixth sense") | strpos(dummy_text,"6th sense") | (strpos(dummy_text,"supernatural") & strpos(dummy_text,"god") == 0) | strpos(dummy_text," tarot") | strpos(dummy_text,"telekinesis") | strpos(dummy_text,"telepath") | strpos(dummy_text," tulpa") | source == 317 ; /***** Pseudoscience *****/ *do "${framescode}subroutine_bit_relig_creationism_temp.do"; /* Phone and 5G myths. Also under Tech Frame. */ generate altreality_science_sub_phone = 0; label var altreality_science_sub_phone "Altreality Phone / 5G Myths"; replace altreality_science_sub_phone = 1 if strpos(dummy_text," 5g") | (strpos(dummy_text,"magnetic field") & strpos(dummy_text,"phone")) | (strpos(dummy_text,"tower") & (strpos(dummy_text,"cell") | strpos(dummy_text,"radiation") | strpos(dummy_text,"phone"))) | strpos(dummy_text,"zero point energy") | strpos(dummy_text,"zeropoint energy") ; generate byte fringe_science_sub = 0; label var fringe_science_sub "Pseudoscience Subframe"; replace fringe_science_sub = 1 if altreality_science_sub_phone | /*general*/ strpos(dummy_text,"pseudoscience") | strpos(dummy_text,"pseudoscientific") | /*other*/ strpos(dummy_text,"chem trail") | strpos(dummy_text,"diving rod") | (strpos(dummy_text,"dome") & strpos(dummy_text,"earth")) | strpos(dummy_text,"electric double layer") | strpos(dummy_text,"flat earth") | strpos(dummy_text,"free energy") | strpos(dummy_text,"hollow earth") | (strpos(dummy_text,"earth") & strpos(dummy_text,"hollow")) | strpos(dummy_text,"ley line") | strpos(dummy_text,"magnetic pole") | (strpos(dummy_text,"moon landing") & (strpos(dummy_text,"fake") | strpos(dummy_text,"hoax"))) | strpos(dummy_text,"niburu") | strpos(dummy_text,"pole shift") | strpos(dummy_text,"pole switch") | strpos(dummy_text,"quantum jump") | strpos(dummy_text,"quantum signature") | strpos(dummy_text,"replica planet") | strpos(dummy_text,"secret space program") ; /***** UFOs and aliens *****/ generate byte fringe_ufo_sub = 0; label var fringe_ufo_sub "UFO/Alien Bit"; replace fringe_ufo_sub = 1 if /*ufo*/ strpos(dummy_text,"unidentified flying object") | strpos(dummy_text," ufo ") | strpos(dummy_text," ufos ") | strpos(dummy_text,"u f o") | strpos(dummy_text,"u . f . o.") | strpos(dummy_text,"flying saucer") | strpos(dummy_text,"highly maneuverable craft") | source == 316 | /* strpos(dummy_text," orb ") | strpos(dummy_text," orbs ") | */ strpos(dummy_text,"unidentified aerial phenomen") | strpos(dummy_text," uap ") | strpos(dummy_text," uaps") | strpos(dummy_text,"u a p") | /*aliens -- unsure how to deal with the term grays */ (strpos(dummy_text,"alien") & strpos(dummy_text,"immigra") == 0) | strpos(dummy_text,"ancient alien") | strpos(dummy_text,"ancient astronaut") | strpos(dummy_text,"space") | strpos(dummy_text,"extraterrestrial") | strpos(dummy_text," et ") | strpos(dummy_text," ets ") | strpos(dummy_text," e t ") | strpos(dummy_text," e t s ") | strpos(dummy_text,"star child") | strpos(dummy_text," starchild") | strpos(dummy_text,"starseed") | strpos(dummy_text,"blackeyed children") | strpos(dummy_text,"black eyed children") | /*alien activities and events*/ strpos(dummy_text,"biosatellite") | (strpos(dummy_text,"abduct") & strpos(dummy_text,"alien")) | strpos(dummy_text,"alien abduct") | strpos(dummy_text,"barney and betty hill") | strpos(dummy_text," ashtar") | strpos(dummy_text,"cattle mutilation") | strpos(dummy_text," crop circle") | strpos(dummy_text,"ashtar sheran") | (strpos(dummy_text,"experiment") & (strpos(dummy_text,"mutilate us") | strpos(dummy_text,"dissect us"))) | strpos(dummy_text,"galatic command") | strpos(dummy_text,"galatic federation") | (strpos(dummy_text,"interdimensional") & (strpos(dummy_text," being") | strpos(dummy_text," craft"))) | strpos(dummy_text,"light being") | strpos(dummy_text,"rendlesham") | (strpos(dummy_text,"roswell") & (strpos(dummy_text,"alien") | strpos(dummy_text,"crash") | strpos(dummy_text,"demon") | strpos(dummy_text,"saucer") | strpos(dummy_text,"ufo") | st_conspiracy )) | strpos(dummy_text," stargate") | strpos(dummy_text,"tachyon membrane") | strpos(dummy_text,"travis walton") | /*alien origins and identities*/ strpos(dummy_text,"annunaki") | strpos(dummy_text,"arcturian") | strpos(dummy_text,"blue avian") | (strpos(dummy_text,"ganesh") & (strpos(dummy_text,"alien") | strpos(dummy_text,"ancient astronaut"))) | strpos(dummy_text,"galactic council") | strpos(dummy_text,"pleiades") | strpos(dummy_text,"pleiadeans") | strpos(dummy_text,"pleijarans") | strpos(dummy_text,"sirian") | (strpos(dummy_text,"sirius") & strpos(dummy_text,"dogon")) | /*disclosure*/ (strpos(dummy_text,"disclosure") & (strpos(dummy_text,"ufo") | strpos(dummy_text,"alien"))) | /*research & conspiracies*/ (strpos(dummy_text,"apollo") & strpos(dummy_text,"ufo")) | strpos(dummy_text,"avi loeb") | strpos(dummy_text,"area 51") | strpos(dummy_text,"groom lake") | strpos(dummy_text,"black vault work") | strpos(dummy_text,"bob lazar") | strpos(dummy_text,"majestic 12") | strpos(dummy_text,"majestic-12") | strpos(dummy_text,"mj 12") | strpos(dummy_text,"mj12") | strpos(dummy_text,"men in black") | strpos(dummy_text,"mutual ufo network") | strpos(dummy_text," mufon") | strpos(dummy_text,"project blue beam") | strpos(dummy_text,"project blue beam") | strpos(dummy_text,"blue beam") | strpos(dummy_text,"bluebeam") | strpos(dummy_text,"project bluebook") | strpos(dummy_text,"project blue book") | strpos(dummy_text,"unexplained sighting") | (strpos(dummy_text,"wright patterson") & (strpos(dummy_text,"alien") | strpos(dummy_text,"roswell") | strpos(dummy_text,"ufo"))); /********** Medical Misinformation **********/ generate byte fringe_health_sub= 0; label var fringe_health_sub "Health Misinformation Subframe"; replace fringe_health_sub = 1 if health_misinfo_sub ; /********** Political Misinformation **********/ /***** Presidential misinfo *****/ generate fringe_misinfo_sub_pol_a = 0; label var fringe_misinfo_sub_pol_a "US Presidential Conspiracy Theories"; replace fringe_misinfo_sub_pol_a = 1 if /*biden--qualified*/ /*qualification*/ (strpos(dummy_text," biden") | strpos(dummy_text," bidan")) & /*conspiracies*/ /*actor on a set*/ (strpos(dummy_text,"actor") | strpos(dummy_text,"bidan") | strpos(dummy_text,"body double") | strpos(dummy_text,"castle rock") | strpos(dummy_text,"fake joe") | strpos(dummy_text,"film set") | strpos(dummy_text,"movie set") | strpos(dummy_text," pedo") | strpos(dummy_text,"james wood") | /*business dealings*/ (strpos(dummy_text," china") & date < td(20jan2021)) | ((strpos(dummy_text," ukraine") & date < td(20jan2021))) | /*hunter biden*/ (strpos(dummy_text,"hunter biden") & (strpos(dummy_text," art") | strpos(dummy_text," china") | strpos(dummy_text," laptop") | strpos(dummy_text," paint") | strpos(dummy_text," ukraine"))) | /*papal visit*/ strpos(dummy_text,"poopy pants") | strpos(dummy_text,"poo poo pee pee") | /*pedophile*/ strpos(dummy_text,"child molester") | /*puppet*/ strpos(dummy_text,"puppet") | /*russian investigation*/ (strpos(dummy_text,"john dunham") & (strpos(dummy_text,"investigation") | strpos(dummy_text,"russia") | strpos(dummy_text,"ukraine"))) | strpos(dummy_text,"peter strzok") | strpos(dummy_text,"lisa page")) ; /*biden--unqualified*/ replace fringe_misinfo_sub_pol_a = 1 if strpos(dummy_text," bidan") ; /*clinton*/ replace fringe_misinfo_sub_pol_a = 1 if (strpos(dummy_text,"clinton") & strpos(dummy_text,"pizza")) | strpos(dummy_text,"comet ping pong") | strpos(dummy_text,"pizzagate") | strpos(dummy_text,"seth rich") | strpos(dummy_text,"uranium one") ; /***** Election misinformation *****/ generate fringe_misinfo_sub_pol_b = 0; label var fringe_misinfo_sub_pol_b "Election Fraud / Overturn"; replace fringe_misinfo_sub_pol_b = 1 if pol_elect_sub_conspire | military_coup_sub | military_civilwar_sub; /***** Overall political misinformation *****/ generate fringe_misinfo_sub_pol = 0; label var fringe_misinfo_sub_pol "Political Misinformation"; replace fringe_misinfo_sub_pol = 1 if fringe_misinfo_sub_pol_a | fringe_misinfo_sub_pol_b; /********** Other misinformation **********/ generate byte fringe_misinfo_sub= 0; label var fringe_misinfo_sub "Other Misinformation Subframe"; replace fringe_misinfo_sub = 1 if /* general terms */ strpos(dummy_text,"moral panic") | strpos(dummy_text,"satanic panic") | /* specific concepts and events */ strpos(dummy_text,"chronovision") | strpos(dummy_text," darpa") | ((strpos(dummy_text,"denver") & strpos(dummy_text,"airport")) & (strpos(dummy_text,"au ag") | strpos(dummy_text,"gargoyle") | strpos(dummy_text,"map coordinate") | strpos(dummy_text,"mustang") | strpos(dummy_text,"new world order") | strpos(dummy_text," nwo") | strpos(dummy_text,"statue") | strpos(dummy_text,"tunnel"))) | strpos(dummy_text,"doppelganger") | strpos(dummy_text,"fema camp") | strpos(dummy_text,"gesara") | strpos(dummy_text,"nesara") | (strpos(dummy_text," gmo ") & strpos(dummy_text," agenda")) | strpos(dummy_text," haarp") | (strpos(dummy_text,"bob saget") & st_conspiracy == 1) | strpos(dummy_text,"slender man") | strpos(dummy_text,"slenderman") | strpos(dummy_text,"super soldier") | fringe_misinfo_sub_pol ; /********** overall fringe frame **********/ generate byte fringe_theme= 0; label var fringe_theme "Fringe & Misinformation Frame"; replace fringe_theme= 1 if fringe_gref_sub | fringe_metaphysics_sub | fringe_cryptid_sub | fringe_hist_sub | fringe_para_sub | fringe_science_sub | fringe_ufo_sub | fringe_health_sub | fringe_misinfo_sub ; generate fringe_forum = 0; label var fringe_forum "Fringe Forum"; replace fringe_forum = 1 if st_conspiracy ; generate fringe_frame = 0; label var fringe_frame "Fringe Frame"; replace fringe_frame = 1 if fringe_theme | fringe_forum ; keep source yearmonth yearmonthno fringe_*; save "${framesdir}frame_fringe_${filedate}_month.dta", replace; desc; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_health.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: PUBLIC HEALTH SURVEILLANCE *****/ /***** Original Date: 28 October 2022 *****/ /***** Last Update: 29 April 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ # delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** 1.0 General health references subframe **********/ generate byte health_gref_sub = 0; label var health_gref_sub "General Health"; replace health_gref_sub = 1 if strpos(dummy_text," health") | strpos(dummy_text,"endocrinol") | strpos(dummy_text,"epidemiolog") | strpos(dummy_text,"immunolog") | strpos(dummy_text,"medical") | strpos(dummy_text,"medicine") | strpos(dummy_text,"medicinal") | strpos(dummy_text,"pediatric") ; /********** 2.0 Health Professsions and Institutions **********/ /***** 2.1 Professions and Professionals *****/ generate byte health_prof_sub_prof = 0; label var health_prof_sub_prof "Health Professional Subframe"; replace health_prof_sub_prof = 1 if strpos(dummy_text,"anesthesia") | strpos(dummy_text,"cardiolog") | strpos(dummy_text," clinic") | strpos(dummy_text,"clinician") | strpos(dummy_text," doctor") | strpos(dummy_text,"gastroenterolog") | strpos(dummy_text,"hospital") | strpos(dummy_text," nephrolog") | strpos(dummy_text," nurse ") | strpos(dummy_text," nurses ") | strpos(dummy_text," nursing ") | strpos(dummy_text," oncolog") | strpos(dummy_text,"pediatrician") | strpos(dummy_text,"physical therapist") | strpos(dummy_text,"physician") | strpos(dummy_text,"pharmacist") | strpos(dummy_text,"pharmacy") | strpos(dummy_text,"pharmacies") | strpos(dummy_text,"physical therapist") | strpos(dummy_text,"respiratory therapist") | strpos(dummy_text,"speech therapist") | strpos(dummy_text,"speech language patholog") | strpos(dummy_text,"toxicolog") | strpos(dummy_text," urolog") | strpos(dummy_text,"virolog") ; /***** 2.2 Insurance *****/ generate health_prof_sub_ins = 0; label var health_prof_sub_ins "Insurance"; replace health_prof_sub_ins = 1 if /*general*/ (strpos(dummy_text,"health") & strpos(dummy_text,"insurance")) | /*affordable care act*/ strpos(dummy_text,"affordable care act") | (strpos(dummy_text,"aca") & strpos(dummy_text,"insurance")) | strpos(dummy_text,"obamacare") | /*national health service*/ strpos(dummy_text,"national health service") | (strpos(dummy_text," nhs ") & (health_gref_sub | health_prof_sub_prof)) ; /***** 2.T Overall health professions and institutions *****/ generate byte health_prof_sub = 0; label var health_prof_sub "Health Professions & Institutions"; replace health_prof_sub = 1 if health_prof_sub_prof | health_prof_sub_ins ; /********** 3.0 Wellness (healthy lifestyle) **********/ /***** 3.1 General Terms and Activities *****/ generate byte health_wellness_sub_gen = 0; label var health_wellness_sub_gen "Wellness & Naturalist Practices"; replace health_wellness_sub_gen = 1 if /*general terms*/ strpos(dummy_text,"healthy lifestyle") | strpos(dummy_text,"wellness") | /*general activities*/ strpos(dummy_text,"exercis") | strpos(dummy_text," fitness") | strpos(dummy_text," sun ") | strpos(dummy_text,"sunshine") | strpos(dummy_text," vitamin") ; /***** 3.2 Contact Precautions *****/ generate byte health_wellness_sub_contact = 0; label var health_wellness_sub_contact "Contact Precautions"; replace health_wellness_sub_contact = 1 if ((strpos(dummy_text,"lock down") | strpos(dummy_text,"lockdown")) & (strpos(dummy_text,"corona") | strpos(dummy_text,"covid") | strpos(dummy_text," c19 "))) | strpos(dummy_text," mask") | strpos(dummy_text,"cloth mask") | strpos(dummy_text,"face diaper") | strpos(dummy_text,"mask mandate") | strpos(dummy_text," n95") | strpos(dummy_text," unmasked") | strpos(dummy_text,"wear a mask") | strpos(dummy_text,"wear masks") | strpos(dummy_text,"social distanc") | (strpos(dummy_text,"wash") & strpos(dummy_text,"hands")) | (strpos(dummy_text,"test") & (strpos(dummy_text,"corona") | strpos(dummy_text,"covid") | strpos(dummy_text," c19 "))) | strpos(dummy_text," pcr "); ; /***** 3.3 Food and Nutrition *****/ generate byte health_wellness_sub_food = 0; label var health_wellness_sub_food "Food & Nutrition"; replace health_wellness_sub_food = 1 if /*general statements*/ strpos(dummy_text,"nutriti") | /*general foods*/ strpos(dummy_text,"fast food") | strpos(dummy_text," fruit") | strpos(dummy_text,"processed food") | strpos(dummy_text," vegan") | strpos(dummy_text," vegeta") | /*specific foods*/ strpos(dummy_text,"antioxidant") | strpos(dummy_text," apple") | strpos(dummy_text," apricot") | strpos(dummy_text," aspartame") | strpos(dummy_text,"berry") | strpos(dummy_text,"berries") | strpos(dummy_text,"broccoli") | strpos(dummy_text," broth") | strpos(dummy_text,"butter") | strpos(dummy_text,"caffeine") | strpos(dummy_text,"cannabidiol") | strpos(dummy_text,"carbon 60") | strpos(dummy_text," cbd ") | strpos(dummy_text,"cannabis") | strpos(dummy_text,"carrot juice") | strpos(dummy_text," eat bugs") | strpos(dummy_text," eat insects") | strpos(dummy_text,"elderberr") | strpos(dummy_text," ginger") | strpos(dummy_text,"insect farm") | strpos(dummy_text," lemon ") | strpos(dummy_text,"marijuana") | strpos(dummy_text," meat") | strpos(dummy_text,"olive oil") | strpos(dummy_text," orange") | strpos(dummy_text," papaya") | strpos(dummy_text," pepper") | strpos(dummy_text,"plasma water") | strpos(dummy_text,"potato") | strpos(dummy_text," soup ") | strpos(dummy_text," soups ") | strpos(dummy_text," soupa ") | strpos(dummy_text,"tumeric") | strpos(dummy_text," yogurt") | /*specific activities*/ strpos(dummy_text,"breast feed") | strpos(dummy_text,"breastfeed") | strpos(dummy_text,"breast fed") | strpos(dummy_text,"breastfed") | strpos(dummy_text,"infant formula") ; /****** 3.4 Reproductive Health *****/ generate byte health_wellness_sub_reprod = 0; label var health_wellness_sub_reprod "Reproductive Health"; replace health_wellness_sub_reprod = 1 if strpos(dummy_text," abortion") | (strpos(dummy_text," abort") & strpos(dummy_text," bab")) | strpos(dummy_text,"adenomyosis") | (strpos(dummy_text," adopt") & (strpos(dummy_text,"baby") | strpos(dummy_text,"babies") | strpos(dummy_text,"boy") | strpos(dummy_text,"child") | strpos(dummy_text,"girl"))) | strpos(dummy_text,"birth control") | strpos(dummy_text,"caesarian") | strpos(dummy_text," c section") | strpos(dummy_text," csection") | strpos(dummy_text," ectopic") | strpos(dummy_text," erectile") | strpos(dummy_text," estrogen") | strpos(dummy_text,"fallopian") | strpos(dummy_text,"fetal demise") | strpos(dummy_text,"incubator") | strpos(dummy_text," infertil") | strpos(dummy_text,"irregular period") | strpos(dummy_text,"menstruat") | strpos(dummy_text,"menstual") | strpos(dummy_text,"morning after pill") | strpos(dummy_text,"planned parenthood") | strpos(dummy_text," pregnant") | strpos(dummy_text," pregnancy") | strpos(dummy_text,"premature birth") | strpos(dummy_text,"born premature") | strpos(dummy_text,"preterm labor") | strpos(dummy_text,"preterm labour") | strpos(dummy_text,"sex hormone") | strpos(dummy_text,"test tube bab") | strpos(dummy_text,"testtube bab") | strpos(dummy_text,"umbilical") | strpos(dummy_text," vasectom") ; /***** 3.T Overall Wellness *****/ generate byte health_wellness_sub = 0; label var health_wellness_sub "Health & Wellness"; replace health_wellness_sub = 1 if health_wellness_sub_gen | health_wellness_sub_contact | health_wellness_sub_food | health_wellness_sub_reprod ; /********* 4.0 Illnesses **********/ /***** 4.1 General References to Illness *****/ generate byte health_illness_sub_gref = 0; label var health_illness_sub_gref "General Health"; replace health_illness_sub_gref = 1 if strpos(dummy_text,"bacteria") | strpos(dummy_text," disease") | strpos(dummy_text," germ") | strpos(dummy_text," germs ") | strpos(dummy_text," illness") | strpos(dummy_text,"infectio") | strpos(dummy_text,"pandemic") | strpos(dummy_text," virus") | strpos(dummy_text," viral") ; /***** 4.2 Addiction *****/ generate byte health_illness_sub_addict = 0; label var health_illness_sub_addict "Substance Abuse"; replace health_illness_sub_addict = 1 if strpos(dummy_text," addict") | strpos(dummy_text,"drug use") | strpos(dummy_text,"drug abuse") | strpos(dummy_text,"substance abuse") | strpos(dummy_text,"alcohol") | strpos(dummy_text,"amphetamine") | strpos(dummy_text," beer") | strpos(dummy_text,"cannabis") | strpos(dummy_text," cigar") | strpos(dummy_text," lsd ") | strpos(dummy_text,"marijuana") | strpos(dummy_text," meth ") | strpos(dummy_text,"nicotine") | strpos(dummy_text," smoker") | strpos(dummy_text," smoking") | strpos(dummy_text," vape") | strpos(dummy_text," vaping") ; /***** 4.3 Cancer Illness *****/ generate byte health_illness_sub_cancer = 0; label var health_illness_sub_cancer "Cancer"; replace health_illness_sub_cancer = 1 if /* general */ strpos(dummy_text," cancer") | strpos(dummy_text," oncolog") | /*specific*/ strpos(dummy_text,"carcinoma") | strpos(dummy_text,"dysplasia") | strpos(dummy_text,"hodgkins disease") | strpos(dummy_text,"hodgkins lymphoma") | strpos(dummy_text,"hodgkin lymphoma") | strpos(dummy_text,"leukemia") | strpos(dummy_text,"melanoma") | (strpos(dummy_text,"prostate") & strpos(dummy_text,"cancer")) ; /***** 4.4 Cardiovascular & Heart Diseases *****/ generate byte health_illness_sub_cardio = 0; label var health_illness_sub_cardio "Heart & Blood Conditions"; replace health_illness_sub_cardio= 1 if strpos(dummy_text," afib") | strpos(dummy_text," aneurysm") | strpos(dummy_text," angina") | strpos(dummy_text,"aortic disease") | strpos(dummy_text,"arterial disease") | strpos(dummy_text,"atherosclerosis") | strpos(dummy_text,"blood clot") | strpos(dummy_text,"cardiac ") | strpos(dummy_text,"cardiac death ") | strpos(dummy_text,"cardio") | strpos(dummy_text,"cholesterol") | strpos(dummy_text,"congenital heart") | strpos(dummy_text,"heart attack") | strpos(dummy_text,"heart condition") | strpos(dummy_text,"heart disease") | strpos(dummy_text,"heart failure") | strpos(dummy_text,"hemorrhage") | strpos(dummy_text,"high blood pressure") | strpos(dummy_text,"hypertens") | strpos(dummy_text," kardia") | strpos(dummy_text," lipid") | strpos(dummy_text,"low blood pressure") | strpos(dummy_text," stroke") | strpos(dummy_text,"vascular") ; /***** 4.5 COVID-19 Illness *****/ generate byte temp_covid19_source = 0; label var temp_covid19_source "COVID Vaccine Sources"; replace temp_covid19_source = 1 if source == 293 | source == 294 | source == 336 | source == 351 | source == 602 | source == 669 ; generate byte health_illness_sub_covid19 = 0; label var health_illness_sub_covid19 "COVID-19 General References"; replace health_illness_sub_covid19 = 1 if /*main terms*/ strpos(dummy_text,"coronavirus") | (strpos(dummy_text, "corona") & strpos(dummy_text,"coronal") == 0) | strpos(dummy_text," covid") | strpos(dummy_text," covit ") | strpos(dummy_text," c19 ") | strpos(dummy_text,"sars cov 2") | strpos(dummy_text,"2019 nCoV") | /*variants*/ strpos(dummy_text," ba2 ") | strpos(dummy_text,"b117 variant") | (strpos(dummy_text,"delta") & strpos(dummy_text,"variant")) | (strpos(dummy_text," mu ") & strpos(dummy_text,"variant")) | strpos(dummy_text," eg 5 ") | strpos(dummy_text," eris ") | strpos(dummy_text,"omicron") | strpos(dummy_text,"omnicron") | /*slurs*/ strpos(dummy_text,"china flu") | strpos(dummy_text,"chink flu") | strpos(dummy_text,"kung flu") | strpos(dummy_text,"wuhan flu") ; /***** 4.6 Other Contagious & Infectious Diseases *****/ generate byte health_illness_sub_contag_b = 0; label var health_illness_sub_contag_b "Sexually Transmitted Disease"; replace health_illness_sub_contag_b = 1 if strpos(dummy_text,"sexually transmitted disease") | strpos(dummy_text," std") | strpos(dummy_text," herpes") | strpos(dummy_text," hiv ") | strpos(dummy_text," hiv aids ") | strpos(dummy_text," hivaids ") | strpos(dummy_text," syphilis") ; generate byte health_illness_sub_contag_c = 0; label var health_illness_sub_contag_c "Other Contagious Diseas"; replace health_illness_sub_contag_c = 1 if /*general symptoms*/ strpos(dummy_text,"aerosolization") | (strpos(dummy_text,"contagious") & strpos(dummy_text,"disease")) | (strpos(dummy_text,"contagious") & strpos(dummy_text,"illness")) | strpos(dummy_text,"camel flu") | (strpos(dummy_text," cold") & strpos(dummy_text,"cough")) | (strpos(dummy_text," cold") & strpos(dummy_text,"virus")) | strpos(dummy_text,"cough") | (strpos(dummy_text,"pandemic") & health_illness_sub_covid19 == 0) | /*specific diseases*/ strpos(dummy_text,"bacteriophage") | strpos(dummy_text,"chicken pox") | strpos(dummy_text,"dengue") | strpos(dummy_text," ebola") | strpos(dummy_text," enterovir") | strpos(dummy_text," flu") | strpos(dummy_text,"h1n1") | strpos(dummy_text,"malaria") | strpos(dummy_text,"measle") | strpos(dummy_text,"monkeypox") | strpos(dummy_text," mpox") | strpos(dummy_text,"mumps") | strpos(dummy_text," polio") | strpos(dummy_text,"respiratory syncytial virus") | strpos(dummy_text," rsv ") | strpos(dummy_text,"small pox") | strpos(dummy_text,"tuberculosis") | strpos(dummy_text,"whooping cough") | strpos(dummy_text,"yellow fever") | (strpos(dummy_text,"zoonotic") & (strpos(dummy_text," disease") | strpos(dummy_text," illness"))) ; generate health_illness_sub_contag = 0; label var health_illness_sub_contag "Other Contagious Diseases"; replace health_illness_sub_contag = 1 if health_illness_sub_contag_b | health_illness_sub_contag_c ; /***** 4.7 Diabetes Disease *****/ generate byte health_illness_sub_diabetes = 0; label var health_illness_sub_diabetes "Diabetes"; replace health_illness_sub_diabetes = 1 if strpos(dummy_text," diabet") | strpos(dummy_text,"hyperinsulinema") | strpos(dummy_text,"hyperinsulinism") | strpos(dummy_text,"prediabet") ; /***** 4.8 Mental Health *****/ generate byte health_illness_sub_mental = 0; label var health_illness_sub_mental "Mental Health Conditions"; replace health_illness_sub_mental = 1 if /*general terms*/ strpos(dummy_text,"mental breakdown") | strpos(dummy_text,"mental break down") | strpos(dummy_text,"mental health") | strpos(dummy_text,"mental illness") | strpos(dummy_text," mentally ill") | strpos(dummy_text," agoraphobia") | strpos(dummy_text,"alzheimer") | strpos(dummy_text,"attention deficit hyperactivity disorder") | strpos(dummy_text," adhd") | strpos(dummy_text," anxiety") | strpos(dummy_text," autist") | strpos(dummy_text," autism") | strpos(dummy_text," bipolar") | (strpos(dummy_text," depression") & strpos(dummy_text," ill")) | (strpos(dummy_text," depression") & strpos(dummy_text," med")) | strpos(dummy_text,"developmental delay") | strpos(dummy_text," down syndrome") | strpos(dummy_text," downs syndrome") | strpos(dummy_text,"hikikomori") | strpos(dummy_text,"insanity") | // did not include insane because of idiomatic use strpos(dummy_text,"lay down and rot") | strpos(dummy_text," ldar ") | strpos(dummy_text,"learning disabilit") | strpos(dummy_text,"mental haze") | strpos(dummy_text,"obsessive compulsive") | strpos(dummy_text," ocd ") | strpos(dummy_text," schizo") | (strpos(dummy_text,"stress") & strpos(dummy_text,"disease")) | (strpos(dummy_text,"stress") & strpos(dummy_text,"illness")) | strpos(dummy_text," suicid") ; /***** 4.9 Obesity *****/ generate byte health_illness_sub_obesity = 0; label var health_illness_sub_obesity "Obesity"; replace health_illness_sub_obesity = 1 if strpos(dummy_text," obese") | strpos(dummy_text," obesity") | strpos(dummy_text,"overweight") | strpos(dummy_text," calori") ; /***** 4.10 Respiratory Illness *****/ generate byte health_illness_sub_resp = 0; label var health_illness_sub_resp "Respiratory & Pulmonary Illness Subframe"; replace health_illness_sub_resp = 1 if /*general*/ strpos(dummy_text,"respiratory") | strpos(dummy_text," pulmon") | /*specific*/ strpos(dummy_text," apnea") | strpos(dummy_text," asthma") | strpos(dummy_text,"nasal polyps") | strpos(dummy_text,"pneumonia") | strpos(dummy_text,"pulmonary disease") | strpos(dummy_text," copd") | strpos(dummy_text,"respiratory illness") | strpos(dummy_text,"respiratory infection") | strpos(dummy_text,"respiratory syncytial virus") | strpos(dummy_text," rsv ") | strpos(dummy_text," rhinitis") ; /**** 4.11. Other Illnesses ****/ generate byte health_illness_sub_other = 0; label var health_illness_sub_other "Other Illness Subframe"; replace health_illness_sub_other = 1 if strpos(dummy_text," acne") | strpos(dummy_text,"addisons disease") | strpos(dummy_text,"adrenal insufficiency") | strpos(dummy_text," adrenal disorder") | strpos(dummy_text," adrenal gland disorder") | strpos(dummy_text," antigen") | strpos(dummy_text,"appendicitis") | strpos(dummy_text,"arthritis") | strpos(dummy_text,"chronic illness") | strpos(dummy_text,"chronically ill") | strpos(dummy_text,"cushings syndrome") | strpos(dummy_text,"dermatitis") | strpos(dummy_text," eczema") | strpos(dummy_text,"ehlers-danlos") | strpos(dummy_text,"hyperdrosis") | strpos(dummy_text,"immune impaired") | strpos(dummy_text,"immuneimpaired") | strpos(dummy_text,"immunocompromised") | strpos(dummy_text,"inflammatory bowel disease") | strpos(dummy_text," ibd ") | strpos(dummy_text,"insulin resistance") | strpos(dummy_text,"irritable bowel") | strpos(dummy_text," lupus") | strpos(dummy_text,"meningitis") | strpos(dummy_text,"neuritis") | strpos(dummy_text,"osteoporosis") | strpos(dummy_text,"pili multigemini") | strpos(dummy_text," pimple") | strpos(dummy_text,"skin tag") ; /***** 4.12. Symptoms of Disease *****/ generate byte health_illness_sub_symptoms = 0; label var health_illness_sub_symptoms "Health Symptoms"; replace health_illness_sub_symptoms = 1 if strpos(dummy_text," ache") | strpos(dummy_text," aching") | strpos(dummy_text,"adenoid") | strpos(dummy_text,"adenoma") | strpos(dummy_text,"adrenaline") | strpos(dummy_text," ailment") | strpos(dummy_text," allerg") | strpos(dummy_text," anemia") | strpos(dummy_text,"appetite") | strpos(dummy_text," bleed") | strpos(dummy_text,"blood glucose") | strpos(dummy_text,"blood sugar") | strpos(dummy_text,"brain fog") | strpos(dummy_text,"bruise") | strpos(dummy_text,"bump") | strpos(dummy_text,"burn") | strpos(dummy_text,"calcifi") | strpos(dummy_text,"chronic fatigue") | strpos(dummy_text," coma ") | strpos(dummy_text," comatose") | strpos(dummy_text,"convulsion") | strpos(dummy_text," dandruff") | strpos(dummy_text,"fever") | strpos(dummy_text," gout") | strpos(dummy_text,"heart beat") | strpos(dummy_text," migraine") | strpos(dummy_text," nausea") | strpos(dummy_text,"nauseous") | strpos(dummy_text," pain ") | strpos(dummy_text,"paralysis") | strpos(dummy_text," seizure") | strpos(dummy_text," sepsis") | strpos(dummy_text,"sugar craving") | strpos(dummy_text," sweating") | strpos(dummy_text,"swelling") | strpos(dummy_text,"tired after eating") | strpos(dummy_text,"tired after meals") | strpos(dummy_text,"triglyceride") | strpos(dummy_text,"temperature") | strpos(dummy_text,"trouble losing weight") | strpos(dummy_text," tumor") | strpos(dummy_text,"weigh") ; /***** 4T. Illness Total *****/ generate byte health_illness_sub = 0; label var health_illness_sub "Illness Subframe"; foreach var of varlist health_illness_sub_* { ; replace health_illness_sub = 1 if `var'; }; /********** 5.0 Pharmaceutical Medications **********/ /***** 5.1 General References *****/ generate byte health_pharm_sub_gref = 0; label var health_pharm_sub_gref "General Pharmaceutical References"; replace health_pharm_sub_gref = 1 if strpos(dummy_text,"pharmaceutical") ; /***** 5.2 Addiction *****/ generate byte health_pharm_sub_addict = 0; label var health_pharm_sub_addict "Addiction Medications"; if health_illness_sub_addict { ; replace health_pharm_sub_addict = 1 if strpos(dummy_text,"acamprosate") | strpos(dummy_text," campral") | strpos(dummy_text,"buprenorphine") | strpos(dummy_text,"sublocade") | strpos(dummy_text,"subutex") | strpos(dummy_text," disulfiram") | strpos(dummy_text," antabus ") | strpos(dummy_text," antabuse ") | strpos(dummy_text,"tetraethyldisulfanedicarbothioamide") | strpos(dummy_text," methadon") | strpos(dummy_text,"naltrexone") | strpos(dummy_text," depade ") | strpos(dummy_text," revia ") | strpos(dummy_text,"vivitrol") | strpos(dummy_text," narcan") | strpos(dummy_text,"nicotine replacement") ; } ; /***** 5.3 Cancer *****/ /* need to add list from https://www.cancer.gov/about-cancer/treatment/drugs */ generate health_pharm_sub_cancer = 0; label var health_pharm_sub_cancer "Cancer Drugs"; if health_illness_sub_cancer { ; replace health_pharm_sub_cancer = 1 if strpos(dummy_text,"abiraterone") | strpos(dummy_text,"zytiga") | strpos(dummy_text,"pembrolizumab") | strpos(dummy_text,"keytruda") | strpos(dummy_text," steroid") | strpos(dummy_text,"prednisone") ; } ; /****** 5.4 Cardiovascular & Heart Medications *****/ generate byte health_pharm_sub_cardio = 0; label var health_pharm_sub_cardio "Heart & Blood Medications"; if health_illness_sub_cardio { ; replace health_pharm_sub_cardio = 1 if strpos(dummy_text,"atorvastatin") | strpos(dummy_text,"lipitor") | strpos(dummy_text," losartan") | strpos(dummy_text," statin") ; } ; /****** 5.5. COVID-19 Medications *****/ generate byte health_pharm_sub_covid19 = 0; label var health_pharm_sub_covid19 "COVID-19 Medications"; if (health_illness_sub_covid19 | temp_covid19_source) { ; replace health_pharm_sub_covid19 = 1 if strpos(dummy_text,"budesonide") | strpos(dummy_text," entocort") | strpos(dummy_text,"pulmicort") | strpos(dummy_text,"rhinocort") | strpos(dummy_text,"molnupiravir") | strpos(dummy_text,"remesdiver") | strpos(dummy_text,"veklury") ; }; /***** 5.6 Other Contagious & Infectious Medications *****/ generate byte health_pharm_sub_contag = 0; label var health_pharm_sub_contag "Contagious Disease Medications"; if health_pharm_sub_contag { ; replace health_pharm_sub_contag = 1 if (strpos(dummy_text,"ivermectin") & strpos(dummy_text,"malaria")) | strpos(dummy_text,"molnupiravir") ; }; /****** 5.7 Diabetes Medications *****/ generate byte health_pharm_sub_diabetes = 0; label var health_pharm_sub_diabetes "Diabetes Medicine"; if health_pharm_sub_diabetes { ; replace health_pharm_sub_diabetes = 1 if strpos(dummy_text," insulin") ; }; /***** 5.8 Mental Illness Medication *****/ generate byte health_pharm_sub_mental = 0; label var health_pharm_sub_mental "Mental Health Medications"; if health_pharm_sub_mental { ; replace health_pharm_sub_mental = 1 if strpos(dummy_text,"adderall") | strpos(dummy_text,"mydayis") | strpos(dummy_text,"amphetamine") | strpos(dummy_text,"antidepressant") | strpos(dummy_text,"lithium") | strpos(dummy_text,"ritalin") ; }; /***** 5.9 Respiratory Medication *****/ generate health_pharm_sub_resp = 0; label var health_pharm_sub_resp "Respiratory Medications"; if health_pharm_sub_resp { ; replace health_pharm_sub_resp = 1 if strpos(dummy_text,"albuterol") | strpos(dummy_text,"budesonide") | strpos(dummy_text,"entocort") | strpos(dummy_text,"pulmicort") | strpos(dummy_text,"rhinocort") | strpos(dummy_text,"remesdiver") | strpos(dummy_text,"veklury") | strpos(dummy_text," steroid") | strpos(dummy_text,"prednisone") ; }; /***** 5.10 Other Medications *****/ generate byte health_pharm_sub_other = 0; label var health_pharm_sub_other "Other Medications"; replace health_pharm_sub_other = 1 if strpos(dummy_text," antibiotic") | strpos(dummy_text,"antihistamine") | strpos(dummy_text,"antiinflammatory") | strpos(dummy_text,"aspirin") | strpos(dummy_text,"atorvastatin") | strpos(dummy_text,"benadryl") | strpos(dummy_text,"bentyl") | strpos(dummy_text,"dicycloverine") | strpos(dummy_text,"benzodiazepine") | strpos(dummy_text,"ibuprofen") | strpos(dummy_text," advil") | strpos(dummy_text,"pain medication") | strpos(dummy_text,"sedation") ; /***** 5T. Medication Total *****/ generate byte health_pharm_sub = 0; label var health_pharm_sub "Medications"; foreach var of varlist health_pharm_sub_* { ; replace health_pharm_sub = 1 if `var'; }; /********* 6.0 Vaccinations *********/ /***** 6.1. General to All Vaccines *****/ generate byte health_vacc_sub_gref = 0; label var health_vacc_sub_gref "Vaccination General Reference Bit"; replace health_vacc_sub_gref = 1 if health_illness_sub_covid19 | strpos(dummy_text," vaccin") | strpos(dummy_text,"vax") | strpos(dummy_text," boost") | strpos(dummy_text," inoculat") | strpos(dummy_text," inject") | strpos(dummy_text," jab") | strpos(dummy_text," mrna") | strpos(dummy_text,"revaccin") ; /***** 6.2. COVID-19 Vaccines *****/ generate byte temp_vacc_sub_covid19_company = 0; label var temp_vacc_sub_covid19_company "COVID Vaccine Developers"; replace temp_vacc_sub_covid19_company = 1 if strpos(dummy_text,"astrazeneca") | strpos(dummy_text,"johnson & johnson") | strpos(dummy_text," j&j") | strpos(dummy_text," j & j") | strpos(dummy_text," janssen") | strpos(dummy_text," moderna") | strpos(dummy_text," novavax") | strpos(dummy_text," pfizer") ; generate byte health_vacc_sub_covid19 = 0; label var health_vacc_sub_covid19 "COVID Vaccination"; replace health_vacc_sub_covid19 = 1 if health_illness_sub_covid19 & health_vacc_sub_gref ; /* contextual coding*/ replace health_vacc_sub_covid19 = 1 if /* qualifications */ (health_vacc_sub_gref | temp_covid19_source) & /* specification */ (health_illness_sub_covid19 | temp_vacc_sub_covid19_company | strpos(dummy_text," mrna") | strpos(dummy_text,"warp speed") | strpos(dummy_text,"warpspeed")) ; /***** 6.3 Other Contagious & Infectious Medications *****/ generate byte health_vacc_sub_contag = 0; label var health_vacc_sub_contag "Contagious Disease Treatment"; if health_vacc_sub_contag { ; replace health_vacc_sub_contag = 1 if strpos(dummy_text,"flu vacc") | strpos(dummy_text,"fluvac") | strpos(dummy_text,"fluvax") ; replace health_vacc_sub_contag = 1 if health_vacc_sub_covid19 == 0 & (strpos(dummy_text,"post injection") | strpos(dummy_text,"postinjection") | strpos(dummy_text," vacc") | strpos(dummy_text," vax")) ; }; /***** 6T. Vaccine Total *****/ /***** Vaccination Total *****/ generate byte health_vacc_sub = 0; label var health_vacc_sub "Vaccinations"; foreach var of varlist health_vacc_sub_* { ; replace health_vacc_sub = 1 if `var'; }; /********** 7.0 Other Treatments *********/ /***** 7.1 General *****/ * [fill in] ; /***** 7.2 Addiction Treatments *****/ generate byte health_treat_sub_addict = 0; label var health_treat_sub_addict "Addiction Treatments"; /* qualified */ if health_illness_sub_addict { ; replace health_treat_sub_addict = 1 if strpos(dummy_text,"alcoholics anonymous") | strpos(dummy_text," counsel") | strpos(dummy_text," detox") | strpos(dummy_text," rehab") ; } ; /* unqualified */ replace health_treat_sub_addict = 1 if strpos(dummy_text,"alcoholics anonymous"); /***** 7.3 Cancer Treatment *****/ generate health_treat_sub_cancer = 0; label var health_treat_sub_cancer "Cancer Treatments"; if health_illness_sub_cancer { ; replace health_treat_sub_cancer = 1 if strpos(dummy_text,"biomarker test") | strpos(dummy_text," chemotherap") | strpos(dummy_text," chemo ") | strpos(dummy_text,"hormone therap") | strpos(dummy_text,"hyperthermia") | strpos(dummy_text,"immunotherap") | strpos(dummy_text,"phototherap") | strpos(dummy_text,"radiation therap") | strpos(dummy_text,"surgery") ; } ; /***** 7.4 Cardiovascular & Heart Treatments *****/ generate byte health_treat_sub_cardio = 0; label var health_treat_sub_cardio "Heart & Blood Treatments"; if health_illness_sub_cardio { ; replace health_treat_sub_cardio = 1 if strpos(dummy_text," ablation") | (strpos(dummy_text,"transfusion") & strpos(dummy_text,"blood")) ; } ; /***** 7.5. COVID-19 Treatments *****/ generate byte health_treat_sub_covid19 = 0; label var health_treat_sub_covid19 "COVID-19 Treatments"; if (health_illness_sub_covid19 | temp_covid19_source) { ; replace health_treat_sub_covid19 = 1 if strpos(dummy_text," antibod") | strpos(dummy_text,"monoclonal") | strpos(dummy_text,"pcr test") | strpos(dummy_text," regeneron") | strpos(dummy_text," generon") | strpos(dummy_text," regn cov2") | strpos(dummy_text," test") | strpos(dummy_text," vacc") | strpos(dummy_text," vax") | strpos(dummy_text,"ventilator") | strpos(dummy_text,"mechanically ventilated") | (strpos(dummy_text,"tube") & strpos(dummy_text,"throat")) ; } ; /***** 7.6.1.2. Other Treatments *****/ generate byte health_treat_sub_other = 0; label var health_treat_sub_other "Other Medical Treatments"; replace health_treat_sub_other = 1 if strpos(dummy_text,"biops") | strpos(dummy_text,"bipap") | strpos(dummy_text,"bloat") | strpos(dummy_text,"brachytherapy") | strpos(dummy_text,"colonoscop") | strpos(dummy_text,"death panel") | strpos(dummy_text,"endoflife panel") | strpos(dummy_text,"end of life panel") | strpos(dummy_text," euthanasia") | strpos(dummy_text," gene therap") | strpos(dummy_text," genetic therap") | strpos(dummy_text,"heart monitor") | strpos(dummy_text,"hypnotherapy") | strpos(dummy_text,"mammogram") | strpos(dummy_text,"mastectomy") | strpos(dummy_text," surger") | strpos(dummy_text," surgical") | strpos(dummy_text," therap") | strpos(dummy_text," treatment") | strpos(dummy_text,"ventilator") ; /****** 7T Treatments *****/ generate byte health_treat_sub = 0; label var health_treat_sub "Other Treatments"; foreach var of varlist health_treat_sub_* { ; replace health_treat_sub = 1 if `var'; }; /********** 8.0. Misinformation **********/ /***** 8.1 COVID-19 Misinformation *****/ /* 8.1.1a. hoaxes and denialism */ generate byte health_misinfo_sub_covid19_a1 = 0; label var health_misinfo_sub_covid19_a1 "COVID-19 Myth & Hoax General References"; /* 4.5.4.1.a. general hoaxes and denialism */ if health_illness_sub_covid19 | temp_covid19_source { ; replace health_misinfo_sub_covid19_a1 = 1 if strpos(dummy_text,"brainwash") | strpos(dummy_text,"conspir") | strpos(dummy_text," denialist") | strpos(dummy_text," denier") | strpos(dummy_text," deny") | strpos(dummy_text,"fake news") | strpos(dummy_text,"hoax") | strpos(dummy_text,"plandemic") | strpos(dummy_text,"planned") | strpos(dummy_text,"plot") | strpos(dummy_text,"scamdemic") | strpos(dummy_text," simulat") ; } ; replace health_misinfo_sub_covid19_a1 = 1 if strpos(dummy_text," simulat") & strpos(dummy_text,"pandemic") ; /* 8.1.1b. cold or flu comparison */ if health_illness_sub_covid19 | temp_covid19_source { ; replace health_misinfo_sub_covid19_a1 = 1 if strpos(dummy_text," cold") | strpos(dummy_text," flu") | strpos(dummy_text,"influenza") ; }; /* 8.1.1c. hospitalization myths*/ if health_illness_sub_covid19 | temp_covid19_source { ; replace health_misinfo_sub_covid19_a1 = 1 if (strpos(dummy_text,"hospital") & (strpos(dummy_text,"beds") & (strpos(dummy_text," empty") | strpos(dummy_text,"not full") | strpos(dummy_text,"not capacity") | strpos(dummy_text,"not at capacity"))) | strpos(dummy_text," fraud") | strpos(dummy_text,"insurance scam") | strpos(dummy_text," money")) | strpos(dummy_text,"mannequin") ; } ; /* 8.1.2 racial/ethnic slurs */ generate byte health_misinfo_sub_covid19_a2 = 0; label var health_misinfo_sub_covid19_a2 "COVID-19 Racial/Ethnic Slurs"; if health_illness_sub_covid19 | temp_covid19_source { ; replace health_misinfo_sub_covid19_a2 = 1 if strpos(dummy_text,"china flu") | strpos(dummy_text,"kung flu") | strpos(dummy_text,"wuhan flu") ; }; /* 8.1.3 technology myths */ generate byte health_misinfo_sub_covid19_a3 = 0; label var health_misinfo_sub_covid19_a3 "COVID-19 Technology Myths"; if health_illness_sub_covid19 | temp_covid19_source { ; replace health_misinfo_sub_covid19_a3 = 1 if strpos(dummy_text,"5g") | strpos(dummy_text," magnet") ; }; /* 8.1.4 passover-easter-pentecost myths */ generate byte health_misinfo_sub_covid19_a4 = 0; label var health_misinfo_sub_covid19_a4 "COVID-19 Religion Myths"; if (health_illness_sub_covid19 | temp_covid19_source) { ; replace health_misinfo_sub_covid19_a4 = 1 if date <= td(12apr2020) & (strpos(dummy_text," easter") | strpos(dummy_text,"passover")) ; replace health_misinfo_sub_covid19_a4 = 1 if date <= td(31may2020) & (strpos(dummy_text,"memorial day") | strpos(dummy_text,"pentecost")) ; }; /* 8.1.5 ineffective myths */ generate temp_ineffective = 0; replace temp_ineffective = 1 if strpos(dummy_text,"ineffective") | strpos(dummy_text,"does not work") | strpos(dummy_text,"not safe") ; generate byte health_misinfo_sub_covid19_a5 = 0; label var health_misinfo_sub_covid19_a5 "COVID-19 Ineffectiveness Myths"; if health_illness_sub_covid19 | temp_covid19_source & temp_ineffective { ; replace health_misinfo_sub_covid19_a5 = 1 if strpos(dummy_text,"lockdown") | strpos(dummy_text,"lock down") | strpos(dummy_text,"mask") | strpos(dummy_text,"post injection") | strpos(dummy_text,"postinjection") | strpos(dummy_text," vacc") | strpos(dummy_text," vax") ; }; /* 8.1.6 COVID misinformation treatments */ generate byte health_misinfo_sub_covid19_b = 0; label var health_misinfo_sub_covid19_b "COVID-19 Treatment Myths"; if health_illness_sub_covid19 | temp_covid19_source {; replace health_misinfo_sub_covid19_b = 1 if strpos(dummy_text," detox") | strpos(dummy_text,"estrogen") | strpos(dummy_text,"hydrogen peroxide") | (strpos(dummy_text,"ivermectin") & strpos(dummy_text,"malaria")) | (strpos(dummy_text,"nebulizer") & strpos(dummy_text,"hydrogen peroxide")) ; }; /* 8.1.T COVID misinformation */ generate byte health_misinfo_sub_covid19 = 0; label var health_misinfo_sub_covid19 "COVID-19 Misinformation"; replace health_misinfo_sub_covid19 = 1 if health_misinfo_sub_covid19_a1 | health_misinfo_sub_covid19_a2 | health_misinfo_sub_covid19_a3 | health_misinfo_sub_covid19_a4 | health_misinfo_sub_covid19_a5 | health_misinfo_sub_covid19_b ; /***** 8.2. Antivaxxing **********/ /* 8.2.1. Side effects and consequences*/ generate health_misinfo_sub_antivax_c = 0; label var health_misinfo_sub_antivax_c "Health Concerns Antivax Nano"; if health_vacc_sub { ; replace health_misinfo_sub_antivax_c = 1 if strpos(dummy_text,"adverse reaction") | strpos(dummy_text,"adverse event") | strpos(dummy_text," autism") | strpos(dummy_text,"blood clot") | strpos(dummy_text," death") | strpos(dummy_text," die") | strpos(dummy_text," died") | strpos(dummy_text," fatal") | strpos(dummy_text,"disabilit") | strpos(dummy_text,"disabled") | strpos(dummy_text," euthan") | strpos(dummy_text,"heart") | strpos(dummy_text," injur") | strpos(dummy_text,"myocardi") | strpos(dummy_text,"pure blood") | strpos(dummy_text,"pureblood") | strpos(dummy_text," shed") | strpos(dummy_text," side effect") | strpos(dummy_text,"transhuman") | strpos(dummy_text,"vaccine adverse event") | strpos(dummy_text," vaers ") ; }; replace health_misinfo_sub_antivax_c = 1 if health_vacc_sub & strpos(dummy_text," dna "); /* 8.2.2. Human rights comparison and privacy rights */ generate health_misinfo_sub_antivax_d = 0; label var health_misinfo_sub_antivax_d "Human Rights and Privacy Antivax Nano"; if health_vacc_sub { ; replace health_misinfo_sub_antivax_d = 1 if strpos(dummy_text,"bodily sovereignty") | strpos(dummy_text,"body sovereignty") | strpos(dummy_text," crime") | strpos(dummy_text,"criminal") | strpos(dummy_text,"database") | strpos(dummy_text,"fema camp") | strpos(dummy_text,"quarantine camp") | strpos(dummy_text,"forced penetration") | strpos(dummy_text,"forced vaccination") | strpos(dummy_text,"genocide") | strpos(dummy_text,"mandate") | strpos(dummy_text,"mandatory") | strpos(dummy_text,"medical freedom") | strpos(dummy_text,"monitor") | strpos(dummy_text,"my body") & strpos(dummy_text,"nuremberg") | strpos(dummy_text,"nuremburg") | strpos(dummy_text,"passport") | strpos(dummy_text,"covid passport") | strpos(dummy_text,"covid19 passport") | strpos(dummy_text,"vaccine passport") | strpos(dummy_text,"restriction") | strpos(dummy_text," rights") | strpos(dummy_text,"star of david") | strpos(dummy_text," surveil") | strpos(dummy_text," track") | strpos(dummy_text,"vaccine acquired immunodeficien") | strpos(dummy_text," vaids") ; }; replace health_misinfo_sub_antivax_d = 1 if date > td(01oct2020) & (strpos(dummy_text,"nuremberg") | strpos(dummy_text,"nuremburg")) ; /* 8.2.3. Technology myths */ generate health_misinfo_sub_antivax_f = 0; label var health_misinfo_sub_antivax_f "Technology Myths Antivax Nano"; if health_vacc_sub { ; replace health_misinfo_sub_antivax_f = 1 if strpos(dummy_text," magnet") | strpos(dummy_text,"microchip") | strpos(dummy_text," chip") | strpos(dummy_text,"nanoparticles") | strpos(dummy_text,"nano particles") | strpos(dummy_text," 5g") ; }; /* 8.2.4. Antivax protests and resistance*/ generate health_misinfo_sub_antivax_g = 0; label var health_misinfo_sub_antivax_g "COVID-19 Protests"; if health_vacc_sub { ; replace health_misinfo_sub_antivax_g = 1 if strpos(dummy_text,"convoy") | strpos(dummy_text,"protest") | strpos(dummy_text," trucker") ; }; /* 8.2.T. Antivax bit (includes summation of antivax nanos) *****/ generate byte health_misinfo_sub_antivax = 0; label var health_misinfo_sub_antivax "Antivaccination Bit"; replace health_misinfo_sub_antivax = 1 if strpos(dummy_text,"antivac") | strpos(dummy_text,"antivax") | strpos(dummy_text," unvacc") | health_misinfo_sub_antivax_c | health_misinfo_sub_antivax_d | health_misinfo_sub_antivax_f | health_misinfo_sub_antivax_g ; /***** 8.T Misinformation Adjustments & Totals *****/ replace health_misinfo_sub_antivax = 1 if (health_misinfo_sub_antivax | health_illness_sub_covid19 ) & (strpos(dummy_text,"aaron rodgers") | strpos(dummy_text,"americas frontline doctor") | strpos(dummy_text,"freeman of the land") | strpos(dummy_text,"freemen of the land") | strpos(dummy_text,"global veterans alliance") | (strpos(dummy_text,"djokovic") & strpos(dummy_text,"australian open")) | strpos(dummy_text,"stella immanuel") | strpos(dummy_text,"ronnie jackson") | strpos(dummy_text,"joseph ladapo") | strpos(dummy_text,"robert malone") | strpos(dummy_text,"meat loaf") | strpos(dummy_text,"joe rogan") | strpos(dummy_text,"sherri tenpenny") | strpos(dummy_text,"world doctors alliance")) ; generate health_misinfo_sub_covid19_c = 0; label var health_misinfo_sub_covid19_c "COVID-19 Antivax"; replace health_misinfo_sub_covid19_c = 1 if (health_illness_sub_covid | health_misinfo_sub_covid19 ) & health_misinfo_sub_antivax ; replace health_misinfo_sub_covid19 = 1 if health_misinfo_sub_covid19_c ; /* Other Health Misinformation */ /***** 8.0. Health Misinfo *****/ generate byte health_misinfo_sub_other = 0; label var health_misinfo_sub_other "Other Health Misinfo"; replace health_misinfo_sub_other = 1 if strpos(dummy_text,"death panel") | strpos(dummy_text,"end of life panel") | strpos(dummy_text,"endoflife panel") | strpos(dummy_text,"twelve strand dna") | strpos(dummy_text,"12 strand dna") ; /* 8.T totals covid hoaxes and misinformation */ generate byte health_misinfo_sub = 0; label var health_misinfo_sub "Health Misinformation"; foreach var of varlist health_misinfo_sub_* { ; replace health_misinfo_sub = 1 if `var'; }; /********* 9.0 Alternative Treatments *********/ /***** 9.1. Alternative Medicine *****/ generate byte health_alttreat_sub_altmed = 0; label var health_alttreat_sub_altmed "Alternative Medicine"; replace health_alttreat_sub_altmed = 1 if strpos(dummy_text,"acupunctur") | strpos(dummy_text,"chiropract") | strpos(dummy_text,"colloidial silver") | (strpos(dummy_text,"cleanse") & strpos(dummy_text,"parasite")) | strpos(dummy_text,"homeopath") | strpos(dummy_text,"natural healing") | strpos(dummy_text,"oriental healing") | strpos(dummy_text,"quarantine") | strpos(dummy_text," supplement") | /*immunity*/ strpos(dummy_text,"herd immunity") | strpos(dummy_text,"natural immunity") ; replace health_alttreat_sub_altmed = 1 if /*qualification*/ (health_illness_sub | strpos(dummy_text,"disease") | strpos(dummy_text," illness")) & /*specification*/ (strpos(dummy_text,"aloe vera") | strpos(dummy_text,"bleach") | strpos(dummy_text,"calcium") | strpos(dummy_text,"magnesium") | strpos(dummy_text,"potassium") | strpos(dummy_text,"silver") | strpos(dummy_text," sun") | strpos(dummy_text," tea ") | strpos(dummy_text," teas ") | strpos(dummy_text,"vitamin")) ; /***** 9.2. Prayer & Healing *****/ generate byte health_alttreat_sub_heal = 0; label var health_alttreat_sub_heal "Healing"; if health_illness_sub {; replace health_alttreat_sub_heal = 1 if ((strpos(dummy_text," heal") | strpos(dummy_text,"cure")) & (strpos(dummy_text,"divine") | strpos(dummy_text,"god") | strpos(dummy_text,"lay hand") | strpos(dummy_text,"laid hand") | strpos(dummy_text,"pray"))) | (strpos(dummy_text," pray") & (strpos(dummy_text,"health") | strpos(dummy_text,"hospital") | strpos(dummy_text," ill") | strpos(dummy_text,"sick") | strpos(dummy_text,"cancer") | strpos(dummy_text,"heart") | strpos(dummy_text,"stroke"))) | strpos(dummy_text,"healing hand") | strpos(dummy_text,"frequency") | strpos(dummy_text,"resonance") ; }; replace health_alttreat_sub_heal = 1 if strpos(dummy_text," bioheal") ; /***** 9.T. Overall Alternative Treatment *****/ generate health_alttreat_sub = 0; label var health_alttreat_sub "Alternative Treatments"; replace health_alttreat_sub = 1 if health_alttreat_sub_altmed | health_alttreat_sub_heal ; /********** T.0 Create Frame **********/ generate byte health_theme = 0; label var health_theme "Health Theme"; replace health_theme = 1 if health_gref_sub | health_prof_sub | health_wellness_sub | health_illness_sub | health_pharm_sub | health_vacc_sub | health_treat_sub | health_misinfo_sub | health_alttreat_sub ; generate health_forums = st_healthmisinfo; label var health_forums "Health Forum"; generate byte health_frame = 0; label var health_frame "Health Frame"; replace health_frame = 1 if health_theme | health_forum ; /* combinations */ foreach var of varlist *illness* *pharm* *treat* *vacc* *misinfo* { ; replace `var' = 0 if `var' == . ; } ; generate byte health_addict_combo = 0; replace health_addict_combo = 1 if health_illness_sub_addict | health_pharm_sub_addict | health_treat_sub_addict ; label var health_addict_combo "Addiction Topics"; generate byte health_cancer_combo = 0; replace health_cancer_combo = 1 if health_illness_sub_cancer | health_pharm_sub_cancer | health_treat_sub_cancer ; label var health_cancer_combo "Cancer Topics"; generate byte health_cardio_combo = 0; replace health_cardio_combo = 1 if health_illness_sub_cardio | health_pharm_sub_cardio | health_treat_sub_cardio ; label var health_cardio_combo "Cardio-Vascular Topics"; generate byte health_covid19_combo = 0; replace health_covid19_combo = 1 if health_illness_sub_covid19 | health_pharm_sub_covid19 | health_treat_sub_covid19 | health_vacc_sub_covid19 | health_misinfo_sub_covid19 ; label var health_covid19_combo "COVID-19 Topics"; generate byte health_contag_combo = 0; replace health_contag_combo = 1 if health_illness_sub_contag | health_pharm_sub_contag | health_vacc_sub_contag ; label var health_contag_combo "Other Contagious Disease Topics"; generate byte health_diabetes_combo = 0; replace health_diabetes_combo = 1 if health_illness_sub_diabetes | health_pharm_sub_diabetes ; label var health_diabetes_combo "Diabetes / Obesity Topics"; generate byte health_mental_combo = 0; replace health_mental_combo = 1 if health_illness_sub_mental | health_pharm_sub_mental ; label var health_mental_combo "Mental Health Topics"; generate byte health_resp_combo = 0; replace health_resp_combo = 1 if health_illness_sub_resp | health_pharm_sub_resp ; label var health_resp_combo "Respiratory Illness Topics"; keep source yearmonth yearmonthno health_*; save "${framesdir}frame_health_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_humanities.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: PHILOSOPHY AND THE ARTS *****/ /***** Assigned Original Date: 02 August 2022 *****/ /***** Last Update: 10 July 2024 *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; generate byte humanities_philosoph_sub = 0 ; label var humanities_philosoph_sub "Philosophy Subframe" ; replace humanities_philosoph_sub = 1 if strpos(dummy_text," dignity") | strpos(dummy_text," freedom") | strpos(dummy_text,"individualism") | strpos(dummy_text,"machiavelli") | strpos(dummy_text," nihil") | strpos(dummy_text," rights") | strpos(dummy_text,"will to power") ; replace humanities_philosoph_sub = 1 if strpos(dummy_text," aristotle") | strpos(dummy_text,"ayn rand") | strpos(dummy_text,"deleuze") | strpos(dummy_text,"doris lessing") | strpos(dummy_text," nietzche") | strpos(dummy_text," plato") | strpos(dummy_text," stoic"); generate byte humanities_lit_sub = 0; label var humanities_lit_sub "Literature and the Arts Subframe" ; replace humanities_lit_sub = 1 if /*art & sculpture */ strpos(dummy_text,"marina abramovic") | strpos(dummy_text,"spirit cooking") | /*movies*/ strpos(dummy_text,"james bond") | strpos(dummy_text,"12 monkeys") | /*tolkein*/ strpos(dummy_text," ainur") | strpos(dummy_text," ainor") | strpos(dummy_text," elf ") | strpos(dummy_text," elves ") | strpos(dummy_text," hobbit") | strpos(dummy_text,"lord of the rings") | strpos(dummy_text,"middle earth") | /*television*/ (strpos(dummy_text,"commercial") & (strpos(dummy_text,"television") | strpos(dummy_text," tv "))) | strpos(dummy_text,"dance show") | strpos(dummy_text,"danceshow") | /*other*/ strpos(dummy_text," actor") | strpos(dummy_text," actress") | strpos(dummy_text," art ") | strpos(dummy_text," arts ") | strpos(dummy_text," artist") | strpos(dummy_text,"literature") | strpos(dummy_text,"movie review") | strpos(dummy_text," music") | strpos(dummy_text," painting ") | strpos(dummy_text," poet") | strpos(dummy_text," sculpt") ; generate byte humanities_names_sub = 0; label var humanities_names_sub "Artists & Media Celebrities"; // need to figure out how to deal with influencers replace humanities_names_sub = 1 if strpos(dummy_text,"pete davidson") | strpos(dummy_text,"kardashian") | strpos(dummy_text,"kanye west") ; generate byte humanities_frame = 0; label var humanities_frame "Humanities Frame"; replace humanities_frame = 1 if humanities_philosoph_sub | humanities_lit_sub; keep source yearmonth yearmonthno humanities_*; save "${framesdir}frame_humanities_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_military.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: MILITARY FRAME *****/ /***** Last Update: 29 March 2024 *****/ /***** *****/ /***** *****/ /***** This subroutine uses the following data set: *****/ /***** bit_spiritual-warfare_${filedate}.dta *****/ /***** *****/ /***** This routine is used in the following frame: *****/ /***** subroutine_frame_values *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_spwar_${filedate}_${timeperiod}.dta"; /********** organized military subframe **********/ generate byte military_organized_sub = 0; replace military_organized_sub = 1 if /*general*/ strpos(dummy_text,"military") | strpos(dummy_text," armed forces") | strpos(dummy_text," troops") | /*divisions*/ strpos(dummy_text,"battalion") | strpos(dummy_text,"infantry") | /*ranks or status*/ strpos(dummy_text," cadet") | strpos(dummy_text,"midshipmen") | /*services and agencies*/ strpos(dummy_text," air force") | strpos(dummy_text," army") | strpos(dummy_text,"coast guard") | strpos(dummy_text," navy") | strpos(dummy_text," naval ") | strpos(dummy_text," marines") | strpos(dummy_text,"national guard") | strpos(dummy_text,"seal team t") | strpos(dummy_text,"seal team six") | strpos(dummy_text,"space force") | strpos(dummy_text,"special forces") | strpos(dummy_text,"israel defense"); label var military_organized_sub "Organized Military Subframe"; /********** military movements subframe **********/ generate byte military_movements_sub = 0; label var military_movements_sub "Military Movements Subframe"; replace military_movements_sub = 1 if /*boats*/ strpos(dummy_text,"boatfag") | /*planes*/ strpos(dummy_text," af1 ") | strpos(dummy_text," af2 ") | strpos(dummy_text,"eagle is in flight") | strpos(dummy_text," e6 command") | strpos(dummy_text,"ground stop") | strpos(dummy_text,"planefag") | strpos(dummy_text,"transponder") | (strpos(dummy_text," usaf") & strpos(dummy_text," inbound") | strpos(dummy_text," outbound") | strpos(dummy_text," heading")) | /*invasion*/ (strpos(dummy_text," command") & (strpos(dummy_text," un ") | strpos(dummy_text,"united nations"))) | (strpos(dummy_text," gitmo") & strpos(dummy_text,"flight")) | strpos(dummy_text,"jade helm") | (strpos(dummy_text,"military") & strpos(dummy_text,"exercise")) | strpos(dummy_text,"foreign troops") | strpos(dummy_text," invade") | strpos(dummy_text,"invasion") ; /********** militaristic actions and actors subframe **********/ *do "${programdir}subroutine_bit_christian-militarism_temp.do"; rename relig_spiritwar_sub_w military_act_sub_christ; replace military_act_sub_christ = 1 if military_act_sub_christ > 1; generate byte military_act_sub_patriot = 0; replace military_act_sub_patriot = 1 if strpos(dummy_text," patriot") | strpos(dummy_text," patriots"); label var military_act_sub_patriot "Patriot Bit"; generate byte military_act_sub_digital = 0; replace military_act_sub_digital = 1 if strpos(dummy_text,"digital soldier"); label var military_act_sub_digital "Digital Soldier Bit"; generate byte military_act_sub = 0; label var military_act_sub "Militaristic Actions & Actors Subframe"; replace military_act_sub = 1 if military_act_sub_patriot | military_act_sub_digital | military_act_sub_christ | strpos(dummy_text,"civilian") | strpos(dummy_text,"guerilla") | strpos(dummy_text," marksman") | strpos(dummy_text," marksmen") | strpos(dummy_text,"no fly zone") | strpos(dummy_text," op ") | strpos(dummy_text," ops ") | (strpos(dummy_text,"security operation") & (strpos(dummy_text,"police") == 0 & strpos(dummy_text,"law enforcement") == 0)) ; replace military_act_sub = 0 if military_organized_sub | military_movements_sub; /********** military coup / reinstatement subframe **********/ /***** january 6, 2021 *****/ generate byte military_coup_sub_jan6 = 0; replace military_coup_sub_jan6 = 1 if /*event combos*/ (strpos(dummy_text,"capitol") & strpos(dummy_text,"january 6")) | (strpos(dummy_text,"capitol") & strpos(dummy_text,"jan 6")) | (strpos(dummy_text,"capitol") & strpos(dummy_text,"riot")) | /*ashli babbit*/ strpos(dummy_text,"ashli babbit") | strpos(dummy_text,"ashley babbit") | /*mike pence*/ strpos(dummy_text,"hang mike pence"); /*advance date*/ replace military_coup_sub_jan6 = 1 if (strpos(dummy_text,"january 6") | strpos(dummy_text,"jan. 6")) & ((date >= td(03nov2020)) & (date <= td(31dec2021))); /* jan. 6 commission*/ replace military_coup_sub_jan6 = 1 if strpos(dummy_text,"commission") & (strpos(dummy_text,"january 6") | strpos(dummy_text,"jan 6")); generate byte military_coup_sub = 0; /* trump installment conspiracy dates and activities */ replace military_coup_sub = 1 if /* date qualifications */ (strpos(dummy_text,"january 6") | strpos(dummy_text,"jan 6") | strpos(dummy_text, "march 4") | strpos(dummy_text, "mar 4") | strpos(dummy_text,"july 4") | strpos(dummy_text,"4th of july") | strpos(dummy_text,"fourth of july") | strpos(dummy_text,"august 4") | strpos(dummy_text,"august 11") | strpos(dummy_text,"august 13")) & /* violent military actions */ (strpos(dummy_text,"blood shed") | strpos(dummy_text,"blood of multitudes") | strpos(dummy_text,"civil war") | strpos(dummy_text," coup") | strpos(dummy_text,"insurrect") | strpos(dummy_text,"insurrection act") | strpos(dummy_text,"overthrow") | strpos(dummy_text,"overturn") | strpos(dummy_text," rebel ") | strpos(dummy_text,"rebellion") | strpos(dummy_text," revolt ") | strpos(dummy_text," revolts ") | (strpos(dummy_text,"revolution") & strpos(dummy_text,"social revolutions") == 0) | /*state of emergency*/ strpos(dummy_text,"state of emergency") | strpos(dummy_text,"emergency alert") | strpos(dummy_text,"emergency broadcast system") | strpos(dummy_text," ebs ") | strpos(dummy_text,"emergency clause") | strpos(dummy_text,"emergency declaration") | strpos(dummy_text,"executive order") | strpos(dummy_text,"martial law") | strpos(dummy_text,"military tribunal") | strpos(dummy_text,"13848")); /* civil war */ replace military_coup_sub = 1 if strpos(dummy_text,"generals are in control") | strpos(dummy_text,"military is in control"); /* military, executive, or law enforcement actions */ replace military_coup_sub = 1 if /* qualifications */ (strpos(dummy_text,"military") | strpos(dummy_text,"biden") | strpos(dummy_text,"trump")) & /* actions */ (strpos(dummy_text,"arrest") | strpos(dummy_text,"civil war") | strpos(dummy_text,"emergency clause") | strpos(dummy_text,"emergency declaration") | strpos(dummy_text,"execute") | strpos(dummy_text,"executions") | (strpos(dummy_text,"executive order") | strpos(dummy_text,"13848")) | strpos(dummy_text,"gallows") | strpos(dummy_text,"guantanamo") | strpos(dummy_text,"gitmo") | (strpos(dummy_text," hang") & strpos(dummy_text,"hanger") == 0) | strpos(dummy_text,"martial law") | strpos(dummy_text,"reinstate") | strpos(dummy_text,"emergency alert") |strpos(dummy_text," treason") | strpos(dummy_text,"tribunal")); /* other */ replace military_coup_sub = 1 if strpos(dummy_text,"4 years of trump 1 year of biden") | military_coup_sub_jan6; label var military_coup_sub "Coup/Reinstatement Subframe"; /********** civil war **********/ generate byte military_civilwar_sub = 0; replace military_civilwar_sub = 1 if strpos(dummy_text,"civil war") | strpos(dummy_text,"black flag") | strpos(dummy_text,"dont tread on me"); label var military_civilwar_sub "Civil War Subframe"; /********** weapons and weapons mass destruction **********/ generate byte military_wmd_sub = 0; label var military_wmd_sub "Military WMD Subframe"; replace military_wmd_sub = 1 if /*general*/ strpos(dummy_text,"mass destruction") | strpos(dummy_text," wmd ") | /*aero*/ (strpos(dummy_text," arsenal") & (strpos(dummy_text,"football") == 0 & strpos(dummy_text,"soccer") == 0)) | strpos(dummy_text," bomb") | strpos(dummy_text,"b52") | strpos(dummy_text," bomber") | strpos(dummy_text,"drone strike") | (strpos(dummy_text," f15 ") & (strpos(dummy_text,"fighter") | strpos(dummy_text,"jet") | strpos(dummy_text,"plane"))) | strpos(dummy_text," icbm") | strpos(dummy_text," mig ") | strpos(dummy_text," missile") | strpos(dummy_text,"stealth bomber") | strpos(dummy_text,"stealth fighter") | strpos(dummy_text,"vacuum bomb") | /*chemical*/ strpos(dummy_text,"chemical weapon") | strpos(dummy_text,"mustard gas") | strpos(dummy_text," sarin ") | /*nuclear*/ strpos(dummy_text,"atomic bomb") | strpos(dummy_text,"hydrogen bomb") | strpos(dummy_text,"nuclear bomb") | strpos(dummy_text,"nuclear weapon") | strpos(dummy_text,"nuclear arsenal") | /*others*/ strpos(dummy_text," arms control") | strpos(dummy_text," arms flow") | strpos(dummy_text,"biochemical weapon") | strpos(dummy_text,"biological warfare") | strpos(dummy_text,"biological weapon") | strpos(dummy_text,"bioweapon") | strpos(dummy_text,"human shield") | (strpos(dummy_text,"tank") & strpos(dummy_text," war")) ; /********** active militia groups subframe *********/ generate byte military_usmilitia_sub = 0; label var military_usmilitia_sub "U.S. Militias Subframe"; replace military_usmilitia_sub = 1 if /*general or multilocal*/ strpos(dummy_text," militia") | strpos(dummy_text,"american patriots") | strpos(dummy_text,"citizen militia") | strpos(dummy_text,"citizens militia") | strpos(dummy_text,"constitutional guard") | strpos(dummy_text,"constitutional militia") | strpos(dummy_text,"county militia") | strpos(dummy_text,"county patriot") | strpos(dummy_text,"county rangers") | strpos(dummy_text,"First Amendment Praetorium") | strpos(dummy_text,"1st Amendment Praetorium") | strpos(dummy_text,"light foot militia") | strpos(dummy_text,"minutemen") | strpos(dummy_text,"not fucking around coalition") | strpos(dummy_text,"oath keeper") | strpos(dummy_text,"oathkeeper") | strpos(dummy_text,"sons of liberty") | strpos(dummy_text,"three percenter") | strpos(dummy_text,"3 percenter") | strpos(dummy_text,"iii% security force") | strpos(dummy_text,"united patriots") | strpos(dummy_text,"volunteer militia") | /*alabama*/ strpos(dummy_text,"south alabama militia") | /*alaska*/ strpos(dummy_text,"anchorage municipality defense force") | strpos(dummy_text,"central alaska militia") | /*arizona*/ strpos(dummy_text,"arizona border recon") | strpos(dummy_text,"arizona state militia") | strpos(dummy_text,"central alaska militia") | /*arkansas*/ strpos(dummy_text,"arkansas state militia") | /*california*/ strpos(dummy_text,"california state militia") | /*florida*/ strpos(dummy_text,"florida militia") | /*maine*/ strpos(dummy_text,"maine militia") | strpos(dummy_text,"watchmen of maine") | /*michigan*/ strpos(dummy_text,"delta 5 mobile light infantry") | strpos(dummy_text,"hutaree") | strpos(dummy_text,"michigan militia") | /*mississippi*/ strpos(dummy_text,"mississippi militia") | /*montana*/ strpos(dummy_text,"montana freemen") | strpos(dummy_text,"montana militia") | (strpos(dummy_text,"posse comitatus") & strpos(dummy_text,"montana")) | /*missouri*/ strpos(dummy_text,"missouri militia") | /*nevada*/ strpos(dummy_text,"south nevada militia") | /*new mexico*/ strpos(dummy_text,"southern new mexico militia") | /*new york*/ strpos(dummy_text,"new york light foot") | /*ohio*/ strpos(dummy_text,"ohio defense force") | /*oregon*/ strpos(dummy_text,"oregon militia alliance") | /*tennessee*/ strpos(dummy_text,"east tennessee mountain militia") | strpos(dummy_text,"black robe regiment") | /*texas*/ strpos(dummy_text,"golden triangle militia"); /********** overall topic **********/ generate byte military_frame = 0; label var military_frame "Military/Militarism Frame"; replace military_frame = 1 if military_organized_sub | military_movements_sub | military_act_sub | military_coup_sub | military_civilwar_sub | military_usmilitia_sub | military_wmd_sub; drop dummy_text; keep source yearmonth yearmonthno military_*; save "${framesdir}frame_military_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_natsci.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE NATURAL SCIENCE FRAME *****/ /***** Assigned Origin Date: 28 October 2022 *****/ /***** Last Update: 24 December 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********* science **********/ generate byte natsci_gref_sub = 0; label var natsci_gref_sub "Science General References"; replace natsci_gref_sub = 1 if strpos(dummy_text," science") | strpos(dummy_text,"scientific") | strpos(dummy_text,"scientism") ; /********** astronomy and space **********/ generate byte natsci_astronomy_sub_gref = 0; label var natsci_astronomy_sub "Astronomy Subframe"; replace natsci_astronomy_sub_gref = 1 if strpos(dummy_text,"apophos") | strpos(dummy_text,"asteroid") | strpos(dummy_text,"astronomy") | strpos(dummy_text,"astrophysic") | strpos(dummy_text,"celestial body") | strpos(dummy_text,"celestial bodies") | strpos(dummy_text," comet") | strpos(dummy_text,"heavenly body") | strpos(dummy_text,"heavenly bodies") | strpos(dummy_text,"meteor") | strpos(dummy_text,"micronova") | strpos(dummy_text,"micro nova") | strpos(dummy_text," moon") | strpos(dummy_text,"moon landing") | strpos(dummy_text," lunar") | strpos(dummy_text,"national aeronautics and space administration") | strpos(dummy_text," nasa ") | strpos(dummy_text,"outer space") | (strpos(dummy_text,"planet") & (strpos(dummy_text,"jupiter") | strpos(dummy_text,"mars") | strpos(dummy_text,"mercury") | strpos(dummy_text,"saturn"))) | (strpos(dummy_text,"rover") & strpos(dummy_text,"curiosity")) | strpos(dummy_text,"solar flare") | strpos(dummy_text,"solar wind") | (strpos(dummy_text," sun ") & strpos(dummy_text," tan") == 0) | strpos(dummy_text," suns ") | strpos(dummy_text,"space flight") | strpos(dummy_text,"supernova") | strpos(dummy_text,"super nova") | strpos(dummy_text,"telescope") | strpos(dummy_text,"individual mirror segments") | strpos(dummy_text,"time travel") | strpos(dummy_text," venus") | strpos(dummy_text,"webb telescope") ; /********** biology and geology subframe and bits **********/ generate natsci_stem_sub_gref = 0; label var natsci_stem_sub_gref "STEM General References"; replace natsci_stem_sub_gref = 1 if /*anatomy*/ strpos(dummy_text,"alpha brain wave") | /*biology and zoology*/ strpos(dummy_text,"biolog") | (strpos(dummy_text,"gain of function") & strpos(dummy_text,"virus")) | strpos(dummy_text," zoolog") | strpos(dummy_text,"pet shelter") | strpos(dummy_text," animal") | strpos(dummy_text," cat ") | strpos(dummy_text," cats ") | strpos(dummy_text,"chicken") | strpos(dummy_text," dog ") | strpos(dummy_text," dogs ") | strpos(dummy_text,"arachnid") | strpos(dummy_text,"daddy long legs") | strpos(dummy_text,"daddy longlegs") | strpos(dummy_text,"daddylonglegs") | strpos(dummy_text,"spider") | strpos(dummy_text,"tarantula") | strpos(dummy_text," insect") | strpos(dummy_text," ant ") | strpos(dummy_text," ants ") | strpos(dummy_text,"mosquito") | (strpos(dummy_text,"tick") & (strpos(dummy_text,"bug") | strpos(dummy_text,"insect"))) | strpos(dummy_text," primate") | strpos(dummy_text," ape ") | strpos(dummy_text," apes ") | strpos(dummy_text,"gorilla") | strpos(dummy_text,"silverback") | strpos(dummy_text," monkey ") | strpos(dummy_text," thulscine") | strpos(dummy_text,"tasmanian tiger") | /*chemistry*/ strpos(dummy_text,"alchemy") | strpos(dummy_text,"alchemist") | strpos(dummy_text,"chemistry") | strpos(dummy_text," chemist") | /*geology*/ strpos(dummy_text,"geolog") | strpos(dummy_text," desert") | strpos(dummy_text,"richat structure") | strpos(dummy_text,"techtonic plate") | strpos(dummy_text,"titanium") | strpos(dummy_text,"titicaca") | strpos(dummy_text,"uranium") | /*mathematics and physics*/ strpos(dummy_text," math") | strpos(dummy_text," physics") | strpos(dummy_text,"laws of physics") | strpos(dummy_text," physicist") | strpos(dummy_text,"statistic") | /*other*/ strpos(dummy_text," engineer"); /***** genetics subframe *****/ generate byte natsci_stem_sub_genetics = 0; /*qualified*/ replace natsci_stem_sub_genetics = 1 if /*conditions*/ (strpos(dummy_text,"human") | strpos(dummy_text,"non-human") | strpos(dummy_text,"animal") | strpos(dummy_text,"chimera") | strpos(dummy_text,"monkey")) & /*items*/ strpos(dummy_text,"embryo") | strpos(dummy_text,"stem cell") | strpos(dummy_text,"transplant"); /*unqualified*/ replace natsci_stem_sub_genetics = 1 if strpos(dummy_text," gene ") | strpos(dummy_text," genes") | strpos(dummy_text," genetic") | strpos(dummy_text,"genetically modified") | strpos(dummy_text," gmo ") | strpos(dummy_text,"genome") | strpos(dummy_text," dna ") | strpos(dummy_text," rna ") ; label var natsci_stem_sub_genetics "Genetics Bit"; /***** overall biology and geology subframe *****/ generate byte natsci_stem_sub = 0; replace natsci_stem_sub = 1 if natsci_stem_sub_gref | natsci_stem_sub_genetics; label var natsci_stem_sub "STEM Subframe"; /********** overall natural science frame **********/ generate byte natsci_frame = 0; replace natsci_frame = natsci_gref_sub | natsci_astronomy_sub| natsci_stem_sub; label var natsci_frame "Natural Science & Natural World Frame"; keep source yearmonth yearmonthno natsci_*; save "${framesdir}frame_natsci_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_nwo.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE NEW WORLD ORDER CONSPIRACIES FRAME *****/ /***** Last Update: 29 March 2024 *****/ /***** *****/ /***** *****/ /***** This frame is incomplete. The following subroutines create data sets *****/ /***** that must be executed prior to this program: *****/ /***** 1. subroutine_subframe_qanon.do *****/ /***** *****/ /***** The following subroutines are executed within this program: *****/ /***** subroutine_subframe_nwo_conspirgref_temp.do *****/ /***** subroutine_subframe_nwo_prophecy_temp.do *****/ /***** subroutine_subframe_jewishidentity_temp.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ # delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** General References to Conspiracy Theories **********/ do "${framescode}subroutine_subframe_nwo_conspirgref_temp.do"; // adds variables nwo_conspirgref_sub /********** Contemporary globalism **********/ generate byte nwo_global_sub = 0; label var nwo_global_sub "Globalist Subframe"; replace nwo_global_sub = 1 if /*general language*/ strpos(dummy_text,"globalism") | strpos(dummy_text,"globalist") | strpos(dummy_text,"new world order") | strpos(dummy_text," nwo ") | strpos(dummy_text,"world order") | /*specific conspiracies*/ strpos(dummy_text,"agenda 21") | strpos(dummy_text,"agenda 2030") | strpos(dummy_text,"bildeburg") | strpos(dummy_text,"burning man") | strpos(dummy_text,"committee of 300") | strpos(dummy_text,"council on foreign relations") | strpos(dummy_text," cfr " ) | strpos(dummy_text,"majestic 12") | strpos(dummy_text,"majestic-12") | strpos(dummy_text,"mj 12") | strpos(dummy_text,"mj12") | strpos(dummy_text,"mkultra") | strpos(dummy_text,"mk ultra") | strpos(dummy_text,"operation mockingbird") | strpos(dummy_text,"project mockingbird") | strpos(dummy_text,"operation paperclip") | strpos(dummy_text,"rockefeller") | strpos(dummy_text," rothschild") | strpos(dummy_text,"royal family") | strpos(dummy_text,"queen elizabeth") | strpos(dummy_text,"prince charles") | strpos(dummy_text,"prince william") | strpos(dummy_text,"shadowgate") | strpos(dummy_text,"shadow gate") | strpos(dummy_text," soros") | strpos(dummy_text,"open society") | strpos(dummy_text,"trilateral") | strpos(dummy_text,"united nations") | strpos(dummy_text," un ") | strpos(dummy_text,"world economic forum") | strpos(dummy_text," wef ") | strpos(dummy_text,"cyber polygon") | strpos(dummy_text,"davos") | strpos(dummy_text," schwab") | strpos(dummy_text,"great reset") ; replace nwo_global_sub = 1 if strpos(dummy_text,"deep state") | strpos(dummy_text," ds ") | strpos(dummy_text," ds/nwo ") | strpos(dummy_text," swamp") ; /********** Historical secret societies and conspiracies **********/ generate byte nwo_secretsocieties_sub = 0; replace nwo_secretsocieties_sub = 1 if /*masons*/ strpos(dummy_text," mason ") | strpos(dummy_text," masons " ) | strpos(dummy_text,"masonic") | strpos(dummy_text,"masonry") | strpos(dummy_text,"freemason") | strpos(dummy_text,"free mason") | strpos(dummy_text,"scottish rite") | /*other*/ strpos(dummy_text,"illuminati") | strpos(dummy_text,"priory of sion") | strpos(dummy_text,"project blue beam") | strpos(dummy_text,"skull and bones") | strpos(dummy_text," templar") ; replace nwo_secretsocieties_sub = 1 if strpos(dummy_text," lizard") | strpos(dummy_text," reptile") | strpos(dummy_text,"reptilian") ; label var nwo_secretsocieties_sub "Secret Societies Subframe"; /********** Prophecy **********/ do "${framescode}subroutine_subframe_nwo_prophecy_temp.do"; /*qualified situations*/ replace nwo_prophecy_sub = 1 if /*also add to prophecy coding for Christian right */ (strpos(dummy_text,"antichrist") | strpos(dummy_text,"prophecy") | strpos(dummy_text,"prophet")) & (strpos(dummy_text,"papacy") | strpos(dummy_text,"pope") | strpos(dummy_text,"vatican")) | (strpos(dummy_text,"babylon") & /*also add to prophecy coding for Christian right */ (strpos(dummy_text,"genesis") | strpos(dummy_text,"lucifer") | strpos(dummy_text,"harlot") | strpos(dummy_text,"nimrod") | strpos(dummy_text,"prostitute") | strpos(dummy_text,"revelation") | strpos(dummy_text,"whore"))) ; label var nwo_prophecy_sub "NWO Prophecy Subframe"; /***** Create frame and keep statements *****/ generate byte nwo_frame = 0; replace nwo_frame = 1 if nwo_conspirgref_sub | nwo_global_sub | nwo_secretsocieties_sub | nwo_prophecy_sub; label var nwo_frame "New World Order Frame"; keep source yearmonth yearmonthno nwo_*; save "${framesdir}frame_nwo_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_patriotism.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: PATRIOTISM FRAME *****/ /***** Original date: 02 August 2022 *****/ /***** Last Update: 11 August 2022 *****/ /***** *****/ /***** *****/ /***** This program requires the followin data set *****/ /***** bit_christian-right.dta *****/ /***** *****/ /***** This subroutine contributes to the following program *****/ /***** 1. subroutine_frame_relig.do *****/ /***** 2. subroutine_frame_whitenatl.do *****/ /***** *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; generate byte patriotism_frame = 0; label var patriotism_frame "Patriotism Frame"; replace patriotism_frame = 1 if /*general*/ strpos(dummy_text," patriotism") | strpos(dummy_text,"freedom loving american") | strpos(dummy_text,"love of country") | /*flag*/ strpos(dummy_text," flag") | strpos(dummy_text,"pledge of allegiance") | /*national anthem*/ strpos(dummy_text,"national anthem") | strpos(dummy_text,"star spangled banner") ; keep source yearmonth yearmonthno patriotism_*; save "${framesdir}frame_patriotism_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_pol.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFICATION OF POLITICS FRAME *****/ /***** Assigned Original Date: 02 August 2022 *****/ /***** Last Update: 29 December 2022 *****/ /***** *****/ /***** *****/ /***** This program invokes the following subroutine: *****/ /***** subroutine_nano_sovereign-citizen.do *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** General political references **********/ generate byte pol_gref_sub = 0; label var pol_gref_sub "General Political References"; replace pol_gref_sub = 1 if /*general terms*/ strpos(dummy_text,"authoritarian") | (strpos(dummy_text," govern") & strpos(dummy_text,"governor") == 0) | strpos(dummy_text,"government") | strpos(dummy_text,"national party") | strpos(dummy_text,"national parties") | strpos(dummy_text,"partisan") | strpos(dummy_text,"politic") | strpos(dummy_text,"political part") | strpos(dummy_text,"totalitarian") | /*political processes*/ strpos(dummy_text," budget") | strpos(dummy_text,"executive") | strpos(dummy_text," election") | strpos(dummy_text," hearing") | strpos(dummy_text," law") | strpos(dummy_text," legal") | strpos(dummy_text,"nominate") | strpos(dummy_text,"nominee") | strpos(dummy_text," policy") | strpos(dummy_text," policies") | strpos(dummy_text,"politic") | strpos(dummy_text,"term limit") | strpos(dummy_text," vote") | strpos(dummy_text," voting") | /*institutions*/ strpos(dummy_text,"president") | strpos(dummy_text,"executive branch") | strpos(dummy_text,"executive order") | strpos(dummy_text,"executive power") | strpos(dummy_text," potus") | strpos(dummy_text,"white house") | strpos(dummy_text,"whitehouse") | strpos(dummy_text," wh ") | strpos(dummy_text,"prime minister") | strpos(dummy_text,"legislat") | strpos(dummy_text,"congress") | (strpos(dummy_text,"house") & strpos(dummy_text,"representatives")) | strpos(dummy_text,"knesset") | strpos(dummy_text,"parliament") | strpos(dummy_text," senat") ; /********** Political ideologies **********/ generate byte pol_ideology_sub_gref = 0; label var pol_ideology_sub_gref "General Political Ideology References"; replace pol_ideology_sub_gref = 1 if strpos(dummy_text,"blue state") | strpos(dummy_text,"conservative") | strpos(dummy_text,"constitution party") | strpos(dummy_text,"democrac") | strpos(dummy_text,"democrat") | strpos(dummy_text,"demoncrat") | strpos(dummy_text," the dem ") | strpos(dummy_text,"the dems ") | strpos(dummy_text,"far right") | strpos(dummy_text,"farright") | strpos(dummy_text," gop ") | strpos(dummy_text," gops ") | strpos(dummy_text,"g o p") | strpos(dummy_text,"green party") | (strpos(dummy_text,"independent") & strpos(dummy_text,"vote")) | ((strpos(dummy_text," labour") | strpos(dummy_text," labor")) & strpos(dummy_text," party")) | strpos(dummy_text,"libertarian") | strpos(dummy_text, "leftist") | strpos(dummy_text,"left wing") | strpos(dummy_text,"leftwing") | strpos(dummy_text,"liberal") | strpos(dummy_text,"radical left") | strpos(dummy_text,"red state") | strpos(dummy_text," republic") | strpos(dummy_text,"right wing") | strpos(dummy_text,"rightwing") | strpos(dummy_text," rightist") | strpos(dummy_text,"swing state") | strpos(dummy_text,"swing voter") | (strpos(dummy_text,"taxpayer") & strpos(dummy_text," party")) | strpos(dummy_text,"third party") | strpos(dummy_text,"third party") | strpos(dummy_text,"thirdparty") | strpos(dummy_text,"thirdparties") | strpos(dummy_text," tory") | strpos(dummy_text," tories") ; /***** Constitution bit *****/ generate byte pol_ideology_sub_constitution = 0; label var pol_ideology_sub_constitution "Constitution Bit"; replace pol_ideology_sub_constitution = 1 if /*general principles*/ strpos(dummy_text,"amendment") | strpos(dummy_text,"constitution") | strpos(dummy_text,"consent of the governed") | strpos(dummy_text,"rule of law") | /*first amendment*/ strpos(dummy_text,"first amendment") | strpos(dummy_text,"1st amendment") | (strpos(dummy_text,"freedom") & strpos(dummy_text,"assembly")) | strpos(dummy_text,"freedom of religion") | strpos(dummy_text,"religious freedom") | strpos(dummy_text,"free speech") | strpos(dummy_text," censor") | strpos(dummy_text,"internet shutdown") | /*second amendment*/ strpos(dummy_text,"second amendment") | strpos(dummy_text,"2nd amendment") | (strpos(dummy_text,"citizen") & strpos(dummy_text,"disarm")) | (strpos(dummy_text,"god") & strpos(dummy_text,"guns")) | strpos(dummy_text,"right to bear arms") | strpos(dummy_text,"gun rights") | /*criminal justice rights*/ strpos(dummy_text,"fourth amendment") | strpos(dummy_text,"4th amendment") | strpos(dummy_text,"fifth amendment") | strpos(dummy_text,"5th amendment") | strpos(dummy_text,"sixth amendment") | strpos(dummy_text,"6th amendment") | strpos(dummy_text,"grand jury") | strpos(dummy_text,"probable cause") | strpos(dummy_text,"miranda rights") | strpos(dummy_text,"reasonable doubt") | strpos(dummy_text,"reasonable suspicion") | strpos(dummy_text,"right to remain silent") | ((strpos(dummy_text," search") | strpos(dummy_text," seizure") | strpos(dummy_text," arrest")) & strpos(dummy_text," warrant")) | strpos(dummy_text,"self incriminat") | strpos(dummy_text,"self-incriminat") | (strpos(dummy_text,"trial") & strpos(dummy_text,"jury")) | /*states rights*/ strpos(dummy_text,"tenth amendment") | strpos(dummy_text,"10th amendment") | strpos(dummy_text,"states rights") | strpos(dummy_text,"state sovereignty") | /*other*/ strpos(dummy_text,"privacy right") | strpos(dummy_text,"right to privacy") ; /***** Libertarian & Personal Freedom Bit and Nanos *****/ do "${framescode}subroutine_nano_sovereign-citizen_temp.do"; /*Other personal freedom bit*/ generate byte pol_ideology_sub_freedom_b = 0; label var pol_ideology_sub_freedom_b "Other Personal Freedom Nano"; replace pol_ideology_sub_freedom_b = 1 if /*general terms*/ strpos(dummy_text,"civil right") | strpos(dummy_text,"declaration of independence") | strpos(dummy_text,"dont tread on me") | strpos(dummy_text," freedom") | strpos(dummy_text,"freedom movement") | strpos(dummy_text,"free men") | strpos(dummy_text,"free people") | strpos(dummy_text,"god given human right") | strpos(dummy_text,"god given right") | strpos(dummy_text,"(god given) right") | strpos(dummy_text,"rights come from god") | strpos(dummy_text,"human right") | strpos(dummy_text,"inalienable right") | strpos(dummy_text,"liberty") | strpos(dummy_text,"liberties") | strpos(dummy_text,"natural law") | strpos(dummy_text,"natural right") | strpos(dummy_text,"posse comitatus") | strpos(dummy_text,"taxation without representation") | (strpos(dummy_text,"truth") & strpos(dummy_text,"evident")) ; /*libertarian*/ generate byte pol_ideology_sub_freedom_c = 0; label var pol_ideology_sub_freedom_c "Libertarian Nano"; replace pol_ideology_sub_freedom_c = 1 if strpos(dummy_text,"libertarian") ; /*convoys*/ generate byte pol_ideology_sub_freedom_d = 0; label var pol_ideology_sub_freedom_d "Truck Convoys & Protests"; replace pol_ideology_sub_freedom_d = 1 if (strpos(dummy_text,"convey") & (strpos(dummy_text,"ottawa") | strpos(dummy_text,"washington") | strpos(dummy_text," dc "))) | strpos(dummy_text,"convoy nz") | strpos(dummy_text,"convoy 2022") | strpos(dummy_text,"freedom convoy") | strpos(dummy_text,"convoy of freedom") | strpos(dummy_text,"peoples convoy") | (strpos(dummy_text,"semis") & strpos(dummy_text,"ottawa")) | strpos(dummy_text," us convoy") ; /* overall personal freedom bit *****/ generate byte pol_ideology_sub_freedom = 0; label var pol_ideology_sub_freedom "Libertarian & Personal Freedom Bit"; replace pol_ideology_sub_freedom = 1 if pol_ideology_sub_freedom_a | pol_ideology_sub_freedom_b | pol_ideology_sub_freedom_c | pol_ideology_sub_freedom_d ; /*maga*/ generate byte pol_ideology_sub_maga = 0; label var pol_ideology_sub_maga "MAGA"; replace pol_ideology_sub_maga = 1 if strpos(dummy_text,"america first") | strpos(dummy_text, "make america great again") | strpos(dummy_text, " maga ") ; /***** other political ideology bits *****/ generate byte pol_ideology_sub_socialism = 0; label var pol_ideology_sub_socialism "Socialism & Extreme Left"; replace pol_ideology_sub_socialism = 1 if /*general terms*/ strpos(dummy_text,"anarchocapitalism") | strpos(dummy_text," anarchist") | strpos(dummy_text," anarchy") | strpos(dummy_text,"anticivilization") | strpos(dummy_text,"anti civilization") | strpos(dummy_text," anticiv ") | strpos(dummy_text," anti civ ") | strpos(dummy_text,"antifascism") | strpos(dummy_text,"antifascist") | strpos(dummy_text," antifa ") | strpos(dummy_text," antifas ") | strpos(dummy_text,"antimilitar") | strpos(dummy_text,"anti militar") | strpos(dummy_text,"anitracism") | strpos(dummy_text,"anti racism") | strpos(dummy_text,"art of not being governed") | (strpos(dummy_text,"axoloti") & source == 412) | strpos(dummy_text,"black cross of moscow") | strpos(dummy_text,"bolshevik") | strpos(dummy_text,"collectivism") | strpos(dummy_text,"collectivist") | strpos(dummy_text,"collectivis") | strpos(dummy_text,"communism") | strpos(dummy_text,"communist") | strpos(dummy_text," libcom") | strpos(dummy_text," nihilism") | strpos(dummy_text," nihilist") | (strpos(dummy_text," radical") & (strpos(dummy_text,"radical idea") & strpos(dummy_text,"radical proposal") == 0)) | strpos(dummy_text,"sandinista") | strpos(dummy_text,"socialism") | strpos(dummy_text,"socialist") | /*key figures*/ strpos(dummy_text,"alinksy") | strpos(dummy_text,"bakunin") | strpos(dummy_text," lenin") | strpos(dummy_text,"leninism") | strpos(dummy_text,"marx") | strpos(dummy_text,"marxism") | strpos(dummy_text,"marxist") | strpos(dummy_text,"trotsky") ; replace pol_ideology_sub_socialism = 1 if strpos(dummy_text,"close") & strpos(dummy_text,"churches"); generate byte pol_ideology_sub_antifa = 0; replace pol_ideology_sub_antifa = 1 if strpos(dummy_text,"antifa"); label var pol_ideology_sub_antifa "Antifa Nano"; generate byte pol_ideology_sub_fascism = 0; label var pol_ideology_sub_fascism "Fascism Nano"; replace pol_ideology_sub_fascism = 1 if strpos(dummy_text," fascism") | strpos(dummy_text," fascist"); generate byte pol_ideology_sub_minority = 0; label var pol_ideology_sub_minority "Minoritarianism"; replace pol_ideology_sub_minority = 1 if strpos(dummy_text,"minoritarian") | strpos(dummy_text,"minority rule") | strpos(dummy_text,"ruling class") | strpos(dummy_text,"ruling elite") ; /* ideology and party subframe */ generate byte pol_ideology_sub = 0; label var pol_ideology_sub "Political Ideology Subframe"; replace pol_ideology_sub = 1 if pol_ideology_sub_gref | pol_ideology_sub_constitution | pol_ideology_sub_freedom | pol_ideology_sub_socialism | pol_ideology_sub_antifa | pol_ideology_sub_fascism | pol_ideology_sub_minority; /********* Elections **********/ /***** General references *****/ generate byte pol_elect_sub_electgref = 0; label var pol_elect_sub_electgref "Election General References"; replace pol_elect_sub_electgref = 1 if strpos(dummy_text, " ballot") | strpos(dummy_text, " elect") | strpos(dummy_text, " vote") | strpos(dummy_text, " voting") | strpos(dummy_text,"voting right") | strpos(dummy_text,"right to vote") ; /***** Election challenges bit *****/ generate byte pol_elect_sub_electchall = 0; replace pol_elect_sub_electchall = 1 if strpos(dummy_text," audit") | strpos(dummy_text," fraudit") | strpos(dummy_text," recount") | (strpos(dummy_text,"wisconsin") & (strpos(dummy_text,"election integrity") | strpos(dummy_text,"gableman"))) ; label var pol_elect_sub_electchall "Post Election Challenges Bit"; /***** Election conspiracies bit and nanos *****/ /*Stolen election*/ generate byte pol_elect_sub_conspire_a = 0; label var pol_elect_sub_conspire_a "Stolen Election"; /*unqualified situations*/ replace pol_elect_sub_conspire_a = 1 if strpos(dummy_text,"stop the steal"); /*qualified situations*/ replace pol_elect_sub_conspire_a = 1 if pol_elect_sub_electgref == 1 & (strpos(dummy_text,"steal") | strpos(dummy_text,"stole") | strpos(dummy_text," rig ") | strpos(dummy_text," rigs ") | strpos(dummy_text," rigged ") | strpos(dummy_text," rigging ")); replace pol_elect_sub_conspire_a = 1 if pol_elect_sub_electgref == 1 & strpos(dummy_text,"dominion") ; replace pol_elect_sub_conspire_a = 1 if (strpos(dummy_text,"biden") | strpos(dummy_text,"bidan")) & (strpos(dummy_text,"fake president") | strpos(dummy_text,"fraud") | strpos(dummy_text,"illegitimate")) ; replace pol_elect_sub_conspire_a = 1 if (strpos(dummy_text,"legitimate") | strpos(dummy_text,"still president")) & strpos(dummy_text,"trump") ; replace pol_elect_sub_conspire_a = 1 if strpos(dummy_text,"fake president") | (strpos(dummy_text,"biden") & (strpos(dummy_text,"illegit") | strpos(dummy_text,"illegitimate") | strpos(dummy_text,"pretender"))) ; /*Voting fraud*/ generate byte pol_elect_sub_conspire_b = 0; label var pol_elect_sub_conspire_b "Election Conspiracy Nano"; replace pol_elect_sub_conspire_b = 1 if /*qualification*/ (pol_elect_sub_electgref | pol_elect_sub_electchall) & /*machines*/ ((strpos(dummy_text,"dominion") & (strpos(dummy_text,"voting") | strpos(dummy_text,"machine"))) | strpos(dummy_text,"smartmatic") | /*flipping*/ ((strpos(dummy_text,"ballots") | strpos(dummy_text,"votes")) & (strpos(dummy_text,"flip") | strpos(dummy_text,"switch"))) | /*ballot problems*/ strpos(dummy_text,"ballot harvest") | ((strpos(dummy_text," dead") | strpos(dummy_text,"death record")) & (strpos(dummy_text,"vote") | strpos(dummy_text,"voting"))) | ((strpos(dummy_text,"paper") | strpos(dummy_text,"ballot")) & strpos(dummy_text,"bamboo")) | /*germany*/ ((strpos(dummy_text,"germany") & strpos(dummy_text,"military")) & (strpos(dummy_text,"hardware") | strpos(dummy_text," server"))) | /*technology*/ strpos(dummy_text,"kinematic") | (strpos(dummy_text,"server") & strpos(dummy_text,"germany")) | strpos(dummy_text,"sharpie") | strpos(dummy_text,"uv flashlight")); /*unqualified*/ replace pol_elect_sub_conspire_b = 1 if (strpos(dummy_text,"hammer") & strpos(dummy_text,"scorecard")) | strpos(dummy_text,"election truther") | /* other */ strpos(dummy_text,"italygate") | strpos(dummy_text,"2000 mules") ; /*People and their activities nano*/ generate byte pol_elect_sub_conspire_c = 0; label var pol_elect_sub_conspire_c "Election Conspiracists Nano"; replace pol_elect_sub_conspire_c = 1 if /*qualification*/ pol_elect_sub_electgref & /*people*/ (strpos(dummy_text,"patrick byrne") | strpos(dummy_text,"patrick bryne") | strpos(dummy_text,"deep rig") | strpos(dummy_text,"michael flynn") | strpos(dummy_text,"general michael flynn") | strpos(dummy_text,"general flynn") | strpos(dummy_text,"mike flynn") | strpos(dummy_text,"giuliani") | strpos(dummy_text,"mike lindell") | (strpos(dummy_text,"absolute proof") & strpos(dummy_text,"documentary")) | strpos(dummy_text,"mypillow") | strpos(dummy_text,"my pillow") | strpos(dummy_text,"doug logan") | strpos(dummy_text,"cyber ninja") | strpos(dummy_text,"cyberninja") | strpos(dummy_text,"sidney powell") | strpos(dummy_text,"kraken") | (strpos(dummy_text,"jovan") & strpos(dummy_text,"pulitzer")) | strpos(dummy_text,"kinematic") | strpos(dummy_text,"linn wood")) | strpos(dummy_text,"2000 mules") ; /*All election conspiracies*/ generate byte pol_elect_sub_conspire = 0; label var pol_elect_sub_conspire "Election Conspiracies"; replace pol_elect_sub_conspire = 1 if pol_elect_sub_conspire_a | pol_elect_sub_conspire_b | pol_elect_sub_conspire_c; /***** Election integrity and voter suppression bits *****/ generate byte pol_elect_sub_integ = 0; label var pol_elect_sub_integ "Election Integrity Bit"; replace pol_elect_sub_integ = 1 if strpos(dummy_text,"election integrity"); generate byte pol_elect_sub_suppress = 0; label var pol_elect_sub_suppress "Voter Suppression Bit"; replace pol_elect_sub_suppress = 1 if strpos(dummy_text,"voter suppress"); /***** Future elections *****/ generate byte pol_elect_sub_future = 0; label var pol_elect_sub_future "Future Election Bit"; replace pol_elect_sub_future = 1 if (strpos(dummy_text,"election") & (strpos(dummy_text,"2022") | strpos(dummy_text,"2024") | strpos(dummy_text,"2028") | strpos(dummy_text,"midterm") | strpos(dummy_text,"mid term"))) ; /***** Election subframe total *****/ generate byte pol_elect_sub = 0; label var pol_elect_sub "Election Subframe"; replace pol_elect_sub = 1 if pol_elect_sub_electgref | pol_elect_sub_electchall | pol_elect_sub_conspire | pol_elect_sub_conspire | pol_elect_sub_integ | pol_elect_sub_suppress | pol_elect_sub_future; /********* total frame **********/ generate byte pol_frame = 0; label var pol_frame "Politics Frame"; replace pol_frame = 1 if pol_gref_sub | pol_ideology_sub | pol_elect_sub; keep source yearmonth yearmonthno pol_*; save "${framesdir}frame_pol_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_pubsafety.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: PUBLIC SAFETY *****/ /***** Last Update: 29 October 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** Subframe: General Crime and Public Safety **********/ generate byte pubsafety_crime_sub_gref = 0; label var pubsafety_crime_sub_gref "Crime General Mentions"; replace pubsafety_crime_sub_gref = 1 if strpos(dummy_text, "crime") | strpos(dummy_text, "criminal") | strpos(dummy_text,"law and order") | strpos(dummy_text,"public safety") ; /********* Subframe: Specific Crimes ****************************/ /********* Sexual harassment not counted as a sex crime *********/ /***** sex crime nanos *****/ /*general sex offense*/ generate byte pubsafety_crime_sub_sex_a = 0; label var pubsafety_crime_sub_sex_a "General Sex Offenses & Abuses"; replace pubsafety_crime_sub_sex_a = 1 if /*qualification*/ (strpos(dummy_text," sex ") | strpos(dummy_text," sexual")) & /*actions*/ (strpos(dummy_text," abuse") | strpos(dummy_text," assault") | strpos(dummy_text," rape") | strpos(dummy_text," raping") | strpos(dummy_text,"solicit") | strpos(dummy_text,"soliciting") | strpos(dummy_text,"violate") | strpos(dummy_text," violen")) | /*offenders*/ strpos(dummy_text," offender") | strpos(dummy_text," offense") | strpos(dummy_text,"pervert") | strpos(dummy_text," predator") | /*initiatives*/ strpos(dummy_text,"operation march sadness") | strpos(dummy_text," sting") | /*incidents*/ strpos(dummy_text," nxivm ") ; /*unqualified*/ replace pubsafety_crime_sub_sex_a = 1 if /*trafficking*/ strpos(dummy_text,"human traffic") | strpos(dummy_text,"human traffik") | strpos(dummy_text,"sex traffic") | /*offenders*/ strpos(dummy_text,"molester") | strpos(dummy_text," rapist") | /*other*/ strpos(dummy_text,"forced intercourse") | strpos(dummy_text,"forcible intercourse") | strpos(dummy_text,"forced sex") ; /*sex crimes bits*/ generate byte pubsafety_crime_sub_sex_b = 0; replace pubsafety_crime_sub_sex_b = 1 if strpos(dummy_text,"child pornography") | strpos(dummy_text," chomo ") | strpos(dummy_text," chomos ") | (strpos(dummy_text," groom") & (strpos(dummy_text," bride") == 0 & strpos(dummy_text," marr") == 0 & strpos(dummy_text," wed") == 0)) & strpos(dummy_text,"operation h") | strpos(dummy_text,"pedophile") | strpos(dummy_text," pedo ") | strpos(dummy_text," pedos ") | strpos(dummy_text,"paedophile") | strpos(dummy_text," paedo ") | strpos(dummy_text," paedos ") | strpos(dummy_text,"pedovore") | strpos(dummy_text,"sex with a child") | strpos(dummy_text,"sex with children") | strpos(dummy_text,"sex with a minor") | (strpos(dummy_text,"sex") & strpos(dummy_text,"underage")) ; replace pubsafety_crime_sub_sex_b = 1 if strpos(dummy_text,"philip agee") | strpos(dummy_text,"henry cavill") | strpos(dummy_text,"bill cosby") | strpos(dummy_text,"madeleine mccann") | strpos(dummy_text,"sam heughan") | strpos(dummy_text," nxivm"); label var pubsafety_crime_sub_sex_b "Pedophilia Nano"; generate pubsafety_crime_sub_sex_c = 0; label var pubsafety_crime_sub_sex_c "High Profile Sex Offender Nano"; replace pubsafety_crime_sub_sex_c = 1 if strpos(dummy_text,"brian claflin") | strpos(dummy_text,"jeffrey epstein") | (strpos(dummy_text,"epstein") & strpos(dummy_text,"spears")) | (strpos(dummy_text,"epstein") & strpos(dummy_text,"traffick")) | (strpos(dummy_text,"epstein") & strpos(dummy_text,"prince andrew")) | strpos(dummy_text,"ghislaine maxwell") | strpos(dummy_text,"project terramar") | strpos(dummy_text,"gary goddard") | strpos(dummy_text,"virginia giuffre"); generate pubsafety_crime_sub_sex_d = 0; label var pubsafety_crime_sub_sex_d "Pornography Nano"; replace pubsafety_crime_sub_sex_d = 1 if strpos(dummy_text," obscene material") | strpos(dummy_text,"pornography") | strpos(dummy_text," porn ") | strpos(dummy_text," porno ") | strpos(dummy_text," porn hub") | strpos(dummy_text," pornhub") | strpos(dummy_text,"sex scene") | strpos(dummy_text," x rated") | strpos(dummy_text," xrated") ; generate pubsafety_crime_sub_sex_e = 0; label var pubsafety_crime_sub_sex_e "Prostitution Nano"; replace pubsafety_crime_sub_sex_e = 1 if strpos(dummy_text,"call girl") | strpos(dummy_text,"prostitut") | strpos(dummy_text,"sex tape") | strpos(dummy_text," sextape") | strpos(dummy_text,"sex trade") | strpos(dummy_text,"sex worker") ; generate byte pubsafety_crime_sub_sex = 0; replace pubsafety_crime_sub_sex = 1 if pubsafety_crime_sub_sex_a | pubsafety_crime_sub_sex_b | pubsafety_crime_sub_sex_c | pubsafety_crime_sub_sex_d | pubsafety_crime_sub_sex_e; label var pubsafety_crime_sub_sex "Sex Crime Bit"; /***** other crimes against a person *****/ generate byte pubsafety_crime_sub_persons = 0; replace pubsafety_crime_sub_persons = 1 if /*murder*/ strpos(dummy_text,"death threat") | strpos(dummy_text,"genocid") | strpos(dummy_text,"homicide") | strpos(dummy_text," murder") | strpos(dummy_text,"manslaughter") | strpos(dummy_text,"war crime") | /*mass murderers and serial killers*/ strpos(dummy_text,"jeffrey dahmer") | strpos(dummy_text,"charles manson") | strpos(dummy_text,"jack the ripper") | /*sex crimes*/ strpos(dummy_text," rape") | strpos(dummy_text," raping") | /*assault*/ strpos(dummy_text," assault") | strpos(dummy_text," battery") | /*kidnapping*/ strpos(dummy_text," abduct") | strpos(dummy_text," kidnap") | (strpos(dummy_text,"disappearance") & strpos(dummy_text,"people")) | /*robbery*/ strpos(dummy_text," robber") | strpos(dummy_text," rob ") | strpos(dummy_text," robs ") | strpos(dummy_text," robbed "); label var pubsafety_crime_sub_persons "Crimes Against Persons Bit"; /***** organ harvesting bit *****/ generate byte pubsafety_crime_sub_organ = 0; label var pubsafety_crime_sub_organ "Organ Harvesting"; replace pubsafety_crime_sub_organ = 1 if strpos(dummy_text,"organ harvest") | strpos(dummy_text,"organ network") ; /***** drug crime bit *****/ generate byte pubsafety_crime_sub_drug = 0; replace pubsafety_crime_sub_drug = 1 if /*general terms*/ strpos(dummy_text,"illegal drug") | strpos(dummy,"narcotic") | /*general abuse problems*/ strpos(dummy_text,"drug abuse") | strpos(dummy_text,"drug dealer") | strpos(dummy_text,"drug use") | strpos(dummy_text,"substance abuse") | strpos(dummy_text,"war on drugs") | /*specific substances*/ strpos(dummy_text," cocaine") | strpos(dummy_text," on blow ") | (strpos(dummy_text,"crack") & (strpos(dummy_text,"cocaine") | strpos(dummy_text,"drug"))) | strpos(dummy_text,"fentayl") | strpos(dummy_text,"heroin") | strpos(dummy_text," lsd ") | strpos(dummy_text,"marijuana") | strpos(dummy_text,"cannabis") | strpos(dummy_text," hemp") | strpos(dummy_text," weed") | strpos(dummy_text,"methamphetamine") | strpos(dummy_text," meth ") | strpos(dummy_text," meth fueled") | strpos(dummy_text," methfueled") | strpos(dummy_text,"opioid") | strpos(dummy_text,"opium") | strpos(dummy_text,"psychedelic"); label var pubsafety_crime_sub_drug "Drug Crimes Bit"; /***** theft bit ****/ generate byte pubsafety_crime_sub_theft = 0; replace pubsafety_crime_sub_theft = 1 if (strpos(dummy_text,"theft") & strpos(dummy_text,"identity theft") == 0) | strpos(dummy_text," burgl") | strpos(dummy_text,"shop lift") | strpos(dummy_text," shoplift") | ((strpos(dummy_text," steal") | strpos(dummy_text," stealing") | strpos(dummy_text," stole")) & strpos(dummy_text,"election") == 0); label var pubsafety_crime_sub_theft "Theft Bit"; /***** economic crime bit *****/ generate byte pubsafety_crime_sub_economic = 0; replace pubsafety_crime_sub_economic = 1 if strpos(dummy_text," bribe") | strpos(dummy_text,"embezzle") | strpos(dummy_text," forge") | strpos(dummy_text," fraud") | strpos(dummy_text,"kickback") | strpos(dummy_text,"money launder") | strpos(dummy_text,"patient broker") | strpos(dummy_text,"romance fraud") | (strpos(dummy_text," scam") & strpos(dummy_text,"crime") | strpos(dummy_text,"arrest")) | strpos(dummy_text,"wire fraud") | strpos(dummy_text,"wirefraud"); label var pubsafety_crime_sub_economic "Economic Crime Bit"; /***** cyber crime bit *****/ generate byte pubsafety_crime_sub_cyber = 0; replace pubsafety_crime_sub_cyber = 1 if strpos(dummy_text,"cybercrime") | strpos(dummy_text,"cybersecurity") | strpos(dummy_text,"identity theft") | strpos(dummy_text," hack") | strpos(dummy_text,"operations security") | strpos(dummy_text," opsec ") | strpos(dummy_text,"ransom ware") | strpos(dummy_text,"ransomware"); label var pubsafety_crime_sub_cyber "Cybercrime Bit"; /***** crimes against children nano */ generate byte pubsafety_crime_sub_child = 0; label var pubsafety_crime_sub_child "Crimes against Children"; replace pubsafety_crime_sub_child = 1 if /*general phrases*/ (strpos(dummy_text,"child") & (strpos(dummy_text,"abuse") | strpos(dummy_text,"exploit") | strpos(dummy_text,"neglect") | strpos(dummy_text,"slave") | strpos(dummy_text,"traffic"))) | strpos(dummy_text,"crimes against children") | /*save the children and pedophilia -- saving children phrases would include QAnon use of the phrases*/ strpos(dummy_text,"save the children") | strpos(dummy_text,"save our children") | pubsafety_crime_sub_sex_b | /*projects and initiatives*/ strpos(dummy_text,"project safe childhood") ; replace pubsafety_crime_sub_child = 1 if strpos(dummy_text,"child organ network") ; /***** organized crime bit *****/ generate byte pubsafety_crime_sub_orgcrim = 0; replace pubsafety_crime_sub_orgcrim = 1 if strpos(dummy_text,"mafia") | strpos(dummy_text,"the mob") | strpos(dummy_text,"organized crime"); label var pubsafety_crime_sub_orgcrim "Organized Crime Bit"; /***** urban violence *****/ generate byte pubsafety_crime_sub_urbviol = 0; label var pubsafety_crime_sub_urbviol "Urban Violence Bit"; replace pubsafety_crime_sub_urbviol = 1 if /*street crime*/ (strpos(dummy_text,"crime") & strpos(dummy_text,"street") | strpos(dummy_text," gang")) | /*antifa*/ strpos(dummy_text,"agent provocateur") | strpos(dummy_text," antifa") | strpos(dummy_text,"autonomous zone") | strpos(dummy_text,"autonomouszone") | strpos(dummy_text,"pallets of brick") | /*black lives matter*/ strpos(dummy_text,"black lives") | strpos(dummy_text, " blm ") | /*protests*/ (strpos(dummy_text," riot") & strpos(dummy_text,"pussy riot") == 0) | (strpos(dummy_text," cities") & (strpos(dummy_text," violence") | strpos(dummy_text,"protest"))) | /*arson*/ ((strpos(dummy_text," bomb") | strpos(dummy_text," burn") | strpos(dummy_text," arson")) & strpos(dummy_text," protest")); /***** guns and weapons *****/ generate byte pubsafety_crime_sub_guns = 0; replace pubsafety_crime_sub_guns = 1 if /*guns*/ strpos(dummy_text," gun ") | strpos(dummy_text, " guns ") | /*carry laws*/ strpos(dummy_text,"concealed carry") | strpos(dummy_text,"concealed gun") | strpos(dummy_text,"concealed weapon") | strpos(dummy_text,"open carry") | /*constitution*/ strpos(dummy_text,"second amendment") | strpos(dummy_text,"2nd amendment") | strpos(dummy_text,"right to bear arms") | /*control*/ strpos(dummy_text,"brady bill") | (strpos(dummy_text," gun") & strpos(dummy_text,"background check")) | strpos(dummy_text,"coming for your guns") | strpos(dummy_text,"gun registration") | strpos(dummy_text,"take away your guns") | /*self-defense*/ (strpos(dummy_text,"gun") & (strpos(dummy_text,"self-defense") | strpos(dummy_text,"self defense"))) | /*incidents*/ /*general*/ strpos(dummy_text," gunfire") | strpos(dummy_text,"gun fire") | strpos(dummy_text,"mass shooter") | strpos(dummy_text,"mass shooting") | strpos(dummy_text,"school shooting") | /*incidents*/ (strpos(dummy_text,"alec baldwin") & (strpos(dummy_text,"set") | strpos(dummy_text,"kill"))) | strpos(dummy_text,"christchurch") | strpos(dummy_text,"dylan roof") | strpos(dummy_text,"columbine") | (strpos(dummy_text,"las vegas") & strpos(dummy_text,"mandalay bay")) | (strpos(dummy_text,"tree of life") & (strpos(dummy_text,"pittsburgh") | strpos(dummy_text,"synagogue") | strpos(dummy_text,"temple"))) | strpos(dummy_text,"sandy hook") | strpos(dummy_text," uvalde") | /*people and groups*/ strpos(dummy_text,"national rifle") | strpos(dummy_text," nra") | strpos(dummy_text,"n . r . a ") | strpos(dummy_text,"kyle rittenhouse") | (strpos(dummy_text,"rittenhouse") & (strpos(dummy_text,"kenosha") | strpos(dummy_text,"trial"))) | (strpos(dummy_text,"assault rifle") | strpos(dummy_text,"rod of iron") & strpos(dummy_text,"gun")) | /*weapons & equipment*/ strpos(dummy_text,"ammunition") | strpos(dummy_text," ammo ") | strpos(dummy_text,"assault weapon") | strpos(dummy_text," bullet") | strpos(dummy_text," rifle") | strpos(dummy_text," ar 15") | strpos(dummy_text," ar15") | strpos(dummy_text," ak 47") | strpos(dummy_text," ak47") | strpos(dummy_text," glock") | strpos(dummy_text,"high capacity magazine"); label var pubsafety_crime_sub_guns "Guns & Gun Control Subframe"; /***** High profile events and people *****/ generate byte pubsafety_crime_sub_events = 0; replace pubsafety_crime_sub_events = 1 if /* mass murders and serial killers*/ (strpos(dummy_text,"boston marathon") & strpos(dummy_text,"bomb")) | strpos(dummy_text,"darrell brooks") | strpos(dummy_text,"waukesha parade") | strpos(dummy_text,"ted bundy") | strpos(dummy_text,"charles manson") | strpos(dummy_text,"jack the ripper") | strpos(dummy_text,"jeffrey dahmer") | strpos(dummy_text,"ruby ridge") | strpos(dummy_text,"randy weaver") | strpos(dummy_text,"zodiac killer") | /*victims*/ strpos(dummy_text,"gabrielle petino") | strpos(dummy_text,"gabby petino") | /*other*/ (strpos(dummy_text,"murdagh") & (strpos(dummy_text,"murder") | strpos(dummy_text,"homicide"))) ; label var pubsafety_crime_sub_events "Public Safety Events and Victims"; /***** Other crimes *****/ generate byte pubsafety_crime_sub_other = 0; label var pubsafety_crime_sub_other "Other Crimes"; replace pubsafety_crime_sub_other = 1 if strpos(dummy_text,"driving while under the influence") | strpos(dummy_text," dui") | strpos(dummy_text,"drunk driving") ; /***** Whistleblower bit *****/ generate byte pubsafety_crime_sub_whistle = 0; label var pubsafety_crime_sub_whistle "Whistleblower Subframe"; replace pubsafety_crime_sub_whistle = 1 if strpos(dummy_text,"whistleblow") | strpos(dummy_text,"whistle blow"); /***** Overall total crimes *****/ generate byte pubsafety_crime_sub = 0; replace pubsafety_crime_sub = 1 if pubsafety_crime_sub_gref | pubsafety_crime_sub_persons | pubsafety_crime_sub_drug | pubsafety_crime_sub_theft | pubsafety_crime_sub_economic | pubsafety_crime_sub_cyber | pubsafety_crime_sub_sex | pubsafety_crime_sub_organ | pubsafety_crime_sub_child | pubsafety_crime_sub_orgcrim | pubsafety_crime_sub_urbviol | pubsafety_crime_sub_guns | pubsafety_crime_sub_events | pubsafety_crime_sub_other | pubsafety_crime_sub_whistle; label var pubsafety_crime_sub "Crime & Offense Subframe"; /***** Policing subframe *****/ /*general police activity bit*/ generate byte pubsafety_police_sub_gref = 0; label var pubsafety_police_sub_gref "Police General References"; replace pubsafety_police_sub_gref = 1 if strpos(dummy_text,"police") | strpos(dummy_text," cop ") | strpos(dummy_text," cops ") | strpos(dummy_text,"detective") | strpos(dummy_text,"deputy") | strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text," fbi ") | strpos(dummy_text,"law enforcement") | (strpos(dummy_text," security") & (strpos(dummy_text,"guard") | strpos(dummy_text,"patrol"))) | strpos(dummy_text,"sheriff") | strpos(dummy_text,"us marshal") | strpos(dummy_text,"u s marshal") | (strpos(dummy_text,"warrant") & (strpos(dummy_text,"arrest") | strpos(dummy_text,"judge") | strpos(dummy_text,"police") | strpos(dummy_text,"search"))) | /* investigation */ strpos(dummy_text,"community polic") | strpos(dummy_text,"forensic") | (strpos(dummy_text,"investigation") & (strpos(dummy_text,"crime") | (strpos(dummy_text,"committee") == 0 & strpos(dummy_text," jury") == 0))) | strpos(dummy_text,"school resource officer") | strpos(dummy_text,"stop and frisk") | strpos(dummy_text,"terry stop") | strpos(dummy_text,"strip search") ; /*police reform bit*/ generate byte pubsafety_police_sub_reform = 0; replace pubsafety_police_sub_reform = 1 if pubsafety_police_sub_gref == 1 & (strpos(dummy_text," defund") | strpos(dummy_text," reform") | strpos(dummy_text," union")) | (strpos(dummy_text," qualified") & strpos(dummy_text," immunity")) | strpos(dummy_text,"officer safety"); label var pubsafety_police_sub_reform "Police Reform Bit"; /*police violence*/ generate byte pubsafety_police_sub_violence = 0; label var pubsafety_police_sub_violence "Police Violence Bit"; /*unqualified*/ replace pubsafety_police_sub_violence = 1 if /*use of force*/ strpos(dummy_text,"use of force") | strpos(dummy_text,"deadly force") | strpos(dummy_text,"excessive force") | strpos(dummy_text," swat ") | strpos(dummy_text," taser") | strpos(dummy_text," tasing") | /*individuals*/ strpos(dummy_text,"breonna taylor") | strpos(dummy_text,"freddie gray") | strpos(dummy_text,"george floyd") | strpos(dummy_text,"chauvin"); /*qualified*/ replace pubsafety_police_sub_violence = 1 if /*qualification*/ pubsafety_police_sub_gref == 1 & /*statements*/ (strpos(dummy_text,"handcuff") | strpos(dummy_text,"kill") | strpos(dummy_text,"punch") | strpos(dummy_text,"shooting") | strpos(dummy_text,"shot") | strpos(dummy_text,"suspended")) ; /*overall police activity*/ generate byte pubsafety_police_sub = 0; replace pubsafety_police_sub = pubsafety_police_sub_gref | pubsafety_police_sub_reform | pubsafety_police_sub_violence; label var pubsafety_police_sub "Policing Subframe"; /********** Courts subframe ***********/ generate byte pubsafety_judicial_sub = 0; replace pubsafety_judicial_sub = 1 if /*courts*/ (strpos(dummy_text," court") & (strpos(dummy_text,"basketball") | strpos(dummy_text,"on the court") | strpos(dummy_text,"tennis"))) | strpos(dummy_text,"judicial") | strpos(dummy_text,"adjudicate") | strpos(dummy_text,"district court") | strpos(dummy_text,"federal court") | strpos(dummy_text,"international criminal court") | strpos(dummy_text,"state court") | strpos(dummy_text,"supreme court") | /*law*/ strpos(dummy_text," law ") | strpos(dummy_text," laws ") | strpos(dummy_text,"criminal code") | /*court actions*/ strpos(dummy_text,"cease and desist") | strpos(dummy_text,"contempt") | strpos(dummy_text,"subpoena") | /*working group*/ strpos(dummy_text," judge") | (strpos(dummy_text,"attorney") & strpos(dummy_text,"attorney general") == 0) | strpos(dummy_text,"lawyer") | strpos(dummy_text,"prosecutor") | strpos(dummy_text," bailiff") | (strpos(dummy_text,"court") & (strpos(dummy_text,"reporter") | strpos(dummy_text,"recorder"))) | /*participants*/ strpos(dummy_text,"defendant") | strpos(dummy_text," jury") | strpos(dummy_text," plaintiff") | /*pleas*/ strpos(dummy_text," guilty") | strpos(dummy_text,"not guilty") | strpos(dummy_text,"nolo contendre") | strpos(dummy_text,"plea bargain") | strpos(dummy_text,"plea deal") | /*judicial doctrines*/ strpos(dummy_text,"judicial activism") | strpos(dummy_text,"activist judge") | strpos(dummy_text,"activist court") | strpos(dummy_text,"judicial supremacy") | strpos(dummy_text,"originalism") | /*other*/ strpos(dummy_text,"attorney general") ; label var pubsafety_judicial_sub "Judicial Subframe"; /********* Corrections subframe**********/ generate byte pubsafety_corrections_sub = 0; replace pubsafety_corrections_sub = 1 if strpos(dummy_text,"corrections") | strpos(dummy_text,"correctional") | strpos(dummy_text," jail") | strpos(dummy_text,"parole") | strpos(dummy_text," prison") | strpos(dummy_text,"imprisoned") | strpos(dummy_text,"probation") | strpos(dummy_text,"death penalty") ; label var pubsafety_corrections_sub "Corrections Subframe"; /********** Homeland security subframe **********/ /***** preparation bit *****/ generate byte pubsafety_homeland_sub_gref = 0; replace pubsafety_homeland_sub_gref = 1 if strpos(dummy_text,"emergency management") | strpos(dummy_text,"emergency measure") | strpos(dummy_text,"emergency preparedness") | strpos(dummy_text," evacuat") | strpos(dummy_text," fema ") | strpos(dummy_text,"homeland security") | strpos(dummy_text,"mitigation") | strpos(dummy_text,"state of emergency") | strpos(dummy_text,"national emergency"); label var pubsafety_homeland_sub_gref "Homeland Security General References Bit"; /***** events *****/ generate byte pubsafety_homeland_sub_events = 0; replace pubsafety_homeland_sub_events = 1 if /*general*/ strpos(dummy_text,"disaster") | /*collapses*/ ((strpos(dummy_text," bridge") | strpos(dummy_text,"building")) & strpos(dummy_text,"collapse")) | strpos(dummy_text," surfside") | /*chemicals*/ strpos(dummy_text,"chemical spill") | /*earthquake*/ strpos(dummy_text," earthquake") | /*electricity*/ strpos(dummy_text," outage") | /*fires*/ strpos(dummy_text,"industrial fire") | strpos(dummy_text," wildfire") | strpos(dummy_text,"wild fire") | /*weather*/ strpos(dummy_text," flood") | strpos(dummy_text,"hurricane") | strpos(dummy_text,"tornado") | /*volcano*/ strpos(dummy_text,"volcano"); label var pubsafety_homeland_sub_events "Disaster Events Bit"; /***** terrorism -- add wtc 9/11? *****/ generate byte pubsafety_homeland_sub_terrorism = 0; replace pubsafety_homeland_sub_terrorism = 1 if strpos(dummy_text," terror") | strpos(dummy_text,"lone wolf") | strpos(dummy_text,"lone wolves") | strpos(dummy_text,"manchester bombing") ; label var pubsafety_homeland_sub_terrorism "Terrorism Bit"; /*police state*/ generate byte pubsafety_homeland_sub_surveil = 0; replace pubsafety_homeland_sub_surveil = 1 if strpos(dummy_text,"police state") | ((strpos(dummy_text,"fbi") | strpos(dummy_text,"police") | strpos(dummy_text,"law enforcement")) & strpos(dummy_text,"surveil")) | strpos(dummy_text,"facial recognition") | strpos(dummy_text,"fusion center") | strpos(dummy_text,"patriot act") | strpos(dummy_text,"central intelligence agency") | strpos(dummy_text," cia ") | strpos(dummy_text,"c i a ") | strpos(dummy_text,"defense intelligence agency") | strpos(dummy_text," dia ") | strpos(dummy_text,"d i a ") | strpos(dummy_text,"fisa warrant") | strpos(dummy_text,"house intelligence committee") | strpos(dummy_text,"national security agency") | strpos(dummy_text," nsa ") | strpos(dummy_text,"n s a ") | strpos(dummy_text,"national security letter") | strpos(dummy_text," nsl ") | strpos(dummy_text," ncswc ") | strpos(dummy_text,"senate intelligence committee") | strpos(dummy_text," spy ") | strpos(dummy_text," spies ") | strpos(dummy_text," spied "); replace pubsafety_homeland_sub_surveil = 1 if ((strpos(dummy_text,"listen") | strpos(dummy_text,"spy") | strpos(dummy_text," spies")) & (strpos(dummy_text," android") | strpos(dummy_text," iphone"))) ; label var pubsafety_homeland_sub_surveil "Surveillance State Bit"; /* other */ generate byte pubsafety_homeland_sub_other = 0; label var pubsafety_homeland_sub_other "Other Homeland Security Bit"; replace pubsafety_homeland_sub_other = 1 if strpos(dummy_text,"border patrol") | strpos(dummy_text,"department of homeland security") | strpos(dummy_text," dhs") ; /***** overall homeland security *****/ generate byte pubsafety_homeland_sub = 0; replace pubsafety_homeland_sub = 1 if pubsafety_homeland_sub_gref | pubsafety_homeland_sub_events | pubsafety_homeland_sub_terrorism | pubsafety_homeland_sub_surveil | pubsafety_homeland_sub_other; label var pubsafety_homeland_sub "Homeland Security Subframe"; /***** other first responders *****/ generate byte pubsafety_first_sub = 0; label var pubsafety_first_sub "Other First Responders"; replace pubsafety_first_sub = 1 if strpos(dummy_text,"crisis intervention team") | strpos(dummy_text," cit ") & strpos(dummy_text,"police") | strpos(dummy_text," emt ") | strpos(dummy_text,"paramedic") ; /********** Overall public safety frame **********/ generate byte pubsafety_frame = 0; label var pubsafety_frame; replace pubsafety_frame = 1 if pubsafety_crime_sub | pubsafety_police_sub | pubsafety_judicial_sub | pubsafety_corrections_sub | pubsafety_homeland_sub | pubsafety_first_sub ; label var pubsafety_frame "Public Safety Frame"; keep source yearmonth yearmonthno pubsafety_*; save "${framesdir}frame_pubsafety_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_qanon.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE QANON FRAME *****/ /***** Assigned Original Date: 14 December 2022 *****/ /***** Last Update: 29 March 2024 *****/ /***** *****/ /***** This program invokes the following subroutine: *****/ /***** 1. subroutine_nano_sovereign-citizen_temp.do *****/ /***** *****/ /***** The resulting data set is used in the following routine: *****/ /***** 1. subroutine_nwo_frame *****/ /***** *****/ /***** Towards the top of the program is a place where certain variables *****/ /***** are initialized as missing. This section does not apply to CEF *****/ /***** datasets, so it is commented out and can be turned on as needed. *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; desc, short; joinby source yearmonth yearmonthno using "${framesdir}frame_health_${filedate}_${timeperiod}.dta"; desc, short; /********** general references to qanon **********/ generate byte qanon_mention_sub = 0; label var qanon_mention_sub "QAnon Mention Bit"; replace qanon_mention_sub = 1 if strpos(dummy_text," qanon") | strpos(dummy_text," anon ") | strpos(dummy_text," anons ") | strpos(dummy_text," anonfiles") | strpos(dummy_text,"mexianon") | strpos(dummy_text," qresearch") | strpos(dummy_text," qtard") | strpos(dummy_text," rareanon") | strpos(dummy_text,"spouseanon"); /********** direct references to q and primary q material **********/ generate byte qanon_q_sub = 0; replace qanon_q_sub = 1 if strpos(dummy_text," q ") | strpos(dummy_text," qdrop") | strpos(dummy_text," q-drop"); label var qanon_q_sub "Direct References to Q Bit"; /********** qanon jargon **********/ generate byte qanon_jargon_sub = 0; label var qanon_jargon_sub "QAnon Jargon Bit"; /*qualified situations*/ replace qanon_jargon_sub = 1 if /*qualifier: qanon connected*/ (st_qanon | qanon_mention_sub | qanon_q_sub) & /*alice in wonderland references*/ (strpos(dummy_text,"alice in wonderland") | strpos(dummy_text,"rabbit hole") | strpos(dummy_text,"white rabbit") | /*awakening*/ (strpos(dummy_text," awake") & st_qanon) | strpos(dummy_text,"awake people") | strpos(dummy_text," awakening") | /*baking*/ strpos(dummy_text," bake") | strpos(dummy_text," baking") | strpos(dummy_text," bread") | strpos(dummy_text," crumb") | strpos(dummy_text," dough") | /*fear and scare tactics*/ strpos(dummy_text,"do not let yourself be ruled by fear") | strpos(dummy_text,"read this before it is taken down again") | strpos(dummy_text,"watch this before it is taken down again") | /*hats*/ strpos(dummy_text,"black hat") | strpos(dummy_text," blackhat") | strpos(dummy_text,"white hat") | strpos(dummy_text," whitehat") | /*justice*/ strpos(dummy_text,"execution") | strpos(dummy_text,"guantanamo") | strpos(dummy_text,"gitmo") | strpos(dummy_text," hang") | strpos(dummy_text,"justice is coming") | strpos(dummy_text,"red october") | strpos(dummy_text,"ten days of darkness") | strpos(dummy_text,"10 days of darkness") | strpos(dummy_text," treason") | /*frog*/ strpos(dummy_text," frog") | strpos(dummy_text," pepe") | /*operation mockingbird*/ strpos(dummy_text,"mockingbird") | /*the plan*/ strpos(dummy_text," the plan ") | /*red pill*/ strpos(dummy_text," pilled") | strpos(dummy_text,"red pill") | /*research*/ (strpos(dummy_text,"dig") & strpos(dummy_text,"pray") & strpos(dummy_text,"meme")) | strpos(dummy_text,"do your own research") | strpos(dummy_text,"look at all points of view") | strpos(dummy_text,"looking at all points of view") | strpos(dummy_text," research") | strpos(dummy_text,"think for yourself") | /*show*/ strpos(dummy_text,"enjoy the show") | strpos(dummy_text,"popcorn") | /*storm*/ strpos(dummy_text," storm") | strpos(dummy_text," cbts ") | /*we the people*/ strpos(dummy_text,"we the people") | /*17*/ strpos(dummy_text," 17 ") | strpos(dummy_text,"seventeen")); /*unqualified situations*/ replace qanon_jargon_sub = 1 if strpos(dummy_text," frens ") | strpos(dummy_text," kek ") | strpos(dummy_text," keke ") | strpos(dummy_text," kekek ") | strpos(dummy_text,"keksapo") | strpos(dummy_text,"operation mockingbird") | strpos(dummy_text,"trust the plan") | strpos(dummy_text,"trust in the plan") | strpos(dummy_text,"whitehat op") | strpos(dummy_text,"where we go one") | strpos(dummy_text, "wwg1wga"); /********* qanon core myth **********/ /* A satanic cabal of elites trafficking children, sacrificing childen and using the */ /* children's blood to extract adrenochrome, which the elites drink to lengthen their life. */ /* The problem with coding is that QAnon absorbs other conspiracies and crimes, and so I */ /* regard as a complete myth only those with compound elements, e.g., mention of the cabal and */ /* some qanon reference or mention of a child victim, activity, or product. Because the reference */ /* to adrenochrome is unique to QAnon, mention of the chemical by itself is regarded as a QAnon core myth */ generate byte qanon_core_sub = 0; /*qualified situation*/ replace qanon_core_sub = 1 if /*qualifier: cabal, elite, satanism, or qanon context */ (strpos(dummy_text," cabal") | strpos(dummy_text," elite") | strpos(dummy_text,"fall of the cabal") | strpos(dummy_text,"red shoe club") | strpos(dummy_text," satan") | st_qanon | qanon_mention_sub | qanon_q_sub | qanon_jargon_sub) & /*reference to child victims */ ((strpos(dummy_text," baby") | strpos(dummy_text," babies") | strpos(dummy_text," child") | strpos(dummy_text," kid")) & /*reference to crime*/ (strpos(dummy_text," crime") | strpos(dummy_text," criminal") | strpos(dummy_text," groom") | strpos(dummy_text," kidnap") | strpos(dummy_text,"missing") | strpos(dummy_text," pedo ") | strpos(dummy_text," pedos ") | strpos(dummy_text," pedop") | strpos(dummy_text," predator") | strpos(dummy_text," rape") | strpos(dummy_text," raping") | strpos(dummy_text," rite") | strpos(dummy_text," ritual") | strpos(dummy_text," sacrific") | (strpos(dummy_text,"sex") & strpos(dummy_text,"abuse")) | (strpos(dummy_text,"sex") & strpos(dummy_text,"assault")) | strpos(dummy_text," traffic"))); /*unqualified situations*/ replace qanon_core_sub = 1 if /*adrenochrome*/ strpos(dummy_text," adreno") | strpos(dummy_text," adrena") | /*save children*/ strpos(dummy_text,"children saved") | strpos(dummy_text,"mole children") | strpos(dummy_text,"protect the children") | strpos(dummy_text,"save our children") | strpos(dummy_text,"saveourchildren") | strpos(dummy_text,"save the children") | strpos(dummy_text,"savethechildren") | strpos(dummy_text,"think of the children") | (strpos(dummy_text,"underground tunnel") & strpos(dummy_text,"child")) | /*other*/ ((strpos(dummy_text," pedo") | strpos(dummy_text," paedo")) & strpos(dummy_text,"hollywood")) ; label var qanon_core_sub "QAnon Core Myth Bit"; /********** qanon miscellany **********/ generate byte qanon_misc_sub = 0; replace qanon_misc_sub = 1 if /*biden cicada*/ (strpos(dummy_text," biden") & strpos(dummy_text,"cicada")) | /*dumb*/ strpos(dummy_text,"deep underground") | (strpos(dummy_text," dumb") & (strpos(dummy_text,"military") | strpos(dummy_text," base"))) | /*evergreen incident*/ (strpos(dummy_text," suez") & (strpos(dummy_text,"evergreen") | strpos(dummy_text,"ever given") | strpos(dummy_text,"container ship"))) | /*jfk jr.*/ strpos(dummy_text,"vincent fusca") | strpos(dummy_text,"john f. kennedy, jr") | strpos(dummy_text,"jfk, jr") | strpos(dummy_text,"jfk_jr") | strpos(dummy_text,"michael brian protzman") | /*robert kennedy jr.*/ (strpos(dummy_text,"vice president") & (strpos(dummy_text,"robert kennedy, jr") | strpos(dummy_text," robert kennedy jr"))) | /*trump*/ strpos(dummy_text,"trump/q") | (strpos(dummy_text,"trump") & strpos(dummy_text,"5g")) | /*watkins*/ strpos(dummy_text,"jim watkins") | strpos(dummy_text,"ron watkins") | (strpos(dummy_text,"watkins") & (st_qanon | qanon_mention_sub)) | strpos(dummy_text,"codemonkeyz") | /*other*/ strpos(dummy_text," catturd") ; label var qanon_misc_sub "QAnon Miscellany" ; /***** Canada 1st Party done after other QAnon activities to capture all QAnon activity *****/ do "${framescode}subroutine_nano_sovereign-citizen_temp.do"; generate byte qanon_misc_sub_a = 0; label var qanon_misc_sub_a "Canada 1st"; replace qanon_misc_sub_a = 1 if strpos(dummy_text,"canada 1st") | strpos(dummy_text,"ramona didulo") | (strpos(dummy_text,"queen") & (source == 263 | source == 264)) | strpos(dummy_text,"queen ramona") | strpos(dummy_text,"queen of canada") | strpos(dummy_text,"ramona") & strpos(dummy_text,"digital soldier"); replace qanon_misc_sub = 1 if (pol_ideology_sub_freedom_a | health_illness_sub_covid19 | health_misinfo_sub_covid19 | health_misinfo_sub_antivax | qanon_mention_sub | qanon_q_sub | qanon_jargon_sub | qanon_core_sub | qanon_misc_sub_a ) & (source == 263 | source == 264); /********* determine overall frame *********/ generate byte qanon_frame = 0; label var qanon_frame "QAnon Subframe"; replace qanon_frame = 1 if qanon_mention_sub | qanon_q_sub | qanon_jargon_sub | qanon_core_sub | qanon_misc_sub | st_qanon; drop dummy* health* pol_*; keep source yearmonth yearmonthno qanon_*; save "${framesdir}frame_qanon_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_raceethnic.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE RACE/ETHNIC FRAME *****/ /***** Last Update: 29 March 2024 *****/ /***** *****/ /***** *****/ /***** This program requires the following outside data set: *****/ /***** bit_christian-right_{filedate}.dta *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_chridentity_${filedate}_${timeperiod}.dta"; /********** White nationalism subframe **********/ generate raceethnic_white_sub = 0; label var raceethnic_white_sub "Whiteness Subframe"; replace raceethnic_white_sub = 1 if /*whiteness*/ strpos(dummy_text,"antiwhite") | strpos(dummy_text,"anti white") | strpos(dummy_text,"caucasian") | /*needs context review*/ strpos(dummy_text,"prowhite") | strpos(dummy_text,"pro white") | strpos(dummy_text,"united white states") | strpos(dummy_text,"whites") | /*news context review*/ strpos(dummy_text,"white child") | strpos(dummy_text,"white boy") | strpos(dummy_text,"white girl") | strpos(dummy_text,"white kid") | strpos(dummy_text,"white female") | strpos(dummy_text,"white woman") | strpos(dummy_text,"white women") | strpos(dummy_text,"white father") | strpos(dummy_text,"white heritage") | strpos(dummy_text,"white homeland") | strpos(dummy_text,"white identity") | strpos(dummy_text,"white lives matter") | strpos(dummy_text,"white male") | strpos(dummy_text,"white man") | strpos(dummy_text,"white men") | strpos(dummy_text,"white mother") | strpos(dummy_text,"white person") | strpos(dummy_text,"white people") | strpos(dummy_text,"white nation") | strpos(dummy_text,"white nationalism") | strpos(dummy_text,"white nationalist") | strpos(dummy_text," wn ") | strpos(dummy_text,"white power") | strpos(dummy_text,"white pride") | strpos(dummy_text,"white race") | strpos(dummy_text,"white skin") | strpos(dummy_text,"white supremacy") | strpos(dummy_text,"white united states") | strpos(dummy_text,"white youth") | strpos(dummy_text,"whiteness") | /*eurocentric9sm*/ strpos(dummy_text,"eurocentric") | strpos(dummy_text,"european heritage") | strpos(dummy_text," anglo") | strpos(dummy_text,"aryan") | strpos(dummy_text," german") | strpos(dummy_text," nordic") | strpos(dummy_text," saxon") | /*racial purity*/ strpos(dummy_text,"one drop rule") | strpos(dummy_text,"racial nationalism") | strpos(dummy_text,"racial purity") | strpos(dummy_text,"racially pure") | strpos(dummy_text,"raciallypure") | strpos(dummy_text,"telegony") | /*media*/ (strpos(dummy_text,"europa") & strpos(dummy_text,"last battle")) | /*slogans and other ideologies*/ strpos(dummy_text,"ariososophy") | strpos(dummy_text," groyper") | strpos(dummy_text,"the 14 words") | strpos(dummy_text,"the fourteen words") | strpos(dummy_text,"secure the existance of our people") | strpos(dummy_text,"future for white children") | strpos(dummy_text,"our race is our nation") | strpos(dummy_text,"racial treason") | /*slurs*/ strpos(dummy_text,"honky") | strpos(dummy_text,"whitey") ; /********** Blackness and antiblackness subframe *****/ generate byte raceethnic_black_sub = 0; label var raceethnic_black_sub "Blackness Subframe"; replace raceethnic_black_sub = 1 if /*blackness*/ strpos(dummy_text,"african american") | strpos(dummy_text,"afroamerican") | strpos(dummy_text,"african heritage") | strpos(dummy_text,"afro american") | strpos(dummy_text,"afrocentric") | strpos(dummy_text,"antiblack") | strpos(dummy_text,"anti black") | strpos(dummy_text," blacks ") | strpos(dummy_text,"black child") | strpos(dummy_text,"black boy") | strpos(dummy_text,"black girl") | strpos(dummy_text,"white kid") | strpos(dummy_text,"black female") | strpos(dummy_text,"black woman") | strpos(dummy_text,"black women") | strpos(dummy_text,"black father") | strpos(dummy_text,"black heritage") | strpos(dummy_text,"black homeland") | strpos(dummy_text,"black identity") | strpos(dummy_text,"black lives matter") | strpos(dummy_text," blm ") | strpos(dummy_text,"black male") | strpos(dummy_text,"black man") | strpos(dummy_text,"black men") | strpos(dummy_text,"black mother") | strpos(dummy_text,"black nation") | strpos(dummy_text,"black nationalism") | strpos(dummy_text,"black nationalist") | strpos(dummy_text,"black person") | strpos(dummy_text,"black people") | strpos(dummy_text,"black power") | strpos(dummy_text, "black pride") | strpos(dummy_text,"black race") | strpos(dummy_text,"black skin") | strpos(dummy_text,"black youth") | strpos(dummy_text,"young black") | strpos(dummy_text,"blackness") | strpos(dummy_text,"negro") | strpos(dummy_text,"negroid") | strpos(dummy_text,"negroid") | strpos(dummy_text,"problack") | /*mixed race*/ strpos(dummy_text,"miscegenation") | (strpos(dummy_text,"mixed race") & st_extremeright) | strpos(dummy_text,"mulatto") | strpos(dummy_text,"race mixing") | /*racial slurs*/ strpos(dummy_text," mongrel") | strpos(dummy_text," nigger ") | strpos(dummy_text," nig ") | strpos(dummy_text," nigs ") | strpos(dummy_text," nigga") | /* other */ strpos(dummy_text,"critical race") | strpos(dummy_text," crt "); /********** Immigration subframe *****/ generate byte raceethnic_immigrant_sub = 0; label var raceethnic_immigrant_sub "Immigration Subframe"; replace raceethnic_immigrant_sub = 1 if /*immigration*/ strpos(dummy_text," border") | strpos(dummy_text,"guest worker") | strpos(dummy_text,"immigra") | strpos(dummy_text,"migration") | strpos(dummy_text," migrant") | (strpos(dummy_text,"naturalization") & strpos(dummy_text,"citizen")) | strpos(dummy_text,"naturalized citizen") | /*anti-immigration rhetoric*/ strpos(dummy_text,"build the wall") | strpos(dummy_text,"camp of the saints") | (strpos(dummy_text,"coyote") & strpos(dummy_text,"border")) | strpos(dummy_text,"illegal alien") | strpos(dummy_text,"illegal immigrant") | strpos(dummy_text,"immigrant caravan") | strpos(dummy_text,"national butterfly center") | strpos(dummy_text,"open border") | strpos(dummy_text,"replacement theory") | strpos(dummy_text,"great replacement") | strpos(dummy_text,"undocumented immigrant") | strpos(dummy_text,"undocumented migrant") | strpos(dummy_text,"undocumented worker") | /*agencies*/ strpos(dummy_text,"border patrol") | strpos(dummy_text,"customs and border protection") | strpos(dummy_text,"immigration and customs enforcement") | strpos(dummy_text," ice agent") | strpos(dummy_text," ice officer") | strpos(dummy_text," ice official") | strpos(dummy_text,"immigration and naturalization service") | strpos(dummy_text," ins agent") | strpos(dummy_text," ins officer") | strpos(dummy_text," ins official") ; /********** Cultural nationalist groups and ideologies **********/ /***** Alt right *****/ generate byte raceethnic_cultnatl_sub_altright = 0; label var raceethnic_cultnatl_sub_altright "Cultural Nationalism Bit"; replace raceethnic_cultnatl_sub_altright = 1 if strpos(dummy_text,"alternative right") | strpos(dummy_text," altright") | strpos(dummy_text,"alt right") | strpos(dummy_text,"american renaissance") | strpos(dummy_text,"jared taylor") | strpos(dummy_text," evola") | strpos(dummy_text,"identitarian") | strpos(dummy_text,"richard spencer") | strpos(dummy_text,"national policy institute") | strpos(dummy_text,"milo yiannopoulos") | strpos(dummy_text,"unite the right") | (strpos(dummy_text,"charlottesville") & strpos(dummy_text,"race")) ; /***** Christian Identity *****/ rename relig_chridentity_sub_w raceethnic_cultnatl_sub_ci; replace raceethnic_cultnatl_sub_ci = 1 if raceethnic_cultnatl_sub_ci > 1; label var raceethnic_cultnatl_sub_ci "Christian Identity Bit"; /***** National Socialists *****/ generate byte raceethnic_cultnatl_sub_nazi = 0; label var raceethnic_cultnatl_sub_nazi "National Socialist Bit"; replace raceethnic_cultnatl_sub_nazi = 1 if /*nazi*/ strpos(dummy_text,"national socialist") | strpos(dummy_text," nat soc ") | strpos(dummy_text," nazi") | strpos(dummy_text,"sieg heil") | strpos(dummy_text," swastika") | /*hitler*/ strpos(dummy_text," hitler") | strpos(dummy_text,"mein kampf") | strpos(dummy_text," 88 ") | strpos(dummy_text," 1488 ") | /*american nazis*/ strpos(dummy_text,"matthew heimbach") | strpos(dummy_text,"james nolan mason") | strpos(dummy_text,"george lincoln rockwell") | strpos(dummy_text,"william pierce") | /*nazi groups*/ strpos(dummy_text,"aryan nation") | strpos(dummy_text,"atomwaffen") | strpos(dummy_text,"daily stormer") | strpos(dummy_text,"feuerkrieg") | strpos(dummy_text,"order of nine angles") | ((strpos(dummy_text,"the base") | strpos(dummy_text,"the order")) & (strpos(dummy_text,"nazi") | strpos(dummy_text,"extrem") | strpos(dummy_text,"far right"))) | /*other*/ strpos(dummy_text,"ariosophy") | strpos(dummy_text,"blood and soil") | (strpos(dummy_text,"godwin") & strpos(dummy_text,"law")) ; /***** Race war: Also code elsewhere under Accelerationism ******/ generate byte raceethnic_cultnatl_sub_racewar = 0; label var raceethnic_cultnatl_sub_racewar "Race War Bit"; replace raceethnic_cultnatl_sub_race = 1 if strpos(dummy_text,"camp of the saints") | strpos(dummy_text,"kill everything white") | strpos(dummy_text,"race war") | strpos(dummy_text,"racial holy war") | strpos(dummy_text,"rahowa") | strpos(dummy_text,"racial war") | strpos(dummy_text, "turner diaries") ; /***** Slavery, Reconstruction, and Jim Crow *****/ generate byte raceethnic_cultnatl_sub_slavery = 0; label var raceethnic_cultnatl_sub_slavery "Slavery, Reconstruction, & Jim Crow Bit"; replace raceethnic_cultnatl_sub_slavery = 1 if strpos(dummy_text,"jim crow") | (strpos(dummy_text," lynch") & strpos(dummy_text,"merrill lynch") == 0) | (strpos(dummy_text,"reconstruction") & strpos(dummy_text,"south")) | strpos(dummy_text," red line") | strpos(dummy_text," redline") | strpos(dummy_text," red lining") | strpos(dummy_text," redlining") | strpos(dummy_text,"reparation") | strpos(dummy_text," slave") | strpos(dummy_text,"1619 project"); /***** Southern and neo-Confederate heritage *****/ generate byte raceethnic_cultnatl_sub_south = 0; label var raceethnic_cultnatl_sub_south "Southern Heritage and NeoConfederate Bit"; replace raceethnic_cultnatl_sub_south = 1 if /* general terms */ strpos(dummy_text,"confederate") | strpos(dummy_text,"confederacy") | strpos(dummy_text," klan") | strpos(dummy_text,"league of the south") | strpos(dummy_text,"lost cause") | strpos(dummy_text,"neoconfederate") | strpos(dummy_text," old south") | strpos(dummy_text,"southern heritage") | /*southern heroes*/ strpos(dummy_text,"robert e lee") | strpos(dummy_text,"general lee") | strpos(dummy_text,"jefferson davis") | strpos(dummy_text,"jeff davis") | strpos(dummy_text,"nathan bedford forrest"); /***** Overall cultural nationalism *****/ generate byte raceethnic_cultnatl_sub = 0; label var raceethnic_cultnatl_sub "Cultural Nationalist Groups and Events"; replace raceethnic_cultnatl_sub = 1 if raceethnic_cultnatl_sub_altright | raceethnic_cultnatl_sub_ci | raceethnic_cultnatl_sub_nazi | raceethnic_cultnatl_sub_racewar | raceethnic_cultnatl_sub_slavery | raceethnic_cultnatl_sub_south ; /********** Other race and ethnicity **********/ generate byte raceethnic_other_sub = 0; label var raceethnic_other_sub "Other General References to Race/Ethnicity/Immigration"; replace raceethnic_other_sub = 1 if /* general terms */ strpos(dummy_text,"bigot") | strpos(dummy_text,"ethnic crime") | strpos(dummy_text,"ethnic horror") | strpos(dummy_text,"ethnic minorities") | strpos(dummy_text,"ethnostate") | strpos(dummy_text,"far right") | strpos(dummy_text,"nativism") | strpos(dummy_text,"nativist") | strpos(dummy_text,"people of color") | strpos(dummy_text,"racial hybrid") | strpos(dummy_text," racism") | strpos(dummy_text," racist") | strpos(dummy_text,"racialism") | strpos(dummy_text,"skin color") | strpos(dummy_text,"xenophob") | /* arabs */ strpos(dummy_text," arab") | /* asians */ strpos(dummy_text,"antiasian") | strpos(dummy_text,"anti asian") | strpos(dummy_text," chink") | strpos(dummy_text," coolie") | /* hispanics */ strpos(dummy_text,"antihispanic") | strpos(dummy_text,"anti hispanic") | strpos(dummy_text,"antilatin") | strpos(dummy_text,"anti latin") | strpos(dummy_text," taco ") | strpos(dummy_text," tacos ") | /* native and first peoples groups */ strpos(dummy_text,"aborigin") | strpos(dummy_text,"american indian") | strpos(dummy_text,"amerindian") | strpos(dummy_text,"first people") | strpos(dummy_text,"native american") | strpos(dummy_text,"iroquois") | strpos(dummy_text,"lakota") | strpos(dummy_text,"mohawk") | strpos(dummy_text,"sioux") | strpos(dummy_text,"oka crisis") | strpos(dummy_text,"wounded knee") ; /********** Overall REI frame **********/ generate byte raceethnic_frame = 0; label var raceethnic_frame "Race, Ethnicity, & Immigration Frame"; replace raceethnic_frame = 1 if raceethnic_white_sub | raceethnic_black_sub | raceethnic_immigrant_sub | raceethnic_cultnatl_sub_nazi | raceethnic_other_sub ; keep source yearmonth yearmonthno raceethnic_*; save "${framesdir}frame_raceethnic_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_relig.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFY RELIGION THEMES *****/ /***** Assigned Original Date: 14 December 2022 *****/ /***** Last Update: 24 June 2024 *****/ /***** *****/ /***** *****/ /***** Subframes added to this program *****/ /***** outside this program: *****/ /***** 1. subframe_relig_gref_${filedate}_${timeperiod}.dta *****/ /***** 2. subframe_relig_chridentity_${filedate}_${timeperiod}.dta *****/ /***** 3. subframe_relig_christ_${filedate}_${timeperiod}.dta *****/ /***** 4. subframe_relig_chrnation_${filedate}_${timeperiod}.dta *****/ /***** 5. subframe_relig_dominion_${filedate}_${timeperiod}.dta *****/ /***** 5. subframe_relig_judeochrist_${filedate}_${timeperiod}.dta *****/ /***** 6. subframe_relig_nar_${filedate}_${timeperiod}.dta *****/ /***** 7. subframe_relig_newage_${filedate}_${timeperiod}.dta *****/ /***** 8. subframe_relig_spiritwar_${filedate}_${timeperiod}.dta *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_gref_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_chridentity_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_christ_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_chrnation_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_dominion_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_judeochrist_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_nar_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_newage_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_prophecy_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}subframe_relig_spwar_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_antisemitism_${filedate}_${timeperiod}.dta"; /********** Islam subframe **********/ /* general terms */ egen w_islam = noccurlong(dummy_text), string(" islam"); /*includes islamophobia*/ egen w_mohammed = noccurlong(dummy_text), string("mohammed"); egen w_muhammed = noccurlong(dummy_text), string("muhammed"); egen w_prophet_mohammed = noccurlong(dummy_text), string("prophet mohammed"); egen w_prophet_muhammed = noccurlong(dummy_text), string("prophet muhammed"); egen w_moslem = noccurlong(dummy_text), string(" moslem"); egen w_muslim = noccurlong(dummy_text), string(" muslim"); egen w_quran = noccurlong(dummy_text), string(" quran"); egen w_koran = noccurlong(dummy_text), string(" koran"); /* observances and concepts */ egen w_burqa = noccurlong(dummy_text), string(" burqa"); egen w_hijab = noccurlong(dummy_text), string(" hijab"); egen w_intifada = noccurlong(dummy_text), string(" intifada"); if strpos(dummy_text,"love jihad") == 0 {; egen w_jihad = noccurlong(dummy_text), string(" jihad"); }; egen w_ramadan = noccurlong(dummy_text), string(" ramadan"); egen w_sharia = noccurlong(dummy_text), string(" sharia"); /* violence */ egen w_isis = noccurlong(dummy_text), string(" isis"); egen w_love_jihad = noccurlong(dummy_text), string("love jihad"); egen w_muslim_crime = noccurlong(dummy_text), string("muslim crime"); /********** Final Subframe ******/ generate relig_islam_sub_w = 0; label var relig_islam_sub_w "Religion: Islam Subframe # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_islam_sub_w = relig_islam_sub_w + `var'; }; drop w_*; replace relig_islam_sub_w = wordcount if relig_islam_sub_w > wordcount; /********** European folk and nature religions subframe **********/ egen w_cast_a_spell = noccurlong(dummy_text), string("cast a spell"); egen w_cast_spells = noccurlong(dummy_text), string("cast spells"); egen w_fairy = noccurlong(dummy_text), string(" fairy"); egen w_fairies = noccurlong(dummy_text), string(" fairies"); egen w_faery = noccurlong(dummy_text), string(" faery"); egen w_faerie = noccurlong(dummy_text), string(" faerie"); egen w_superstition = noccurlong(dummy_text), string("superstition"); egen w_superstitious = noccurlong(dummy_text), string("superstitious"); /*norse*/ egen w_aesir = noccurlong(dummy_text), string(" aesir"); egen w_asatru = noccurlong(dummy_text), string("asatru"); egen w_edda = noccurlong(dummy_text), string(" edda"); egen w_norse_mythology = noccurlong(dummy_text), string("norse mythology"); egen w_odin = noccurlong(dummy_text), string(" odin"); egen w_valhalla = noccurlong(dummy_text), string(" valhalla"); /*paganism and wicca*/ egen w_amulet = noccurlong(dummy_text), string("amulet"); egen w_black_magic = noccurlong(dummy_text), string("black magic"); egen w_coven = noccurlong(dummy_text), string(" coven "); egen w_covens = noccurlong(dummy_text), string(" covens "); egen w_druid = noccurlong(dummy_text), string(" druid"); egen w_forest_spirit = noccurlong(dummy_text), string("forest spirit"); egen w_halloween = noccurlong(dummy_text), string("halloween"); egen w_left_hand_path = noccurlong(dummy_text), string("left hand path"); egen w_lefthand_path = noccurlong(dummy_text), string("lefthand path"); egen w_right_hand_path = noccurlong(dummy_text), string("right hand path"); egen w_righthand_path = noccurlong(dummy_text), string("righthand path"); egen w_mabon = noccurlong(dummy_text), string("mabon"); egen w_magic = noccurlong(dummy_text), string(" magic"); egen w_pagan = noccurlong(dummy_text), string(" pagan"); egen w_pentagram = noccurlong(dummy_text), string("pentagram"); egen w_sorceror = noccurlong(dummy_text), string("sorceror"); egen w_sorcery = noccurlong(dummy_text), string("sorcery"); egen w_temple_of_set = noccurlong(dummy_text), string("temple of set"); egen w_trick_or_treat = noccurlong(dummy_text), string("trick or treat"); egen w_warlock = noccurlong(dummy_text), string(" warlock"); egen w_wiccan = noccurlong(dummy_text), string(" wiccan"); egen w_witch = noccurlong(dummy_text), string(" witch"); /********** Final Subframe ******/ generate relig_nature_sub_w = 0; label var relig_nature_sub_w "European Folk Religion # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_nature_sub_w = relig_nature_sub_w + `var'; }; drop w_*; replace relig_nature_sub_w = wordcount if relig_nature_sub_w > wordcount; /***** Satanism *****/ egen w_abomination = noccurlong(dummy_text), string("abomination"); /*reconcile with section on dysfunction -- evil */ egen w_black_awakening = noccurlong(dummy_text), string("black awakening"); egen w_curse = noccurlong(dummy_text), string(" curse"); egen w_taboo = noccurlong(dummy_text), string(" taboo"); egen w_tempt = noccurlong(dummy_text), string(" tempt"); egen w_wicked = noccurlong(dummy_text), string(" wicked"); /*human sacrifice*/ egen w_satanic_ritual = noccurlong(dummy_text), string("satanic ritual"); egen w_blood_sacrific = noccurlong(dummy_text), string("blood sacrific"); egen w_child_sacrific = noccurlong(dummy_text), string("child sacrific"); egen w_human_sacrific = noccurlong(dummy_text), string("human sacrific"); /*satan or demons*/ egen w_apollyon = noccurlong(dummy_text), string("apollyon"); egen w_azrael = noccurlong(dummy_text), string("azrael"); egen w_baphomet = noccurlong(dummy_text), string("baphomet"); egen w_dark_forces = noccurlong(dummy_text), string("dark forces"); egen w_devil = noccurlong(dummy_text), string(" devil"); egen w_exorcism = noccurlong(dummy_text), string("exorcism"); egen w_exorcist = noccurlong(dummy_text), string("exorcist"); egen w_exorciz = noccurlong(dummy_text), string("exorciz"); egen w_familiar_spirit = noccurlong(dummy_text), string("familiar spirit"); egen w_god_of_this_age = noccurlong(dummy_text), string("god of this age"); egen w_god_of_this_world = noccurlong(dummy_text), string("god of this world"); egen w_hell = noccurlong(dummy_text), string(" hell "); egen w_hells = noccurlong(dummy_text), string(" hells "); egen w_lucifer = noccurlong(dummy_text), string("lucifer"); egen w_prince_of_darkness = noccurlong(dummy_text), string("prince of darkness"); egen w_prince_of_the_power = noccurlong(dummy_text), string("prince of the power of the air"); egen w_satan = noccurlong(dummy_text), string(" satan"); /********** Final Subframe ******/ generate relig_evil_sub_w = 0; label var relig_evil_sub_w "Evil # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_evil_sub_w = relig_evil_sub_w + `var'; }; drop w_*; replace relig_evil_sub_w = wordcount if relig_evil_sub_w > wordcount; /********** Other religion words **********/ /*cults*/ egen w_david_koresh = noccurlong(dummy_text), string("david koresh"); if strpos(dummy_text,"waco") {; egen w_davidian = noccurlong(dummy_text), string("branch davidian"); }; egen w_heavens_gate = noccurlong(dummy_text), string("heavens gate"); egen w_marshall_applewhite = noccurlong(dummy_text), string("marshall applewhite"); /*mythology*/ egen w_anteros = noccurlong(dummy_text), string(" anteros"); egen w_cerberus = noccurlong(dummy_text), string("cerberus"); egen w_chimera = noccurlong(dummy_text), string("chimera"); egen w_chimaera = noccurlong(dummy_text), string("chimaera"); egen w_eros = noccurlong(dummy_text), string(" eros"); egen w_hades = noccurlong(dummy_text), string(" hades"); egen w_hydra = noccurlong(dummy_text), string(" hydra "); egen w_khaos = noccurlong(dummy_text), string(" khaos"); egen w_melkor = noccurlong(dummy_text), string("melkor"); egen w_nyx = noccurlong(dummy_text), string(" nyx"); if strpos(dummy_text,"god") {; egen w_olympus = noccurlong(dummy_text), string("olympus"); }; egen w_pluto = noccurlong(dummy_text), string(" pluto "); egen w_quenya = noccurlong(dummy_text), string(" quenya"); egen w_zeus = noccurlong(dummy_text), string(" zeus"); /*positivity*/ egen w_positive_religion = noccurlong(dummy_text), string("positive religion"); egen w_positive_thinking = noccurlong(dummy_text), string("positive thinking"); egen w_positivity = noccurlong(dummy_text), string("positivity"); /*unification church*/ egen w_unification_church = noccurlong(dummy_text), string("unification church"); egen w_moonie = noccurlong(dummy_text), string(" moonie"); egen w_rod_of_iron = noccurlong(dummy_text), string("rod of iron"); /*also a reference to jesus*/ egen w_sum_myung_moon = noccurlong(dummy_text), string("sun myung moon"); /*no religion*/ egen w_agnostic = noccurlong(dummy_text), string(" agnostic"); egen w_atheis = noccurlong(dummy_text), string(" atheis"); egen w_god_delusion = noccurlong(dummy_text), string("god delusion"); egen w_god_does_not_exit = noccurlong(dummy_text), string("god does not exist"); egen w_god_is_dead = noccurlong(dummy_text), string("god is dead"); egen w_no_god = noccurlong(dummy_text), string("no god"); /*other*/ egen w_black_hebrew = noccurlong(dummy_text), string("black hebrew israelite"); egen w_falun_gong = noccurlong(dummy_text), string("falun gong"); egen w_falun_dafa = noccurlong(dummy_text), string("falun dafa"); egen w_guidestones = noccurlong(dummy_text), string("georgia guidestones"); egen w_hopi = noccurlong(dummy_text), string("hopi prophec"); egen w_nxivm = noccurlong(dummy_text), string("nxivm"); egen w_santaria = noccurlong(dummy_text), string("santaria"); egen w_scientolog = noccurlong(dummy_text), string("scientolog"); egen w_voodoo = noccurlong(dummy_text), string("voodoo"); /********** Final Subframe ******/ generate relig_other_sub_w = 0; label var relig_other_sub_w "Evil # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_other_sub_w = relig_other_sub_w + `var'; }; drop w_*; replace relig_other_sub_w = wordcount if relig_other_sub_w > wordcount; /********** Overall Religion Frame **********/ generate relig_frame_w = relig_gref_sub_w + relig_chridentity_sub_w + relig_chrnation_sub_w + relig_dominion_sub_w + relig_judeochrist_sub_w + relig_christ_sub_w + relig_prophecy_sub_w + relig_newage_sub_w + relig_spiritwar_sub_w + relig_islam_sub_w + relig_nature_sub_w + relig_evil_sub_w + relig_other_sub_w; label var relig_frame_w "Religion Frame # Words"; replace relig_frame_w = wordcount if relig_frame_w > wordcount; generate byte relig_frame = 0; label var relig_frame "Religion Frame Indicator"; replace relig_frame = 1 if relig_frame_w | st_relig; generate relig_gref_sub = 0; replace relig_gref_sub = 1 if relig_gref_sub_w > 0 & relig_gref_sub_w ~= .; generate relig_christ_sub = 0; replace relig_christ_sub = 1 if relig_christ_sub_w > 0 & relig_christ_sub_w ~= .; generate relig_chridentity_sub = 0; replace relig_chridentity_sub = 1 if relig_chridentity_sub_w > 0 & relig_chridentity_sub_w ~= .; generate relig_dominion_sub = 0; replace relig_dominion_sub = 1 if relig_dominion_sub_w > 0 & relig_dominion_sub_w ~= .; generate relig_nar_sub = 0; replace relig_nar_sub = 1 if relig_nar_sub_w > 0 & relig_nar_sub_w ~= .; generate relig_islam_sub = 0; replace relig_islam_sub = 1 if relig_islam_sub_w > 0 & relig_islam_sub_w ~= .; generate relig_nature_sub = 0; replace relig_nature_sub = 1 if relig_nature_sub_w > 0 & relig_nature_sub_w ~= .; generate relig_newage_sub = 0; replace relig_newage_sub = 1 if relig_newage_sub_w > 0 & relig_newage_sub_w ~= .; generate relig_spiritwar_sub = 0; replace relig_spiritwar_sub = 1 if relig_spiritwar_sub_w > 0 & relig_spiritwar_sub_w ~= .; generate relig_evil_sub = 0; replace relig_evil_sub = 1 if relig_evil_sub_w > 0 & relig_evil_sub_w ~= .; generate relig_other_sub = 0; replace relig_other_sub = 1 if relig_other_sub_w > 0 & relig_other_sub_w ~= .; keep source yearmonth yearmonthno relig_frame relig_frame_w relig_gref_sub relig_gref_sub_w relig_gref_sub relig_gref_sub_w relig_judeochrist_sub relig_judeochrist_sub_w relig_christ_sub relig_christ_sub_w relig_gref_sub relig_gref_sub_w relig_chridentity_sub relig_chridentity_sub_w relig_chrnation_sub relig_chrnation_sub_w relig_dominion_sub relig_dominion_sub_w relig_nar_sub relig_nar_sub_w relig_prophecy_sub relig_prophecy_sub_w relig_spiritwar_sub relig_spiritwar_sub_w relig_newage_sub relig_newage_sub_w relig_islam_sub relig_islam_sub_w relig_nature_sub relig_nature_sub_w relig_evil_sub relig_evil_sub_w relig_other_sub relig_other_sub_w; order source yearmonth yearmonthno relig_frame relig_frame_w relig_gref_sub relig_gref_sub_w relig_gref_sub relig_gref_sub_w relig_judeochrist_sub relig_judeochrist_sub_w relig_christ_sub relig_christ_sub_w relig_gref_sub relig_gref_sub_w relig_chridentity_sub relig_chridentity_sub_w relig_chrnation_sub relig_chrnation_sub_w relig_dominion_sub relig_dominion_sub_w relig_nar_sub relig_nar_sub_w relig_prophecy_sub relig_prophecy_sub_w relig_spiritwar_sub relig_spiritwar_sub_w relig_newage_sub relig_newage_sub_w relig_islam_sub relig_islam_sub_w relig_nature_sub relig_nature_sub_w relig_evil_sub relig_evil_sub_w relig_other_sub relig_other_sub_w; save "${framesdir}frame_relig_${filedate}_${timeperiod}.dta", replace; summ *; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_remaining.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: REMAINING FRAMES *****/ /***** Assigned Original Date: 26 September 2023 *****/ /***** Last Update: 11 July 2024 *****/ /***** *****/ /***** This frame is incomplete. The following subframes need to be added *****/ /***** outside this program: *****/ /***** 1. bit_christian-right.dta *****/ /***** *****/ /***** The following subroutine is executed within this program: *****/ /***** 1. subroutine_bit_relig_creationism_temp.do *****/ /***** 2. subroutine_subframe_jewishidentity_temp.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_pol_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_raceethnic_${filedate}_${timeperiod}.dta"; generate extremeleft_frame = 0; label var extremeleft_frame "Extreme Left Frame"; replace extremeleft_frame = 1 if st_extremeleft | pol_ideology_sub_socialism | pol_ideology_sub_antifa ; generate altright_frame = 0; label var altright_frame "Alt Right Frame"; replace altright_frame = 1 if st_extremeright | pol_ideology_sub_fascism | raceethnic_cultnatl_sub_nazi | source == 211 | source == 271 ; generate byte paleo_frame = 0; label var paleo_frame "Paleolibertarian/Freedom Movement Frame"; replace paleo_frame = 1 if pol_ideology_sub_constitution | pol_ideology_sub_freedom | st_libertarian ; keep source yearmonth yearmonthno extremeleft_frame altright_frame paleo_frame; save "${framesdir}frame_remaining_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_socialwelfare.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: SOCIAL PROGRAMS FRAME *****/ /***** Assigned Original Date: 02 August 2022 *****/ /***** Last Update: 29 December 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; generate byte socialwelfare_problems_sub = 0; replace socialwelfare_problems_sub = 1 if strpos(dummy_text,"discrimination") | strpos(dummy_text,"prejudice") | strpos(dummy_text,"homeless") | strpos(dummy_text,"hunger") | strpos(dummy_text,"poverty"); label var socialwelfare_problems_sub "Social Problems Subframe"; generate byte socialwelfare_programs_sub = 0; label var socialwelfare_programs_sub "Social Programs"; replace socialwelfare_programs_sub = 1 if strpos(dummy_text,"food pant") | strpos(dummy_text,"foreign aid") | strpos(dummy_text," freeload") | strpos(dummy_text,"nongovernmental organization") | strpos(dummy_text," ngo ") | strpos(dummy_text," ngos ") | strpos(dummy_text,"privation") | strpos(dummy_text,"public housing") | strpos(dummy_text,"safety net") | strpos(dummy_text,"social justice") | strpos(dummy_text,"social welfare") | strpos(dummy_text,"temporary assistance to needy families") | strpos(dummy_text," tanf") | strpos(dummy_text,"universal basic income") | strpos(dummy_text," ubi ") | strpos(dummy_text,"welfare program") | strpos(dummy_text,"welfare state") ; generate byte socialwelfare_frame = 0; replace socialwelfare_frame = 1 if socialwelfare_problems_sub | socialwelfare_programs_sub; label var socialwelfare_frame "Social Welfare Frame"; keep source yearmonth yearmonthno socialwelfare_*; save "${framesdir}frame_socialwelfare_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_ssh.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE SOCIAL SCIENCE & HISTORY FRAME *****/ /***** Assigned Original Date: 28 December 2022 *****/ /***** Last Update: 20 January 2023 *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** social science subframe **********/ generate byte ssh_socsci_sub_gref = 0; label var ssh_socsci_sub_gref "Social Sciences General Reference Bit"; replace ssh_socsci_sub_gref = 1 if strpos(dummy_text,"anthropology") | strpos(dummy_text,"political science") | strpos(dummy_text,"psychology") | strpos(dummy_text,"sociology"); /********** demographics **********/ generate byte ssh_socsci_sub_demo = 0; replace ssh_socsci_sub_demo = 1 if /*general*/ strpos(dummy_text,"demograph") | /*census*/ strpos(dummy_text," census") | strpos(dummy_text,"long form") | strpos(dummy_text,"short form") | /*cohorts*/ strpos(dummy_text,"baby boom") | strpos(dummy_text," elderly") | strpos(dummy_text,"generation x") | strpos(dummy_text," gen x") | strpos(dummy_text,"greatest generation") | strpos(dummy_text," millennials") | (strpos(dummy_text,"millennial") & strpos(dummy_text,"cohort")) | /*vital stats*/ strpos(dummy_text,"birth rate") | strpos(dummy_text,"adultification") | strpos(dummy_text,"depopulat") | strpos(dummy_text,"great replacement") | strpos(dummy_text,"replacement theory"); label var ssh_socsci_sub_demo "Demographic Bit"; /***** theories *****/ generate byte ssh_socsci_sub_theory = 0; replace ssh_socsci_sub_theory = 1 if strpos(dummy_text,"psychology") | strpos(dummy_text,"cognitive") | strpos(dummy_text,"liminal") | strpos(dummy_text," psyche ") | strpos(dummy_text,"psychoanaly") | strpos(dummy_text,"psychopath") | strpos(dummy_text,"unconscious") | strpos(dummy_text,"mimetic theory") | strpos(dummy_text,"scapegoat"); label var ssh_socsci_sub_theory "Psychology Bit"; /***** overall social science subframe *****/ generate byte ssh_socsci_sub = 0; replace ssh_socsci_sub = 1 if ssh_socsci_sub_gref | ssh_socsci_sub_demo | ssh_socsci_sub_theory; label var ssh_socsci_sub "Social Science Subframe"; /********** history subframe **********/ generate byte ssh_hist_sub_gref = 0; replace ssh_hist_sub_gref = 1 if strpos(dummy_text," history") | strpos(dummy_text," histories") | strpos(dummy_text," historic") | strpos(dummy_text,"historiograph") ; label var ssh_hist_sub_gref "General History Word Reference Bit"; /***** american history bit *****/ generate byte ssh_hist_sub_us = 0; replace ssh_hist_sub_us = 1 if /*american revolution*/ strpos(dummy_text,"american revolution") | strpos(dummy_text,"revolutionary war") | strpos(dummy_text,"1776") | strpos(dummy_text,"constitutional convention") | /*civil war qualified*/ strpos(dummy_text,"civil war") | /*civil war and reconstruction*/ strpos(dummy_text,"war of northern aggression") | strpos(dummy_text,"war between the states") | (strpos(dummy_text,"ulysses") & strpos(dummy_text,"grant")) | /*early republic*/ strpos(dummy_text,"andrew jackson") | strpos(dummy_text,"abraham lincoln") | /*constitution*/ strpos(dummy_text,"articles of confederation") | strpos(dummy_text,"constitutional convention") | /*founders*/ strpos(dummy_text,"benjamin franklin") | strpos(dummy_text,"ben franklin") | strpos(dummy_text,"thomas jefferson") | strpos(dummy_text,"george washington") | /*post world war ii*/ strpos(dummy_text,"bay of pigs") | strpos(dummy_text,"cuban missile crisis") ; label var ssh_hist_sub_us "American History Subframe"; /***** ancient history bit *****/ generate byte ssh_hist_sub_ancient = 0; label var ssh_hist_sub_ancient "Ancient History Subframe"; replace ssh_hist_sub_ancient = 1 if /*general terms*/ strpos(dummy_text," ancient") | strpos(dummy_text,"archaeolog") | strpos(dummy_text,"carbon dat") | strpos(dummy_text,"hunter gather") | /*prehistoric*/ strpos(dummy_text," prehistoric") | strpos(dummy_text,"comet impact") | strpos(dummy_text," dinosaur") | strpos(dummy_text," ice age") | strpos(dummy_text,"mass extinction") | strpos(dummy_text,"neanderthal") | strpos(dummy_text," tyrannasaurus rex") | strpos(dummy_text,"younger dryas") | /*eurasia*/ strpos(dummy_text,"atlantis") | strpos(dummy_text,"babylon") | strpos(dummy_text,"gunung padang") | strpos(dummy_text,"gobekli tepe") | strpos(dummy_text,"gobeklitepe") | strpos(dummy_text,"great pyramid") | strpos(dummy_text,"minoan") | strpos(dummy_text,"phoenicia") | strpos(dummy_text,"stonehenge") | /*americas*/ strpos(dummy_text," clovis") | strpos(dummy_text,"precolumbian") | strpos(dummy_text,"pre-columbian") | strpos(dummy_text," aztec") | (strpos(dummy_text,"cholula") & strpos(dummy_text,"pyramid")) | strpos(dummy_text,"tlachihualtepetl") | strpos(dummy_text," inca ") | strpos(dummy_text," incas ") | strpos(dummy_text," incan ") | strpos(dummy_text,"machu picchu") | (strpos(dummy_text," maya ") & strpos(dummy_text,"kamala") == 0) | strpos(dummy_text," mayas ") | strpos(dummy_text," mayan ") | strpos(dummy_text," mound") | strpos(dummy_text," nazca") | strpos(dummy_text,"serpent mount") | strpos(dummy_text," toltec") ; label var ssh_hist_sub_ancient "Ancient Civilizationi Bit"; /***** antiquities bit *****/ generate byte ssh_hist_sub_antiq = 0; label var ssh_hist_sub_antiq "Antiquities Subframe"; replace ssh_hist_sub_antiq = 1 if /*egypt*/ strpos(dummy_text,"ancient egypt") | strpos(dummy_text," djed") | (strpos(dummy_text,"egypt") & strpos(dummy_text,"alexandria")) | strpos(dummy_text,"great pyramid") | (strpos(dummy_text,"pyramid") & strpos(dummy_text,"egypt")) | (strpos(dummy_text,"pyramid") & strpos(dummy_text,"egypt")) | strpos(dummy_text,"sphinx") | /*byzantium*/ strpos(dummy_text,"byzantium") | strpos(dummy_text,"byzantia") | /*mesopotamia*/ strpos(dummy_text," sumeria") | strpos(dummy_text," sumer ") | /*roman empire*/ strpos(dummy_text," caesar") | (strpos(dummy_text,"colosseum") & (strpos(dummy_text,"rome") | strpos(dummy_text,"roman"))) | (strpos(dummy_text,"legion") & strpos(dummy_text,"rome")) | strpos(dummy_text,"roman empire") | strpos(dummy_text,"rubicon"); /***** modern world history bit *****/ generate byte ssh_hist_sub_world = 0; label var ssh_hist_sub_world "Modern World History Bit"; replace ssh_hist_sub_world = 1 if strpos(dummy_text,"world war ii"); /***** overall history frame *****/ generate byte ssh_hist_sub = 0; replace ssh_hist_sub = 1 if ssh_hist_sub_gref | ssh_hist_sub_us | ssh_hist_sub_ancient | ssh_hist_sub_world | ssh_hist_sub_antiq; label var ssh_hist_sub "History Subframe"; /********** SSH Frame **********/ generate byte ssh_frame = 0; replace ssh_frame = 1 if ssh_socsci_sub | ssh_hist_sub; label var ssh_frame "Social Science & History Frame"; keep source yearmonth yearmonthno ssh_*; save "${framesdir}frame_ssh_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_tech.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DETERMINE TECHNOLOGY FRAME *****/ /***** Assigned Original Date: 02 August 2022 *****/ /***** Last Update: 29 December 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** general references ***********/ generate byte tech_gref_sub = 0; label var tech_gref_sub "Technology General Reference Frame"; replace tech_gref_sub = 1 if strpos(dummy_text," invention") | strpos(dummy_text,"technology") | strpos(dummy_text," tech ") ; /********** computing subframe **********/ generate byte tech_computer_sub_gref = 0; replace tech_computer_sub_gref = 1 if strpos(dummy_text,"blockchain") | strpos(dummy_text," cache") | strpos(dummy_text," computer") | strpos(dummy_text,"digital") | strpos(dummy_text," encrypt") | strpos(dummy_text,"google drive") | strpos(dummy_text,"hard drive") | strpos(dummy_text,"information technology") | strpos(dummy_text," keyboard") | strpos(dummy_text,"laughing man") | strpos(dummy_text,"laughingman") | strpos(dummy_text,"local network") | strpos(dummy_text," lan ") | strpos(dummy_text,"minecraft") | (strpos(dummy_text," page") & strpos(dummy_text,"refresh")) | (strpos(dummy_text,"computer") & strpos(dummy_text,"server")) | strpos(dummy_text,"virtual private network") | strpos(dummy_text," vpn ") | strpos(dummy_text,"web cam") | strpos(dummy_text," webcam") | strpos(dummy_text,"windows 10") | strpos(dummy_text,"windows 11") ; label var tech_computer_sub_gref "General Computer Bit"; generate byte tech_computer_sub_software = 0; replace tech_computer_sub_software = 1 if strpos(dummy_text,"software") | strpos(dummy_text,"information management") | strpos(dummy_text," browser") | strpos(dummy_text,"duckduckgo") | strpos(dummy_text," github") | strpos(dummy_text,"google chrome") | strpos(dummy_text,"glassfrog") | strpos(dummy_text,"microsoft explorer") | (strpos(dummy_text,"explorer") & strpos(dummy_text,"windows")) | strpos(dummy_text," plugin") | strpos(dummy_text," plug in") | strpos(dummy_text," sourcehub") ; label var tech_computer_sub_software "Software Bit"; generate byte tech_computer_sub_ai = 0; replace tech_computer_sub_ai = 1 if strpos(dummy_text,"artificial intelligence") | strpos(dummy_text," ai ") ; label var tech_computer_sub_ai "Artificial Intelligence Bit"; generate byte tech_computer_sub_company = 0; replace tech_computer_sub_company = 1 if strpos(dummy_text,"blackrock microsystems") | strpos(dummy_text," oracle") | strpos(dummy_text,"silicon valley"); label var tech_computer_sub_company "Tech Company Bit"; generate byte tech_computer_sub_game = 0; replace tech_computer_sub_game = 1 if strpos(dummy_text," gaming") | strpos(dummy_text,"call of duty") | strpos(dummy_text,"super mario") | (strpos(dummy_text," mario") & strpos(dummy_text," goomba")); label var tech_computer_sub_game "Gaming Bit"; generate byte tech_computer_sub_internet = 0; replace tech_computer_sub_internet = 1 if strpos(dummy_text," internet") ; label var tech_computer_sub_internet "Internet Bit"; generate byte tech_computer_sub = 0; replace tech_computer_sub = 1 if tech_computer_sub_gref | tech_computer_sub_software | tech_computer_sub_ai | tech_computer_sub_game | tech_computer_sub_internet; label var tech_computer_sub "Computer Technology Subframe"; /********** communications subframe *********/ generate byte tech_comm_sub_socmedia = 0; label var tech_comm_sub_socmedia "Social Media"; replace tech_comm_sub_socmedia = 1 if /*general*/ strpos(dummy_text,"social media") | /*platforms*/ (strpos(dummy_text,"discord") & (strpos(dummy_text,"platform") | strpos(dummy_text,"social media"))) | strpos(dummy_text,"end chan") | strpos(dummy_text," facebook") | strpos(dummy_text," fbmd") | strpos(dummy_text," gab") | strpos(dummy_text,"instagram") | strpos(dummy_text,"meme") | strpos(dummy_text,"metaverse") | strpos(dummy_text," parler") | strpos(dummy_text,"reddit") | strpos(dummy_text," rumble") | strpos(dummy_text,"safechat") | strpos(dummy_text," telegram") | strpos(dummy_text,"truth social") | strpos(dummy_text," tiktok") | strpos(dummy_text,"tik tok") | strpos(dummy_text," twitter") | strpos(dummy_text,"4chan") | strpos(dummy_text,"8chan") | strpos(dummy_text,"8kun") | /*other terms*/ strpos(dummy_text," api ") | strpos(dummy_text," bot ") | strpos(dummy_text," bots ") | strpos(dummy_text," troll") ; generate byte tech_comm_sub_email = 0; replace tech_comm_sub_email = 1 if strpos(dummy_text," email"); label var tech_comm_sub_email "Email Bit"; generate byte tech_comm_sub_hardware = 0; label var tech_comm_sub_hardware "Hardware Bit"; replace tech_comm_sub_hardware = 1 if strpos(dummy_text," telephone") | strpos(dummy_text," cellphone") | strpos(dummy_text,"cell phone") | strpos(dummy_text," android") | strpos(dummy_text," comsec ") | strpos(dummy_text," iphone") | strpos(dummy_text,"mobile phone") | strpos(dummy_text,"wireless") | strpos(dummy_text," wifi") | strpos(dummy_text," wi fi") ; /* Phone and 5g myths. Also in the Altreality Frame. */ replace tech_comm_sub_hardware = 1 if strpos(dummy_text," 5g") | (strpos(dummy_text,"magnetic field") & strpos(dummy_text,"phone")) | (strpos(dummy_text,"tower") & (strpos(dummy_text,"cell") | strpos(dummy_text,"radiation") | strpos(dummy_text,"phone"))) ; generate byte tech_comm_sub = 0; replace tech_comm_sub = 1 if tech_comm_sub_socmedia | tech_comm_sub_email | tech_comm_sub_hardware; label var tech_comm_sub "Communications Subframe"; /********** flight subframe **********/ generate byte tech_travel_sub = 0; replace tech_travel_sub = 1 if (strpos(dummy_text,"bezos") & strpos(dummy_text,"rocket")) | strpos(dummy_text,"falcon 9") | strpos(dummy_text,"space x") | strpos(dummy_text,"virgin galactic") | strpos(dummy_text," drone") | strpos(dummy_text,"hypersonic") | strpos(dummy_text,"hyperloop") | strpos(dummy_text," maglev"); label var tech_travel_sub "Flight Subframe"; /********** overall technology frame **********/ generate byte tech_frame = 0; replace tech_frame = 1 if tech_computer_sub | tech_comm_sub | tech_travel_sub; label var tech_frame "Technology Frame"; keep source yearmonth yearmonthno tech_*; save "${framesdir}frame_tech_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_frame_values.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: VALUES FRAME *****/ /***** Original Date: 02 August 2022 *****/ /***** Last Update: 07 October 2023 *****/ /***** *****/ /***** *****/ /***** This program incorporates the following data set: *****/ /***** ${outputdir}frame_military_${filedate}.dta *****/ /***** *****/ /***** This program invokes the following routine: *****/ /***** subroutine_bit_christian-values_temp.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_military_${filedate}_${timeperiod}.dta"; /********** General values subframe **********/ do "${framescode}subroutine_bit_christian-values_temp.do"; generate byte values_general_sub = 0; replace values_general_sub = 1 if strpos(dummy_text,"altruis") | strpos(dummy_text," amoral") | strpos(dummy_text,"civility") | strpos(dummy_text,"compassion") | strpos(dummy_text," degenera") | strpos(dummy_text,"faith in humanity") | strpos(dummy_text," grace") | strpos(dummy_text," graceful") | strpos(dummy_text," gracious") | strpos(dummy_text," honest") | strpos(dummy_text," immoral") | strpos(dummy_text," integrity") | strpos(dummy_text," kindness") | strpos(dummy_text," moral") | strpos(dummy_text," amoral") | strpos(dummy_text," patience") | strpos(dummy_text,"righteous") | strpos(dummy_text," virtu") | relig_christ_sub_values ; label var values_general_sub "General Values Subframe"; generate byte values_goodevil_sub = 0; label var values_goodevil_sub "Good & Evil Binaries"; replace values_goodevil_sub = 1 if (strpos(dummy_text,"good") & strpos(dummy_text,"evil")) | strpos(dummy_text,"good n evil") | (strpos(dummy_text,"light") & strpos(dummy_text,"dark")) | (strpos(dummy_text,"right") & strpos(dummy_text,"wrong")) ; /********** Family and sexuality subframe **********/ /***** Traditional family bit *****/ generate byte values_family_sub_trad = 0; label var values_family_sub_trad "Traditional Family Structure"; replace values_family_sub_trad = 1 if /*family and family structure*/ strpos(dummy_text," family") | strpos(dummy_text," families") | strpos(dummy_text," familial") | strpos(dummy_text,"blended famil") | strpos(dummy_text," child") | strpos(dummy_text," infant") | strpos(dummy_text," kid ") | strpos(dummy_text," kids ") | strpos(dummy_text,"extended famil") | strpos(dummy_text," father") | strpos(dummy_text," dad") | strpos(dummy_text," paternal") | strpos(dummy_text," paternit") | strpos(dummy_text,"grandparent") | strpos(dummy_text,"grandfather") | strpos(dummy_text,"grandmother") | strpos(dummy_text,"grand child") | strpos(dummy_text,"grandchild") | strpos(dummy_text," mother") | strpos(dummy_text," mom ") | strpos(dummy_text," maternal") | strpos(dummy_text," maternit") | strpos(dummy_text,"stay at home mother") | strpos(dummy_text," sahm ") | strpos(dummy_text,"nuclear famil") | strpos(dummy_text," parent") | strpos(dummy_text,"parental right") | /*marriage and divorce*/ strpos(dummy_text," marriage") | strpos(dummy_text," marries") | strpos(dummy_text," married") | (strpos(dummy_text," adulter") & strpos(dummy_text,"adulterous generation") == 0) | strpos(dummy_text," bride") | strpos(dummy_text," bridal") | (strpos(dummy_text,"common law") & strpos(dummy_text," marri")) | strpos(dummy_text," courtship") | strpos(dummy_text," dating") | strpos(dummy_text,"divorce") | strpos(dummy_text,"fornicat") | (strpos(dummy_text," groom") & (strpos(dummy_text,"bride") | strpos(dummy_text,"marriage") | strpos(dummy_text,"marrie") | strpos(dummy_text,"marry") | strpos(dummy_text,"wed"))) | strpos(dummy_text," husband") | strpos(dummy_text,"masterbat") | strpos(dummy_text,"tradwife") | strpos(dummy_text," wife") | strpos(dummy_text," wives") ; /***** Alternative sexuality bit *****/ generate byte values_family_sub_lgbtq = 0; label var values_family_sub_lgbtq "Alternative Sexuality"; replace values_family_sub_lgbtq = 1 if /*general*/ strpos(dummy_text,"homosexual") | strpos(dummy_text," homophobia") | (strpos(dummy_text," fag") & (strpos(dummy_text,"planefag") == 0 & strpos(dummy_text,"boatfag") == 0)) | strpos(dummy_text," lgb") | /*gay*/ strpos(dummy_text," gay ") | strpos(dummy_text," gays ") | /*lesbian*/ strpos(dummy_text," lesbian") | /*bisexual*/ strpos(dummy_text," bisex") | strpos(dummy_text,"nonbinary") | /*trans*/ strpos(dummy_text,"gender reassign") | strpos(dummy_text,"lia thomas") | strpos(dummy_text,"misgender") | strpos(dummy_text,"puberty blocker") | strpos(dummy_text," tranny") | strpos(dummy_text," trannies") | (strpos(dummy_text," trans ") & strpos(dummy_text," athlet")) | strpos(dummy_text,"trans surger") | strpos(dummy_text,"transgender") | strpos(dummy_text,"transsexual" ) | /*queer*/ strpos(dummy_text," queer") | /*furries*/ strpos(dummy_text," furry") | strpos(dummy_text," furries") | /*other*/ strpos(dummy_text,"androgynous") | strpos(dummy_text,"asexual") | strpos(dummy_text,"cross dress") | strpos(dummy_text,"drag queen") | strpos(dummy_text,"intersex") | strpos(dummy_text," pansex") | strpos(dummy_text,"sex party") | strpos(dummy_text,"sex parties") | (strpos(dummy_text,"temple party") & strpos(dummy_text,"sex")) | (strpos(dummy_text,"temple parties") & strpos(dummy_text,"sex")) ; /***** Reproductive Bit *****/ generate byte values_family_sub_sex = 0; label var values_family_sub_sex "Reproductive Rights"; replace values_family_sub_sex = 1 if strpos(dummy_text," abortion") | (strpos(dummy_text," abort") & strpos(dummy_text,"bab")) | strpos(dummy_text,"antiabortion") | strpos(dummy_text,"birth control") | strpos(dummy_text,"the pill") | strpos(dummy_text,"intrauterine device") | strpos(dummy_text," iud ") | strpos(dummy_text,"prochoice") | strpos(dummy_text,"prolife") | strpos(dummy_text,"reproductive rights") | strpos(dummy_text,"rhythm method") ; /***** Overall family and sexuality subframe *****/ generate values_family_sub = 0; label var values_family_sub "Family & Sexuality"; replace values_family_sub = 1 if values_family_sub_trad | values_family_sub_lgbtq | values_family_sub_sex ; /********** Women's Rights and Feminism **********/ generate byte values_women_sub = 0; label var values_women_sub "Women's Rights & Feminism"; replace values_women_sub = 1 if (strpos(dummy_text,"equal rights") & strpos(dummy_text,"women")) | strpos(dummy_text,"gender equality") | strpos(dummy_text,"jineolog") | strpos(dummy_text,"womens rights") ; /********** other values **********/ generate byte values_other_sub = 0; label var values_other_sub "Other Values"; replace values_other_sub = 1 if strpos(dummy_text," gossip") | strpos(dummy_text,"narcissism") | strpos(dummy_text,"narcissist") | strpos(dummy_text," normal") | strpos(dummy_text," abnormal") | strpos(dummy_text," normie") | strpos(dummy_text,"normcore") | strpos(dummy_text,"puritanical") | strpos(dummy_text," rumor") ; /********** Overall references **********/ generate byte values_frame = 0; replace values_frame = 1 if values_general_sub | values_family_sub | values_women_sub | values_other_sub; label var values_frame "Values & Morality Frame"; keep source yearmonth yearmonthno values_*; save "${framesdir}frame_values_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_joinframefiles.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ local mainvar source yearmonth yearmonthno date wordcount wordcat st_qanon st_health sts_prophecy dummy_text local framevar *_frame local disordervar disorder_frame disorder_*_sub disorder_*_sub_w disorder_toxic_sub_incel_w disorder_toxic_sub_gend_w local educvar expert_education_sub expert_education_sub_* local fringevar fringe_*_sub fringe_misinfo_sub_pol_b local healthvar health_*_sub health_wellness_sub_* health_*_combo local nwovar nwo_frame local polvar pol_elect_sub_conspire pol_ideology_sub_freedom_a pol_ideology_sub_freedom_d pol_ideology_sub_antifa pol_ideology_sub_fascism pol_ideology_sub_socialism local psvar pubsafety_*_sub pubsafety_crime_sub_sex pubsafety_crime_sub_sex_b pubsafety_crime_sub_sex_c local qanonvar qanon_frame qanon_*_sub local raceethnic raceethnic_frame raceethnic_cultnatl_* raceethnic_crt_combo raceethnic_blm_combo local religvar relig_*_sub_w local topicvar *_topic local intlvar intl_mideast_sub_israel /*******************************************************************************/ /*******************************************************************************/ /***** *****/ /***** SUBROUTINE: ADD TOGETHER INDIVIDUAL FRAME DATASETS *****/ /***** Original Date: 11 July 2022 *****/ /***** Last Update: 12 April 2024 *****/ /***** *****/ /*******************************************************************************/ /*******************************************************************************/ clear #delimit ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; desc; /********** Merge frames files **********/ clear; use `mainvar' using "${workingdir}working_${filedate}_${timeperiod}.dta"; generate byte expert_education_sub_sex = 0; generate byte expert_education_sub_pedo = 0; generate byte expert_education_sub_indoct = 0; generate byte expert_education_sub_board = 0; replace expert_education_sub_indoct = 1 if strpos(dummy_text,"indoctrinat") | strpos(dummy_text,"brainwash"); replace expert_education_sub_sex = 1 if strpos(dummy_text," lgbtq") | strpos(dummy_text," gay") | strpos(dummy_text," lesbian") | strpos(dummy_text," trans") | strpos(dummy_text," trann") | strpos(dummy_text,"nonbinary") | strpos(dummy_text,"pronoun") | strpos(dummy_text," sex ed") ; replace expert_education_sub_board = 1 if strpos(dummy_text," board") ; replace expert_education_sub_ped = 1 if strpos(dummy_text," pedo") | strpos(dummy_text," groom") ; joinby source yearmonth yearmonthno using "${framesdir}frame_disorder_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' expert_*_sub_*; joinby source yearmonth yearmonthno using "${framesdir}frame_antisemitism_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' expert_*_sub_*; joinby source yearmonth yearmonthno using "${framesdir}frame_diversity_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' expert_*_sub_*; joinby source yearmonth yearmonthno using "${framesdir}frame_economic_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' expert_*_sub_*; joinby source yearmonth yearmonthno using "${framesdir}frame_elites_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' expert_*_sub_*; joinby source yearmonth yearmonthno using "${framesdir}frame_environment_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' expert_*_sub_*; joinby source yearmonth yearmonthno using "${framesdir}frame_expert_${filedate}_${timeperiod}.dta"; if expert_education_sub == 0 { ; replace expert_education_sub_sex = 0; replace expert_education_sub_pedo = 0; replace expert_education_sub_indoct = 0; replace expert_education_sub_board = 0; } ; keep `mainvar' `framevar' `disordervar' `educvar' ; joinby source yearmonth yearmonthno using "${framesdir}frame_fringe_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar'; joinby source yearmonth yearmonthno using "${framesdir}frame_health_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_humanities_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_military_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_natsci_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_nwo_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar'; joinby source yearmonth yearmonthno using "${framesdir}frame_patriotism_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar'; joinby source yearmonth yearmonthno using "${framesdir}frame_pol_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_qanon_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_raceethnic_${filedate}_${timeperiod}.dta"; generate raceethnic_crt_combo = 0; replace raceethnic_crt_combo = 1 if strpos(dummy_text,"critical race"); generate raceethnic_blm_combo = 0; replace raceethnic_blm_combo = 1 if strpos(dummy_text,"black lives matter") | strpos(dummy_text," blm "); keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `raceethnic'; joinby source yearmonth yearmonthno using "${framesdir}frame_relig_${filedate}_${timeperiod}.dta" ; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_socialwelfare_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_ssh_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_tech_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_values_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar'; joinby source yearmonth yearmonthno using "${framesdir}frame_remaining_${filedate}_${timeperiod}.dta" ; replace extremeright_frame = 1 if raceethnic_cultnatl_sub; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar'; joinby source yearmonth yearmonthno using "${framesdir}topic_intl_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar' `topicvar' `intlvar'; joinby source yearmonth yearmonthno using "${framesdir}topic_usplaces_${filedate}_${timeperiod}.dta" ; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar' `topicvar' `intlvar'; joinby source yearmonth yearmonthno using "${framesdir}topic_people_${filedate}_${timeperiod}.dta" ; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar' `topicvar' `intlvar'; joinby source yearmonth yearmonthno using "${framesdir}topic_news_${filedate}_${timeperiod}.dta" ; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar' `topicvar' `intlvar'; joinby source yearmonth yearmonthno using "${framesdir}topic_sports_${filedate}_${timeperiod}.dta" ; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar' `topicvar' `intlvar'; joinby source yearmonth yearmonthno using "${framesdir}topic_current-events_${filedate}_${timeperiod}.dta"; keep `mainvar' `framevar' `disordervar' `educvar' `fringevar' `healthvar' `nwovar' `polvar' `psvar' `qanonvar' `religvar' `topicvar' `intlvar' ce_*; /********** Adjustments **********/ do "${framescode}subroutine_combo_sexcrime_partial.do"; generate disorder_violence_combo = 0; replace disorder_violence_combo = 1 if disorder_violence_sub | disorder_crime_sub | disorder_militarism_sub ; generate long disorder_violence_combo_w = disorder_violence_sub_w + disorder_crime_sub_w + disorder_militarism_sub_w ; generate long disorder_wn = disorder_frame_n * disorder_frame ; generate sex_child_combo = 0; replace sex_child_combo = 1 if pubsafety_crime_sub_sex_b | pubsafety_crime_sub_sex_c; /********** Violence prevalence rate by frame **********/ foreach var of varlist antisemitism_frame extremeleft_frame extremeright_frame fringe_frame health_frame maga_frame nwo_frame pol_frame pubsafety_frame qanon_frame relig_frame expert_frame expert_education_sub raceethnic_frame disorder_toxic_sub disorder_toxic_sub_incel disorder_toxic_sub_nongend disorder_toxic_sub_gend health_wellness_sub_food health_wellness_sub_contact health_vacc_sub health_*_combo sex_child_combo { ; /* calculate prevalence */ generate byte `var'_pd = disorder_frame * `var'; generate byte `var'_pv = disorder_violence_combo * `var'; /* calculate density */ generate long `var'_w = wordcount * `var' ; generate long `var'_wd = disorder_frame_w * `var' ; generate long `var'_wv = disorder_violence_combo_w * `var' ; } ; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_nano_sovereign-citizen_temp.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: SOVEREIGN CITIZEN NANO *****/ /***** Original Date: 09 December 2021 *****/ /***** Last Update: 18 February 2022 *****/ /***** *****/ /***** This subroutine is invoked in the following programs: *****/ /***** 1. subroutine_frame_pol.do *****/ /***** 2. subroutine_subframe_qanon.do *****/ /***** *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte pol_ideology_sub_freedom_a = 0; label var pol_ideology_sub_freedom_a "Sovereign Citizen Nano"; replace pol_ideology_sub_freedom_a = 1 if /*general*/ strpos(dummy_text,"sovereign american") | strpos(dummy_text,"sovereign citizen") | strpos(dummy_text,"sov cit") | strpos(dummy_text," sovcit") | strpos(dummy_text,"sovereign living soul") | strpos(dummy_text,"living man") | strpos(dummy_text,"living sovereign") | /*citizenship*/ strpos(dummy_text," asserverat") | strpos(dummy_text,"de jure american") | strpos(dummy_text,"federal citizen") | strpos(dummy_text,"fourteenth amendment citizen") | strpos(dummy_text,"14th amendment citizen") | strpos(dummy_text,"natural born free citizen") | strpos(dummy_text,"natural-born free citizen") | strpos(dummy_text,"original citizen of the state") | strpos(dummy_text,"original citizens of the state") | strpos(dummy_text,"state citizen") | strpos(dummy_text,"states citizen") | /*commercial activity, contracts, and financial transactions*/ strpos(dummy_text,"accepted for value") | strpos(dummy_text,"taken for value") | strpos(dummy_text,"bill of exchange") | strpos(dummy_text,"dishonor in commerce") | strpos(dummy_text,"form 1099 oid") | strpos(dummy_text,"form 1099oid") | strpos(dummy_text,"hjr 192") | strpos(dummy_text,"house joint resolution 192") | strpos(dummy_text,"not engaged in any commercial activity") | strpos(dummy_text,"not in any commercial activity") | strpos(dummy_text,"not engaged in commercial activity") | strpos(dummy_text,"no commercial activity") | strpos(dummy_text,"red ink") | strpos(dummy_text,"treasury direct account") | strpos(dummy_text,"special trust deposit") | strpos(dummy_text,"trust special deposit") | strpos(dummy_text,"uniform commercial code") | strpos(dummy_text," ucc 1 ") | strpos(dummy_text," ucc1 ") | strpos(dummy_text,"ucc1 207") | strpos(dummy_text,"ucc1207") | strpos(dummy_text,"ucc1 308") | strpos(dummy_text,"ucc1308") | /*declarations of self and sovereignty*/ strpos(dummy_text,"executive trustee") | strpos(dummy_text,"private contract trust") | strpos(dummy_text,"trust known as") | strpos(dummy_text,"in propria persona") | strpos(dummy_text,"in my natural life") | strpos(dummy_text,"natural person") | strpos(dummy_text,"jurisdiction over my body") | strpos(dummy_text,"man upon the land") | strpos(dummy_text,"man upon the soil") | strpos(dummy_text,"woman upon the land") | strpos(dummy_text,"woman upon the soil") | strpos(dummy_text,"secured party creditor") | strpos(dummy_text,"sovereign rights") | strpos(dummy_text,"suae potestate esse") | strpos(dummy_text,"sui juris") | strpos(dummy_text," tdc ") | (strpos(dummy_text,"threat") & strpos(dummy_text,"duress") & strpos(dummy_text,"coercion")) | /*law enforcment*/ strpos(dummy_text,"common law constable") | strpos(dummy_text,"county ranger") | strpos(dummy_text,"not consent") /*"I do not consent*/ | strpos(dummy_text,"peace constable") | (strpos(dummy_text," pirate") & (strpos(dummy_text,"cop") | strpos(dummy_text,"police") | strpos(dummy_text,"law"))) | strpos(dummy_text,"title 18") | /*law and legal terms*/ strpos(dummy_text,"affidavit of truth") | strpos(dummy_text,"articles of confederation") | strpos(dummy_text,"admiralty law") | strpos(dummy_text,"in admiralty") | strpos(dummy_text,"law of the sea") | strpos(dummy_text,"maritime law") | strpos(dummy_text,"de facto government") | strpos(dummy_text,"defacto government") | strpos(dummy_text,"judicial district of tens") | strpos(dummy_text,"judicial district of 10") | strpos(dummy_text,"common law") | strpos(dummy_text,"magna carta") | strpos(dummy_text,"notice of forced deportation") | strpos(dummy_text,"notices of forced deportation") | strpos(dummy_text,"notice of liability") | strpos(dummy_text,"notices of liability") | strpos(dummy_text,"notice of understanding") | strpos(dummy_text,"notices of understanding") | strpos(dummy_text,"special divine appointment") | strpos(dummy_text,"titles of nobility amendment") | strpos(dummy_text,"indigenous peoples seat") | /*property*/ strpos(dummy_text,"private sanctuary") | /*symbols*/ strpos(dummy_text,"flag") & strpos(dummy_text,"fringe") | strpos(dummy_text,"flag") & strpos(dummy_text,"title 4") | /*travel and transportation*/ strpos(dummy_text,"conveyance") | strpos(dummy_text,"personal means of conveyance") | strpos(dummy_text,"private vessel") | strpos(dummy_text,"right to travel") | strpos(dummy_text,"state passport") | strpos(dummy_text,"travel about the land") | strpos(dummy_text,"traveling about the land") | strpos(dummy_text,"travelling about the land") | ((strpos(dummy_text,"traveling") | strpos(dummy_text,"travelling")) & strpos(dummy_text,"commercial capacity")) | ((strpos(dummy_text,"traveling") | strpos(dummy_text,"travelling")) & strpos(dummy_text,"private capacity")) | /*united states and locations*/ strpos(dummy_text,"de facto government") | strpos(dummy_text,"federal zone") | strpos(dummy_text,"united states corporation") | /*identifier names and groups*/ strpos(dummy_text," alpha men") | strpos(dummy_text,"aware group") | strpos(dummy_text,"carolina liberty") | strpos(dummy_text,"embassy of heaven") | strpos(dummy_text," moor ") | /*include moors until more posts or words found*/ strpos(dummy_text," moors ") | strpos(dummy_text," moorish" ) | strpos(dummy_text," bey ") | strpos(dummy_text," el bey ") | strpos(dummy_text,"muur") | strpos(dummy_text,"north carolina american republic") | strpos(dummy_text,"people of the salmon") | strpos(dummy_text,"reichsbürger") | strpos(dummy_text,"reichsburger") | strpos(dummy_text,"republic of the united states of america") | strpos(dummy_text,"stand4thee") | strpos(dummy_text,"washitaw nation") | strpos(dummy_text,"washitaw trustee") | /*other*/ strpos(dummy_text,"indigenous peoples seat") | (strpos(dummy_text," name") & strpos(dummy_text,"capital letters")) | strpos(dummy_text,"negative averment") | strpos(dummy_text,"pied piper") | strpos(dummy_text,"redemption theory") | strpos(dummy_text,"redemption movement") | strpos(dummy_text,"strawman theory") | strpos(dummy_text,"silence is acquiesence") | strpos(dummy_text,"truth language") ; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_disorder_accel.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: ACCELERATION SUBFRAME *****/ /***** Original Date: 22 August 2023 *****/ /***** Last Update: 13 March 2024 *****/ /***** *****/ /***** *****/ /***** Major Contributors: Richard Lee Rogers (PI) *****/ /***** *****/ /***** This program incorporates the following data set: *****/ /***** ${outputdir}frame_military_${filedate}.dta *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /*accelerationism*/ egen w_accelerat = noccur(dummy_text), string(" accelerat") ; /*philosphy*/ egen w_neofemini = noccur(dummy_text), string("neofemini") ; egen w_neorational = noccur(dummy_text), string("neorational") ; egen w_neoreaction = noccur(dummy_text), string("neoreaction") ; /*phrases*/ egen w_annihilat = noccur(dummy_text), string("annihilat") ; egen w_black_flag = noccur(dummy_text), string("black flag") ; egen w_cant_wait = noccur(dummy_text), string("cant wait") ; egen w_deterritorial = noccur(dummy_text), string("deterritorial") ; egen w_devolution = noccur(dummy_text), string("devolution") ; egen w_do_it_ourselves = noccur(dummy_text), string("do it ourselves") ; egen w_fight_has_just_begun = noccur(dummy_text), string("fight has just begun") ; egen w_hunters = noccur(dummy_text), string("hunters become the hunted") ; egen w_military = noccur(dummy_text), string("military is the only way") ; egen w_nothing = noccur(dummy_text), string("nothing can stop what is coming") ; egen w_ncswic = noccur(dummy_text), string(" ncswic ") ; egen w_now = noccur(dummy_text), string("now is the time") ; egen w_politics = noccur(dummy_text), string("politics is not enough") ; egen w_take_back = noccur(dummy_text), string("take back the culture") ; egen w_taking_back = noccur(dummy_text), string("taking back the culture") ; egen w_tbtr = noccur(dummy_text), string("take back the republic") ; egen w_tingbtr = noccur(dummy_text), string("taking back the republic") ; egen w_things_get_worse = noccur(dummy_text), string("things will get worse before they get better") ; egen w_war = noccur(dummy_text), string("war has come") ; egen w_we_are_the_plan = noccur(dummy_text), string("we are the plan") ; ; /********** Final Totals **********/ generate disorder_accel_sub_w = 0; label var disorder_accel_sub_w "Accelerationism # Posts"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_accel_sub_w = disorder_accel_sub_w + `var'; } ; drop w_*; replace disorder_accel_sub_w = wordcount if disorder_accel_sub_w > wordcount; generate disorder_accel_sub = 0; label var disorder_accel_sub "Accelerationism Indicator"; replace disorder_accel_sub = 1 if disorder_accel_sub_w > 0; keep source yearmonth yearmonthno disorder_accel_sub disorder_accel_sub_w; order source yearmonth yearmonthno disorder_accel_sub disorder_accel_sub_w; save "${framesdir}subframe_disorder_accel_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_disorder_aggress.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: AGGRESSION & CONFLICT SUBFRAME *****/ /***** Original Date: 22 August 2023 *****/ /***** Last Update: 28 May 2024 *****/ /***** *****/ /***** *****/ /***** Major Contributor: Richard Lee Rogers *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; egen w_aggress = noccurlong(dummy_text), string("aggress"); egen w_antagonis = noccurlong(dummy_text), string("antagonis"); egen w_belligeren = noccurlong(dummy_text), string("belligeren"); egen w_clash = noccurlong(dummy_text), string("clash"); egen w_brawl = noccurlong(dummy_text), string("brawl"); egen w_coerc = noccurlong(dummy_text), string("coerc"); egen w_conflict = noccurlong(dummy_text), string("conflict"); egen w_confront = noccurlong(dummy_text), string("confront"); egen w_constrain = noccurlong(dummy_text), string("constrain"); egen w_contend = noccurlong(dummy_text), string("contend"); egen w_contentio = noccurlong(dummy_text), string("contentio"); egen w_countermove = noccurlong(dummy_text), string("countermove"); egen w_defamation = noccurlong(dummy_text), string("defamation"); egen w_defame = noccurlong(dummy_text), string("defame"); egen w_defaming = noccurlong(dummy_text), string("defaming"); egen w_dog_eat_dog = noccurlong(dummy_text), string("dog eat dog"); egen w_dominant = noccurlong(dummy_text), string("dominant"); egen w_dominat = noccurlong(dummy_text), string("dominat"); egen w_domineer = noccurlong(dummy_text), string("domineer"); egen w_encroach = noccurlong(dummy_text), string("encroach"); egen w_fierce = noccurlong(dummy_text), string("fierce"); egen w_fight = noccurlong(dummy_text), string("fight"); egen w_by_force = noccurlong(dummy_text), string("by force"); egen w_forced = noccurlong(dummy_text), string("forced"); egen w_forceful = noccurlong(dummy_text), string("forceful"); egen w_forcible = noccurlong(dummy_text), string("forcible"); egen w_use_force = noccurlong(dummy_text), string("use force"); egen w_used_force = noccurlong(dummy_text), string("used force"); egen w_uses_force = noccurlong(dummy_text), string("uses force"); egen w_using_force = noccurlong(dummy_text), string("using force"); egen w_get_even = noccurlong(dummy_text), string("get even"); egen w_harasser = noccurlong(dummy_text), string("harasser"); egen w_hard_hitting = noccurlong(dummy_text), string("hard hitting"); egen w_hostil = noccurlong(dummy_text), string("hostil"); egen w_in_your_face = noccurlong(dummy_text), string("in your face"); egen w_nonconsensual = noccurlong(dummy_text), string("nonconsensual"); egen w_oppress = noccurlong(dummy_text), string("oppress"); egen w_oppugn = noccurlong(dummy_text), string("oppugn"); egen w_overbearing = noccurlong(dummy_text), string("overbearing"); egen w_overpower = noccurlong(dummy_text), string("overpower"); egen w_overwhelm = noccurlong(dummy_text), string("overwhelm"); egen w_pugnacious = noccurlong(dummy_text), string("pugnacious"); egen w_quarrelsome = noccurlong(dummy_text), string("quarrelsome"); egen w_riposte = noccurlong(dummy_text), string("riposte"); egen w_rowdy = noccurlong(dummy_text), string("rowdy"); egen w_scathing = noccurlong(dummy_text), string("scathing"); egen w_scrappy = noccurlong(dummy_text), string("scrappy"); egen w_scuffl = noccurlong(dummy_text), string("scuffl"); egen w_snarl = noccurlong(dummy_text), string("snarl"); egen w_subvers = noccurlong(dummy_text), string("subvers"); egen w_suppress = noccurlong(dummy_text), string("suppress"); egen w_threaten = noccurlong(dummy_text), string("threaten"); egen w_truculent = noccurlong(dummy_text), string("truculent"); egen w_without_consent = noccurlong(dummy_text), string("without consent"); generate disorder_aggress_sub_w = 0; label var disorder_aggress_sub_w "Aggression & Conflict Thematic Posts"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_aggress_sub_w = disorder_aggress_sub_w + `var'; }; drop w_*; replace disorder_aggress_sub_w = wordcount if disorder_aggress_sub_w > wordcount; generate disorder_aggress_sub = 0; label var disorder_aggress_sub "Aggression & Conflict Indicator"; replace disorder_aggress_sub = 1 if disorder_aggress_sub_w > 0; keep source yearmonth yearmonthno disorder_aggress_sub disorder_aggress_sub_w; order source yearmonth yearmonthno disorder_aggress_sub disorder_aggress_sub_w; save "${framesdir}subframe_disorder_aggress_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_disorder_chaos.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: CHAOS SUBFRAME *****/ /***** Original Date: 22 August 2023 *****/ /***** Last Update: 13 March 2024 *****/ /***** *****/ /***** *****/ /***** Major Contributor: Richard Lee Rogers *****/ /***** ${outputdir}frame_military_${filedate}.dta *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; egen w_chaos = noccurlong(dummy_text), string("chaos") ; egen w_crisis = noccurlong(dummy_text), string("crisis") ; egen w_disaster = noccurlong(dummy_text), string("disaster") ; egen w_disorder = noccurlong(dummy_text), string("disorder") ; egen w_disrupt = noccurlong(dummy_text), string("disrupt") ; egen w_anarch = noccurlong(dummy_text), string("anarch") ; egen w_anomie = noccurlong(dummy_text), string("anomie") ; egen w_clutter = noccurlong(dummy_text), string("clutter") ; egen w_commotion = noccurlong(dummy_text), string("commotion") ; egen w_confusion = noccurlong(dummy_text), string("confusion") ; egen w_disarray = noccurlong(dummy_text), string("disarray") ; egen w_discombobulat = noccurlong(dummy_text), string("discombobulat") ; egen w_discord = noccurlong(dummy_text), string("discord") ; egen w_disorgani = noccurlong(dummy_text), string("disorgani") ; egen w_disturbance = noccurlong(dummy_text), string("disturbance") ; egen w_disunity = noccurlong(dummy_text), string("disunity") ; egen w_entrop = noccurlong(dummy_text), string("entrop") ; egen w_fragment = noccurlong(dummy_text), string("fragment") ; egen w_havoc = noccurlong(dummy_text), string("havoc") ; egen w_incoher = noccurlong(dummy_text), string("incoher") ; egen w_instabilit = noccurlong(dummy_text), string("instabilit") ; egen w_instable = noccurlong(dummy_text), string("instable") ; egen w_irregular = noccurlong(dummy_text), string("irregular") ; egen w_jumbl = noccurlong(dummy_text), string("jumbl") ; egen w_lawless = noccurlong(dummy_text), string("lawless") ; egen w_maelstrom = noccurlong(dummy_text), string("maelstrom") ; egen w_mayhem = noccurlong(dummy_text), string("mayhem") ; egen w_meltdown = noccurlong(dummy_text), string("meltdown") ; egen w_mess = noccurlong(dummy_text), string(" mess ") ; egen w_messes = noccurlong(dummy_text), string(" messes ") ; egen w_messiness = noccurlong(dummy_text), string("messiness") ; egen w_messy = noccurlong(dummy_text), string("messy") ; egen w_misrul = noccurlong(dummy_text), string("misrul") ; egen w_pandemonium = noccurlong(dummy_text), string("pandemonium") ; egen w_random = noccurlong(dummy_text), string("random") ; egen w_rats_nest = noccurlong(dummy_text), string("rats nest") ; egen w_ruckus = noccurlong(dummy_text), string("ruckus") ; egen w_rumpus = noccurlong(dummy_text), string("rumpus") ; egen w_shamble = noccurlong(dummy_text), string("shamble") ; egen w_shapeless = noccurlong(dummy_text), string("shapeless") ; egen w_tumult = noccurlong(dummy_text), string("tumult") ; egen w_turmoil = noccurlong(dummy_text), string("turmoil") ; egen w_unpredict = noccurlong(dummy_text), string("unpredict") ; egen w_unrestrained = noccurlong(dummy_text), string("unrestrained") ; egen w_unruliness = noccurlong(dummy_text), string("unruliness") ; egen w_unruly = noccurlong(dummy_text), string("unruly") ; egen w_unsystematic = noccurlong(dummy_text), string("unsystematic") ; egen w_upheaval = noccurlong(dummy_text), string("upheaval") ; egen w_uproar = noccurlong(dummy_text), string("uproar") ; egen w_volatile = noccurlong(dummy_text), string("volatile") ; egen w_volatility = noccurlong(dummy_text), string("volatility") ; egen w_wildness = noccurlong(dummy_text), string("wildness") ; egen w_wreck = noccurlong(dummy_text), string("wreck") ; egen w_enemy = noccurlong(dummy_text), string("enemy") ; egen w_enmity = noccurlong(dummy_text), string("enmity") ; egen w_barbari = noccurlong(dummy_text), string("barbari") ; egen w_beastly = noccurlong(dummy_text), string("beastly") ; egen w_berserk = noccurlong(dummy_text), string("berserk") ; egen w_chaotic = noccurlong(dummy_text), string("chaotic") ; egen w_convuls = noccurlong(dummy_text), string("convuls") ; egen w_divisive = noccurlong(dummy_text), string("divisive") ; egen w_frantic = noccurlong(dummy_text), string("frantic") ; egen w_intrude = noccurlong(dummy_text), string("intrude") ; egen w_intrusive = noccurlong(dummy_text), string("intrusive") ; egen w_irrational = noccurlong(dummy_text), string("irrational") ; egen w_jarring = noccurlong(dummy_text), string("jarring") ; egen w_jolt = noccurlong(dummy_text), string("jolt") ; egen w_maniac = noccurlong(dummy_text), string("maniac") ; egen w_obstreperous = noccurlong(dummy_text), string("obstreperous") ; egen w_out_of_control = noccurlong(dummy_text), string("out of control") ; egen w_rabid = noccurlong(dummy_text), string("rabid") ; egen w_rampant = noccurlong(dummy_text), string("rampant") ; egen w_reckless = noccurlong(dummy_text), string("reckless") ; egen w_rowdy = noccurlong(dummy_text), string("rowdy") ; egen w_savage = noccurlong(dummy_text), string("savage") ; egen w_shock = noccurlong(dummy_text), string("shock") ; egen w_spasm = noccurlong(dummy_text), string("spasm") ; egen w_stagger = noccurlong(dummy_text), string("stagger") ; egen w_stormy = noccurlong(dummy_text), string("stormy") ; egen w_subvers = noccurlong(dummy_text), string("subvers") ; egen w_subvert = noccurlong(dummy_text), string("subvert") ; egen w_tempest = noccurlong(dummy_text), string("tempest") ; egen w_terror = noccurlong(dummy_text), string("terror") ; egen w_turbulent = noccurlong(dummy_text), string("turbulent") ; egen w_uncivil = noccurlong(dummy_text), string("uncivil") ; egen w_uncontrolled = noccurlong(dummy_text), string("uncontrolled") ; egen w_undisciplined = noccurlong(dummy_text), string("undisciplined") ; egen w_unhinged = noccurlong(dummy_text), string("unhinged") ; egen w_unmanageable = noccurlong(dummy_text), string("unmanageable") ; egen w_unstable = noccurlong(dummy_text), string("unstable") ; egen w_wild = noccurlong(dummy_text), string("wild") ; egen w_boil_over = noccurlong(dummy_text), string("boil over") ; egen w_boiled_over = noccurlong(dummy_text), string("boiled over") ; egen w_boiling_over = noccurlong(dummy_text), string("boiling over") ; egen w_boils_over = noccurlong(dummy_text), string("boils over") ; egen w_outburst = noccurlong(dummy_text), string("outburst") ; egen w_ungovernable = noccurlong(dummy_text), string("ungovernable") ; egen w_untamed = noccurlong(dummy_text), string("untamed") ; egen w_bedlam = noccurlong(dummy_text), string("bedlam") ; generate disorder_chaos_sub_w = 0; label var disorder_chaos_sub_w "Chaos & Disruption Thematic Posts"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_chaos_sub_w = disorder_chaos_sub_w + `var'; }; drop w_*; replace disorder_chaos_sub_w = wordcount if disorder_chaos_sub_w > wordcount; generate disorder_chaos_sub = 0; label var disorder_chaos_sub "Chaos & Disorder Indicator"; replace disorder_chaos_sub = 1 if disorder_chaos_sub_w > 0; keep source yearmonth yearmonthno disorder_chaos_sub disorder_chaos_sub_w; order source yearmonth yearmonthno disorder_chaos_sub disorder_chaos_sub_w; save "${framesdir}subframe_disorder_chaos_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_disorder_crime.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: SOCIAL CRISIS FRAME *****/ /***** Original Date: 22 August 2023 *****/ /***** Last Update: 24 June 2024 *****/ /***** *****/ /***** *****/ /***** Major Contributor: Richard Lee Rogers *****/ /***** ${outputdir}frame_military_${filedate}.dta *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; egen w_abduct = noccurlong(dummy_text), string("abduct") ; egen w_assault = noccurlong(dummy_text), string("assault") ; egen w_crime_against_humanity = noccurlong(dummy_text), string("crime against humanity") ; egen w_crimes_against_humanity = noccurlong(dummy_text), string("crimes against humanity") ; egen w_jbpill = noccurlong(dummy_text), string(" jbpill"); egen w_homicid = noccurlong(dummy_text), string("homicid ") ; egen w_kidnap = noccurlong(dummy_text), string("kidnap") ; egen w_kill = noccurlong(dummy_text), string("kill") ; egen w_lynch = noccurlong(dummy_text), string("lynch") ; egen w_molest = noccurlong(dummy_text), string("molest") ; egen w_murder = noccurlong(dummy_text), string("murder") ; egen w_noose = noccurlong(dummy_text), string("noose") ; egen w_paedo = noccurlong(dummy_text), string("paedo") ; egen w_pedo = noccurlong(dummy_text), string("pedo") ; egen w_rapacious = noccurlong(dummy_text), string("rapacious") ; egen w_rape = noccurlong(dummy_text), string("rape") ; egen w_raping = noccurlong(dummy_text), string("raping") ; egen w_rapist = noccurlong(dummy_text), string("rapist") ; egen w_rob = noccurlong(dummy_text), string("rob") ; egen w_robbed = noccurlong(dummy_text), string("robbed") ; egen w_robber = noccurlong(dummy_text), string("robber") ; egen w_robbing = noccurlong(dummy_text), string("robbing") ; egen w_robs = noccurlong(dummy_text), string("robs") ; egen w_sexual advance = noccurlong(dummy_text), string("sexual advance") ; egen w_shoot = noccurlong(dummy_text), string("shoot") ; egen w_shot = noccurlong(dummy_text), string("shot") ; /********** Final Toitals ***********/ generate disorder_crime_sub_w = 0; label var disorder_crime_sub_w "Violent Crime: # Words"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_crime_sub_w = disorder_crime_sub_w + `var'; }; replace disorder_crime_sub_w = wordcount if disorder_crime_sub_w > wordcount; generate disorder_crime_sub = 0; label var disorder_crime_sub "Violent Crime"; replace disorder_crime_sub = 1 if disorder_crime_sub_w > 0; drop w_*; keep source yearmonth yearmonthno disorder_crime_sub disorder_crime_sub_w; order source yearmonth yearmonthno disorder_crime_sub disorder_crime_sub_w; save "${framesdir}subframe_disorder_crime_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_disorder_harm.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: VIOLENCE AND AGGRESSION SUBFRAME *****/ /***** Original Date: 01 August 2023 *****/ /***** Last Update: 11 June 2024 *****/ /***** *****/ /***** Contributors: Priya Dhakal, Richard Lee Rogers (PI), Nino Shubitidze *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** WordNet 2.1 **********/ /********** Last Check 24 February 2024 *****/ egen w_aveng = noccurlong(dummy_text), string(" aveng"); egen w_brute = noccurlong(dummy_text), string(" brute"); egen w_bullie = noccurlong(dummy_text), string(" bullie"); /*includes bullies, bullied*/ egen w_bully = noccurlong(dummy_text), string(" bully"); egen w_depredat = noccurlong(dummy_text), string(" depredat"); egen w_devastat = noccurlong(dummy_text), string(" devastat"); egen w_hooligan = noccurlong(dummy_text), string(" hooligan"); egen w_iconoclast = noccurlong(dummy_text), string(" iconoclast"); egen w_night_rider = noccurlong(dummy_text), string(" night rider"); egen w_nightrider = noccurlong(dummy_text), string(" nightrider"); egen w_plug_ugly = noccurlong(dummy_text), string(" plug ugly"); egen w_predation = noccurlong(dummy_text), string("predation"); egen w_predator = noccurlong(dummy_text), string("predator"); egen w_rapine = noccurlong(dummy_text), string(" rapine"); egen w_ravag = noccurlong(dummy_text), string(" ravag"); egen w_riot = noccurlong(dummy_text), string(" riot"); egen w_road_rage = noccurlong(dummy_text), string(" road rage"); egen w_spoilation = noccurlong(dummy_text), string(" spoilation"); egen w_spoliation = noccurlong(dummy_text), string(" spoliation"); egen w_strike = noccurlong(dummy_text), string(" strike"); egen w_violen = noccurlong(dummy_text), string(" violen"); egen w_yob = noccurlong(dummy_text), string(" yob"); /********** AI Word Lists **********/ /********** Last Check 24 February 2024 *****/ egen w_barbaric = noccurlong(dummy_text), string(" barbaric"); egen w_blood_thirst = noccurlong(dummy_text), string("blood thirst"); egen w_bloodthirst = noccurlong(dummy_text), string("bloodthirst"); egen w_brutal = noccurlong(dummy_text), string(" brutal"); egen w_brutish = noccurlong(dummy_text), string(" brutish"); egen w_cruel = noccurlong(dummy_text), string(" cruel"); egen w_danger = noccurlong(dummy_text), string(" danger"); egen w_deadlie = noccurlong(dummy_text), string(" deadlie"); /*includes deadlier, deadliest*/ egen w_deadly = noccurlong(dummy_text), string(" deadly"); egen w_destruct = noccurlong(dummy_text), string(" destruct"); egen w_explod = noccurlong(dummy_text), string(" explod"); egen w_explosi = noccurlong(dummy_text), string(" explosi"); egen w_gory = noccurlong(dummy_text), string(" gory"); egen w_gruesome = noccurlong(dummy_text), string(" gruesome"); egen w_injur = noccurlong(dummy_text), string(" injur"); egen w_lash = noccurlong(dummy_text), string(" lash"); egen w_lethal = noccurlong(dummy_text), string(" lethal"); egen w_painful = noccurlong(dummy_text), string(" painful"); egen w_peril = noccurlong(dummy_text), string(" peril"); egen w_ruthless = noccurlong(dummy_text), string(" ruthless"); egen w_savage = noccurlong(dummy_text), string(" savage"); egen w_scorch = noccurlong(dummy_text), string(" scorch"); egen w_scourge = noccurlong(dummy_text), string(" scourge"); egen w_shatter = noccurlong(dummy_text), string(" shatter"); egen w_slash = noccurlong(dummy_text), string(" slash"); egen w_smash = noccurlong(dummy_text), string(" smash"); egen w_tempest = noccurlong(dummy_text), string(" tempest"); egen w_terroris = noccurlong(dummy_text), string(" terroris"); egen w_terroriz = noccurlong(dummy_text), string(" terroriz"); egen w_venomous = noccurlong(dummy_text), string(" venomous"); egen w_vicious = noccurlong(dummy_text), string(" vicious"); egen w_violat = noccurlong(dummy_text), string(" violat"); if strpos(dummy_text,"virulen") {; if strpos(dummy_text,"disease") == 0 & strpos(dummy_text,"virus") == 0 {; egen w_virulen = noccurlong(dummy_text), string(" virulen"); }; }; egen w_wreck = noccurlong(dummy_text), string(" wreck"); /********** Subjective Additions **********/ /********** Last Check 24 February 2024 *****/ egen w_abuse = noccurlong(dummy_text), string(" abuse"); egen w_abusing = noccurlong(dummy_text), string(" abusing"); egen w_abusive = noccurlong(dummy_text), string(" abusive"); egen w_annihilat = noccurlong(dummy_text), string(" annihilat"); egen w_asphyxia = noccurlong(dummy_text), string(" asphyxia"); egen w_apocalyp = noccurlong(dummy_text), string(" apocalyp"); egen w_assassin = noccurlong(dummy_text), string(" assassin"); egen w_blood_feud = noccurlong(dummy_text), string(" blood feud"); egen w_blood_lust = noccurlong(dummy_text), string(" blood lust"); egen w_bloodlust = noccurlong(dummy_text), string(" bloodlust"); egen w_blood_shed = noccurlong(dummy_text), string(" blood shed"); egen w_bloodshed = noccurlong(dummy_text), string(" bloodshed"); egen w_bloodied = noccurlong(dummy_text), string(" bloodied"); egen w_bloodies = noccurlong(dummy_text), string(" bloodies"); egen w_bloody = noccurlong(dummy_text), string(" bloody"); egen w_blow_up = noccurlong(dummy_text), string("blow up"); egen w_blowup = noccurlong(dummy_text), string("blowup"); egen w_blowed_up = noccurlong(dummy_text), string("blowed up"); egen w_blowing_up = noccurlong(dummy_text), string("blowing up"); egen w_blown_up = noccurlong(dummy_text), string("blown up"); egen w_blows_up = noccurlong(dummy_text), string("blows up"); if strpos(dummy_text,"butcher") {; if strpos(dummy_text," meat") == 0 {; egen w_class = noccurlong(dummy_text), string(" butcher"); }; }; egen w_collid = noccurlong(dummy_text), string(" collid"); egen w_collision = noccurlong(dummy_text), string(" collision"); egen w_conflagra = noccurlong(dummy_text), string(" conflagra"); egen w_crucifi = noccurlong(dummy_text), string("crucifi"); egen w_crucify = noccurlong(dummy_text), string("crucify"); egen w_damag = noccurlong(dummy_text), string(" damag"); egen w_death_threat = noccurlong(dummy_text), string("death threat"); egen w_decapitat = noccurlong(dummy_text), string("decapitat"); egen w_despoilat = noccurlong(dummy_text), string("despoilat"); egen w_destroy = noccurlong(dummy_text), string(" destroy"); egen w_detonat = noccurlong(dummy_text), string("detonat"); egen w_drown = noccurlong(dummy_text), string(" drown"); egen w_duel = noccurlong(dummy_text), string(" duel"); egen w_eradicat = noccurlong(dummy_text), string(" eradicat"); egen w_execut = noccurlong(dummy_text), string(" execut"); replace w_execut = 0 if strpos(dummy_text," plan") | strpos(dummy_text," strategy") | strpos(dummy_text," death penalt") ; egen w_excessive_force = noccurlong(dummy_text), string("excessive force"); egen w_ferocious = noccurlong(dummy_text), string("ferocious"); egen w_ferocity = noccurlong(dummy_text), string("ferocity"); egen w_flare_up = noccurlong(dummy_text), string(" flare up"); egen w_flared_up = noccurlong(dummy_text), string(" flared up"); egen w_flares_up = noccurlong(dummy_text), string(" flares up"); egen w_flareup = noccurlong(dummy_text), string(" flareup"); egen w_flaring_up = noccurlong(dummy_text), string(" flaring up"); egen w_force_of_arms = noccurlong(dummy_text), string("force of arms"); egen w_forced_physically = noccurlong(dummy_text), string("forced physically"); egen w_foul_play = noccurlong(dummy_text), string("foul play"); egen w_go_er = noccurlong(dummy_text), string(" go er "); egen w_go_rodger = noccurlong(dummy_text), string(" go rodger"); egen w_gun_fire = noccurlong(dummy_text), string("gun fire"); egen w_gunfire = noccurlong(dummy_text), string(" gunfire"); if strpos(dummy_text,"harm") {; if strpos(dummy_text,"harmless") == 0 {; egen w_harm = noccurlong(dummy_text), string(" harm"); }; }; egen w_inflict = noccurlong(dummy_text), string(" inflict"); egen w_menace = noccurlong(dummy_text), string(" menace"); egen w_menacing = noccurlong(dummy_text), string("menacing"); egen w_overaggress = noccurlong(dummy_text), string("overaggress"); egen w_persecut = noccurlong(dummy_text), string("persecut"); egen w_physical_force = noccurlong(dummy_text), string("physical force"); egen w_poison = noccurlong(dummy_text), string(" poison"); egen w_prey = noccurlong(dummy_text), string(" prey"); egen w_quasiviolent = noccurlong(dummy_text), string("quasiviolent"); egen w_rampag = noccurlong(dummy_text), string(" rampag"); egen w_reveng = noccurlong(dummy_text), string(" reveng"); egen w_seize = noccurlong(dummy_text), string(" seize"); if strpos(dummy_text,"seizure") {; if strpos(dummy_text,"epilep") & strpos(dummy_text, "heart") == 0 {; egen w_seizure = noccurlong(dummy_text), string(" seizure"); }; }; egen w_shed_blood = noccurlong(dummy_text), string(" shed blood"); egen w_shedding_of_blood = noccurlong(dummy_text), string(" shedding of blood"); egen w_sheds_blood = noccurlong(dummy_text), string(" sheds blood"); egen w_slaughter = noccurlong(dummy_text), string(" slaughter"); egen w_strangulat = noccurlong(dummy_text), string("strangulat"); egen w_strongarm = noccurlong(dummy_text), string("strong arm"); egen w_superaggrav = noccurlong(dummy_text), string("superaggrav"); egen w_superaggress = noccurlong(dummy_text), string("superaggress"); egen w_torment = noccurlong(dummy_text), string(" torment"); egen w_uprising = noccurlong(dummy_text), string("uprising"); egen w_use_of_force = noccurlong(dummy_text), string("use of force"); egen w_vendetta = noccurlong(dummy_text), string(" vendetta"); egen w_vengeance = noccurlong(dummy_text), string(" vengeance"); egen w_wipe_out = noccurlong(dummy_text), string("wipe out"); egen w_wiped_out = noccurlong(dummy_text), string("wiped out"); egen w_wipes_out = noccurlong(dummy_text), string("wipes out"); egen w_wiping_out = noccurlong(dummy_text), string("wiping out"); /********** Totals **********/ generate disorder_harm_sub_w = 0; label var disorder_harm_sub_w "Harm, Injury, or Destruction # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace disorder_harm_sub_w = disorder_harm_sub_w + `var'; }; drop w_*; replace disorder_harm_sub_w = wordcount if disorder_harm_sub_w > wordcount; generate disorder_harm_sub = 0; label var disorder_harm_sub "Harm, Injury, or Destruction Indicator"; replace disorder_harm_sub = 1 if disorder_harm_sub_w > 0; keep source yearmonth yearmonthno disorder_harm_sub disorder_harm_sub_w; order source yearmonth yearmonthno disorder_harm_sub disorder_harm_sub_w; save "${framesdir}subframe_disorder_harm_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_disorder_militarism.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: MILITARISM SUBFRAME *****/ /***** Original Date: 22 August 2023 *****/ /***** Last Update: 16 March 2024 *****/ /***** *****/ /***** *****/ /***** Major Contributor: Richard Lee Rogers (PI) *****/ /***** *****/ /***** This program incorporates the following data set: *****/ /***** ${outputdir}frame_military_${filedate}.dta *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; egen w_adversar = noccurlong(dummy_text), string("adversar") ; egen w_ambush = noccurlong(dummy_text), string("ambush") ; egen w_armaggedon = noccurlong(dummy_text), string(" armaggedon") ; egen w_armed = noccurlong(dummy_text), string("armed") ; egen w_arms race = noccurlong(dummy_text), string("arms race") ; egen w_barrage = noccurlong(dummy_text), string("barrage") ; egen w_battl = noccurlong(dummy_text), string("battl") ; egen w_beseige = noccurlong(dummy_text), string("beseige") ; egen w_blitz = noccurlong(dummy_text), string("blitz") ; egen w_campaign = noccurlong(dummy_text), string("campaign") ; egen w_combat = noccurlong(dummy_text), string("combat") ; egen w_conquer = noccurlong(dummy_text), string("conquer") ; egen w_counterassault = noccurlong(dummy_text), string("counterassault") ; egen w_crusad = noccurlong(dummy_text), string("crusad") ; egen w_defend = noccurlong(dummy_text), string("defend") ; egen w_defensive = noccurlong(dummy_text), string("defensive") ; egen w_enemies = noccurlong(dummy_text), string("enemies") ; egen w_enemy = noccurlong(dummy_text), string("enemy") ; egen w_flank = noccurlong(dummy_text), string("flank") ; egen w_fort = noccurlong(dummy_text), string("fort ") ; egen w_fortif = noccurlong(dummy_text), string("fortif") ; egen w_fortress = noccurlong(dummy_text), string("fortress") ; egen w_hawkish = noccurlong(dummy_text), string("hawkish") ; egen w_incursion = noccurlong(dummy_text), string("incursion") ; egen w_invade = noccurlong(dummy_text), string("invade") ; egen w_invasion = noccurlong(dummy_text), string("invasion") ; egen w_joust = noccurlong(dummy_text), string("joust") ; egen w_maraud = noccurlong(dummy_text), string("maraud") ; egen w_martial = noccurlong(dummy_text), string("martial") ; egen w_massacr = noccurlong(dummy_text), string("massacr") ; egen w_megiddo = noccurlong(dummy_text), string(" megiddo") ; egen w_militancy = noccurlong(dummy_text), string("militancy") ; egen w_militant = noccurlong(dummy_text), string("militant") ; egen w_militarism = noccurlong(dummy_text), string("militarism") ; egen w_nuremberg = noccurlong(dummy_text), string("nuremberg") ; egen w_offender = noccurlong(dummy_text), string("offender") ; egen w_offensive = noccurlong(dummy_text), string("offensive") ; egen w_onslaught = noccurlong(dummy_text), string("onslaught") ; egen w_opponent = noccurlong(dummy_text), string("opponent") ; egen w_raid = noccurlong(dummy_text), string("raid") ; egen w_rebel = noccurlong(dummy_text), string("rebel") ; egen w_rebellion = noccurlong(dummy_text), string("rebellion") ; egen w_revolt = noccurlong(dummy_text), string("revolt") ; egen w_revolution = noccurlong(dummy_text), string("revolution") ; egen w_siege = noccurlong(dummy_text), string("siege") ; egen w_skirmish = noccurlong(dummy_text), string("skirmish") ; egen w_soldier = noccurlong(dummy_text), string("soldier") ; egen w_stand_your_ground = noccurlong(dummy_text), string("stand your ground") ; egen w_strangling = noccurlong(dummy_text), string("strangling") ; egen w_strangulation = noccurlong(dummy_text), string("strangulation") ; egen w_strife = noccurlong(dummy_text), string("strife") ; egen w_stronghold = noccurlong(dummy_text), string("stronghold") ; egen w_struggl = noccurlong(dummy_text), string("struggl") ; egen w_take_the_offensive = noccurlong(dummy_text), string("take the offensive") ; egen w_take_up_arms = noccurlong(dummy_text), string("take up arms") ; egen w_war = noccurlong(dummy_text), string("war") ; egen w_war_monger = noccurlong(dummy_text), string("war monger") ; egen w_war_room = noccurlong(dummy_text), string("war room") ; egen w_warfare = noccurlong(dummy_text), string("warfare") ; egen w_warlike = noccurlong(dummy_text), string("warlike") ; egen w_warmonger = noccurlong(dummy_text), string("warmonger") ; egen w_warring = noccurlong(dummy_text), string("warring") ; egen w_warrior = noccurlong(dummy_text), string("warrior") ; egen w_wars = noccurlong(dummy_text), string("wars") ; /********** Final Totals **********/ generate disorder_militarism_sub_w = 0; label var disorder_militarism_sub_w "Militarism # Words"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_militarism_sub_w = disorder_militarism_sub_w +`var'; }; drop w_*; replace disorder_militarism_sub_w = wordcount if disorder_militarism_sub_w > wordcount; generate disorder_militarism_sub = 0; label var disorder_militarism_sub "Militarism Indicator"; replace disorder_militarism_sub = 1 if disorder_militarism_sub_w > 0; keep source yearmonth yearmonthno disorder_militarism_sub disorder_militarism_sub_w; order source yearmonth yearmonthno disorder_militarism_sub disorder_militarism_sub_w; save "${framesdir}subframe_disorder_militarism_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_disorder_toxic.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: TOXIC SUBFRAME *****/ /***** Original Date: 22 August 2023 *****/ /***** Last Update: 15 May 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /***** Major Contributors: Priya Dhakal, Monica Merrill, Richard Lee *****/ /***** Rogers (PI), Nino Subitidze *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** Toxicity Subframe **********/ /***** Incels *****/ egen w_agepill = noccurlong(dummy_text), string(" agepill"); egen w_all_womew_are_like_that = noccurlong(dummy_text), string("all women are like that"); egen w_awalt = noccurlong(dummy_text), string("awalt"); egen w_alpha_male = noccurlong(dummy_text), string("alpha male"); egen w_amog = noccurlong(dummy_text), string(" amog"); egen w_baldcel = noccurlong(dummy_text), string(" baldcel"); egen w_bald_cel = noccurlong(dummy_text), string("bald cel"); egen w_becky = noccurlong(dummy_text), string(" becky"); egen w_betabux = noccurlong(dummy_text), string(" betabux"); egen w_beta_male = noccurlong(dummy_text), string(" beta male"); egen w_beta_orbiter = noccurlong(dummy_text), string(" beta orbiter"); egen w_beta_uprising = noccurlong(dummy_text), string("beta uprising"); egen w_big_black_cock = noccurlong(dummy_text), string("big black cock"); egen w_black_pill = noccurlong(dummy_text), string("black pill"); egen w_blackpill = noccurlong(dummy_text), string("blackpill"); egen w_blubber_whal = noccurlong(dummy_text), string("blubber_whal"); egen w_blueballer = noccurlong(dummy_text), string("blueballer"); egen w_blue_baller = noccurlong(dummy_text), string("blue baller"); egen w_bone_smash_theory = noccurlong(dummy_text), string("bone smash theory"); egen w_burgercel = noccurlong(dummy_text), string("burgercel"); egen w_burger_cel = noccurlong(dummy_text), string("burger cel"); egen w_casualcel = noccurlong(dummy_text), string("casualcel"); egen w_casual_cel = noccurlong(dummy_text), string("casual cel"); egen w_clowncel = noccurlong(dummy_text), string("clowncel"); egen w_cloww_cel = noccurlong(dummy_text), string("clown cel"); egen w_currycel = noccurlong(dummy_text), string("currycel"); egen w_curry_cel = noccurlong(dummy_text), string("curry cel"); egen w_chad = noccurlong(dummy_text), string(" chad "); egen w_chaddam = noccurlong(dummy_text), string(" chaddam"); egen w_chadfish = noccurlong(dummy_text), string(" chadfish"); egen w_chadlite = noccurlong(dummy_text), string(" chadlite"); egen w_chadpreet = noccurlong(dummy_text), string(" chadpreet"); egen w_aryaw_chad = noccurlong(dummy_text), string("aryan chad"); egen w_day_of_retribution = noccurlong(dummy_text), string("day of retribution"); egen w_deppmog = noccurlong(dummy_text), string(" deppmog"); egen w_dolphmog = noccurlong(dummy_text), string(" dolphmog"); egen w_fakecel = noccurlong(dummy_text), string("fakecel"); egen w_fake_cel = noccurlong(dummy_text), string("fake cel"); egen w_fapfuel = noccurlong(dummy_text), string("fapfuel"); egen w_fbicel = noccurlong(dummy_text), string("fbicel"); egen w_fbi_cel = noccurlong(dummy_text), string("fbi cel"); egen w_femoid = noccurlong(dummy_text), string(" femoid"); egen w_foid = noccurlong(dummy_text), string(" foid"); egen w_foos = noccurlong(dummy_text), string( " foos "); egen w_forever_alone = noccurlong(dummy_text), string("forever alone"); if source == 320 {; egen w_fa = noccurlong(dummy_text), string(" fa "); }; egen w_framecel = noccurlong(dummy_text), string("framecel"); egen w_frame_cel = noccurlong(dummy_text), string("frame cel"); egen w_go_er = noccurlong(dummy_text), string("go er "); egen w_go_rodger = noccurlong(dummy_text), string("go rodger"); egen w_gymcel = noccurlong(dummy_text), string("gymcel"); egen w_gym_cel = noccurlong(dummy_text), string("gym cel"); egen w_gymmax = noccurlong(dummy_text), string("gymmax"); egen w_gym_thot = noccurlong(dummy_text), string("gym thot"); egen w_gymthot = noccurlong(dummy_text), string("gymthot"); egen w_gynocentri = noccurlong(dummy_text), string("gynocentri"); egen w_heightcel = noccurlong(dummy_text), string("heightcel"); egen w_height_cel = noccurlong(dummy_text), string("height cel"); egen w_heightpill = noccurlong(dummy_text), string("heightpill"); egen w_height_pill = noccurlong(dummy_text), string("height pill"); egen w_hikikomori = noccurlong(dummy_text), string("hikikomori"); egen w_khhv = noccurlong(dummy_text), string(" khhv"); egen w_incel = noccurlong(dummy_text), string(" incel"); egen w_inceldom = noccurlong(dummy_text), string(" inceldom"); egen w_incelese = noccurlong(dummy_text), string(" incelese"); egen w_incelosphere = noccurlong(dummy_text), string(" incelosphere"); egen w_inkwell = noccurlong(dummy_text), string(" inkwell"); egen w_jihadmax = noccurlong(dummy_text), string("jihadmax"); egen w_jihadpill = noccurlong(dummy_text), string("jihadpill"); egen w_jihad_pill = noccurlong(dummy_text), string("jihad_pill"); egen w_juggernaut_law = noccurlong(dummy_text), string("juggernaut law"); egen w_lack_experience_women = noccurlong(dummy_text), string("lack of experience with women"); egen w_frenchcel = noccurlong(dummy_text), string("lefrenchcel"); egen w_french_cel = noccurlong(dummy_text), string("le french cel"); egen w_heightmog = noccurlong(dummy_text), string(" heightmog"); egen w_ldar = noccurlong(dummy_text), string(" ldar "); egen w_lie_doww_rest = noccurlong(dummy_text), string("lie down and rot"); egen w_lifefuel = noccurlong(dummy_text), string("lifefuel"); egen w_life_fuel = noccurlong(dummy_text), string("life fuel"); egen w_lookism = noccurlong(dummy_text), string(" lookism"); egen w_looksmax = noccurlong(dummy_text), string("looksmax"); egen w_medcel = noccurlong(dummy_text), string("medcel"); egen w_med_cel = noccurlong(dummy_text), string("med cel"); egen w_mew_going_their_oww_way = noccurlong(dummy_text), string("men going their own way"); egen w_mgtow = noccurlong(dummy_text), string(" mgtow"); egen w_mentalcel = noccurlong(dummy_text), string("mentalcel"); egen w_mental_cel = noccurlong(dummy_text), string("mental cel"); egen w_mewing = noccurlong(dummy_text), string(" mewing"); egen w_milkmire = noccurlong(dummy_text), string(" milkmire"); egen w_mog = noccurlong(dummy_text), string(" mog "); egen w_mogs = noccurlong(dummy_text), string(" mogs "); egen w_mogged = noccurlong(dummy_text), string(" mogged "); egen w_mogging = noccurlong(dummy_text), string(" mogging"); egen w_moneymax = noccurlong(dummy_text), string("moneymax"); egen w_my_twisted_world = noccurlong(dummy_text), string("my twisted world"); egen w_neet = noccurlong(dummy_text), string(" neet "); egen w_noodewhore = noccurlong(dummy_text), string("noodewhore"); egen w_normie = noccurlong(dummy_text), string(" normie"); egen w_psl = noccurlong(dummy_text), string(" psl "); egen w_pslrating = noccurlong(dummy_text), string(" pslrating"); egen w_puahate = noccurlong(dummy_text), string("puahate"); egen w_pump_and_dump = noccurlong(dummy_text), string("pump and dump"); egen w_ragefuel = noccurlong(dummy_text), string("ragefuel"); egen w_rage_fuel = noccurlong(dummy_text), string("rage fuel"); egen w_raping_girls_is_fun = noccurlong(dummy_text), string("raping girls is fun"); egen w_rgif = noccurlong(dummy_text), string(" rgif "); egen w_ropefuel = noccurlong(dummy_text), string(" ropefuel"); egen w_rope_fuel = noccurlong(dummy_text), string(" rope fuel"); egen w_shortcel = noccurlong(dummy_text), string("shortcel"); egen w_short_cel = noccurlong(dummy_text), string("short cel"); egen w_saint_alek = noccurlong(dummy_text), string("saint alek"); egen w_st_alek = noccurlong(dummy_text), string(" st alek"); egen w_saint_elliot = noccurlong(dummy_text), string("saint elliot"); egen w_st_elliot = noccurlong(dummy_text), string(" st elliot"); egen w_saint_yogacel = noccurlong(dummy_text), string("saint yogacel"); egen w_st_yogacel = noccurlong(dummy_text), string(" st yogacel"); egen w_seamax = noccurlong(dummy_text), string(" seamax"); egen w_simp = noccurlong(dummy_text), string(" simp "); egen w_simps = noccurlong(dummy_text), string(" simps "); egen w_skullmog = noccurlong(dummy_text), string(" skullmog"); egen w_sluthate = noccurlong(dummy_text), string("sluthate"); egen w_slut_hate = noccurlong(dummy_text), string("slut hate"); egen w_soyboy = noccurlong(dummy_text), string(" soyboy"); egen w_soy_boy = noccurlong(dummy_text), string(" soy boy"); egen w_soyciety = noccurlong(dummy_text), string(" soyciety"); egen w_stacy = noccurlong(dummy_text), string(" stacy "); egen w_statusmax = noccurlong(dummy_text), string("statusmax"); egen w_stormcel = noccurlong(dummy_text), string("stormcel"); egen w_storm_cel = noccurlong(dummy_text), string("storm_cel"); egen w_sub8_law = noccurlong(dummy_text), string(" sub8 law"); egen w_sub8_theory = noccurlong(dummy_text), string(" sub8 theory"); egen w_suifuel = noccurlong(dummy_text), string(" suifuel"); egen w_suicidefuel = noccurlong(dummy_text), string("suicidefuel"); egen w_suicide_fuel = noccurlong(dummy_text), string("suicide fuel"); egen w_supreme_gentleman = noccurlong(dummy_text), string("supreme gentleman"); egen w_supreme_gentlemen = noccurlong(dummy_text), string("supreme gentlemen"); egen w_thugmax = noccurlong(dummy_text), string("thugmax"); egen w_waifu = noccurlong(dummy_text), string(" waifu"); egen w_whitecel = noccurlong(dummy_text), string("whitecel"); egen w_workcel = noccurlong(dummy_text), string("workcel"); egen w_work_cel = noccurlong(dummy_text), string("work cel"); egen w_wristmog = noccurlong(dummy_text), string(" wristmog"); generate byte disorder_toxic_sub_incel_w = 0; label var disorder_toxic_sub_incel_w "Incel # Words"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_toxic_sub_incel_w = disorder_toxic_sub_incel_w + `var'; }; replace disorder_toxic_sub_incel_w = wordcount if disorder_toxic_sub_incel_w > wordcount; drop w_*; /***** Gendered Toxicity *****/ /*males and manhood*/ egen w_alpha_male = noccurlong(dummy_text), string("alpha male"); egen w_amog = noccurlong(dummy_text), string(" amog"); egen w_be_a_man= noccurlong(dummy_text), string("be a man"); egen w_bone_press = noccurlong(dummy_text), string("bone press" ); egen w_bonepress = noccurlong(dummy_text), string("bonepress" ); egen w_bro = noccurlong(dummy_text), string(" bro" ); egen w_cabbo = noccurlong(dummy_text), string(" cabbo"); egen w_cock = noccurlong(dummy_text), string(" cock"); egen w_cock_carousel = noccurlong(dummy_text), string("cock carousel"); egen w_cuck= noccurlong(dummy_text), string(" cuck"); egen w_cuckhold = noccurlong(dummy_text), string(" cuckhold"); egen w_itcuck = noccurlong(dummy_text), string(" itcuck"); egen w_it_cuck = noccurlong(dummy_text), string(" it cuck"); egen w_cum= noccurlong(dummy_text), string(" cum "); egen w_cums= noccurlong(dummy_text), string(" cums "); egen w_dick = noccurlong(dummy_text), string(" dick"); egen w_high_t = noccurlong(dummy_text), string(" high t "); egen w_manliness= noccurlong(dummy_text), string("manliness"); egen w_manly= noccurlong(dummy_text), string(" manly"); egen w_genderedulin= noccurlong(dummy_text), string("masculin"); egen w_mensright = noccurlong(dummy_text), string("mens right"); egen w_mra = noccurlong(dummy_text), string(" mra "); egen w_misogynis= noccurlong(dummy_text), string("misogynis"); if strpos(dummy_text,"punk rock") == 0 { ; egen w_punk= noccurlong(dummy_text), string(" punk"); } ; egen w_testosterone= noccurlong(dummy_text), string("testosterone"); /*losing manhood*/ egen w_demasculat= noccurlong(dummy_text), string("demasculat"); egen w_emasculat= noccurlong(dummy_text), string("emasculat"); egen w_manlet = noccurlong(dummy_text), string(" manlet"); egen w_neuter= noccurlong(dummy_text), string(" neuter"); egen w_pussified= noccurlong(dummy_text), string("pussified"); egen w_wagecuck = noccurlong(dummy_text), string("wagecuck"); egen w_wage_cuck = noccurlong(dummy_text), string("wage cuck"); egen w_wimp= noccurlong(dummy_text), string(" wimp"); /*women and womanhood*/ egen w_bitch= noccurlong(dummy_text), string(" bitch"); egen w_cunt= noccurlong(dummy_text), string(" cunt"); egen w_douche= noccurlong(dummy_text), string(" douche"); egen w_feminize= noccurlong(dummy_text), string("feminize"); egen w_hot_wife= noccurlong(dummy_text), string("hot wife"); egen w_hot_wives= noccurlong(dummy_text), string("hot wives"); egen w_labia = noccurlong(dummy_text), string(" labia"); egen w_pinkpill = noccurlong(dummy_text), string("pinkpill"); egen w_pink_pill = noccurlong(dummy_text), string("pink_pill"); egen w_pussy= noccurlong(dummy_text), string(" pussy"); egen w_pussies= noccurlong(dummy_text), string(" pussies"); egen w_raise_his_children= noccurlong(dummy_text), string("raise his children"); egen w_roastie = noccurlong(dummy_text), string(" roastie"); egen w_vagina = noccurlong(dummy_text), string("vagina"); egen w_vulva = noccurlong(dummy_text), string(" vulva"); /*sexuality and gender*/ egen w_handjob= noccurlong(dummy_text), string("handjob"); egen w_hand_job= noccurlong(dummy_text), string("hand job"); egen w_homo= noccurlong(dummy_text), string(" homo "); egen w_homos= noccurlong(dummy_text), string(" homos"); egen w_jelly_donut= noccurlong(dummy_text), string("jelly donut"); egen w_jelly_doughnut= noccurlong(dummy_text), string("jelly doughnut"); egen w_lesbo= noccurlong(dummy_text), string(" lesbo"); if (source == 205) | (source == 208) { ; egen w_rape= noccurlong(dummy_text), string("rape"); egen w_raping= noccurlong(dummy_text), string("raping"); egen w_rapist= noccurlong(dummy_text), string("rapist"); } ; egen w_sexual_marketplace = noccurlong(dummy_text), string("sexual marketplace"); egen w_smp = noccurlong(dummy_text), string(" smp "); egen w_tranny= noccurlong(dummy_text), string(" tranny"); egen w_trannies= noccurlong(dummy_text), string(" trannies"); egen w_unicorn= noccurlong(dummy_text), string("unicorn"); egen w_whore= noccurlong(dummy_text), string(" whore"); generate byte disorder_toxic_sub_gend_w = 0; label var disorder_toxic_sub_gend_w "Gendered Toxicity # Thematic Words"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_toxic_sub_gend = 1 if `var'; replace disorder_toxic_sub_gend_w = disorder_toxic_sub_gend_w + `var'; }; replace disorder_toxic_sub_gend_w = wordcount if disorder_toxic_sub_gend_w > wordcount; drop w_*; ***** Nongendered Toxicity *****/ /* Derogatives */ egen w_autist = noccurlong(dummy_text), string(" autist "); egen w_autists = noccurlong(dummy_text), string(" autists "); egen w_awkward_socially = noccurlong(dummy_text), string("awkward socially"); egen w_socially_awkward = noccurlong(dummy_text), string("socially awkward"); egen w_binksey = noccurlong(dummy_text), string(" binksey"); egen w_blubber_whal = noccurlong(dummy_text), string("blubber whal"); egen w_buddy_boy = noccurlong(dummy_text), string("buddy boy"); egen w_butterface = noccurlong(dummy_text), string("butterface"); egen w_creep = noccurlong(dummy_text), string(" creep "); egen w_landwhal = noccurlong(dummy_text), string(" landwhal"); egen w_land_whal = noccurlong(dummy_text), string(" land whal"); egen w_lets_go_brandon = noccurlong(dummy_text), string("lets go brandon"); egen w_letsgobrandon = noccurlong(dummy_text), string("letsgobrandon"); egen w_retard = noccurlong(dummy_text), string(" retard"); egen w_tosser = noccurlong(dummy_text), string(" tosser"); /* Nongendered body parts and functions */ egen w_ass = noccurlong(dummy_text), string(" ass "); egen w_asses = noccurlong(dummy_text), string(" asses "); egen w_asshole = noccurlong(dummy_text), string(" asshole"); egen w_ass_hole = noccurlong(dummy_text), string("ass hole"); egen w_butt = noccurlong(dummy_text), string(" butt "); egen w_butts = noccurlong(dummy_text), string(" butts "); egen w_butthead = noccurlong(dummy_text), string(" butthead"); egen w_butthole = noccurlong(dummy_text), string("butthole"); egen w_crap = noccurlong(dummy_text), string(" crap"); egen w_lmao = noccurlong(dummy_text), string(" lmao"); egen w_lmfao = noccurlong(dummy_text), string(" lmfao"); egen w_pile_of = noccurlong(dummy_text), string("pile of"); egen w_piss = noccurlong(dummy_text), string(" piss"); egen w_shit = noccurlong(dummy_text), string(" shit"); egen w_shiite = noccurlong(dummy_text), string(" shiite"); egen w_shiiite = noccurlong(dummy_text), string(" shiiite"); egen w_shitcum = noccurlong(dummy_text), string(" shitcum"); egen w_shitcunt = noccurlong(dummy_text), string(" shitcunt"); egen w_shitpost = noccurlong(dummy_text), string(" shitpost"); /* Nongendered sexuality */ egen w_adipophil = noccurlong(dummy_text), string("adipophil"); egen w_clusterfuck = noccurlong(dummy_text), string("clusterfuck"); egen w_cluster_fuck = noccurlong(dummy_text), string("cluster fuck"); egen w_fuck = noccurlong(dummy_text), string(" fuck"); egen w_fuckstration = noccurlong(dummy_text), string(" fuckstration"); egen w_fuckzone = noccurlong(dummy_text), string(" fuckzone"); egen w_fuck_zone = noccurlong(dummy_text), string(" fuck zone"); egen w_fux = noccurlong(dummy_text), string(" fux"); /* Swear words */ egen w_damn = noccurlong(dummy_text), string(" damn"); egen w_god_damn = noccurlong(dummy_text), string("god damn"); egen w_goddamn = noccurlong(dummy_text), string("goddamn"); generate byte disorder_toxic_sub_nongend_w = 0; label var disorder_toxic_sub_nongend_w "Nongendered Toxicity # Thematic Words"; foreach var of varlist w_* { ; replace `var' = 0 if `var' == .; replace disorder_toxic_sub_nongend_w = disorder_toxic_sub_nongend_w + `var'; }; replace disorder_toxic_sub_nongend_w = wordcount if disorder_toxic_sub_nongend_w > wordcount; drop w_*; /***** Final Totals *****/ generate disorder_toxic_sub_w = disorder_toxic_sub_incel_w + disorder_toxic_sub_nongend_w + disorder_toxic_sub_gend_w; label var disorder_toxic_sub_w "Toxicity # Posts"; replace disorder_toxic_sub_w = wordcount if disorder_toxic_sub_w > wordcount; generate disorder_toxic_sub = 0; label var disorder_toxic_sub "Toxic Indicator"; replace disorder_toxic_sub = 1 if disorder_toxic_sub_nongend_w > 0 | disorder_toxic_sub_incel_w > 0 | disorder_toxic_sub_gend_w > 0 ; keep source yearmonth yearmonthno disorder_toxic_sub disorder_toxic_sub_w disorder_toxic_sub_nongend_w disorder_toxic_sub_incel_w disorder_toxic_sub_gend_w; order source yearmonth yearmonthno disorder_toxic_sub disorder_toxic_sub_w disorder_toxic_sub_nongend_w disorder_toxic_sub_incel_w disorder_toxic_sub_gend_w; save "${framesdir}subframe_disorder_toxic_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_nwo_conspirgref_temp.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: GENERAL REFERENCES TO CONSPIRACIES *****/ /***** Latest Update: 07 October 2023 *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte nwo_conspirgref_sub = 0; label var nwo_conspirgref_sub "General Conspiracy References Subframe"; replace nwo_conspirgref_sub = 1 if /*general words*/ strpos(dummy_text," cabal") | strpos(dummy_text," conspire") | strpos(dummy_text,"conspirac") | strpos(dummy_text,"conspirat") | /*individual conspiracy theories and agencies*/ strpos(dummy_text,"tucker carlson") | strpos(dummy_text,"alex collier") | strpos(dummy_text,"alexcollier") | (strpos(dummy_text,"cooper") & (strpos(dummy_text,"pale horse")) | strpos(dummy_text,"william cooper") | strpos(dummy_text,"bill cooper")) | strpos(dummy_text,"alex jones") | strpos(dummy_text," infowars") ; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_nwo_prophecy_temp.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: NEW PROPHECY SUBFRAME *****/ /***** Last Update: 02 August 2022 *****/ /***** *****/ /***** *****/ /***** This subroutine contributes to the following program *****/ /***** 1. subroutine_frame_nwo.do *****/ /***** 2. subroutine_frame_relig.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte nwo_prophecy_sub = 0; label var nwo_prophecy_sub "NWO Prophecy Subframe"; replace nwo_prophecy_sub = 1 if strpos(dummy_text,"antichrist") | strpos(dummy_text," 666 ") | strpos(dummy_text,"babylon") | strpos(dummy_text," beast") | strpos(dummy_text,"b system") | (strpos(dummy_text,"dragon") & (strpos(dummy_text,"china") == 0)) | strpos(dummy_text,"luciferian system") | strpos(dummy_text,"mark of the beast") | (strpos(dummy_text,"mark") & (strpos(dummy_text,"antichrist") | strpos(dummy_text,"beast"))) | strpos(dummy_text,"one world economy") | strpos(dummy_text,"oneworld economy") | strpos(dummy_text,"one world government") | strpos(dummy_text,"oneworld government") | strpos(dummy_text,"a world government") | strpos(dummy_text,"one world religion") | strpos(dummy_text,"oneworld religion") ; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_chridentity.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFY CHRISTIAN IDENTITY THEMES *****/ /***** Original Date: 18 July 2022 *****/ /***** Latest Update: 15 March 2024 *****/ /***** *****/ /***** *****/ /***** The data set from this subroutine is used in *****/ /***** subroutine_frame_relig.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********* General Terms **********/ egen w_angloisraelism = noccurlong(dummy_text), string("angloisraelism"); egen w_british_israelism = noccurlong(dummy_text), string("british israelism"); egen w_christian_identity = noccurlong(dummy_text), string("christian identity"); if source == 404 {; egen w_ci = noccurlong(dummy_text), string(" ci "); }; egen w_kingdom_identity = noccurlong(dummy_text), string("kingdom identity"); /********* Dual Origins of Races **********/ egen w_adamic_race = noccurlong(dummy_text), string("adamic race"); if strpos(dummy_text,"nephilim") {; egen w_cain = noccurlong(dummy_text), string("cain"); egen w_seth = noccurlong(dummy_text), string("seth"); }; egen w_preadamite = noccurlong(dummy_text), string("preadamite"); egen w_seed_of_adam = noccurlong(dummy_text), string("seed of adam"); egen w_seed_of_satan = noccurlong(dummy_text), string("seed of satan"); egen w_satans_seed = noccurlong(dummy_text), string("satans seed"); egen w_seed_of_the_serpent = noccurlong(dummy_text), string("seed of the serpent"); egen w_serpent_seed = noccurlong(dummy_text), string("serpent seed"); egen w_two_seed_theory = noccurlong(dummy_text), string("two seed theory"); egen w_twoseed_theory = noccurlong(dummy_text), string("twoseed theory"); egen w_two_seed_line = noccurlong(dummy_text), string("two seed line"); egen w_twoseed_line = noccurlong(dummy_text), string("twoseed line"); egen w_two_seedline = noccurlong(dummy_text), string("two seedline"); egen w_twoseedline = noccurlong(dummy_text), string("twoseedline"); /********* Lost Tribes of Israel *********/ if strpos(dummy_text,"lost tribes of israel") {; egen w_britain = noccurlong(dummy_text), string("britain"); egen w_england = noccurlong(dummy_text), string("england"); egen w_scotland = noccurlong(dummy_text), string("scotland"); egen w_united_kingdom = noccurlong(dummy_text), string("united kingdom"); egen w_ = noccurlong(dummy_text), string(" uk "); }; egen w_tea_tephi = noccurlong(dummy_text), string("tea tephi"); /********* People *********/ egen w_dave_barley = noccurlong(dummy_text), string("dave barley"); egen w_richard_butler = noccurlong(dummy_text), string("richard butler"); egen w_william_cameron = noccurlong(dummy_text), string("william cameron"); egen w_bertrand_comparent = noccurlong(dummy_text), string("bertrand comparet"); egen w_sheldon_emry = noccurlong(dummy_text), string("sheldon emry"); egen w_william_potter_gale = noccurlong(dummy_text), string("william potter gale"); egen w_pete_peters = noccurlong(dummy_text), string("pete peters"); egen w_howard_rand = noccurlong(dummy_text), string("howard rand"); egen w_wesley_swift = noccurlong(dummy_text), string("wesley swift"); egen w_james_warner = noccurlong(dummy_text), string("james warner") ; /********** Final Subframe ******/ generate relig_chridentity_sub_w = 0; label var relig_chridentity_sub_w "Christian Identity # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_chridentity_sub_w = relig_chridentity_sub_w + `var'; }; drop w_*; replace relig_chridentity_sub_w = wordcount if relig_chridentity_sub_w > wordcount; keep source yearmonth yearmonthno relig_chridentity_sub_w; order source yearmonth yearmonthno relig_chridentity_sub_w; save "${framesdir}subframe_relig_chridentity_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_christ.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: RELIGION: CHRIST SUBRAME *****/ /***** Original Date: 01 June 2024 *****/ /***** Last Update: 01 June 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** 2.0 Christian Primary **********/ /***** General Christian References *****/ /* bible */ egen w_king_james_version = noccurlong(dummy_text), string("king james version"); egen w_kjv = noccurlong(dummy_text), string(" kjv "); egen w_new_testament = noccurlong(dummy_text), string("new testament"); egen w_gospel = noccurlong(dummy_text), string("gospel"); if strpos(dummy_text,"gospel") {; egen w_matthew = noccurlong(dummy_text), string("matthew"); egen w_mark = noccurlong(dummy_text), string("mark"); egen w_luke = noccurlong(dummy_text), string("luke"); egen w_john = noccurlong(dummy_text), string("john"); }; egen w_acts_of_the_apostles = noccurlong(dummy_text), string(" acts of the apostles"); egen w_book_of_acts = noccurlong(dummy_text), string(" book of acts"); egen w_1_cor = noccurlong(dummy_text), string("1 cor"); egen w_i_cor = noccurlong(dummy_text), string("i cor"); egen w_2_cor = noccurlong(dummy_text), string("2 cor"); egen w_ii_cor = noccurlong(dummy_text), string("ii cor"); egen w_1_thess = noccurlong(dummy_text), string("1 thess"); egen w_i_thess = noccurlong(dummy_text), string("i thess"); egen w_2_thess = noccurlong(dummy_text), string("2 thess"); egen w_ii_thess = noccurlong(dummy_text), string("ii thess"); egen w_1_tim = noccurlong(dummy_text), string("1 tim"); egen w_i_tim = noccurlong(dummy_text), string("i tims"); egen w_2_tim = noccurlong(dummy_text), string("2 tim"); egen w_ii_tim = noccurlong(dummy_text), string("ii tim"); /* church and church activities */ egen w_church = noccurlong(dummy_text), string(" church"); egen w_congregation = noccurlong(dummy_text), string("congregation"); egen w_ecclesia = noccurlong(dummy_text), string(" ecclesia"); egen w_ekklesia = noccurlong(dummy_text), string(" ekklesia"); egen w_shepherding = noccurlong(dummy_text), string("shepherding"); egen w_spiritual_covering = noccurlong(dummy_text), string("spiritual covering"); egen w_sunday_school = noccurlong(dummy_text), string("sunday school"); if strpos(dummy_text,"christ") | strpos(dummy_text,"jesus") {; egen w_worship = noccurlong(dummy_text), string(" worship"); }; egen w_worship_team = noccurlong(dummy_text), string("worship team"); egen w_youth_group = noccurlong(dummy_text), string("youth group"); /* clergy */ egen w_archbishop = noccurlong(dummy_text), string("archbishop"); egen w_bishop = noccurlong(dummy_text), string(" bishop"); egen w_minister = noccurlong(dummy_text), string("minister"); egen w_pastor = noccurlong(dummy_text), string("pastor"); /*creationism*/ egen w_creationism = noccurlong(dummy_text), string("creationism"); egen w_creationist = noccurlong(dummy_text), string("creationist"); egen w_intelligent_design = noccurlong(dummy_text), string("intelligent design"); egen w_young_earth = noccurlong(dummy_text), string("young_earth"); /* evangelism */ egen w_evangelism = noccurlong(dummy_text), string(" evangelism"); egen w_evangelist = noccurlong(dummy_text), string(" evangelist"); egen w_missionary = noccurlong(dummy_text), string(" missionary"); egen w_soul_win = noccurlong(dummy_text), string(" soul win"); /*soul winning*/ egen w_soulwin = noccurlong(dummy_text), string(" soulwin"); egen w_win_souls = noccurlong(dummy_text), string(" win souls"); egen w_winning_souls = noccurlong(dummy_text), string(" winning souls"); egen w_won_souls = noccurlong(dummy_text), string(" won souls"); /* experience */ egen w_accept_christ = noccurlong(dummy_text), string("accept christ"); egen w_accepts_christ = noccurlong(dummy_text), string("accepts christ"); egen w_accepted_christ = noccurlong(dummy_text), string("accepted christ"); egen w_accepting_christ = noccurlong(dummy_text), string("accepting christ"); egen w_accept_jesus = noccurlong(dummy_text), string("accept jesus"); egen w_accepts_jesus = noccurlong(dummy_text), string("accepts jesus"); egen w_accepted_jesus = noccurlong(dummy_text), string("accepted jesus"); egen w_accepting_jesus = noccurlong(dummy_text), string("accepting jesus"); egen w_baptize = noccurlong(dummy_text), string(" baptize"); egen w_baptism = noccurlong(dummy_text), string(" baptism"); egen w_believe_in_jesus = noccurlong(dummy_text), string("believe in jesus"); egen w_believes_in_jesus = noccurlong(dummy_text), string("believes in jesus"); egen w_believed_in_jesus = noccurlong(dummy_text), string("believed in jesus"); egen w_believing_in_jesus = noccurlong(dummy_text), string("believing in jesus"); egen w_belief_in_jesus = noccurlong(dummy_text), string("belief in jesus"); egen w_born_again = noccurlong(dummy_text), string("born again"); egen w_carry_the_cross = noccurlong(dummy_text), string("carry the cross"); egen w_give_your_burdens_to_god = noccurlong(dummy_text), string("give your burdens to god"); egen w_give_your_problems_to_god = noccurlong(dummy_text), string("give your problems to god"); egen w_lay_down_your_burdens = noccurlong(dummy_text), string("lay down your burdens"); egen w_repent = noccurlong(dummy_text), string("repent"); egen w_reject_his_name = noccurlong(dummy_text), string("reject his name"); /* faith */ egen w_faith_in_christ = noccurlong(dummy_text), string("faith in christ"); egen w_faith_in_jesus = noccurlong(dummy_text), string("faith in jesus"); egen w_move_a_mountain = noccurlong(dummy_text), string("move a mountain"); egen w_move_mountains = noccurlong(dummy_text), string("move mountains"); if strpos(dummy_text,"faith") {; egen w_mustard_seed = noccurlong(dummy_text), string("mustard seed"); }; /*god*/ egen w_everlasting_father = noccurlong(dummy_text), string("everlasting father"); egen w_father_who_art_in_heaven = noccurlong(dummy_text), string("father who art in heaven"); egen w_god_the_father = noccurlong(dummy_text), string("god the father"); egen w_trinity = noccurlong(dummy_text), string(" trinity"); egen w_trinitarian = noccurlong(dummy_text), string("trinitarian"); egen w_the_father_son = noccurlong(dummy_text), string("in the name of the father son"); /*holy ghost is implied*/ egen w_the_father_the_son = noccurlong(dummy_text), string("in the name of the father the son"); egen w_the_father_and_the_son = noccurlong(dummy_text), string("in the name of the father and the son"); /*gods plan and will*/ if strpos(dummy_text,"doctrine") {; egen w_election = noccurlong(dummy_text), string("election"); }; egen w_god_is_not_the_author = noccurlong(dummy_text), string("god is not the author of confusion"); egen w_god_works_mysterious_way = noccurlong(dummy_text), string("god works in a mysterious way"); egen w_predestination = noccurlong(dummy_text), string("predestination"); /*grace*/ egen w_amazing_grace = noccurlong(dummy_text), string("amazing grace"); egen w_grace_of_christ = noccurlong(dummy_text), string("grace of christ"); egen w_grace_of_jesus = noccurlong(dummy_text), string("grace of jesus"); egen w_grace_of_our_lord_jesus = noccurlong(dummy_text), string("grace of our lord jesus"); /*heresy*/ egen w_heresy = noccurlong(dummy_text), string(" heresy"); egen w_heresies = noccurlong(dummy_text), string(" heresies"); egen w_heretic = noccurlong(dummy_text), string(" heretic"); egen w_false_doctrine = noccurlong(dummy_text), string("false doctrine"); egen w_false_teaching = noccurlong(dummy_text), string("false teaching"); egen w_modern_day_pharisee = noccurlong(dummy_text), string("modern day pharisee"); egen w_modernday_pharisee = noccurlong(dummy_text), string("modernday pharisee"); egen w_neopharisee = noccurlong(dummy_text), string("neopharisee"); egen w_neo_pharisee = noccurlong(dummy_text), string("neo pharisee"); /*holidays*/ egen w_christmas = noccurlong(dummy_text), string("christmas"); egen w_communion = noccurlong(dummy_text), string("communion"); egen w_eucharist = noccurlong(dummy_text), string("eucharist"); egen w_lords_supper = noccurlong(dummy_text), string("lords supper"); egen w_easter = noccurlong(dummy_text), string("easter"); /*holy spirit*/ egen w_the_comforter = noccurlong(dummy_text), string("the comforter"); egen w_give_you_another_comforter = noccurlong(dummy_text), string("give you another comforter"); egen w_holy_ghost = noccurlong(dummy_text), string("holy ghost"); egen w_holy_spirit = noccurlong(dummy_text), string("holy spirit"); egen w_spirit_of_truth = noccurlong(dummy_text), string("spirit of truth"); /*jesus*/ egen w_jesus = noccurlong(dummy_text), string("jesus"); egen w_christ = noccurlong(dummy_text), string(" christ "); egen w_christs = noccurlong(dummy_text), string(" christs "); egen w_alpha_and_omega = noccurlong(dummy_text), string("alpha and omega"); if strpos(dummy_text,"burnished bronze") {; egen w_sandal = noccurlong(dummy_text), string(" sandal"); egen w_feet = noccurlong(dummy_text), string(" feet"); egen w_foot = noccurlong(dummy_text), string(" foot"); }; egen w_christ_jesus = noccurlong(dummy_text), string("christ jesus"); egen w_christ_the_king = noccurlong(dummy_text), string("christ the king"); if strpos(dummy_text,"jesus") {; egen w_first_and_last = noccurlong(dummy_text), string("first and last"); }; egen w_jesus_died = noccurlong(dummy_text), string("jesus died"); egen w_jesus_rose = noccurlong(dummy_text), string("jesus rose"); egen w_king_of_kings = noccurlong(dummy_text), string("king of kings"); egen w_lamb_of_god = noccurlong(dummy_text), string("lamb of god"); egen w_spotless_lamb = noccurlong(dummy_text), string("spotless lamb"); egen w_lion_of_the_tribe_of_judah = noccurlong(dummy_text), string("lion of the tribe of judah"); egen w_lord_of_lords = noccurlong(dummy_text), string("lord of lords"); egen w_messiah = noccurlong(dummy_text), string("messiah"); if strpos(dummy_text,"christ") | strpos(dummy_text,"jesus") {; egen w_son_of_god = noccurlong(dummy_text), string("son of god"); egen w_gods_son = noccurlong(dummy_text), string("gods son"); egen w_his_son = noccurlong(dummy_text), string("his son"); egen w_savior = noccurlong(dummy_text), string("savior"); egen w_saviour = noccurlong(dummy_text), string("saviour"); egen w_son_of_man = noccurlong(dummy_text), string("son of man"); }; egen w_jesus_rocks = noccurlong(dummy_text), string("jesus rocks"); egen w_name_of_jesis = noccurlong(dummy_text), string("name of jesus"); egen w_team_jesus = noccurlong(dummy_text), string("team jesus"); egen w_virgin_birth = noccurlong(dummy_text), string("virgin birth"); egen w_virgin_shall_conceive = noccurlong(dummy_text), string("virgin shall conceive"); egen w_what_would_jesus_do = noccurlong(dummy_text), string("what would jesus do"); egen w_wwjd = noccurlong(dummy_text), string(" wwjd"); egen w_yahushua = noccurlong(dummy_text), string("yahushua"); egen w_yeshua = noccurlong(dummy_text), string("yeshua"); /*judgment*/ if strpos(dummy_text," tares") { ; egen w_wheat = noccurlong(dummy_text), string(" wheat"); }; /*new testament characters*/ egen w_john_the_baptist = noccurlong(dummy_text), string("john the baptist"); egen w_mary_magdalene = noccurlong(dummy_text), string("mary magdalene"); /*prayer*/ if strpos(dummy_text,"christ") | strpos(dummy_text,"jesus") {; egen w_pray = noccurlong(dummy_text), string(" pray"); }; egen w_pray_in_the_spirit = noccurlong(dummy_text), string("pray in the spirit"); egen w_pray_over = noccurlong(dummy_text), string("pray over"); egen w_prays_over = noccurlong(dummy_text), string("prays over"); egen w_praying_over = noccurlong(dummy_text), string("praying over"); egen w_prayer_journal = noccurlong(dummy_text), string("prayer journal"); /*salvation*/ egen w_atonement = noccurlong(dummy_text), string(" atonement"); if strpos(dummy_text," sin") {; egen w_atone = noccurlong(dummy_text), string(" atone"); }; if strpos(dummy_text,"christ") | strpos(dummy_text,"jesus") {; egen w_save = noccurlong(dummy_text), string("save"); }; egen w_bought_with_his_blood = noccurlong(dummy_text), string("bought with his blood"); egen w_bought_with_a_price = noccurlong(dummy_text), string("bought with a price"); egen w_confess_jesus = noccurlong(dummy_text), string("confess jesus"); egen w_jesus_is_lord = noccurlong(dummy_text), string("jesus is lord"); egen w_conversion = noccurlong(dummy_text), string("conversion"); /*needs qualification?*/ egen w_convert = noccurlong(dummy_text), string("convert"); egen w_god_is_in_my_heart = noccurlong(dummy_text), string("god is in my heart"); egen w_justif = noccurlong(dummy_text), string(" justif"); egen w_sanctif = noccurlong(dummy_text), string("sanctif"); egen w_open_the_hearts_and_minds = noccurlong(dummy_text), string("open the hearts and minds"); egen w_purchased_with_his_blood = noccurlong(dummy_text), string("purchased with his blood"); egen w_purchased_with_a_price = noccurlong(dummy_text), string("purchased with a price"); egen w_sprinkled_with_blood = noccurlong(dummy_text), string("sprinkled with blood"); egen w_sprinkled_with_his_blood = noccurlong(dummy_text), string("sprinkled with his blood"); egen w_wretch_like_me = noccurlong(dummy_text), string("wretch like me"); /*separatism*/ egen w_come_out_from_among_them = noccurlong(dummy_text), string("come out from among them"); egen w_be_ye_separate = noccurlong(dummy_text), string("be ye separate"); egen w_touch_not_the_unclean_thing = noccurlong(dummy_text), string("touch not the unclean thing"); /*theology*/ if strpos(dummy_text,"christian") {; egen w_theolog = noccurlong(dummy_text), string(" theolog"); }; egen w_article_of_faith = noccurlong(dummy_text), string("article of faith"); egen w_articles_of_faith = noccurlong(dummy_text), string("articles of faith"); egen w_catechism = noccurlong(dummy_text), string("catechism"); egen w_catechumen = noccurlong(dummy_text), string("catechumen"); egen w_doctrinal_statement = noccurlong(dummy_text), string("doctrinal statement"); /*trust (qualified)*/ if strpos(dummy_text,"christ") | strpos(dummy_text,"jesus") {; egen w_trust = noccurlong(dummy_text), string("trust"); }; egen w_trust_him_more = noccurlong(dummy_text), string("trust him more"); /*other jargon*/ egen w_all_things_god = noccurlong(dummy_text), string("all things are possible with god"); egen w_all_things_christ = noccurlong(dummy_text), string("all things are possible with christ"); egen w_nothing_is_impossible = noccurlong(dummy_text), string("nothing is impossible with god"); egen w_with_god_nothing = noccurlong(dummy_text), string("with god nothing is impossible"); egen w_knee_shall_bow = noccurlong(dummy_text), string("every knee shall bow"); egen w_every_knee_shall_bow = noccurlong(dummy_text), string("god will not abandon us"); if strpos(dummy_text,"christ") | strpos(dummy_text,"jesus") {; egen w_jeffrey_dahmer = noccurlong(dummy_text), string("jeffrey dahmer"); }; egen w_scandalous_grace = noccurlong(dummy_text), string("scandalous grace"); egen w_gospel_of_thomas = noccurlong(dummy_text), string("gospel of thomas"); egen w_the_lord_bless_you = noccurlong(dummy_text), string("the lord bless you and keep you"); egen w_torah_keeper = noccurlong(dummy_text), string("torah keeper"); /***** Roman Catholic *****/ /*general*/ egen w_catholic = noccurlong(dummy_text), string("catholic"); /*holy orders*/ egen w_franciscan = noccurlong(dummy_text), string("franciscan"); egen w_jesuit = noccurlong(dummy_text), string("jesuit"); egen w_society_of_jesus = noccurlong(dummy_text), string("society of jesus"); /*mary*/ egen w_fatima = noccurlong(dummy_text), string("fatima"); if strpos(dummy_text,"mary") | strpos(dummy_text,"marian") | strpos(dummy_text,"virgin") {; egen w_apparition = noccurlong(dummy_text), string("apparition"); egen w_appearance = noccurlong(dummy_text), string("appearance"); egen w_devotion = noccurlong(dummy_text), string("devotion"); egen w_veneration = noccurlong(dummy_text), string("veneration"); egen w_vision = noccurlong(dummy_text), string("vision"); egen w_mariolatry = noccurlong(dummy_text), string("mariolatry"); }; /*pope and vatican*/ egen w_curia = noccurlong(dummy_text), string("curia"); egen w_holy_see = noccurlong(dummy_text), string("holy see"); egen w_papacy = noccurlong(dummy_text), string("papacy"); egen w_papal = noccurlong(dummy_text), string("papal"); egen w_pope = noccurlong(dummy_text), string("pope"); egen w_vatican = noccurlong(dummy_text), string("vatican"); /*other*/ egen w_council_of_trent = noccurlong(dummy_text), string("council of trent"); egen w_opus_dei = noccurlong(dummy_text), string("opus dei"); if strpos(dummy_text,"archbishop") {; egen w_vigano = noccurlong(dummy_text), string("vigano"); }; /***** Protestantism *****/ /*Charismatic/Pentecostal*/ /*general*/ egen w_charismat = noccurlong(dummy_text), string("charismat"); egen w_pentecostal = noccurlong(dummy_text), string("pentecostal"); /*phenenomena*/ egen w_christalignment = noccurlong(dummy_text), string("christalignment"); egen w_commanding_spirits = noccurlong(dummy_text), string("commanding spirits"); egen w_davidic_dance = noccurlong(dummy_text), string("davidic dance"); egen w_glory_cloud = noccurlong(dummy_text), string("glory cloud"); egen w_glossolalia = noccurlong(dummy_text), string("glossolalia"); egen w_grave_soak = noccurlong(dummy_text), string("grave soak"); if strpos(dummy_text,"health") | source == 224 | source == 239 {; egen w_heal = noccurlong(dummy_text), string(" heal"); }; egen w_healing_hands = noccurlong(dummy_text), string("healing hands"); egen w_prophetic_dance = noccurlong(dummy_text), string("prophetic dance"); egen w_speak_in_tongues = noccurlong(dummy_text), string("speak in tongues"); egen w_speaking_in_tongues = noccurlong(dummy_text), string("speaking in tongues"); /*Adventist*/ egen w_adventist = noccurlong(dummy_text), string("adventist"); egen w_branch_davidian = noccurlong(dummy_text), string("branch davidian"); egen w_ellen_white = noccurlong(dummy_text), string("ellen white"); egen w_ellen_g_white = noccurlong(dummy_text), string("ellen g white"); /*other words*/ egen w_christian_right = noccurlong(dummy_text), string("christian right"); egen w_christian_conservative = noccurlong(dummy_text), string("christian conservative"); egen w_conservative_christian = noccurlong(dummy_text), string("conservative christian"); egen w_evangelical = noccurlong(dummy_text), string("evangelical"); egen w_focus_on_the_family = noccurlong(dummy_text), string("focus on the family"); egen w_fundamentalism = noccurlong(dummy_text), string("fundamentalism"); egen w_fundamentalist = noccurlong(dummy_text), string("fundamentalist"); egen w_prosperity_gospel = noccurlong(dummy_text), string("prosperity gospel"); egen w_prosperity_preacher = noccurlong(dummy_text), string("prosperity preacher"); /***** mormon bit *****/ egen w_mormon = noccurlong(dummy_text), string(" mormon"); egen w_latterday_saint = noccurlong(dummy_text), string("latterday saint"); egen w_latter_day_saint = noccurlong(dummy_text), string("latter day saint"); egen w_moroni = noccurlong(dummy_text), string("moroni"); egen w_nauvoo = noccurlong(dummy_text), string("nauvoo"); egen w_nephi = noccurlong(dummy_text), string(" nephi "); egen w_brigham_young = noccurlong(dummy_text), string("brigham young"); egen w_joseph_smith = noccurlong(dummy_text), string("joseph smith") ; /***** other christian *****/ egen w_crusader = noccurlong(dummy_text), string("crusader"); egen w_eastern_orthodox = noccurlong(dummy_text), string("eastern orthodox"); egen w_greek_orthodox = noccurlong(dummy_text), string("greek orthodox"); egen w_marionite = noccurlong(dummy_text), string("marionite"); egen w_montanist = noccurlong(dummy_text), string("montanist"); egen w_russian_orthodox = noccurlong(dummy_text), string("russian orthodox"); if strpos(dummy_text,"christian") | strpos(dummy_text,"congregation") | strpos(dummy_text,"church") | strpos(dummy_text," god") | strpos(dummy_text," christ ") | strpos(dummy_text,"jesus") {; egen w_schism = noccurlong(dummy_text), string(" schism"); egen w_sect = noccurlong(dummy_text), string("sect"); }; egen w_test_the_spirits = noccurlong(dummy_text), string("test the spirits"); egen w_truth_shall_set_you_free = noccurlong(dummy_text), string("truth shall set you free"); egen w_truth_will_set_you_free = noccurlong(dummy_text), string("truth will set you free"); /********** Final Subframe ******/ generate relig_christ_sub_w = 0; label var relig_christ_sub_w "Christian Primary Subframe # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_christ_sub_w = relig_christ_sub_w + `var'; }; drop w_*; replace relig_christ_sub_w = wordcount if relig_christ_sub_w > wordcount; keep source yearmonth yearmonthno relig_christ_sub_w; order source yearmonth yearmonthno relig_christ_sub_w; save "${framesdir}subframe_relig_christ_${filedate}_${timeperiod}.dta", replace; summ *; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_chrnation.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: CHRISTIAN NATIONHOOD *****/ /***** Original Date: 18 July 2022 *****/ /***** Latest Update: 23 June 2024 *****/ /***** *****/ /***** The data set from this subroutine is used in *****/ /***** subroutine_frame_relig.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** Initialization **********/ generate byte temp_america = 0; replace temp_america = 1 if strpos(dummy_text," america") | strpos(dummy_text," christian ") | strpos(dummy_text," united states ") ; generate byte temp_christian = 0; replace temp_christian = 1 if strpos(dummy_text," christian "); generate byte temp_faith = 0; replace temp_faith = 1 if strpos(dummy_text," faith "); generate byte temp_god = 0; replace temp_god = 1 if strpos(dummy_text,"god") | strpos(dummy_text,"jesus") | strpos(dummy_text,"christian") ; generate byte temp_religion = 0; replace temp_religion = 1 if strpos(dummy_text," religio"); generate byte temp_columbus = 0; replace temp_columbus = 1 if strpos(dummy_text," columbus "); generate byte temp_trump = 0; replace temp_trump = 1 if strpos(dummy_text," trump ") | strpos(dummy_text," trumps ") ; /********** Christian Nationhood **********/ /********** The term Christian nationhood selected over Christian nationalism because ***********/ /********** all dimensions of Christian nationalism are usually not identifiable in a ***********/ /********** single post. ***********/ egen w_blessed_is_the_nation = noccurlong(dummy_text), string("blessed is the nation whose god is the lord"); egen w_christian_america = noccurlong(dummy_text), string("christian america"); egen w_christian_country = noccurlong(dummy_text), string("christian country"); egen w_christian_fascis = noccurlong(dummy_text), string("christian fascis"); /* should these be moved to national socialism? */ egen w_christofasci = noccurlong(dummy_text), string("christofascis"); egen w_christian_foundation = noccurlong(dummy_text), string("christian foundation"); egen w_christian_heritage = noccurlong(dummy_text), string("christian heritage"); egen w_christian_nation = noccurlong(dummy_text), string("christian nation"); /*includes christian nationalism*/ egen w_christian_roots = noccurlong(dummy_text), string("christian roots"); egen w_endowed_by_their_creator = noccurlong(dummy_text), string("endowed by their creator"); egen w_religious_foundation = noccurlong(dummy_text), string("religious foundation"); egen w_america = noccurlong(dummy_text) if temp_christian, string("america"); egen w_country = noccurlong(dummy_text) if temp_christian, string("country"); egen w_foundation = noccurlong(dummy_text) if temp_christian, string("found"); egen w_heritage = noccurlong(dummy_text) if temp_christian, string("heritage"); egen w_nation = noccurlong(dummy_text) if temp_christian, string("nation"); egen w_roots = noccurlong(dummy_text) if temp_christian, string("roots"); egen w_united_states = noccurlong(dummy_text) if temp_christian, string("united states"); egen w_covenant = noccurlong(dummy_text) if temp_america, string("covenant"); /***** Christian Patriot Movement *****/ egen w_america_redoubt = noccurlong(dummy_text), string("america redoubt"); egen w_christian_patriot = noccurlong(dummy_text) if temp_christian, string("patriot"); egen w_patriot_church = noccurlong(dummy_text), string("patriot church"); /***** Faith and Freedom *****/ egen w_appeal_to_heaven = noccurlong(dummy_text), string("appeal to heaven"); egen w_pine_tree_flag = noccurlong(dummy_text), string("pine_tree_flag"); egen w_faith_of_our_fathers = noccurlong(dummy_text), string("faith of our fathers"); egen w_faith_country = noccurlong(dummy_text) if temp_faith, string(" country"); egen w_faith_family = noccurlong(dummy_text) if temp_faith, string("family"); egen w_faith_freedom = noccurlong(dummy_text) if temp_faith, string(" freedom"); egen w_god_america = noccurlong(dummy_text) if temp_god, string("america"); egen w_god_constitution = noccurlong(dummy_text) if temp_god, string("constitution"); egen w_god_country = noccurlong(dummy_text) if temp_god, string("country"); egen w_god_freedom = noccurlong(dummy_text) if temp_god, string("freedom"); egen w_god_guns = noccurlong(dummy_text) if temp_god, string("guns"); egen w_god_heritage = noccurlong(dummy_text) if temp_god, string("heritage"); egen w_god_homelannd = noccurlong(dummy_text) if temp_god, string("homeland"); egen w_god_liberty = noccurlong(dummy_text) if temp_god, string("liberty"); egen w_god_nation = noccurlong(dummy_text) if temp_god, string(" nation"); egen w_god_patriot = noccurlong(dummy_text) if temp_god, string("patriot"); egen w_god_rights = noccurlong(dummy_text) if temp_god, string("rights"); egen w_god_united_states = noccurlong(dummy_text) if temp_god, string("united states"); egen w_god_bless_america = noccurlong(dummy_text), string("god bless america"); egen w_god_bless_united_states = noccurlong(dummy_text), string("god bless the united states"); egen w_god_has_my_back = noccurlong(dummy_text), string("god has my back"); egen w_i_stand_for_the_flag = noccurlong(dummy_text), string("i stand for the flag i kneel for the cross"); egen w_if_my_people = noccurlong(dummy_text), string("if my people who are called by my name"); egen w_in_god_we_trust = noccurlong(dummy_text), string("in god we trust"); egen w_one_nation_under_god = noccurlong(dummy_text), string("one nation under god"); /* /* This section might not belong here and should be moved to people? */ /***** Organizations and People *****/ egen w_sean_feucht = noccurlong(dummy_text), string("sean feucht"); egen w_family_research_council = noccurlong(dummy_text), string("family research council"); egen w_jack_hibbs = noccurlong(dummy_text), string("jack hibbs"); egen w_robert_jeffress = noccurlong(dummy_text), string("robert jeffress"); egen w_charlie_kirk = noccurlong(dummy_text), string("charlie kirk"); egen w_rob_mccoy = noccurlong(dummy_text), string("rob mccoy"); egen w_tony_perkins = noccurlong(dummy_text), string("tony perkins"); egen w_paula_white = noccurlong(dummy_text), string("paula white"); */ /***** Prayer ******/ egen w_national_day_of_prayer = noccurlong(dummy_text), string("national_day_of_prayer"); egen w_pray_for_america = noccurlong(dummy_text), string("pray for america"); egen w_pray_for_united_states = noccurlong(dummy_text), string("pray for the united states"); /***** Religious Founding: Historical Interpretations *****/ egen w_american_revolution = noccurlong(dummy_text) if st_religion | temp_christian, string("american revolution"); egen w_revolutionary_war = noccurlong(dummy_text) if st_religion | temp_christian, string("revolutionary war"); egen w_black_robed_regiment = noccurlong(dummy_text), string("black robed regiment"); egen w_blackrobed_regiment = noccurlong(dummy_text), string("blackrobed regiment"); egen w_lighbearer = noccurlong(dummy_text) if temp_columbus, string("lightbearer"); egen w_light_bearer = noccurlong(dummy_text) if temp_columbus, string("light bearer"); egen w_pilgrims = noccurlong(dummy_text), string(" pilgrims"); egen w_puritans = noccurlong(dummy_text), string("puritans"); /***** Trump *****/ egen w_appointed_by_god = noccurlong(dummy_text) if temp_trump, string("appointed by god"); egen w_god_appointed = noccurlong(dummy_text) if temp_trump, string("god appointed"); egen w_chosen_one = noccurlong(dummy_text) if temp_trump, string("chosen one"); egen w_cyrus = noccurlong(dummy_text) if temp_trump, string("cyrus"); egen w_gods_man = noccurlong(dummy_text) if temp_trump, string("gods man"); egen w_gods_president = noccurlong(dummy_text) if temp_trump, string("gods president"); egen w_jesus = noccurlong(dummy_text) if temp_trump, string("jesus"); egen w_david = noccurlong(dummy_text) if temp_trump, string("king david"); egen w_messiah = noccurlong(dummy_text) if temp_trump, string("messiah"); egen w_prophet = noccurlong(dummy_text) if temp_trump, string("prophet"); egen w_savior = noccurlong(dummy_text) if temp_trump, string(" savior"); egen w_saviour = noccurlong(dummy_text) if temp_trump, string(" saviour"); egen w_thank_god_for_trump = noccurlong(dummy_text) if temp_trump, string("thank god for trump"); egen w_trumpianity = noccurlong(dummy_text) if temp_trump, string("triumpianity"); /********** Final Subframe ******/ generate relig_chrnation_sub_w = 0; label var relig_chrnation_sub_w "Christian Nationhood # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_chrnation_sub_w = relig_chrnation_sub_w + `var'; }; drop w_*; replace relig_chrnation_sub_w = wordcount if relig_chrnation_sub_w > wordcount; generate byte relig_chrnation_sub = 0; replace relig_chrnation_sub = 1 if relig_chrnation_sub_w > 1; keep source yearmonth yearmonthno relig_chrnation_sub relig_chrnation_sub_w; order source yearmonth yearmonthno relig_chrnation_sub relig_chrnation_sub_w; save "${framesdir}subframe_relig_chrnation_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_dominion.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DOMINIONISM *****/ /***** Original Date: 18 July 2022 *****/ /***** Latest Update: 12 February 2024 *****/ /***** *****/ /***** *****/ /***** The data set from this subroutine is used in *****/ /***** subroutine_frame_relig.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; if strpos(dummy_text,"reconstruct") {; egen w_reconstruct_bible = noccurlong(dummy_text), string("bible"); egen w_reconstruct_biblical = noccurlong(dummy_text), string("biblical"); egen w_reconstruct_christian = noccurlong(dummy_text), string("christian"); egen w_reconstruct_god = noccurlong(dummy_text), string("god"); }; egen w_biblical_law = noccurlong(dummy_text), string("biblical law"); egen w_gods_law = noccurlong(dummy_text), string("gods law"); egen w_law_of_god = noccurlong(dummy_text), string("law of god"); if strpos(dummy_text,"natural law") {; egen w_natural_law_bible = noccurlong(dummy_text), string("bible"); egen w_natural_law_biblical_law = noccurlong(dummy_text), string("biblical law"); egen w_natural_law_god = noccurlong(dummy_text), string("god"); egen w_natural_law_christian = noccurlong(dummy_text), string("christian"); }; egen w_christian_economics = noccurlong(dummy_text), string("christian economics"); egen w_dominion_theology = noccurlong(dummy_text), string("dominion theology"); egen w_dominionism = noccurlong(dummy_text), string("dominionism"); if strpos(dummy_text,"dominion") {; egen w_creation = noccurlong(dummy_text), string("creation"); egen w_god_gave = noccurlong(dummy_text), string("god gave"); egen w_god_granted = noccurlong(dummy_text), string("god granted"); egen w_genesis = noccurlong(dummy_text), string("genesis"); egen w_over_the_earth = noccurlong(dummy_text), string("over the earth"); }; egen w_kingdom_theology = noccurlong(dummy_text), string("kingdom theology"); egen w_seven_mountain_mandate = noccurlong(dummy_text), string("seven mountain mandate"); egen w_7_mountain_mandate = noccurlong(dummy_text), string("7 mountain mandate"); egen w_rushdoony = noccurlong(dummy_text), string("rushdoony"); egen w_johnny_enlow = noccurlong(dummy_text), string("johnny enlow"); egen w_gary_north = noccurlong(dummy_text), string("gary north"); egen w_lance_wallnau = noccurlong(dummy_text), string("lance wallnau"); /********** Final Subframe ******/ generate relig_dominion_sub_w = 0; label var relig_dominion_sub_w "Christian Nationhood # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_dominion_sub_w = relig_dominion_sub_w + `var'; }; drop w_*; replace relig_dominion_sub_w = wordcount if relig_dominion_sub_w > wordcount; keep source yearmonth yearmonthno relig_dominion_sub_w; save "${framesdir}subframe_relig_dominion_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_gref.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFY GENERAL RELIGION THEMES *****/ /***** Assigned Original Date: 14 December 2022 *****/ /***** Last Update: 13 March 2024 *****/ /***** *****/ /***** *****/ /***** The data set from this subroutine is used in *****/ /***** subroutine_frame_relig.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /***** Subframe Calculations **********/ /***** General Words *****/ /* temporary -- divinity, god -- need for some qualification later in this program */ egen w_architect_of_the_universe = noccurlong(dummy_text), string("architect of the universe"); /*Christian, Freemason, Gnostic, Rosicrucian*/ egen w_creator = noccurlong(dummy_text), string(" creator"); egen w_deity = noccurlong(dummy_text), string(" deity"); egen w_deities = noccurlong(dummy_text), string(" deity"); egen w_sow_of_god = noccurlong(dummy_text), string(" son of god"); egen w_sons_of_god = noccurlong(dummy_text), string(" sons of god"); egen w_god = noccurlong(dummy_text), string(" god "); egen w_gods = noccurlong(dummy_text), string(" gods "); egen w_goddess = noccurlong(dummy_text), string(" goddess"); egen w_god_dammit = noccurlong(dummy_text), string("god dammit"); egen w_god_damn = noccurlong(dummy_text), string("god damn"); egen w_god_darn = noccurlong(dummy_text), string("god darn"); replace w_god = w_god - (w_god_dammit + w_god_damn + w_god_darn); replace w_god = 0 if w_god < 0; egen w_mighty god = noccurlong(dummy_text), string("mighty god"); egen w_the_almighty = noccurlong(dummy_text), string("the almighty"); egen w_the_lord = noccurlong(dummy_text), string("the lord"); /*overlap with secular lord?*/ generate temp_divinity = 0; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace temp_divinity = temp_divinity + `var'; }; drop w_*; rename temp_divinity w_temp_divinity; /* religion */ egen w_religio = noccurlong(dummy_text), string(" religio"); /*word stem: religion, religious, religiosity*/ egen w_belief_in_god = noccurlong(dummy_text), string("belief in god"); egen w_believer_in_god = noccurlong(dummy_text), string("believer in god"); egen w_experience_of_god = noccurlong(dummy_text), string("experience of god"); egen w_god_is_in_my_heart = noccurlong(dummy_text), string("god is in my heart"); egen w_religious_beliefs = noccurlong(dummy_text), string("religious beliefs"); egen w_faith_in_god = noccurlong(dummy_text), string("faith in god"); egen w_hope_in_god = noccurlong(dummy_text), string("hope in god"); egen w_mystic = noccurlong(dummy_text), string(" mystic"); egen w_spiritual = noccurlong(dummy_text), string(" spiritual"); if w_temp_divinity > 0 {; egen w_supernatural = noccurlong(dummy_text), string("supernatural"); }; egen w_trust_in_god = noccurlong(dummy_text), string("trust in god"); /***** Angels *****/ /***** Angel terms are often tied to Christian, Judaism, and Islam *****/ egen w_angel = noccurlong(dummy_text), string(" angel"); egen w_archangel = noccurlong(dummy_text), string("archangel"); egen w_saint_michael = noccurlong(dummy_text), string(" saint michael"); egen w_st michael = noccurlong(dummy_text), string(" st michael"); /***** Awakening *****/ /***** Awakening language can refer to (1) general insight, (2) a Christian religious revival, e.g, the Great Awakening, *****/ /***** and (3) a New Age consciousness awakening. Satanism used the term Black Awakening. The term Great Awakening is *****/ /***** also used by QAnon. *****/ egen w_awakening = noccurlong(dummy_text), string("awakening"); /***** Divinity, God *****/ /***** Count of general terms for divinity and god already completed and stored in w_temp_divinity *****/ /* characteristics of divinity */ egen w_all_know = noccurlong(dummy_text), string("all know"); egen w_all_power = noccurlong(dummy_text), string("all power"); egen w_divine = noccurlong(dummy_text), string(" divine "); egen w_omnipotent = noccurlong(dummy_text), string("omnipotent"); egen w_omnipresent = noccurlong(dummy_text), string("omnipresent"); egen w_omniscien = noccurlong(dummy_text), string("omniscien"); if w_temp_divinity > 0 {; /*review to make sure use is related to god and not a characteristic of a person or people */ egen w_grace = noccurlong(dummy_text), string(" grace"); egen w_gracious = noccurlong(dummy_text), string(" gracious"); }; /***** Environmentalism (look at interactions with environmental frame *****/ if strpos(dummy_text," pope") | strpos(dummy_text,"summit") | strpos(dummy_text,"ten commandments") | strpos(dummy_text,"10 commandments") { ; egen w_environment = noccurlong(dummy_text), string("environment"); }; egen w_climate_repentance = noccurlong(dummy_text), string("climate repentance"); /***** Eternity *****/ egen w_eternal = noccurlong(dummy_text), string("eternal "); egen w_heaven = noccurlong(dummy_text), string(" heaven"); egen w_life_after_death = noccurlong(dummy_text), string("life after death"); egen w_life_everlasting = noccurlong(dummy_text), string("life everlasting"); egen w_live_forever = noccurlong(dummy_text), string("live forever"); /***** God's Will *****/ /*divination*/ egen w_divination = noccurlong(dummy_text), string("divination"); /* hand */ egen w_gods_hand = noccurlong(dummy_text), string("gods hand"); egen w_hand_of_god = noccurlong(dummy_text), string("hand of god"); /* plan */ egen w_divine_plan = noccurlong(dummy_text), string("divine plan"); egen w_gods_plan = noccurlong(dummy_text), string("gods plan"); egen w_plaw_of_god = noccurlong(dummy_text), string("plan of god"); /* will */ egen w_divine_will = noccurlong(dummy_text), string("divine will"); egen w_gods_will = noccurlong(dummy_text), string("gods will"); egen w_will_of_god = noccurlong(dummy_text), string("will of god"); egen w_god_if_it_your_will = noccurlong(dummy_text), string("god if it is your will"); egen w_god_if_its_your_will = noccurlong(dummy_text), string("god if its your will"); egen w_god_willing = noccurlong(dummy_text), string("god willing"); egen w_if_it_gods_will = noccurlong(dummy_text), string("if it is gods will"); egen w_if_its_gods_will = noccurlong(dummy_text), string("if its gods will"); /***** Holiness and Sacredness *****/ egen w_holy = noccurlong(dummy_text), string("holy"); egen w_holy_crap = noccurlong(dummy_text), string("holy crap"); egen w_holy_moly = noccurlong(dummy_text), string("holy_moly"); replace w_holy = w_holy - (w_holy_crap + w_holy_moly); replace w_holy = 0 if w_holy < 0; egen w_holier = noccurlong(dummy_text), string("holier"); egen w_holier_thaw_thou = noccurlong(dummy_text), string("holier than thou"); replace w_holier = w_holier - w_holier_thaw_thou; replace w_holier = 0 if w_holier < 0; egen w_holiest = noccurlong(dummy_text), string("holiest"); egen w_holiness = noccurlong(dummy_text), string("holiness"); egen w_sacred = noccurlong(dummy_text), string(" sacred"); /***** Leaders (non-tradition specific) *****/ egen w_clergy = noccurlong(dummy_text), string(" clergy "); egen w_priest = noccurlong(dummy_text), string(" priest"); egen w_religious_leader = noccurlong(dummy_text), string("religious leader"); /***** Miracles *****/ egen w_miracle = noccurlong(dummy_text), string(" miracle"); egen w_miraculous = noccurlong(dummy_text), string("miraculous"); /***** Persecution *****/ if strpos(dummy_text,"belief") | strpos(dummy_text,"christian") | strpos(dummy_text,"faith") | strpos(dummy_text,"religio") {; egen w_persecut = noccurlong(dummy_text), string("persecut"); }; egen w_uygher = noccurlong(dummy_text), string("uygher"); /***** Personal Characteristics *****/ egen w_godly = noccurlong(dummy_text), string(" godly "); egen w_godliness = noccurlong(dummy_text), string(" godliness "); egen w_pious = noccurlong(dummy_text), string(" pious"); egen w_piety = noccurlong(dummy_text), string("piety"); egen w_righteous = noccurlong(dummy_text), string(" righteous"); /***** Prayer *****/ egen w_pray = noccurlong(dummy_text), string(" pray"); egen w_meditat = noccurlong(dummy_text), string(" meditat"); /***** Salvation *****/ egen w_salvation = noccurlong(dummy_text), string(" salvation "); if w_temp_divinity | strpos(dummy_text," sin") {; /*vague combination*/ egen w_save = noccurlong(dummy_text), string(" save"); }; /***** Scripture *****/ egen w_holy_book = noccurlong(dummy_text), string("holy book"); egen w_sacred_book = noccurlong(dummy_text), string("sacred book"); egen w_sacred_text = noccurlong(dummy_text), string("sacred text"); egen w_sacred_writing = noccurlong(dummy_text), string("sacred writing"); replace w_sacred = w_sacred - (w_sacred_book + w_sacred_text + w_sacred_writing); replace w_sacred = 0 if w_sacred < 0; egen w_scriptur = noccurlong(dummy_text), string(" scriptur"); /***** Sin and related concepts *****/ egen w_godless = noccurlong(dummy_text), string(" godless "); egen w_heresy = noccurlong(dummy_text), string(" heresy "); egen w_heresies = noccurlong(dummy_text), string(" heresies"); egen w_heretic = noccurlong(dummy_text), string(" heretic"); egen w_sin = noccurlong(dummy_text), string(" sin "); egen w_sinful = noccurlong(dummy_text), string(" sinful"); egen w_sinned = noccurlong(dummy_text), string(" sinned"); egen w_sinner = noccurlong(dummy_text), string(" sinner"); egen w_sinning = noccurlong(dummy_text), string(" sinning"); /***** Worship *****/ egen w_worship = noccurlong(dummy_text), string(" worship"); /********** Final Subframe ******/ generate relig_gref_sub_w = 0; label var relig_gref_sub_w "General Religion # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_gref_sub_w = relig_gref_sub_w + `var'; }; drop w_*; replace relig_gref_sub_w = wordcount if relig_gref_sub_w > wordcount; keep source yearmonth yearmonthno relig_gref_sub_w; order source yearmonth yearmonthno relig_gref_sub_w; save "${framesdir}subframe_relig_gref_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_jewishidentity.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: JEWISH IDENTITY ANTISEMITISM SUBFRAME *****/ /***** Attributed Original Date: 07 October 2023 *****/ /***** Last Update: 24 December 2023 *****/ /***** *****/ /***** This subframe is needed to complete the following frames and must *****/ /***** precede them and then be merged on to the working data set: *****/ /***** 1. subroutine_frame_religion.do *****/ /***** 2. subroutine_frame_nwo.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** Jewish identification bit **********/ generate byte relig_judaism_sub_identity = 0; label var relig_judaism_sub_identity "Jewish Identification Subframe"; replace relig_judaism_sub_identity = 1 if /*general*/ strpos(dummy_text," jew ") | strpos(dummy_text," jews ") | strpos(dummy_text," jewish") | strpos(dummy_text," jewess") | strpos(dummy_text," jewry") | strpos(dummy_text,"judaism") | /*other identifiers*/ strpos(dummy_text,"ashkenazi") | strpos(dummy_text,"israelite") | strpos(dummy_text," zion"); /********** Antisemitism bit **********/ generate byte relig_judaism_sub_antisem = 0; label var relig_judaism_sub_antisem "Antisemitic Bit"; /***** Qualified string *****/ replace relig_judaism_sub_antisem = 1 if relig_judaism_sub_identity == 1 & /*elite status and power*/ (strpos(dummy_text," bank") | strpos(dummy_text,"control the banks") | strpos(dummy_text,"bureaucrat") | strpos(dummy_text,"department store") | strpos(dummy_text," control") | strpos(dummy_text," elite") | strpos(dummy_text," financ") | strpos(dummy_text," fur ") | strpos(dummy_text,"kanye") | strpos(dummy_text," lawyer") | strpos(dummy_text," media") | strpos(dummy_text," mogul") | strpos(dummy_text," money") | strpos(dummy_text,"moneychanger") | strpos(dummy_text,"money changer") | strpos(dummy_text,"monopol") | strpos(dummy_text,"overlord") | strpos(dummy_text," power") | strpos(dummy_text,"run the world") | strpos(dummy_text," shill") | strpos(dummy_text,"supremac") | /*conspiracies */ strpos(dummy_text," cabal") | strpos(dummy_text," conspir") | strpos(dummy_text,"covid") | strpos(dummy_text," mossad") | strpos(dummy_text,"new world order") | strpos(dummy_text," nwo ") | strpos(dummy_text," plot") | strpos(dummy_text," poison") | strpos(dummy_text," scheme") | strpos(dummy_text," shekel") | strpos(dummy_text,"scare tactic") | strpos(dummy_text," trick") | strpos(dummy_text," vaccin") | /*pedophilia and sacrifice*/ strpos(dummy_text,"blood libel") | strpos(dummy_text,"blood sacrifice") | strpos(dummy_text,"cannibal") | strpos(dummy_text,"child sacrifice") | strpos(dummy_text," pedophil") | strpos(dummy_text," pedo ") | strpos(dummy_text," pedos ") | strpos(dummy_text," vampir") | /*political extremism*/ strpos(dummy_text,"bolshevik") | strpos(dummy_text,"bolshevism") | strpos(dummy_text," bourgeois") | strpos(dummy_text,"communism") | strpos(dummy_text,"communist") | strpos(dummy_text," commie") | strpos(dummy_text,"commissar") | strpos(dummy_text," fascist") | strpos(dummy_text," leftist") | strpos(dummy_text," lenin") | strpos(dummy_text," marx") | strpos(dummy_text," trotsky") | strpos(dummy_text,"socialism") | strpos(dummy_text,"socialist") | /*satanism*/ strpos(dummy_text," satan") | strpos(dummy_text," devil") | strpos(dummy_text,"lucifer") | /*slurs*/ strpos(dummy_text," bitch") | strpos(dummy_text,"chameleon") | strpos(dummy_text," lizard") | strpos(dummy_text," reptil") | /*other*/ strpos(dummy_text," protocols")); /***** Unqualified string *****/ replace relig_judaism_sub_antisem = 1 if /*general identification*/ strpos(dummy_text," antisemit") | strpos(dummy_text," edom") | strpos(dummy_text,"foreign jew") | strpos(dummy_text," golem") | strpos(dummy_text,"jew boss") | strpos(dummy_text,"jew boy") | strpos(dummy_text,"jew hate") | strpos(dummy_text,"jew lies") | strpos(dummy_text,"jew logic") | strpos(dummy_text,"jew master") | strpos(dummy_text,"jew owner") | strpos(dummy_text,"jew town") | strpos(dummy_text,"jew york") | strpos(dummy_text," jewless") | strpos(dummy_text,"jewish bugbear") | strpos(dummy_text,"jewish conspiracy") | strpos(dummy_text,"jewish crime") | strpos(dummy_text,"jewish infiltration") | strpos(dummy_text,"jewish question") | strpos(dummy_text," jq ") | strpos(dummy_text,"jewish race") | strpos(dummy_text,"jewish revolution") | strpos(dummy_text,"jewish supremacism") | strpos(dummy_text,"jews will not replace us") | strpos(dummy_text,"pissrael") | strpos(dummy_text,"rich jew") | strpos(dummy_text," semit") | strpos(dummy_text,"u jew") | strpos(dummy_text,"world jew") | strpos(dummy_text,"you jew") | /*groups and individuals*/ strpos(dummy_text," rothschild") | strpos(dummy_text," soros") | /*holocaust*/ (strpos(dummy_text,"holocaust") & st_extremeright) | strpos(dummy_text,"holocaust cartoon") | strpos(dummy_text,"holocaust did not happen") | strpos(dummy_text,"holocaust didnt happen") | strpos(dummy_text," pogrom") | strpos(dummy_text,"six million gorillion") | strpos(dummy_text,"6 million gorillion") | strpos(dummy_text,"six million wasnt enough") | strpos(dummy_text,"6 million wasnt enough") | strpos(dummy_text,"6mwe") | /*non-jews*/ strpos(dummy_text," goy ") | strpos(dummy_text," goys ") | strpos(dummy_text," goyim") | /*physical appearance*/ strpos(dummy_text,"crooked nose") | strpos(dummy_text,"hooked nose") | strpos(dummy_text,"jew nose") | strpos(dummy_text," kike") | strpos(dummy_text," mensch") | strpos(dummy_text,"zionist occupation government") | strpos(dummy_text," zog") | /*other*/ strpos(dummy_text,"fight the jew") | strpos(dummy_text,"goyim defense league") | strpos(dummy_text,"from the river to the sea") | strpos(dummy_text,"liesofkikes"); replace relig_judaism_sub_antisem = 1 if relig_judaism_sub_identity & (st_qanon == 1 | st_maga == 1 | st_extremeright == 1 | st_conspiracy == 1); keep source yearmonth yearmonthno relig_judaism_*; save "${framesdir}subframe_relig_jewishidentity_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_judeochrist.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFY RELIGION THEMES *****/ /***** Assigned Original Date: 14 December 2022 *****/ /***** Last Update: 23 June 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_antisemitism_${filedate}_${timeperiod}.dta"; /********** 1.0 Judaism and Judeo-Christian **********/ /********** Antisemitism is a separate frame *****/ /***** 1.1. General Language *****/ /* affirmations */ egen w_hallelujah = noccurlong(dummy_text), string("hallelujah"); egen w_selah = noccurlong(dummy_text), string(" selah"); /* names of god */ egen w_adonai = noccurlong(dummy_text), string(" adonai"); egen w_creator = noccurlong(dummy_text), string(" creator"); egen w_el_shaddai = noccurlong(dummy_text), string("el shaddai"); egen w_jehovah = noccurlong(dummy_text), string(" jehovah"); egen w_yah = noccurlong(dummy_text), string(" yah "); egen w_yahuwah = noccurlong(dummy_text), string(" yahuwah"); egen w_yahweh = noccurlong(dummy_text), string(" yahweh"); egen w_yhwh = noccurlong(dummy_text), string(" yhwh"); /********** 1.2 Hebrew scriptures material: Later added to Judaism and Christian subframes *********/ /***** Bible *****/ if strpos(dummy_text,"satanic bible") == 0 {; egen w_bible = noccurlong(dummy_text), string(" bible"); }; if w_bible > 0 | st_religion {; egen w_genesis = noccurlong(dummy_text), string("genesis"); }; /***** Old Testament *****/ egen w_old_testament = noccurlong(dummy_text), string("old testament"); egen w_hebrew_scripture = noccurlong(dummy_text), string("hebrew scripture"); /***** Pentateuch *****/ egen w_book_of_genesis = noccurlong(dummy_text), string("book of genesis"); egen w_law_and_prophets = noccurlong(dummy_text), string("law and prophets"); egen w_law_and_the_prophets = noccurlong(dummy_text), string("law and the prophets"); egen w_pentateuch = noccurlong(dummy_text), string("pentateuch"); egen w_torah = noccurlong(dummy_text), string(" torah"); egen w_law_of_moses = noccurlong(dummy_text), string("law of moses"); egen w_laws_of_moses = noccurlong(dummy_text), string("laws of moses"); egen w_ten_commandments = noccurlong(dummy_text), string("ten commandments"); egen w_10_commandments = noccurlong(dummy_text), string("10 commandments"); egen w_the_commandments = noccurlong(dummy_text), string("the commandments"); egen w_eden = noccurlong(dummy_text), string("eden"); egen w_edenic = noccurlong(dummy_text), string(" edenic"); if strpos(dummy_text,"adam") {; egen w_eve = noccurlong(dummy_text), string(" eve "); }; if strpos(dummy_text,"ark") | strpos(dummy_text,"flood") {; egen w_noah = noccurlong(dummy_text), string(" noah"); }; egen w_ark = noccurlong(dummy_text), string("ark of the covenant"); egen w_urim = noccurlong(dummy_text), string(" urim"); egen w_thummin = noccurlong(dummy_text), string(" thummim"); if st_religion {; egen w_adam = noccurlong(dummy_text), string(" adam "); egen w_cain = noccurlong(dummy_text), string(" cain "); egen w_abel = noccurlong(dummy_text), string(" abel "); egen w_seth = noccurlong(dummy_text), string(" seth "); egen w_patriarch = noccurlong(dummy_text), string("patriach"); egen w_abram = noccurlong(dummy_text), string(" abram"); egen w_abraham = noccurlong(dummy_text), string("abraham"); egen w_isaac = noccurlong(dummy_text), string("isaac"); egen w_joseph = noccurlong(dummy_text), string(" joseph"); egen w_sarai = noccurlong(dummy_text), string("sarai"); egen w_sarah = noccurlong(dummy_text), string("sarah"); egen w_ur = noccurlong(dummy_text), string(" ur "); egen w_moses = noccurlong(dummy_text), string("moses"); egen w_pharaoh = noccurlong(dummy_text), string("pharaoh"); }; /***** Israel History *****/ egen w_philistine = noccurlong(dummy_text), string("philistine"); if strpos(dummy_text,"david") { ; egen w_goliath = noccurlong(dummy_text), string("goliath"); egen w_jerusalem = noccurlong(dummy_text), string("jerusalem"); }; if st_religion {; egen w_solomon = noccurlong(dummy_text), string("solomon"); }; /***** Prophets *****/ if strpos(dummy_text," proph") {; egen w_amos = noccurlong(dummy_text), string("amos"); egen w_ezekiel = noccurlong(dummy_text), string("ezekiel"); egen w_isaiah = noccurlong(dummy_text), string("isaiah"); egen w_jeremiah = noccurlong(dummy_text), string("jeremiah"); egen w_joel = noccurlong(dummy_text), string("joel"); egen w_malachi = noccurlong(dummy_text), string("malachi"); }; /***** Enoch *****/ if strpos(dummy_text," enoch") {; egen w_enoch_angel = noccurlong(dummy_text), string(" angel"); egen w_book_of_enoch = noccurlong(dummy_text), string("book of enoch"); egen w_taken = noccurlong(dummy_text), string("taken"); egen w_watcher = noccurlong(dummy_text), string("watcher"); }; /***** 1.3 Judaism *****/ /* general terms */ egen w_jew = noccurlong(dummy_text), string(" jew "); egen w_jews = noccurlong(dummy_text), string(" jews "); egen w_jewish = noccurlong(dummy_text), string(" jewish"); egen w_jewess = noccurlong(dummy_text), string(" jewess"); egen w_jewry = noccurlong(dummy_text), string(" jewry"); egen w_judaism = noccurlong(dummy_text), string("judaism"); generate dummy_judaism_w = w_jew + w_jews + w_jewish + w_jewess + w_jewry + w_judaism; replace dummy_judaism_w = 0 if antisemitism_frame; /*remove references to jews regarded antisemitic*/ drop w_jew w_jews w_jewish w_jewess w_jewry w_judaism; rename dummy_judaism_w w_temp_judaism; /*documents*/ egen w_talmud = noccurlong(dummy_text), string("talmud"); /*god*/ egen w_elohim = noccurlong(dummy_text), string("elohim"); egen w_gd = noccurlong(dummy_text), string(" gd "); /*houses of worship*/ if w_temp_judaism > 0 {; egen w_temple = noccurlong(dummy_text), string("temple"); }; egen w_temple_mount = noccurlong(dummy_text), string("temple mount"); if strpos(dummy_text,"jerusalem") {; egen w_ = noccurlong(dummy_text), string(" temple"); }; egen w_synagogue = noccurlong(dummy_text), string("synagogue"); /*observances*/ egen w_hanukkah = noccurlong(dummy_text), string("hanukkah"); egen w_chanukkah = noccurlong(dummy_text), string("chanukkah"); egen w_kosher = noccurlong(dummy_text), string(" kosher"); egen w_maccabees = noccurlong(dummy_text), string("maccabees"); egen w_maccabean = noccurlong(dummy_text), string("maccabean"); egen w_menorah = noccurlong(dummy_text), string("menorah"); egen w_passover = noccurlong(dummy_text), string("passover"); egen w_shmita = noccurlong(dummy_text), string(" shmita"); egen w_seder = noccurlong(dummy_text), string(" seder"); egen w_yom_kippur = noccurlong(dummy_text), string("yom kippur"); /*officials*/ egen w_rabbi = noccurlong(dummy_text), string(" rabbi"); /*sects*/ egen w_gematria = noccurlong(dummy_text), string("gematria"); egen w_jewish_mystic = noccurlong(dummy_text), string("jewish mystic"); egen w_kabbal = noccurlong(dummy_text), string(" kabbal"); egen w_lubavitch = noccurlong(dummy_text), string(" lubavitch"); egen w_pharisee = noccurlong(dummy_text), string("pharisee"); egen w_sabbatai_sevi = noccurlong(dummy_text), string(" sabbatai zevi"); egen w_sabbateanist_judaism = noccurlong(dummy_text), string(" sabbateanist judaism"); egen w_sadducee = noccurlong(dummy_text), string("sadducee"); /***** Holocaust *****/ egen w_holocaust = noccurlong(dummy_text), string("holocaust"); egen w_kristallnacht = noccurlong(dummy_text), string("kristallnacht"); egen w_nuremberg = noccurlong(dummy_text), string("nuremberg"); egen w_nuremburg = noccurlong(dummy_text), string("nuremburg"); egen w_six_million_jews = noccurlong(dummy_text), string("six million jews"); /*also code with antisemitism? */ egen w_6_million_jews = noccurlong(dummy_text), string("6 million jews"); egen w_six_million_wasnt_enough = noccurlong(dummy_text), string("six million wasnt enough"); egen w_6mwe = noccurlong(dummy_text), string("6mwe"); egen w_star_of_david = noccurlong(dummy_text), string("star of david"); /********** 1. T. Final Subframe ******/ generate relig_judeochrist_sub_w = 0; label var relig_judeochrist_sub_w "Judeo-Christian # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_judeochrist_sub_w = relig_judeochrist_sub_w + `var'; }; drop w_*; replace relig_judeochrist_sub_w = wordcount if relig_judeochrist_sub_w > wordcount; replace relig_judeochrist_sub_w = 0 if antisemitism_frame; generate relig_judeochrist_sub = 0; replace relig_judeochrist_sub = 1 if relig_judeochrist_sub_w > 0; keep source yearmonth yearmonthno relig_judeochrist_sub relig_judeochrist_sub_w ; order source yearmonth yearmonthno relig_judeochrist_sub relig_judeochrist_sub_w ; save "${framesdir}subframe_relig_judeochrist_${filedate}_${timeperiod}.dta", replace; summ *; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_nar.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: NEW APOSTOLIC REFORMATION (NAR) *****/ /***** (MANY THEMES NOT LIMITED TO NAR) *****/ /***** Original Date: 18 July 2022 *****/ /***** Latest Update: 14 March 2024 *****/ /***** *****/ /***** *****/ /***** The data set from this subroutine is used in *****/ /***** subroutine_frame_relig.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** General terms **********/ egen w_new_apostolic_reformation = noccurlong(dummy_text), string("new apostolic reformation"); egen w_nar = noccurlong(dummy_text), string(" nar "); egen w_n_a_r = noccurlong(dummy_text), string(" n a r "); egen w_independent_network_christian = noccurlong(dummy_text), string("independent network christian"); /***** Common Words *****/ egen w_anointing = noccurlong(dummy_text), string("anointing"); egen w_apostolic = noccurlong(dummy_text), string("apostolic"); egen w_billion_soul_harvest = noccurlong(dummy_text), string("billion soul harvest"); egen w_courts_of_heaven = noccurlong(dummy_text), string("courts of heaven"); egen w_deliverance = noccurlong(dummy_text), string("deliverance ministry"); egen w_fivefold = noccurlong(dummy_text), string("fivefold ministry"); egen w_five_fold = noccurlong(dummy_text), string("five fold ministry"); egen w_great_shaking = noccurlong(dummy_text), string("great shaking"); egen w_kansas_city = noccurlong(dummy_text), string("kansas city prophets"); egen w_kim_clement = noccurlong(dummy_text), string("kim clement"); egen w_rick_joyner = noccurlong(dummy_text), string("rick joyner"); egen w_mark_taylor = noccurlong(dummy_text), string("mark taylor"); egen w_shofar = noccurlong(dummy_text), string("shofar"); egen w_david_wilkerson = noccurlong(dummy_text), string("david wilkerson"); egen w_julie_green = noccurlong(dummy_text), string("julie green"); egen w_god_spoke_to_me = noccurlong(dummy_text), string("god spoke to me"); egen w_the_lord_said_to_me = noccurlong(dummy_text), string("the lord said to me"); if st_religion & sts_newage == 0 {; egen w_accelerat = noccurlong(dummy_text), string(" accelerat"); egen w_activat = noccurlong(dummy_text), string(" activat"); egen w_alignment = noccurlong(dummy_text), string("alignment"); egen w_assignment = noccurlong(dummy_text), string("assignment"); egen w_atmosphere = noccurlong(dummy_text), string("atmosphere"); egen w_kingdom = noccurlong(dummy_text), string(" kingdom"); egen w_manifest = noccurlong(dummy_text), string(" manifest"); egen w_open_heaven = noccurlong(dummy_text), string("open heaven"); egen w_portal = noccurlong(dummy_text), string(" portal"); egen w_prophetic = noccurlong(dummy_text), string("prophetic"); /*may have broader meaning*/ egen w_realm = noccurlong(dummy_text), string(" realm"); egen w_shaking = noccurlong(dummy_text), string(" shaking"); egen w_shift = noccurlong(dummy_text), string(" shift "); }; if strpos(dummy_text,"dream") | strpos(dummy_text,"vision") {; egen w_covid = noccurlong(dummy_text), string("covid"); egen w_lawless = noccurlong(dummy_text), string("lawless"); egen w_prophec = noccurlong(dummy_text), string("prophec"); egen w_prophes = noccurlong(dummy_text), string("prophes"); egen w_prophet = noccurlong(dummy_text), string("prophet"); egen w_reset = noccurlong(dummy_text), string("reset"); egen w_virus = noccurlong(dummy_text), string("virus"); egen w_violence = noccurlong(dummy_text), string("violence"); egen w_war = noccurlong(dummy_text), string(" war"); }; /***** Demonology *****/ egen w_demon = noccurlong(dummy_text), string(" demon "); egen w_demons = noccurlong(dummy_text), string(" demons "); egen w_demonic = noccurlong(dummy_text), string(" demonic "); egen w_demoniz = noccurlong(dummy_text), string(" demoniz"); egen w_evil_spirit = noccurlong(dummy_text), string("evil spirit"); egen w_spiritual_mapping = noccurlong(dummy_text), string("spiritual mapping"); egen w_territorial_spirit = noccurlong(dummy_text), string("territorial spirit"); if strpos(dummy_text," spirit") {; egen w_athaliah = noccurlong(dummy_text), string("athaliah"); egen w_jezebel = noccurlong(dummy_text), string("jezebel"); egen w_kundalini = noccurlong(dummy_text), string("kundalini"); egen w_leviathan = noccurlong(dummy_text), string("leviathan"); egen w_python = noccurlong(dummy_text), string("python"); }; egen w_anti_christ_spirit = noccurlong(dummy_text), string("anti christ spirit"); egen w_antichrist_spirit = noccurlong(dummy_text), string("antichrist spirit"); egen w_spirit_of_anti_christ = noccurlong(dummy_text), string("spirit of anti christ"); egen w_spirit_of_antichrist = noccurlong(dummy_text), string("spirit of antichrist"); egen w_bondage = noccurlong(dummy_text), string("spirit of bondage"); egen w_deaf_and_dumb_spirit = noccurlong(dummy_text), string("deaf and dumb spirit"); egen w_death = noccurlong(dummy_text), string("deaf and dumb spirit"); egen w_divination_spirit = noccurlong(dummy_text), string("spirit of death"); egen w_spirit_of_divination_spirit = noccurlong(dummy_text), string("spirit of divination"); egen w_error = noccurlong(dummy_text), string("spirit of error"); egen w_familiar = noccurlong(dummy_text), string("familiar spirit"); egen w_haughtiness = noccurlong(dummy_text), string("spirit of haughtiness"); egen w_heaviness = noccurlong(dummy_text), string("spirit of heaviness"); egen w_infirmity= noccurlong(dummy_text), string("spirit of infirmity"); egen w_jealousy = noccurlong(dummy_text), string("spirit of jealously"); egen w_lying = noccurlong(dummy_text), string("lying spirit"); egen w_perverse = noccurlong(dummy_text), string("perverse spirit"); egen w_poverty = noccurlong(dummy_text), string("spirit of poverty"); egen w_seducing_spirit = noccurlong(dummy_text), string("seducing spirit"); egen w_whoredom = noccurlong(dummy_text), string("spirit of whoredom"); /********** Final Subframe ******/ generate relig_nar_sub_w = 0; label var relig_nar_sub_w "New Apostolic Reformation # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_nar_sub_w = relig_nar_sub_w + `var'; }; drop w_*; replace relig_nar_sub_w = wordcount if relig_nar_sub_w > wordcount; keep source yearmonth yearmonthno relig_nar_sub_w; order source yearmonth yearmonthno relig_nar_sub_w; save "${framesdir}subframe_relig_nar_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_newage.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: RELIGION: NEWAGE SUBFRAME *****/ /***** Original Date: 01 June 2024 *****/ /***** Last Update: 01 June 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; ********** New Age subframes **********/ /*general*/ egen w_ = noccurlong(dummy_text), string("esoteric"); /*ancient appropriations*/ egen w_annunaki = noccurlong(dummy_text), string("annunaki"); egen w_annunnaki = noccurlong(dummy_text), string("annunnaki"); egen w_asherah = noccurlong(dummy_text), string(" asherah"); egen w_baal= noccurlong(dummy_text), string(" baal"); egen w_cosmic_egg = noccurlong(dummy_text), string("cosmic egg"); egen w_cosmic_turtle = noccurlong(dummy_text), string("cosmic turtle"); egen w_molech = noccurlong(dummy_text), string(" molech"); if strpos(dummy_text," delphi") {; egen w_oracle = noccurlong(dummy_text), string(" oracle"); }; egen w_pendulum_power = noccurlong(dummy_text), string("pendulum power"); egen w_pyramid_energy = noccurlong(dummy_text), string("pyramid energy"); egen w_pyramid_power = noccurlong(dummy_text), string("pyramid power"); egen w_psychic = noccurlong(dummy_text), string(" psychic"); /*astrology*/ egen w_astrolog = noccurlong(dummy_text), string(" astrolog"); egen w_jeanne_dixon = noccurlong(dummy_text), string("jeanne dixon"); /***** consciousness -- applies to a variety of groups *****/ egen w_consciousness = noccurlong(dummy_text), string("consciousness"); egen w_higher_conscious = noccurlong(dummy_text), string("higher conscious"); egen w_lower_conscious = noccurlong(dummy_text), string("lower conscious"); egen w_christ_conscious = noccurlong(dummy_text), string("christ conscious"); egen w_consciousness_awakening = noccurlong(dummy_text), string("consciousness awakening"); egen w_level_of_consciousness = noccurlong(dummy_text), string("level of consciousness"); egen w_raise_up_consciousness = noccurlong(dummy_text), string("raise up consciousness"); /***** eastern religions *****/ egen w_karma = noccurlong(dummy_text), string(" karma"); egen w_karmic = noccurlong(dummy_text), string(" karmic"); egen w_third_eye = noccurlong(dummy_text), string("third eye"); /***** gnosticism *****/ egen w_gnostic = noccurlong(dummy_text), string(" gnostic"); egen w_archon = noccurlong(dummy_text), string(" archon"); egen w_higher_knowledge = noccurlong(dummy_text), string("higher knowledge"); egen w_ramtha = noccurlong(dummy_text), string(" ramtha "); egen w_ramthas = noccurlong(dummy_text), string(" ramthas "); /***** new age *****/ egen w_new_age_movement = noccurlong(dummy_text), string("new age movement"); egen w_12_stand_dna = noccurlong(dummy_text), string("12 stand dna"); egen w_energy_cleanse = noccurlong(dummy_text), string("energy cleanse"); if strpos(dummy_text,"dimension") {; egen w_frequency = noccurlong(dummy_text), string("frequency"); }; egen w_frequencies_are_high = noccurlong(dummy_text), string("frequencies are high"); egen w_frequency_resonance = noccurlong(dummy_text), string("frequency resonance"); if strpos(dummy_text,"columbus") == 0 {; egen w_light_bearer = noccurlong(dummy_text), string("light bearer"); }; egen w_light_friend = noccurlong(dummy_text), string("light friend"); egen w_light_work = noccurlong(dummy_text), string("light work"); egen w_solar_activation = noccurlong(dummy_text), string("solar activation cycle"); egen w_spiritual_vortex = noccurlong(dummy_text), string("spiritual vortex"); egen w_vortex_meridian = noccurlong(dummy_text), string("vortex meridian"); /***** occult *****/ egen w_occult = noccurlong(dummy_text), string("occult"); egen w_aleister_crowley = noccurlong(dummy_text), string("aleister crowley"); egen w_thelemic = noccurlong(dummy_text), string("thelemic"); /***** theosophy *****/ /* general terms */ egen w_theosoph = noccurlong(dummy_text), string(" theosoph"); /* key people */ egen w_elizabeth_clare_prophet = noccurlong(dummy_text), string("elizabeth clare prophet"); /* key concepts and language */ egen w_akash = noccurlong(dummy_text), string(" akash"); /*stem for akasha, akaschic*/ /*ufo beliefs*/ egen w_family_of_light = noccurlong(dummy_text), string("family of light"); egen w_pleiades = noccurlong(dummy_text), string("pleiades"); egen w_pleiadean = noccurlong(dummy_text), string("pleiadean"); /***** other *****/ egen w_alice_ann_bailey = noccurlong(dummy_text), string("alice ann bailey"); egen w_alice_bailey = noccurlong(dummy_text), string("alice bailey"); if strpos(dummy_text," heal") {; egen w_alpha_brain_wave = noccurlong(dummy_text), string("alpha brain wave"); }; egen w_arcane_school = noccurlong(dummy_text), string("arcane school"); egen w_ariosophy = noccurlong(dummy_text), string("ariosophy"); egen w_armanism = noccurlong(dummy_text), string(" armanism"); egen w_ascended_master = noccurlong(dummy_text), string("ascended master"); if strpos(dummy_text,"jesus") == 0 & strpos(dummy_text,"christ") == 0 {; egen w_ascension = noccurlong(dummy_text), string("ascension"); egen w_ascend = noccurlong(dummy_text), string(" ascend"); }; egen w_ashtar = noccurlong(dummy_text), string(" ashtar"); egen w_astral_projection = noccurlong(dummy_text), string("astral projection"); egen w_book_of_knowledge = noccurlong(dummy_text), string("book of knowledge"); egen w_keys_of_enoch = noccurlong(dummy_text), string("keys of enoch"); egen w_blavatsky = noccurlong(dummy_text), string("blavatsky"); egen w_buddha = noccurlong(dummy_text), string(" buddha"); egen w_buddhism = noccurlong(dummy_text), string(" buddhism"); egen w_buddhist = noccurlong(dummy_text), string(" buddhist"); egen w_channeling = noccurlong(dummy_text), string(" channeling"); egen w_channeled = noccurlong(dummy_text), string("channeled"); egen w_i_channel = noccurlong(dummy_text), string(" i channel"); egen w_you_channel = noccurlong(dummy_text), string("you channel"); egen w_he_channel = noccurlong(dummy_text), string("he channel"); egen w_she_channel = noccurlong(dummy_text), string("she channel"); egen w_it_channel = noccurlong(dummy_text), string("it channel"); egen w_we_channel = noccurlong(dummy_text), string("we channel"); egen w_they_channel = noccurlong(dummy_text), string("they channel"); egen w_chakra = noccurlong(dummy_text), string(" chakra "); egen w_church_universal_triumphant = noccurlong(dummy_text), string("church universal and triumphant"); egen w_conspiritual = noccurlong(dummy_text), string("conspiritual"); egen w_crystals = noccurlong(dummy_text), string(" crystals "); egen w_divine_feminine = noccurlong(dummy_text), string("divine feminine"); egen w_divine_masculine = noccurlong(dummy_text), string("divine masculine"); egen w_divine_neutrality = noccurlong(dummy_text), string("divine neutrality"); egen w_divine_spark = noccurlong(dummy_text), string("divine spark"); egen w_divine_wisdom = noccurlong(dummy_text), string("divine wisdom"); egen w_earth_energies = noccurlong(dummy_text), string("earth energies"); egen w_earth_mother = noccurlong(dummy_text), string("earth mother"); egen w_earth_spirits = noccurlong(dummy_text), string("earth spirits"); if strpos(dummy_text,"spirit") | strpos(dummy_text," heal") {; egen w_energy = noccurlong(dummy_text), string("energy"); }; egen w_energy_healer = noccurlong(dummy_text), string("energy healer"); egen w_energy_lines = noccurlong(dummy_text), string("energy lines"); egen w_energies_of_the_cosmos = noccurlong(dummy_text), string("energies of the cosmos"); egen w_positive_energy = noccurlong(dummy_text), string("positive energy"); egen w_negative_energy = noccurlong(dummy_text), string("negative energy"); egen w_enlightened_teacher = noccurlong(dummy_text), string("enlightened teacher"); egen w_externalization = noccurlong(dummy_text), string("externalization of the hierarchy"); egen w_fifth_dimension = noccurlong(dummy_text), string("fifth dimension"); egen w_5th_dimension = noccurlong(dummy_text), string("5th dimension"); egen w_5d = noccurlong(dummy_text), string(" 5d "); egen w_gaia = noccurlong(dummy_text), string(" gaia"); egen w_harley_swift_deer = noccurlong(dummy_text), string("harley swift deer"); egen w_harley_swiftdeer = noccurlong(dummy_text), string("harley swiftdeer"); egen w_hermetic = noccurlong(dummy_text), string("hermetic"); egen w_hierarchy_of_masters = noccurlong(dummy_text), string("hierarchy of masters"); egen w_higher_dimension = noccurlong(dummy_text), string("higher dimension"); egen w_higher_self = noccurlong(dummy_text), string("higher self"); egen w_hindu = noccurlong(dummy_text), string(" hindu"); egen w_i_am_movement = noccurlong(dummy_text), string(" i am movement"); egen w_indigo_child = noccurlong(dummy_text), string("indigo child"); egen w_inner_peace = noccurlong(dummy_text), string("inner peace"); egen w_inner_quiet = noccurlong(dummy_text), string("inner quiet"); egen w_inner_world = noccurlong(dummy_text), string("inner world"); egen w_kryst = noccurlong(dummy_text), string(" kryst"); egen w_kundalini = noccurlong(dummy_text), string("kundalini"); egen w_kryon = noccurlong(dummy_text), string(" kryon"); egen w_law_of_attraction = noccurlong(dummy_text), string("law of attraction"); egen w_law_of_radiation = noccurlong(dummy_text), string("law of radiation and attraction"); egen w_lightworker = noccurlong(dummy_text), string("lightworker"); egen w_mother_earth = noccurlong(dummy_text), string("mother earth"); egen w_maitreya = noccurlong(dummy_text), string(" maitreya"); egen w_i_am_manifesting = noccurlong(dummy_text), string("i am manifesting"); if strpos(dummy_text,"energy") | strpos(dummy_text,"frequenc") | strpos(dummy_text,"vibrat") {; egen w_manifest = noccurlong(dummy_text), string("manifest"); }; egen w_manifest_a = noccurlong(dummy_text), string("manifest a"); egen w_manifest_the = noccurlong(dummy_text), string("manifest the"); egen w_mantra = noccurlong(dummy_text), string(" mantra"); egen w_mind_over_body = noccurlong(dummy_text), string("mind over body"); egen w_moon_phase_lines = noccurlong(dummy_text), string("moon phase lines"); egen w_negative_thoughts = noccurlong(dummy_text), string("negative thoughts"); egen w_new_age = noccurlong(dummy_text), string("new age"); egen w_new_thought = noccurlong(dummy_text), string("new thought"); egen w_number_magic = noccurlong(dummy_text), string("number magic"); egen w_numerolog = noccurlong(dummy_text), string("numerolog"); egen w_odic_energy = noccurlong(dummy_text), string("odic energy"); egen w_odic_force = noccurlong(dummy_text), string("odic force"); egen w_order_nine_angles = noccurlong(dummy_text), string("order of nine angles"); egen w_plan_hierarchy = noccurlong(dummy_text), string("plan of the hierarchy"); egen w_positive_thoughts = noccurlong(dummy_text), string("positive thoughts"); egen w_pure_energy = noccurlong(dummy_text), string("pure energy"); egen w_qualify_your_life = noccurlong(dummy_text), string("qualify your life"); egen w_quickening = noccurlong(dummy_text), string("quickening"); egen w_sananda = noccurlong(dummy_text), string("sananda"); egen w_seance = noccurlong(dummy_text), string(" seance"); egen w_spirit_world = noccurlong(dummy_text), string("spirit world"); egen w_reincarnat = noccurlong(dummy_text), string("reincarnat"); egen w_root_race = noccurlong(dummy_text), string("root race"); egen w_saint_germaine = noccurlong(dummy_text), string("saint germaine"); egen w_st_germaine = noccurlong(dummy_text), string("st germaine"); egen w_sambain = noccurlong(dummy_text), string("sambain"); egen w_seven_rays = noccurlong(dummy_text), string("seven rays"); egen w_shaman = noccurlong(dummy_text), string(" shaman"); egen w_tantra = noccurlong(dummy_text), string("tantra"); egen w_tantric = noccurlong(dummy_text), string("tantric"); egen w_tarot = noccurlong(dummy_text), string(" tarot"); egen w_vibration = noccurlong(dummy_text), string("vibration"); egen w_holy_vibration = noccurlong(dummy_text), string("holy vibration"); egen w_love_vibration = noccurlong(dummy_text), string("love vibration"); egen w_vibrational_energy = noccurlong(dummy_text), string("vibrational energy"); egen w_world_goodwill = noccurlong(dummy_text), string("world goodwill"); egen w_yoga = noccurlong(dummy_text), string(" yoga"); if strpos(dummy_text,"yogi bear") == 0 {; egen w_yogi = noccurlong(dummy_text), string(" yogi"); }; egen w_sen = noccurlong(dummy_text), string(" zen ") ; /********** Final Subframe ******/ generate relig_newage_sub_w = 0; label var relig_newage_sub_w "Religion: New Age Subframe # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_newage_sub_w = relig_newage_sub_w + `var'; }; drop w_*; replace relig_newage_sub_w = wordcount if relig_newage_sub_w > wordcount; keep source yearmonth yearmonthno relig_newage_sub_w; order source yearmonth yearmonthno relig_newage_sub_w; save "${framesdir}subframe_relig_newage_${filedate}_${timeperiod}.dta", replace; summ *; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_prophecy.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: PROPHETIC THEMES *****/ /***** Original Date: 18 July 2022 *****/ /***** Latest Update: 13 March 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms *****/ /***** of use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** General Prophecy **********/ egen w_prophec = noccurlong(dummy_text), string(" prophec"); egen w_prophes = noccurlong(dummy_text), string(" prophes"); egen w_prophet = noccurlong(dummy_text), string(" prophet"); generate relig_prophecy_sub_gref_w = 0; label var relig_prophecy_sub_gref_w "Prophecy: General References # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_prophecy_sub_gref_w = relig_prophecy_sub_gref_w + `var'; }; drop w_*; /********** End Times Prophecy **********/ /***** General Language *****/ egen w_eschatology = noccurlong(dummy_text), string("eschatology"); egen w_book_of_revelation = noccurlong(dummy_text), string("book of revelation"); /***** Antichrist *****/ egen w_antichrist = noccurlong(dummy_text), string("antichrist"); egen w_anti_christ = noccurlong(dummy_text), string("anti christ"); egen w_666 = noccurlong(dummy_text), string(" 666 "); egen w_maw_of_lawlessness = noccurlong(dummy_text), string("man of lawlessness"); egen w_maw_of_sin = noccurlong(dummy_text), string("man of sin"); egen w_house_bill_6666 = noccurlong(dummy_text), string("house bill 6666"); /***** Armaggedon *****/ egen w_armageddon = noccurlong(dummy_text), string("armageddon"); egen w_megiddo = noccurlong(dummy_text), string("megiddo"); egen w_final_conflict = noccurlong(dummy_text), string("final conflict"); egen w_last_battle = noccurlong(dummy_text), string("last battle"); /***** Babylon *****/ if strpos(dummy_text,"babylon") >= 1 { ; egen w_harlot = noccurlong(dummy_text), string("harlot"); egen w_prostitute = noccurlong(dummy_text), string("prostitute"); egen w_revelation = noccurlong(dummy_text), string("revelation"); egen w_whore = noccurlong(dummy_text), string("whore"); }; /***** Gog and Magog *****/ egen w_gog = noccurlong(dummy_text), string(" gog "); egen w_magog = noccurlong(dummy_text), string(" magog "); /***** End of the World *****/ egen w_apocalyp = noccurlong(dummy_text), string("apocalyp"); egen w_doomsday = noccurlong(dummy_text), string("doomsday"); if strpos(dummy_text," ark ") >= 1 | strpos(dummy_text," god ") >= 1 { ; egen w_door_is_shut = noccurlong(dummy_text), string("door is shut"); egen w_door_has_beew_shut = noccurlong(dummy_text), string("door has been shut"); egen w_door_will_be_shut = noccurlong(dummy_text), string("door will be shut"); }; egen w_end_time = noccurlong(dummy_text), string(" end time"); egen w_end_of_the_world = noccurlong(dummy_text), string(" end of the world"); egen w_eschaton = noccurlong(dummy_text), string(" eschaton"); egen w_final_resurrection = noccurlong(dummy_text), string("final resurrection"); egen w_last_days = noccurlong(dummy_text), string(" last days"); egen w_latter_day = noccurlong(dummy_text), string(" latter day"); egen w_red_heifer = noccurlong(dummy_text), string(" red heifer"); egen w_third_temple = noccurlong(dummy_text), string("third temple"); egen w_these_are_the_days_of_elijah = noccurlong(dummy_text), string("these are the days of elijah"); /***** Jesus *****/ egen w_ancient_of_days = noccurlong(dummy_text), string("ancient of days"); /***** Judgment Day ****/ egen w_judge_the_world = noccurlong(dummy_text), string("judge the world"); egen w_judgment_day = noccurlong(dummy_text), string("judgment day"); egen w_judgement_day = noccurlong(dummy_text), string("judgement day"); egen w_books_were_opened = noccurlong(dummy_text), string("books were opened"); egen w_books_will_be_opened = noccurlong(dummy_text), string("books will be opened"); /***** Millennium *****/ egen w_evil_face_of_the_earth = noccurlong(dummy_text), string("evil will be wiped off the face of the earth"); egen w_millennium = noccurlong(dummy_text), string("millennium"); /*this term has many meanings and needs to be factored*/ egen w_millennial_age = noccurlong(dummy_text), string("millennial age"); egen w_millennial_kingdom = noccurlong(dummy_text), string("millennial kingdom"); egen w_millennialism = noccurlong(dummy_text), string("millennialism"); egen w_new_earth = noccurlong(dummy_text), string("new earth"); egen w_new_heaven = noccurlong(dummy_text), string("new heaven"); egen w_new_jerusalem = noccurlong(dummy_text), string("new jerusalem"); egen w_no_tears_iw_their_eyes = noccurlong(dummy_text), string("no tears in their eyes"); egen w_1000_years = noccurlong(dummy_text), string("1000 years"); egen w_1000years = noccurlong(dummy_text), string("1000years"); /*rapture*/ egen w_rapture = noccurlong(dummy_text), string(" rapture"); /*check -- has multiple meanings*/ egen w_rapture_of_the_church = noccurlong(dummy_text), string("rapture of the church"); /***** Second Coming *****/ if strpos(dummy_text,"coming of jesus") >= 1 | strpos(dummy_text,"end of the world") >= 1 | strpos(dummy_text,"rapture") >= 1 | strpos(dummy_text,"tribulation") >= 1 | strpos(dummy_text,"wormwood") >= 1 {; egen w_ = noccurlong(dummy_text), string("apophos"); }; egen w_behold_he_comes = noccurlong(dummy_text), string("behold he comes"); egen w_day_of_his_coming = noccurlong(dummy_text), string("day of his coming"); egen w_dead_shall_be_raised = noccurlong(dummy_text), string("dead shall be raised"); egen w_dead_will_be_raised = noccurlong(dummy_text), string("dead will be raised"); egen w_with_a_shout = noccurlong(dummy_text), string("descend from heaven with a shout"); egen w_first_resurrection = noccurlong(dummy_text), string("first resurrection"); egen w_resurrection_of_the_just = noccurlong(dummy_text), string("resurrection of the just"); if strpos(dummy_text,"imminent return")>= 1 {; if strpos(dummy_text,"jesus") >= 1 | strpos(dummy_text,"savior") >= 1 | strpos(dummy_text,"saviour") >= 1 {; egen w_imminent = noccurlong(dummy_text), string("imminent return"); }; }; egen w_jesus_is_coming = noccurlong(dummy_text), string("jesus is coming"); egen w_last_trumpet = noccurlong(dummy_text), string(" last trumpet"); egen w_last_trump = noccurlong(dummy_text), string(" last trump"); egen w_return_of_jesus = noccurlong(dummy_text), string("return of jesus"); egen w_return_of_christ = noccurlong(dummy_text), string("return of christ"); egen w_return_of_the_messiah = noccurlong(dummy_text), string("return of the messiah"); egen w_return_in_glory = noccurlong(dummy_text), string("return in glory"); egen w_second_advent = noccurlong(dummy_text), string("second advent "); egen w_second_coming = noccurlong(dummy_text), string("second coming"); egen w_coming_of_jesus = noccurlong(dummy_text), string("coming of jesus"); egen w_coming_of_christ = noccurlong(dummy_text), string("coming of christ"); egen w_son_of_man_coming = noccurlong(dummy_text), string("son of man coming"); egen w_son_of_man_will_come = noccurlong(dummy_text), string("son of man will come at an hour"); if strpos(dummy_text,"son of man") >= 1 {; egen w_not_expect_him = noccurlong(dummy_text), string("not expect him"); }; egen w_second_resurrection = noccurlong(dummy_text), string("second resurrection"); egen w_the_sign_of_the_son_of_man = noccurlong(dummy_text), string("the sign of the son of man"); egen w_tribes_of_the_earth_mourn = noccurlong(dummy_text), string("tribes of the earth mourn"); egen w_tribes_of_the_earth_shall = noccurlong(dummy_text), string("tribes of the earth shall mourn"); egen w_tribes_of_the_earth_will = noccurlong(dummy_text), string("tribes of the earth will mourn"); egen w_trumpet_shall_sound = noccurlong(dummy_text), string("trumpet_shall_sound"); egen w_trumpet_will_sound = noccurlong(dummy_text), string("trumpet_will_sound"); /***** Signs of the Times *****/ egen w_sign_of_the_times = noccurlong(dummy_text), string("sign of the times"); egen w_signs_of_the_times = noccurlong(dummy_text), string("signs of the times"); if strpos(dummy_text,"sign") >= 1 {; egen w_earthquake = noccurlong(dummy_text), string("earthquake"); egen w_famine = noccurlong(dummy_text), string("famine"); egen w_locust = noccurlong(dummy_text), string("locust"); egen w_pestilence = noccurlong(dummy_text), string("pestilence"); egen w_volcano = noccurlong(dummy_text), string("volcano"); }; egen w_days_of_noah = noccurlong(dummy_text), string("days of Noah"); egen w_fig_leaf = noccurlong(dummy_text), string("fig leaf"); egen w_fig_leaves = noccurlong(dummy_text), string("fig leaves"); egen w_fig_tree = noccurlong(dummy_text), string("fig tree"); egen w_wormwood = noccurlong(dummy_text), string(" wormwood"); /***** Tribulation and Related Events *****/ egen w_coming_wrath = noccurlong(dummy_text), string("coming wrath"); if strpos(dummy_text," dry") >= 1 | strpos(dummy_text," dries") >= 1 | strpos(dummy_text," dried") >= 1 {; egen w_euphrates = noccurlong(dummy_text), string("euphrates"); }; egen w_four_horsemen = noccurlong(dummy_text), string("four horsemen"); egen w_first_horsemen = noccurlong(dummy_text), string("first horsemen"); egen w_second_horsemen = noccurlong(dummy_text), string("second horsemen"); egen w_third_horsemen = noccurlong(dummy_text), string("third horsemen"); egen w_fourth_horsemen = noccurlong(dummy_text), string("fourth horsemen"); egen w_pale_horse = noccurlong(dummy_text), string("pale horse"); if strpos(dummy_text,"tribulation") >= 1 {; egen w_martyr = noccurlong(dummy_text), string("martyr"); }; egen w_seven_seals = noccurlong(dummy_text), string("seven seals"); egen w_seven_trumpets = noccurlong(dummy_text), string("seven trumpets"); egen w_seven_vials = noccurlong(dummy_text), string("seven vials"); egen w_the_time_of_great_distress = noccurlong(dummy_text), string("the time of great distress"); egen w_time_of_jacobs_trouble = noccurlong(dummy_text), string("time of jacobs trouble"); egen w_tribulation = noccurlong(dummy_text), string("tribulation"); /*multiple meanings?*/ egen w_two_witnesses = noccurlong(dummy_text), string("two witnesses"); egen w_144000 = noccurlong(dummy_text), string("144000"); /***** Other *****/ if relig_prophecy_sub_gref_w > 0 {; egen w_coming_to_pass = noccurlong(dummy_text), string("coming to pass"); egen w_need_to_be_ready = noccurlong(dummy_text), string("need to be ready"); }; egen w_for_such_a_time_as_this = noccurlong(dummy_text), string("for such a time as this"); egen w_these_are_biblical_times = noccurlong(dummy_text), string("these are biblical times"); egen w_we_are_in_biblical_times = noccurlong(dummy_text), string("we are in biblical times"); generate relig_prophecy_sub_endtimes_w = 0; label var relig_prophecy_sub_endtimes_w "Prophecy: End Times # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_prophecy_sub_endtimes_w = relig_prophecy_sub_endtimes_w + `var'; }; drop w_*; /********** Prophetic News **********/ egen w_china = noccurlong(dummy_text), string(" china"); egen w_coronavirus = noccurlong(dummy_text), string("coronavirus"); egen w_covid = noccurlong(dummy_text), string(" covid"); egen w_earthquake = noccurlong(dummy_text), string("earthquake"); egen w_famine = noccurlong(dummy_text), string("famine"); egen w_iran = noccurlong(dummy_text), string(" iran"); egen w_iraq = noccurlong(dummy_text), string(" iraq"); egen w_israel = noccurlong(dummy_text), string(" israel"); egen w_locust = noccurlong(dummy_text), string("locust"); egen w_pestilence = noccurlong(dummy_text), string("pestilence"); egen w_russia = noccurlong(dummy_text), string(" russia"); egen w_troop = noccurlong(dummy_text), string(" troop"); egen w_volcano = noccurlong(dummy_text), string("volcano"); egen w_united_states = noccurlong(dummy_text), string("united states"); egen w_war = noccurlong(dummy_text), string(" war "); generate relig_prophecy_sub_news_w = 0; label var relig_prophecy_sub_news_w "Prophecy: News # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; if sts_prophecy == 1 & relig_prophecy_sub_endtimes_w > 0 { ; replace relig_prophecy_sub_news_w = relig_prophecy_sub_news_w + `var'; }; }; drop w_*; /********** Personal Prophetic Messages **********/ /***** General Statements *****/ egen w_god_told_me = noccurlong(dummy_text), string("god told me"); egen w_lord_told_me = noccurlong(dummy_text), string("lord told me"); egen w_angel_told_me = noccurlong(dummy_text), string("angel told me"); egen w_god_said_to_me = noccurlong(dummy_text), string("god said to me"); egen w_lord_said_to_me = noccurlong(dummy_text), string("lord said to me"); egen w_angel_said_to_me = noccurlong(dummy_text), string("angel said to me"); egen w_had_a_dream = noccurlong(dummy_text), string("had_a_dream"); egen w_had_a_vision = noccurlong(dummy_text), string("had_a_vision"); /***** Julie Green Prophecies *****/ if source == 642 {; egen w_change = noccurlong(dummy_text), string("change"); egen w_coming = noccurlong(dummy_text), string("coming"); egen w_deliver = noccurlong(dummy_text), string("deliver"); egen w_destroy = noccurlong(dummy_text), string("destroy"); egen w_destruction = noccurlong(dummy_text), string("destruction"); egen w_dismantl = noccurlong(dummy_text), string("dismantl"); egen w_eagle = noccurlong(dummy_text), string(" eagle"); egen w_enemy = noccurlong(dummy_text), string(" enemy"); egen w_enemies = noccurlong(dummy_text), string(" enemies"); egen w_expose = noccurlong(dummy_text), string(" expose"); egen w_get_ready = noccurlong(dummy_text), string("get ready"); egen w_great_darkness = noccurlong(dummy_text), string("great darkness"); egen w_harvest_time = noccurlong(dummy_text), string("harvest time"); egen w_its_coming = noccurlong(dummy_text), string("its coming"); egen w_its_time_for = noccurlong(dummy_text), string("its time for"); egen w_its_now_time = noccurlong(dummy_text), string("its now time"); egen w_its_time_to = noccurlong(dummy_text), string("its time to"); egen w_judgment = noccurlong(dummy_text), string("judgment"); egen w_judgement = noccurlong(dummy_text), string("judgement"); egen w_justice = noccurlong(dummy_text), string("justice"); egen w_my_child = noccurlong(dummy_text), string("my child"); egen w_in_your_news = noccurlong(dummy_text), string("in your news"); egen w_partial_fulfillment = noccurlong(dummy_text), string("partial fulfillment"); egen w_perfect_storm = noccurlong(dummy_text), string("perfect storm"); egen w_prophecy_fulfilled = noccurlong(dummy_text), string("prophecy fulfilled"); egen w_returning = noccurlong(dummy_text), string("returning"); egen w_rightful = noccurlong(dummy_text), string("rightful"); egen w_set_the_world_free = noccurlong(dummy_text), string("set the world free"); egen w_setting_the_world_free = noccurlong(dummy_text), string("setting the world free"); egen w_shake = noccurlong(dummy_text), string("shake"); egen w_shaking = noccurlong(dummy_text), string("shaking"); egen w_soon_you_will_see = noccurlong(dummy_text), string("soon you will see"); egen w_surprising = noccurlong(dummy_text), string("surprising"); egen w_take_back_this_nation = noccurlong(dummy_text), string("take back this nation"); egen w_times = noccurlong(dummy_text), string("times"); egen w_truth = noccurlong(dummy_text), string("truth"); egen w_turnaround = noccurlong(dummy_text), string("turnaround"); egen w_not_how_they_appear = noccurlong(dummy_text), string("not how they appear"); egen w_vengeance = noccurlong(dummy_text), string("vengeance"); egen w_venging = noccurlong(dummy_text), string("venging"); egen w_weather = noccurlong(dummy_text), string("weather"); egen w_word_received = noccurlong(dummy_text), string("word received"); egen w_your_enemies = noccurlong(dummy_text), string("your enemies")); }; generate relig_prophecy_sub_personal_w = 0; label var relig_prophecy_sub_personal_w "Prophecy: Personal # Word"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_prophecy_sub_personal_w = relig_prophecy_sub_personal_w + `var'; }; drop w_*; /********** Final Calculations **********/ generate relig_prophecy_sub_w = relig_prophecy_sub_gref_w + relig_prophecy_sub_endtimes_w + relig_prophecy_sub_news_w + relig_prophecy_sub_personal_w; label var relig_prophecy_sub_w "Prophecy # Words"; replace relig_prophecy_sub_w = wordcount if relig_prophecy_sub_w > wordcount; generate relig_prophecy_sub = 0; label var relig_prophecy_sub "Prophecy Indicator"; replace relig_prophecy_sub = 1 if relig_prophecy_sub_w > 0 | sts_prophecy ; keep source yearmonth yearmonthno relig_prophecy_sub relig_prophecy_sub_w relig_prophecy_sub_gref_w relig_prophecy_sub_endtimes_w relig_prophecy_sub_news_w relig_prophecy_sub_personal_w; order source yearmonth yearmonthno relig_prophecy_sub relig_prophecy_sub_w relig_prophecy_sub_gref_w relig_prophecy_sub_endtimes_w relig_prophecy_sub_news_w relig_prophecy_sub_personal_w; save "${framesdir}subframe_relig_prophecy_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_subframe_relig_spiritwar.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: SPIRITUAL WARFARE *****/ /***** Original Date: 13 December 2022 *****/ /***** Last Update: 13 March 2024 *****/ /***** *****/ /***** *****/ /***** The data set from this subroutine is used in *****/ /***** subroutine_frame_relig.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /***** II Corinthians 10:3-5 *****/ egen w_pulling_down_of_strong_holds = noccurlong(dummy_text), string("pulling down of strong holds"); egen w_pulling_down_of_strongholds = noccurlong(dummy_text), string("pulling down of strongholds"); egen w_pull_down_strong_holds = noccurlong(dummy_text), string("pull down strong holds"); egen w_pull_down_strongholds = noccurlong(dummy_text), string("pull down strongholds"); egen w_weapons_of_our_warfare = noccurlong(dummy_text), string("weapons of our warfare"); /***** Ephesians 6:10-17 *****/ egen w_be_strong_in_the_lord = noccurlong(dummy_text), string("be strong in the lord"); egen w_armor_of_god = noccurlong(dummy_text), string("armor of god"); egen w_armour_of_god = noccurlong(dummy_text), string("armour of god"); egen w_gods_armor = noccurlong(dummy_text), string("gods armor"); egen w_gods_armour = noccurlong(dummy_text), string("gods armour"); egen w_wrestle_not = noccurlong(dummy_text), string("wrestle not against flesh and blood"); egen w_principalities = noccurlong(dummy_text), string("against principalities against powers"); egen w_principalities2 = noccurlong(dummy_text), string("against principalities ane powers"); egen w_loins = noccurlong(dummy_text), string(" loins girt about with truth"); egen w_belt = noccurlong(dummy_text), string("belt of truth"); egen w_breastplate = noccurlong(dummy_text), string("breastplate of righteousness"); egen w_feet = noccurlong(dummy_text), string("feet shod with the preparation of the gospel of peace"); egen w_shield = noccurlong(dummy_text), string("shield of faith"); egen w_helmet = noccurlong(dummy_text), string("helmet of salvation"); egen w_sword = noccurlong(dummy_text), string("sword of the spirit"); /***** Army, Soldiers *****/ egen w_army_of_god = noccurlong(dummy_text), string("army of god"); egen w_army_of_the_lord = noccurlong(dummy_text), string("army of the lord"); egen w_christian_warfare = noccurlong(dummy_text), string("christian warfare"); egen w_christian_warrior = noccurlong(dummy_text), string("christian warrior"); egen w_generation_of_davids = noccurlong(dummy_text), string("generation of davids"); egen w_generations_of_davids = noccurlong(dummy_text), string("generations of davids"); egen w_gods_army = noccurlong(dummy_text), string("gods army"); egen w_lords_army = noccurlong(dummy_text), string("lords army"); egen w_prayer_warrior = noccurlong(dummy_text), string("prayer warrior"); egen w_soldier_for_christ = noccurlong(dummy_text), string("soldier for christ"); egen w_soldiers_for_christ = noccurlong(dummy_text), string("soldiers for christ"); egen w_soldier_of_christ = noccurlong(dummy_text), string("soldier of christ"); egen w_soldiers_of_christ = noccurlong(dummy_text), string("soldiers of christ"); egen w_warrior_for_christ = noccurlong(dummy_text), string("warrior for christ"); egen w_warriors_for_christ = noccurlong(dummy_text), string("warriors for christ"); egen w_warrior_of_christ = noccurlong(dummy_text), string("warrior of christ"); egen w_warriors_of_christ = noccurlong(dummy_text), string("warriors of christ"); egen w_warrior_for_god = noccurlong(dummy_text), string("warrior for god"); egen w_warriors_for_god = noccurlong(dummy_text), string("warriors for god"); egen w_warrior_of_god = noccurlong(dummy_text), string("warrior of god"); egen w_warriors_of_god = noccurlong(dummy_text), string("warriors of god"); egen w_warrior_for_jesus = noccurlong(dummy_text), string("warrior for jesus"); egen w_warriors_for_jesus = noccurlong(dummy_text), string("warriors for jesus"); egen w_warrior_of_jesus = noccurlong(dummy_text), string("warrior of jesus"); egen w_warriors_of_jesus = noccurlong(dummy_text), string("warriors of jesus"); egen w_warrior_for_yeshua = noccurlong(dummy_text), string("warrior for yeshua"); egen w_warriors_for_yeshua = noccurlong(dummy_text), string("warriors for yeshua"); egen w_warrior_of_yeshua = noccurlong(dummy_text), string("warrior of yeshua"); egen w_warriors_of_yeshua = noccurlong(dummy_text), string("warriors of yeshua"); /***** Battle, War ******/ egen w_battle_lords = noccurlong(dummy_text), string("battle is the lords"); egen w_battle_belongs_god = noccurlong(dummy_text), string("battle belongs to god"); egen w_battle_belongs_you = noccurlong(dummy_text), string("battle belongs to you"); egen w_battle_belongs_lord = noccurlong(dummy_text), string("battle belongs to the lord"); egen w_battle_good_evil = noccurlong(dummy_text), string("battle between good and evil"); egen w_church_militant = noccurlong(dummy_text), string("church militant"); egen w_militant_church = noccurlong(dummy_text), string("militant church"); egen w_enemy_god = noccurlong(dummy_text), string("enemy of god"); egen w_enemies_god = noccurlong(dummy_text), string("enemies of god"); egen w_fight_good_fight = noccurlong(dummy_text), string("fight the good fight"); egen w_god_on_our_side = noccurlong(dummy_text), string("god on our side"); egen w_god_wins = noccurlong(dummy_text), string("god wins"); egen w_god_won = noccurlong(dummy_text), string("god won"); egen w_gods_battle = noccurlong(dummy_text), string("gods battle"); egen w_gods_enemy = noccurlong(dummy_text), string("gods enemy"); egen w_gods_enemies = noccurlong(dummy_text), string("gods enemies"); egen w_gods_war = noccurlong(dummy_text), string("gods war"); if strpos(dummy_text,"david") {; egen w_goliath = noccurlong(dummy_text), string("goliath"); }; egen w_holy_war = noccurlong(dummy_text), string("holy war"); egen w_im_gonna_see_a_victory = noccurlong(dummy_text), string("im gonna see a victory"); egen w_jericho_march = noccurlong(dummy_text), string("jericho march"); egen w_jesus_wins = noccurlong(dummy_text), string("jesus wins"); egen w_more_than_conquerors = noccurlong(dummy_text), string("more than conquerors"); egen w_religious_war = noccurlong(dummy_text), string("religious war"); egen w_shofar = noccurlong(dummy_text), string(" shofar"); egen w_spiritual_battle = noccurlong(dummy_text), string("spiritual battle"); egen w_spiritual_combat = noccurlong(dummy_text), string("spiritual combat"); egen w_spiritual_war = noccurlong(dummy_text), string("spiritual war"); /*includes spiritual warfare*/ if st_religion {; egen w_victory = noccurlong(dummy_text), string("victory"); egen w_victorious = noccurlong(dummy_text), string("victorious"); }; egen w_victory_in_jesus = noccurlong(dummy_text), string("victory in jesus"); egen w_war_on_the_saints = noccurlong(dummy_text), string("war on the saints"); egen w_we_know_how_the_story_ends = noccurlong(dummy_text), string("we know how the story ends"); /***** Fortresses *****/ egen w_camp_elah = noccurlong(dummy_text), string("camp elah"); egen w_god_is_my_fortress = noccurlong(dummy_text), string("god is my fortress"); egen w_mighty_fortress_is_our_god = noccurlong(dummy_text), string("mighty fortress is our god"); if st_religion {; egen w_stronghold = noccurlong(dummy_text), string(" stronghold"); egen w_strong_hold = noccurlong(dummy_text), string("strong hold"); }; /***** Strength, Weapons *****/ egen w_god_my_strength = noccurlong(dummy_text), string("god is my strength"); egen w_god_our_strength = noccurlong(dummy_text), string("god is our strength"); egen w_lion_of_judah = noccurlong(dummy_text), string("lion of judah"); egen w_ lion_of_the_tribe_of_judah= noccurlong(dummy_text), string("lion of the tribe of judah"); egen w_praise_weapon = noccurlong(dummy_text), string("praise is a weapon"); egen w_rod_of_iron = noccurlong(dummy_text), string("rod of iron"); if st_religion {; egen w_stand_against = noccurlong(dummy_text), string("stand against"); egen w_take_a_stand = noccurlong(dummy_text), string("take a stand"); egen w_took_a_stand = noccurlong(dummy_text), string("took a stand"); }; /********** Final Subframe ******/ generate relig_spiritwar_sub_w = 0; label var relig_spiritwar_sub_w "Spiritual Warfare # Words"; foreach var of varlist w_* {; replace `var' = 0 if `var' == .; replace relig_spiritwar_sub_w = relig_spiritwar_sub_w + `var'; }; drop w_*; replace relig_spiritwar_sub_w = wordcount if relig_spiritwar_sub_w > wordcount; keep source yearmonth yearmonthno relig_spiritwar_sub_w; order source yearmonth yearmonthno relig_spiritwar_sub_w; save "${framesdir}subframe_relig_spwar_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_temp_relig_creationism.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: DUMMY VARIABLE FOR CREATION *****/ /***** Last Update: 05 February 2022 *****/ /***** *****/ /***** *****/ /***** This subroutine is executed as part of the following: *****/ /***** 1. subroutine_fringe_frame.do *****/ /***** 2. subroutine_relig_frame.do *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; generate byte relig_christ_sub_prot_c1 = 0; label var relig_christ_sub_prot_c1 "Creationist Bit"; replace relig_christ_sub_prot_c1 = 1 if strpos(dummy_text,"creationism") | strpos(dummy_text,"creationist") | strpos(dummy_text,"intelligent design") | strpos(dummy_text,"young earth"); g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202211.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Last Update: 14 December 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${inputdir}working_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balen = 0; label var ce_balen "Balenciaga"; replace ce_balen = 1 if strpos(dummy_text,"balenciaga") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_brazil = 0; label var ce_brazil "Brazil"; replace ce_brazil = 1 if strpos(dummy_text,"brazil") ; generate ce_britain = 0; label var ce_britain "Britain"; replace ce_brazil = 1 if strpos(dummy_text,"britain") | strpos(dummy_text,"england") | strpos(dummy_text," truss") | strpos(dummy_text," sunak") | strpos(dummy_text,"boris johnson") ; generate ce_brittanygriner = 0; label var ce_brittanygriner "Brittany Griner"; replace ce_brittanygriner = 1 if strpos(dummy_text,"brittany griner") | strpos(dummy_text,"paul whelan") ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_georgiarunoff = 0; label var ce_georgiarunoff "Georgia Run-Off"; replace ce_georgiarunoff = 1 if strpos(dummy_text,"herschel") | strpos(dummy_text,"warnock") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep yearmonth yearmonthno date source ce_*; save "${outputdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202212.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Last Update: 23 January 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${inputdir}working_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balen = 0; label var ce_balen "Balenciaga"; replace ce_balen = 1 if strpos(dummy_text,"balenciaga") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_brazil = 0; label var ce_brazil "Brazil"; replace ce_brazil = 1 if strpos(dummy_text,"brazil") ; generate ce_britain = 0; label var ce_britain "Britain"; replace ce_brazil = 1 if strpos(dummy_text,"britain") | strpos(dummy_text,"england") | strpos(dummy_text," truss") | strpos(dummy_text," sunak") | strpos(dummy_text,"boris johnson") ; generate ce_brittanygriner = 0; label var ce_brittanygriner "Brittany Griner"; replace ce_brittanygriner = 1 if strpos(dummy_text,"brittany griner") | strpos(dummy_text,"paul whelan") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_georgiarunoff = 0; label var ce_georgiarunoff "Georgia Run-Off"; replace ce_georgiarunoff = 1 if strpos(dummy_text,"herschel") | strpos(dummy_text,"warnock") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep yearmonth yearmonthno date source ce_*; save "${outputdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202301.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 28 March 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${inputdir}working_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balen = 0; label var ce_balen "Balenciaga"; replace ce_balen = 1 if strpos(dummy_text,"balenciaga") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_brazil = 0; label var ce_brazil "Brazil"; replace ce_brazil = 1 if strpos(dummy_text,"brazil") ; generate ce_britain = 0; label var ce_britain "Britain"; replace ce_brazil = 1 if strpos(dummy_text,"britain") | strpos(dummy_text,"england") | strpos(dummy_text," truss") | strpos(dummy_text," sunak") | strpos(dummy_text,"boris johnson") ; generate ce_brittanygriner = 0; label var ce_brittanygriner "Brittany Griner"; replace ce_brittanygriner = 1 if strpos(dummy_text,"brittany griner") | strpos(dummy_text,"paul whelan") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_georgiarunoff = 0; label var ce_georgiarunoff "Georgia Run-Off"; replace ce_georgiarunoff = 1 if strpos(dummy_text,"herschel") | strpos(dummy_text,"warnock") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep yearmonth yearmonthno date source ce_*; save "${outputdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202302.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 21 May 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${inputdir}working_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balloon = 0; label var ce_balloon "Balloon Incidents"; replace ce_balloon = 1 if ((strpos(dummy_text,"balloon") | strpos(dummy_text,"object") | strpos(dummy_text," uap ") | strpos(dummy_text," u a p ")) & (strpos(dummy_text,"china") | strpos(dummy_text,"chinese") | strpos(dummy_text,"shot down") | strpos(dummy_text,"spy"))) ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep yearmonth yearmonthno date source ce_*; save "${outputdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202303.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 15 June 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${inputdir}working_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balloon = 0; label var ce_balloon "Balloon Incidents"; replace ce_balloon = 1 if ((strpos(dummy_text,"balloon") | strpos(dummy_text,"object") | strpos(dummy_text," uap ") | strpos(dummy_text," u a p ")) & (strpos(dummy_text,"china") | strpos(dummy_text,"chinese") | strpos(dummy_text,"shot down") | strpos(dummy_text,"spy"))) ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep yearmonth yearmonthno date source ce_*; save "${outputdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202304.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 15 June 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${inputdir}working_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balloon = 0; label var ce_balloon "Balloon Incidents"; replace ce_balloon = 1 if ((strpos(dummy_text,"balloon") | strpos(dummy_text,"object") | strpos(dummy_text," uap ") | strpos(dummy_text," u a p ")) & (strpos(dummy_text,"china") | strpos(dummy_text,"chinese") | strpos(dummy_text,"shot down") | strpos(dummy_text,"spy"))) ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep yearmonth yearmonthno date source ce_*; save "${outputdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202305.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 15 August 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${inputdir}working_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby yearmonth yearmonthno using "${outputdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balloon = 0; label var ce_balloon "Balloon Incidents"; replace ce_balloon = 1 if ((strpos(dummy_text,"balloon") | strpos(dummy_text,"object") | strpos(dummy_text," uap ") | strpos(dummy_text," u a p ")) & (strpos(dummy_text,"china") | strpos(dummy_text,"chinese") | strpos(dummy_text,"shot down") | strpos(dummy_text,"spy"))) ; generate ce_biden = 0; label var ce_biden "Biden"; replace ce_biden = 1 if strpos(dummy_text," biden") | strpos(dummy_text," bidan") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_lgbtq = 0; label var ce_lgbtq "LGBTQ"; replace ce_lgbtq = 1 if strpos(dummy_text,"lgbtq") | strpos(dummy_text,"homosexual") | (strpos(dummy_text," homo ") & strpos(dummy_text,"sapien") == 0) | strpos(dummy_text," homos ") | strpos(dummy_text, " gay") | strpos(dummy_text," lesbian") | strpos(dummy_text," lesbo") | strpos(dummy_text," transgender") | strpos(dummy_text," transsex") | strpos(dummy_text," trans ") | strpos(dummy_text," tranny ") | strpos(dummy_text," trannies") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_trump = 0; label var ce_trump "Trump"; replace ce_trump = 1 if strpos(dummy_text," trump ") | strpos(dummy_text," trumps ") ; generate ce_trumptrials = 0; label var ce_trumptrials "Trump Trials"; replace ce_trumptrials = 1 if strpos(dummy_text,"aileen cannon") | strpos(dummy_text,"judge cannon") | strpos(dummy_text,"alvin bragg") | strpos(dummy_text,"fani willis") | strpos(dummy_text,"jack smith") | (strpos(dummy_text," trump") & (strpos(dummy_text,"trial") | strpos(dummy_text," rico "))) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep yearmonth yearmonthno date source ce_*; save "${outputdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202306.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 26 September 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balloon = 0; label var ce_balloon "Balloon Incidents"; replace ce_balloon = 1 if ((strpos(dummy_text,"balloon") | strpos(dummy_text,"object") | strpos(dummy_text," uap ") | strpos(dummy_text," u a p ")) & (strpos(dummy_text,"china") | strpos(dummy_text,"chinese") | strpos(dummy_text,"shot down") | strpos(dummy_text,"spy"))) ; generate ce_barbie = 0; label var ce_barbie "Barbie"; replace ce_barbie = 1 if strpos(dummy_text,"barbie") ; generate ce_biden = 0; label var ce_biden "Biden"; replace ce_biden = 1 if strpos(dummy_text," biden") | strpos(dummy_text," bidan") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_civilwar = 0; label var ce_civilwar "Civil War"; replace ce_civilwar = 1 if strpos(dummy_text,"civil war") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_lgbtq = 0; label var ce_lgbtq "LGBTQ"; replace ce_lgbtq = 1 if strpos(dummy_text,"lgbtq") | strpos(dummy_text,"homosexual") | (strpos(dummy_text," homo ") & strpos(dummy_text,"sapien") == 0) | strpos(dummy_text," homos ") | strpos(dummy_text, " gay") | strpos(dummy_text," lesbian") | strpos(dummy_text," lesbo") | strpos(dummy_text," transgender") | strpos(dummy_text," transsex") | strpos(dummy_text," trans ") | strpos(dummy_text," tranny ") | strpos(dummy_text," trannies") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_retribution = 0; label var ce_retribution "Political Retribution"; replace ce_retribution = 1 if strpos(dummy_text," execut") | strpos(dummy_text,"lock her up") | strpos(dummy_text," treason") | strpos(dummy_text," tribunal") ; generate ce_soundoffreedom = 0; label var ce_soundoffreedom "Sound of Freedom"; replace ce_soundoffreedom = 1 if strpos(dummy_text,"sound of freedom") ; generate ce_trump = 0; label var ce_trump "Trump"; replace ce_trump = 1 if strpos(dummy_text," trump ") | strpos(dummy_text," trumps ") ; generate ce_trumptrials = 0; label var ce_trumptrials "Trump Trials"; replace ce_trumptrials = 1 if strpos(dummy_text,"aileen cannon") | strpos(dummy_text,"judge cannon") | strpos(dummy_text,"alvin bragg") | strpos(dummy_text,"fani willis") | strpos(dummy_text,"jack smith") | (strpos(dummy_text," trump") & (strpos(dummy_text,"trial") | strpos(dummy_text," rico "))) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep source yearmonth yearmonthno ce_*; save "${framesdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202307.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 27 December 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_balloon = 0; label var ce_balloon "Balloon Incidents"; replace ce_balloon = 1 if ((strpos(dummy_text,"balloon") | strpos(dummy_text,"object") | strpos(dummy_text," uap ") | strpos(dummy_text," u a p ")) & (strpos(dummy_text,"china") | strpos(dummy_text,"chinese") | strpos(dummy_text,"shot down") | strpos(dummy_text,"spy"))) ; generate ce_barbie = 0; label var ce_barbie "Barbie"; replace ce_barbie = 1 if strpos(dummy_text,"barbie") ; generate ce_biden = 0; label var ce_biden "Biden"; replace ce_biden = 1 if strpos(dummy_text," biden") | strpos(dummy_text," bidan") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_civilwar = 0; label var ce_civilwar "Civil War"; replace ce_civilwar = 1 if strpos(dummy_text,"civil war") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_karilake = 0; label var ce_karilake "Kari Lake"; replace ce_karilake = 1 if strpos(dummy_text,"kari lake") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_lgbtq = 0; label var ce_lgbtq "LGBTQ"; replace ce_lgbtq = 1 if strpos(dummy_text,"lgbtq") | strpos(dummy_text,"homosexual") | (strpos(dummy_text," homo ") & strpos(dummy_text,"sapien") == 0) | strpos(dummy_text," homos ") | strpos(dummy_text, " gay") | strpos(dummy_text," lesbian") | strpos(dummy_text," lesbo") | strpos(dummy_text," transgender") | strpos(dummy_text," transsex") | strpos(dummy_text," trans ") | strpos(dummy_text," tranny ") | strpos(dummy_text," trannies") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_retribution = 0; label var ce_retribution "Political Retribution"; replace ce_retribution = 1 if strpos(dummy_text," execut") | strpos(dummy_text,"lock her up") | strpos(dummy_text," treason") | strpos(dummy_text," tribunal") ; generate ce_soundoffreedom = 0; label var ce_soundoffreedom "Sound of Freedom"; replace ce_soundoffreedom = 1 if strpos(dummy_text,"sound of freedom") ; generate ce_trump = 0; label var ce_trump "Trump"; replace ce_trump = 1 if strpos(dummy_text," trump ") | strpos(dummy_text," trumps ") ; generate ce_trumptrials = 0; label var ce_trumptrials "Trump Trials"; replace ce_trumptrials = 1 if strpos(dummy_text,"aileen cannon") | strpos(dummy_text,"judge cannon") | strpos(dummy_text,"alvin bragg") | strpos(dummy_text,"fani willis") | strpos(dummy_text,"jack smith") | (strpos(dummy_text," trump") & (strpos(dummy_text,"trial") | strpos(dummy_text," rico "))) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep source yearmonth yearmonthno ce_*; save "${framesdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202308-202311.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 31 December 2023 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}topic_intl_${filedate}_${timeperiod}.dta"; generate ce_abortion = 0; label var ce_abortion "Abortion"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_biden = 0; label var ce_biden "Biden"; replace ce_biden = 1 if strpos(dummy_text," biden") | strpos(dummy_text," bidan") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"replacement theory") ; generate ce_civilwar = 0; label var ce_civilwar "Civil War"; replace ce_civilwar = 1 if strpos(dummy_text,"civil war") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Budget and Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"federal budget") | strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect") & strpos(dummy_text,"electric") == 0 ; replace ce_election = 1 if strpos(dummy_text," election") | strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_fbi = 0; label var ce_fbi "Federal Bureau of Investigation"; replace ce_fbi = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") ; generate ce_gaza = 0; label var ce_gaza "Gaza / Hamas"; replace ce_gaza = 1 if strpos(dummy_text,"gaza") | strpos(dummy_text," hamas") ; generate ce_hunterbiden = 0; label var ce_hunterbiden "Hunter Biden"; replace ce_hunterbiden = 1 if strpos(dummy_text,"hunter biden") ; generate ce_jacksmith = 0; label var ce_jacksmith "Jack Smith"; replace ce_jacksmith = 1 if strpos(dummy_text,"jack smith") ; generate ce_jimjordan = 0; label var ce_jimjordan "Jim Jordan"; replace ce_jimjordan = 1 if strpos(dummy_text,"jim jordan") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_lgbtq = 0; label var ce_lgbtq "LGBTQ"; replace ce_lgbtq = 1 if strpos(dummy_text,"lgbtq") | strpos(dummy_text,"homosexual") | (strpos(dummy_text," homo ") & strpos(dummy_text,"sapien") == 0) | strpos(dummy_text," homos ") | strpos(dummy_text, " gay") | strpos(dummy_text," lesbian") | strpos(dummy_text," lesbo") | strpos(dummy_text," transgender") | strpos(dummy_text," transsex") | strpos(dummy_text," trans ") | strpos(dummy_text," tranny ") | strpos(dummy_text," trannies") ; generate ce_maralago = 0; label var ce_maralago "Mar-a-Lago"; replace ce_maralago = 1 if (strpos(dummy_text,"mar a lago") | strpos(dummy_text,"maralago")) & (strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i")) ; generate ce_mikejohnson = 0; label var ce_mikejohnson "Mike Johnson"; replace ce_mikejohnson = 1 if strpos(dummy_text,"mike johnson") ; generate ce_nikkihaley = 0; label var ce_nikkihaley "Nikki Haley"; replace ce_nikkihaley = 1 if strpos(dummy_text,"nikki haley"); generate ce_retribution = 0; label var ce_retribution "Political Retribution"; replace ce_retribution = 1 if strpos(dummy_text," execut") | strpos(dummy_text,"lock her up") | strpos(dummy_text," treason") | strpos(dummy_text," tribunal") ; generate ce_trump = 0; label var ce_trump "Trump"; replace ce_trump = 1 if strpos(dummy_text," trump ") | strpos(dummy_text," trumps ") ; generate ce_trumptrials = 0; label var ce_trumptrials "Trump Trials"; replace ce_trumptrials = 1 if strpos(dummy_text,"aileen cannon") | strpos(dummy_text,"judge cannon") | strpos(dummy_text,"alvin bragg") | strpos(dummy_text,"fani willis") | strpos(dummy_text,"jack smith") | (strpos(dummy_text," trump") & (strpos(dummy_text,"trial") | strpos(dummy_text," rico "))) ; generate ce_twitter = 0; label var ce_twitter "Twitter / Elon Musk"; replace ce_twitter = 1 if strpos(dummy_text,"elon musk") | strpos(dummy_text,"tweet") | strpos(dummy_text,"twitter") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; keep source yearmonth yearmonthno ce_*; save "${framesdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202312.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS DECEMBER 2022 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 05 February 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}topic_intl_${filedate}_${timeperiod}.dta"; /********** People **********/ generate ce_biden = 0; label var ce_biden "Biden"; replace ce_biden = 1 if strpos(dummy_text," biden") | strpos(dummy_text," bidan") ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_mikejohnson = 0; label var ce_mikejohnson "Mike Johnson"; replace ce_mikejohnson = 1 if strpos(dummy_text,"mike johnson") ; generate ce_nikkihaley = 0; label var ce_nikkihaley "Nikki Haley"; replace ce_nikkihaley = 1 if strpos(dummy_text,"nikki haley"); generate ce_jacksmith = 0; label var ce_jacksmith "Jack Smith"; replace ce_jacksmith = 1 if strpos(dummy_text,"jack smith") ; generate ce_jimjordan = 0; label var ce_jimjordan "Jim Jordan"; replace ce_jimjordan = 1 if strpos(dummy_text,"jim jordan") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_trump = 0; label var ce_trump "Trump"; replace ce_trump = 1 if strpos(dummy_text," trump ") | strpos(dummy_text," trumps ") ; /********** Places **********/ generate ce_texas = 0; label var ce_texas "Texas"; replace ce_texas = 1 if strpos(dummy_text," texas"); generate ce_gaza = 0; label var ce_gaza "Israel / Hamas"; replace ce_gaza = 1 if strpos(dummy_text,"gaza") | strpos(dummy_text," hamas") | strpos(dummy_text," israel") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; generate ce_iran = 0; label var ce_iran "Iran / Houthis"; replace ce_iran = 1 if strpos(dummy_text," iran") | strpos(dummy_text," yemen") | strpos(dummy_text,"gulf of kuwait") | strpos(dummy_text,"houthis") ; /********** Topics **********/ generate ce_abortion = 0; label var ce_abortion "Abortion & Birth Control"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"razor wire") ; generate ce_civilwar = 0; label var ce_civilwar "Civil War"; replace ce_civilwar = 1 if strpos(dummy_text,"civil war") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Budget and Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"federal budget") | strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect ") | strpos(dummy_text," elected ") | strpos(dummy_text," election") ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_doj = 0; label var ce_doj "Federal Bureau of Investigation"; replace ce_doj = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") | strpos(dummy_text,"department of justice") | strpos(dummy_text," doj ") | strpos(dummy_text,"d o j") | strpos(dummy_text,"national institute of justice") | strpos(dummy_text," nij ") | strpos(dummy_text,"n i j") ; generate ce_lgbtq = 0; label var ce_lgbtq "LGBTQ"; replace ce_lgbtq = 1 if strpos(dummy_text,"lgbtq") | strpos(dummy_text,"homosexual") | (strpos(dummy_text," homo ") & strpos(dummy_text,"sapien") == 0) | strpos(dummy_text," homos ") | strpos(dummy_text, " gay") | strpos(dummy_text," lesbian") | strpos(dummy_text," lesbo") | strpos(dummy_text," transgender") | strpos(dummy_text," transsex") | strpos(dummy_text," trans ") | strpos(dummy_text," tranny ") | strpos(dummy_text," trannies") ; generate ce_replacement = 0; label var ce_replacement "Replacement Theory"; replace ce_replacement = 1 if strpos(dummy_text,"replacement theory") ; generate ce_retribution = 0; label var ce_retribution "Political Retribution"; replace ce_retribution = 1 if strpos(dummy_text," execut") | strpos(dummy_text,"lock her up") | strpos(dummy_text," treason") | strpos(dummy_text," tribunal") ; generate ce_trumptrials = 0; label var ce_trumptrials "Trump Trials"; replace ce_trumptrials = 1 if strpos(dummy_text,"aileen cannon") | strpos(dummy_text,"judge cannon") | strpos(dummy_text,"alvin bragg") | strpos(dummy_text,"fani willis") | strpos(dummy_text,"engoron") | strpos(dummy_text,"letitia james") | strpos(dummy_text,"chutkan") | strpos(dummy_text,"jack smith") | (strpos(dummy_text," trump") & (strpos(dummy_text,"trial") | strpos(dummy_text," rico "))) | strpos(dummy_text,"alina habba") ; keep source yearmonth yearmonthno ce_*; save "${framesdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_current-events_202401.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: CURRENT EVENTS JANUARY 2024 *****/ /***** Assigned Original Date: 01 August 2021 *****/ /***** Last Update: 29 March 2024 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}frame_pubsafety_${filedate}_${timeperiod}.dta"; joinby source yearmonth yearmonthno using "${framesdir}topic_intl_${filedate}_${timeperiod}.dta"; /********** People **********/ generate ce_biden = 0; label var ce_biden "Biden"; replace ce_biden = 1 if strpos(dummy_text," biden") | strpos(dummy_text," bidan") ; generate ce_desantis = 0; label var ce_desantis "DeSantis"; replace ce_desantis = 1 if strpos(dummy_text,"desantis") | strpos(dummy_text,"de santis") ; generate ce_mikejohnson = 0; label var ce_mikejohnson "Mike Johnson"; replace ce_mikejohnson = 1 if strpos(dummy_text,"mike johnson") ; generate ce_nikkihaley = 0; label var ce_nikkihaley "Nikki Haley"; replace ce_nikkihaley = 1 if strpos(dummy_text,"nikki haley"); generate ce_jacksmith = 0; label var ce_jacksmith "Jack Smith"; replace ce_jacksmith = 1 if strpos(dummy_text,"jack smith") ; generate ce_jimjordan = 0; label var ce_jimjordan "Jim Jordan"; replace ce_jimjordan = 1 if strpos(dummy_text,"jim jordan") ; generate ce_kevinmccarthy = 0; label var ce_kevinmccarthy "Kevin McCarthy"; replace ce_kevinmccarthy = 1 if strpos(dummy_text,"kevin mccarthy") ; generate ce_trump = 0; label var ce_trump "Trump"; replace ce_trump = 1 if strpos(dummy_text," trump ") | strpos(dummy_text," trumps ") ; /********** Places **********/ generate ce_texas = 0; label var ce_texas "Texas"; replace ce_texas = 1 if strpos(dummy_text," texas"); generate ce_gaza = 0; label var ce_gaza "Israel / Hamas"; replace ce_gaza = 1 if strpos(dummy_text,"gaza") | strpos(dummy_text," hamas") | strpos(dummy_text," israel") ; generate ce_ukrainewar = 0; label var ce_ukrainewar "Ukraine War"; replace ce_ukrainewar = 1 if intl_ssr_sub_russia | intl_ssr_sub_ukraine | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") ; generate ce_iran = 0; label var ce_iran "Iran / Houthis"; replace ce_iran = 1 if strpos(dummy_text," iran") | strpos(dummy_text," yemen") | strpos(dummy_text,"gulf of kuwait") | strpos(dummy_text,"houthis") ; /********** Topics **********/ generate ce_abortion = 0; label var ce_abortion "Abortion & Birth Control"; replace ce_abortion = 1 if strpos(dummy_text,"abortion") | (strpos(dummy_text,"abort") & strpos(dummy_text,"babies")) | (strpos(dummy_text,"court") & (strpos(dummy_text," roe") | strpos(dummy_text," dobbs"))) | strpos(dummy_text,"mifepristone") | strpos(dummy_text," reproductive right") | strpos(dummy_text,"birth control") ; generate ce_border = 0; label var ce_border "Border / Immigration / Replacement Theory"; replace ce_border = 1 if strpos(dummy_text,"border") | strpos(dummy_text," immigra") | strpos(dummy_text,"razor wire") ; generate ce_civilwar = 0; label var ce_civilwar "Civil War"; replace ce_civilwar = 1 if strpos(dummy_text,"civil war") ; generate ce_classified = 0; label var ce_classified "Classified Documents"; replace ce_classified = 1 if strpos(dummy_text,"classified") & strpos(dummy_text,"document") ; generate ce_debt = 0; label var ce_debt "Budget and Debt Ceiling"; replace ce_debt = 1 if strpos(dummy_text,"federal budget") | strpos(dummy_text,"debt ceiling") | (strpos(dummy_text,"debt") & strpos(dummy_text,"negotiat")) ; generate ce_election = 0; label var ce_election "Election"; replace ce_elect = 1 if strpos(dummy_text," elect ") | strpos(dummy_text," elected ") | strpos(dummy_text," election") ; replace ce_election = 1 if strpos(dummy_text,"mid term") | strpos(dummy_text,"midterm") | (strpos(dummy_text,"house") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"senate") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"president") & strpos(dummy_text,"campaign")) | (strpos(dummy_text,"governor") & strpos(dummy_text,"campaign")) ; generate ce_doj = 0; label var ce_doj "Federal Bureau of Investigation"; replace ce_doj = 1 if strpos(dummy_text,"federal bureau of investigation") | strpos(dummy_text,"fbi") | strpos(dummy_text,"f b i") | strpos(dummy_text,"department of justice") | strpos(dummy_text," doj ") | strpos(dummy_text,"d o j") | strpos(dummy_text,"national institute of justice") | strpos(dummy_text," nij ") | strpos(dummy_text,"n i j") ; generate ce_lgbtq = 0; label var ce_lgbtq "LGBTQ"; replace ce_lgbtq = 1 if strpos(dummy_text,"lgbtq") | strpos(dummy_text,"homosexual") | (strpos(dummy_text," homo ") & strpos(dummy_text,"sapien") == 0) | strpos(dummy_text," homos ") | strpos(dummy_text, " gay") | strpos(dummy_text," lesbian") | strpos(dummy_text," lesbo") | strpos(dummy_text," transgender") | strpos(dummy_text," transsex") | strpos(dummy_text," trans ") | strpos(dummy_text," tranny ") | strpos(dummy_text," trannies") ; generate ce_replacement = 0; label var ce_replacement "Replacement Theory"; replace ce_replacement = 1 if strpos(dummy_text,"replacement theory") ; generate ce_retribution = 0; label var ce_retribution "Political Retribution"; replace ce_retribution = 1 if strpos(dummy_text," execut") | strpos(dummy_text,"lock her up") | strpos(dummy_text," treason") | strpos(dummy_text," tribunal") ; generate ce_trumptrials = 0; label var ce_trumptrials "Trump Trials"; replace ce_trumptrials = 1 if strpos(dummy_text,"aileen cannon") | strpos(dummy_text,"judge cannon") | strpos(dummy_text,"alvin bragg") | strpos(dummy_text,"fani willis") | strpos(dummy_text,"engoron") | strpos(dummy_text,"letitia james") | strpos(dummy_text,"chutkan") | strpos(dummy_text,"jack smith") | (strpos(dummy_text," trump") & (strpos(dummy_text,"trial") | strpos(dummy_text," rico "))) | strpos(dummy_text,"alina habba") ; keep source yearmonth yearmonthno ce_*; save "${framesdir}topic_current-events_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_intl.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** FRAME SUBROUTINE: INTERNATIONAL PLACES *****/ /***** Last Update: 01 October 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** international bodies ************/ generate byte intl_intl_sub = 0; label var intl_intl_sub "International Agencies and Reach"; replace intl_intl_sub = 1 if strpos(dummy_text,"international") | strpos(dummy_text,"north atlantic treaty org") | strpos(dummy_text," nato") | strpos(dummy_text," natos" ) | strpos(dummy_text,"united nations") | strpos(dummy_text," un security council") ; /********** africa **********/ generate byte intl_africa_sub_africa = 0; replace intl_africa_sub_africa = 1 if strpos(dummy_text," africa"); label var intl_africa_sub_africa "Africa Bit"; generate byte intl_africa_sub_nigeria = 0; replace intl_africa_sub_nigeria = 1 if strpos(dummy_text,"nigeria"); label var intl_africa_sub_nigeria "Nigeria Bit"; generate byte intl_africa_sub_safrica = 0; replace intl_africa_sub_safrica = 1 if strpos(dummy_text,"south africa") | strpos(dummy_text,"african national congress") | strpos(dummy_text," anc ") | strpos(dummy_text,"ancyl") | strpos(dummy_text,"mandela") | strpos(dummy_text,"zondo commission"); label var intl_africa_sub_safrica "South Africa Bit"; generate byte intl_africa_sub = 0; label var intl_africa_sub "Africa"; replace intl_africa_sub = 1 if intl_africa_sub_africa | intl_africa_sub_nigeria | intl_africa_sub_safrica ; /********** asia **********/ generate byte intl_asia_sub_asia = 0; replace intl_asia_sub_asia = 1 if strpos(dummy_text," asia"); label var intl_asia_sub_asia "Asia Bit"; generate byte intl_asia_sub_cambodia = 0; replace intl_asia_sub_cambodia = 1 if strpos(dummy_text,"cambodia"); label var intl_asia_sub_cambodia "Cambodia Bit"; generate byte intl_asia_sub_china = 0; replace intl_asia_sub_china = 1 if strpos(dummy_text,"china") | strpos(dummy_text,"chinese") | strpos(dummy_text,"hong kong"); label var intl_asia_sub_china "China Bit"; generate byte intl_asia_sub_india = 0; replace intl_asia_sub_india = 1 if strpos(dummy_text," india ") | strpos(dummy_text,"new delhi"); label var intl_asia_sub_india "India Bit"; generate byte intl_asia_sub_myanmar = 0; replace intl_asia_sub_myanmar = 1 if strpos(dummy_text,"myanmar") | strpos(dummy_text,"burma"); label var intl_asia_sub_myanmar "Myanmar Bit"; generate byte intl_asia_sub_nkorea = 0; replace intl_asia_sub_nkorea = 1 if strpos(dummy_text,"north korea"); label var intl_asia_sub_nkorea "North Korea Bit"; generate byte intl_asia_sub_vietnam = 0; replace intl_asia_sub_vietnam = 1 if strpos(dummy_text,"vietnam"); label var intl_asia_sub_vietnam "Vietnam Bit"; generate byte intl_asia_sub = 0; replace intl_asia_sub = 1 if intl_asia_sub_asia | intl_asia_sub_cambodia | intl_asia_sub_china | intl_asia_sub_india | intl_asia_sub_myanmar | intl_asia_sub_nkorea | intl_asia_sub_vietnam; label var intl_asia_sub "Asia Subtopic"; /********** europe **********/ generate byte intl_europe_sub_europe = 0; replace intl_europe_sub_europe = 1 if strpos(dummy_text," europe"); label var intl_europe_sub_europe "Europe Bit"; generate byte intl_europe_sub_belgium = 0; replace intl_europe_sub_belgium = 1 if strpos(dummy_text," belgium") | strpos(dummy_text," belgian") | strpos(dummy_text," brussels"); label var intl_europe_sub_belgium "Belgium Bit"; generate byte intl_europe_sub_bulgaria = 0; label var intl_europe_sub_bulgaria "Bulgaria"; replace intl_europe_sub_bulgaria = 1 if strpos(dummy_text,"bulgaria") ; generate byte intl_europe_sub_croatia = 0; label var intl_europe_sub_croatia "Croatia"; replace intl_europe_sub_croatia = 1 if strpos(dummy_text,"croatia") | strpos(dummy_text," croat") | strpos(dummy_text," zagreb") ; generate byte intl_europe_sub_czech = 0; label var intl_europe_sub_czech "Czech Republic"; replace intl_europe_sub_czech = 1 if strpos(dummy_text,"czech") ; generate byte intl_europe_sub_finland = 0; label var intl_europe_sub_finland "Finland"; replace intl_europe_sub_finland = 1 if strpos(dummy_text,"finland") | strpos(dummy_text,"finnish") | strpos(dummy_text,"helsinki") ; generate byte intl_europe_sub_france = 0; replace intl_europe_sub_france = 1 if strpos(dummy_text,"france") | strpos(dummy_text,"french") | strpos(dummy_text,"paris"); label var intl_europe_sub_france "France Bit"; generate byte intl_europe_sub_germany = 0; replace intl_europe_sub_germany = 1 if strpos(dummy_text," german"); label var intl_europe_sub_germany "Germany Bit"; generate byte intl_europe_sub_greenland = 0; label var intl_europe_sub_greenland "Greenland Bit"; replace intl_europe_sub_greenland = 1 if strpos(dummy_text," greenland"); generate byte intl_europe_sub_iceland = 0; label var intl_europe_sub_iceland "Iceland Bit"; replace intl_europe_sub_iceland = 1 if strpos(dummy_text,"iceland") | strpos(dummy_text,"reykjavik") | strpos(dummy_text,"reykjavík"); // greenland is a separate location above generate byte intl_europe_sub_ireland = 0; replace intl_europe_sub_ireland = 1 if strpos(dummy_text,"ireland") | strpos(dummy_text," irish "); label var intl_europe_sub_ireland "Ireland Bit"; generate byte intl_europe_sub_kosovo = 0; label var intl_europe_sub_kosovo "Kosovo"; replace intl_europe_sub_kosovo = 1 if strpos(dummy_text,"kosovo") ; generate byte intl_europe_sub_netherlands = 0; replace intl_europe_sub_netherlands = 1 if strpos(dummy_text,"netherlands") | strpos(dummy_text," holland") | strpos(dummy_text," dutch") | strpos(dummy_text,"the hague") ; label var intl_europe_sub_netherlands "Netherlands Bit"; generate byte intl_europe_sub_poland = 0; replace intl_europe_sub_poland = 1 if strpos(dummy_text,"poland") | strpos(dummy_text," polish "); label var intl_europe_sub_poland "Poland Bit"; generate byte intl_europe_sub_romania = 0; label var intl_europe_sub_romania "Romania"; replace intl_europe_sub_romania = 1 if strpos(dummy_text,"romania") | strpos(dummy_text,"rumania") ; generate byte intl_europe_sub_slovakia = 0; label var intl_europe_sub_slovakia "Slovakia"; replace intl_europe_sub_slovakia = 1 if strpos(dummy_text,"slovakia") ; generate byte intl_europe_sub_sweden = 0; label var intl_europe_sub_sweden "Sweden"; replace intl_europe_sub_sweden = 1 if strpos(dummy_text,"sweden") | strpos(dummy_text," swede") ; generate byte intl_europe_sub_switz = 0; label var intl_europe_sub_switz "Switzerland"; replace intl_europe_sub_switz = 1 if strpos(dummy_text,"switzerland") | strpos(dummy_text," swiss") ; /*united kingdom*/ generate byte intl_europe_sub_uk_a = 0; label var intl_europe_sub_uk_a "England"; replace intl_europe_sub_uk_a = 1 if /*general*/ strpos(dummy_text," england") | strpos(dummy_text," english") | /*places*/ strpos(dummy_text," london") | strpos(dummy_text,"west midlands") ; generate byte intl_europe_sub_uk_b = 0; label var intl_europe_sub_uk_b "Northern Ireland"; replace intl_europe_sub_uk_b = 1 if /*general*/ strpos(dummy_text,"northern ireland") | /*places*/ strpos(dummy_text," belfast") ; generate byte intl_europe_sub_uk_c = 0; label var intl_europe_sub_uk_c "Scotland"; replace intl_europe_sub_uk_c = 1 if /*general*/ strpos(dummy_text,"scotland") | strpos(dummy_text," scot ") | strpos(dummy_text," scots ") | strpos(dummy_text," scottish ") | /*places*/ strpos(dummy_text," edinburgh") ; generate byte intl_europe_sub_uk_d = 0; label var intl_europe_sub_uk_d "Wales"; replace intl_europe_sub_uk_d = 1 if strpos(dummy_text," wales") | strpos(dummy_text," welsh") | strpos(dummy_text," cardiff"); generate byte intl_europe_sub_uk = 0; label var intl_europe_sub_uk "United Kingdom"; replace intl_europe_sub_uk = 1 if /*general*/ strpos(dummy_text," britain") | strpos(dummy_text," british") | strpos(dummy_text,"united kingdom") | strpos(dummy_text," uk ") | /*subdivisions*/ intl_europe_sub_uk_a | intl_europe_sub_uk_b | intl_europe_sub_uk_c | intl_europe_sub_uk_d ; generate byte intl_europe_sub_yugo = 0; label var intl_europe_sub_yugo "Yugoslavia"; replace intl_europe_sub_yugo = 1 if strpos(dummy_text,"yugoslavia") ; /*overall europe*/ generate byte intl_europe_sub = 0; replace intl_europe_sub = 1 if strpos(dummy_text,"european union") | strpos(dummy_text," eu ") | intl_europe_sub_europe | intl_europe_sub_belgium | intl_europe_sub_bulgaria | intl_europe_sub_croatia | intl_europe_sub_czech | intl_europe_sub_finland | intl_europe_sub_france | intl_europe_sub_germany | intl_europe_sub_greenland | intl_europe_sub_iceland | intl_europe_sub_ireland | intl_europe_sub_kosovo | intl_europe_sub_netherlands | intl_europe_sub_poland | intl_europe_sub_romania | intl_europe_sub_slovakia | intl_europe_sub_sweden | intl_europe_sub_switz | intl_europe_sub_uk | intl_europe_sub_yugo ; label var intl_europe_sub "Europe Subtopic"; /********** middle east **********/ generate byte intl_mideast_sub_mideast = 0; replace intl_mideast_sub_mideast = 1 if strpos(dummy_text,"middle east"); label var intl_mideast_sub_mideast "Middle East"; generate byte intl_mideast_sub_afghan = 0; label var intl_mideast_sub_afghan "Afghanistan Bit"; replace intl_mideast_sub_afghan = 1 if strpos(dummy_text,"afghanistan") | strpos(dummy_text," afghan"); generate byte intl_mideast_sub_egypt = 0; label var intl_mideast_sub_egypt "Egypt"; replace intl_mideast_sub_egypt = 1 if strpos(dummy_text," egypt") | strpos(dummy_text," cairo"); generate byte intl_mideast_sub_iran = 0; replace intl_mideast_sub_iran = 1 if strpos(dummy_text,"iran"); label var intl_mideast_sub_iran "Iran Bit"; generate byte intl_mideast_sub_iraq = 0; replace intl_mideast_sub_iraq = 1 if strpos(dummy_text,"iraq"); label var intl_mideast_sub_iraq "Iraq Bit"; generate byte intl_mideast_sub_libya = 0; label var intl_mideast_sub_libya "Libya"; replace intl_mideast_sub_libya = 1 if strpos(dummy_text," libya") | strpos(dummy_text,"benghazi") | strpos(dummy_text,"tripoli") ; generate byte intl_mideast_sub_palestinian = 0; replace intl_mideast_sub_palestinian = 1 if strpos(dummy_text,"palestin") | strpos(dummy_text,"gaza") | strpos(dummy_text,"west bank") | strpos(dummy_text,"hamas"); label var intl_mideast_sub_palestinian "Palestinian Bit"; generate byte intl_mideast_sub_israel = 0; replace intl_mideast_sub_israel = 1 if (strpos(dummy_text,"israel") | strpos(dummy_text,"jerusalem") | strpos(dummy_text,"tel aviv")) & strpos(dummy_text,"israelite") == 0 & intl_mideast_sub_palestinian == 0; label var intl_mideast_sub_israel "Israel Bit"; generate byte intl_mideast_sub_oman = 0; replace intl_mideast_sub_oman = 1 if strpos(dummy_text,"oman") | strpos(dummy_text,"muscat"); label var intl_mideast_sub_oman "Oman Bit"; generate byte intl_mideast_sub_pakistan = 0; replace intl_mideast_sub_pakistan = 1 if strpos(dummy_text,"pakistan"); label var intl_mideast_sub_pakistan "Pakistan Bit"; generate byte intl_mideast_sub_saudi = 0; label var intl_mideast_sub_saudi "Saudi Arabia Bit"; replace intl_mideast_sub_saudi = 1 if strpos(dummy_text,"saudi arabia") | strpos(dummy_text," saud") | strpos(dummy_text," saudi"); generate byte intl_mideast_sub_syria = 0; replace intl_mideast_sub_syria = 1 if strpos(dummy_text,"syria"); label var intl_mideast_sub_syria "Syria Bit"; generate byte intl_mideast_sub_turkey = 0; label var intl_mideast_sub_turkey "Turkey"; replace intl_mideast_sub_turkey = 1 if strpos(dummy_text,"turkey") ; generate byte intl_mideast_sub = 0; label var intl_mideast_sub "Middle East Subtopic"; replace intl_mideast_sub = 1 if intl_mideast_sub_mideast | intl_mideast_sub_afghan | intl_mideast_sub_egypt | intl_mideast_sub_iran | intl_mideast_sub_iraq | intl_mideast_sub_israel | intl_mideast_sub_libya | intl_mideast_sub_oman | intl_mideast_sub_pakistan | intl_mideast_sub_palestinian | intl_mideast_sub_saudi | intl_mideast_sub_syria | intl_mideast_sub_turkey ; /********** north america **********/ generate byte intl_namerica_sub_namerica = 0; replace intl_namerica_sub_namerica = 1 if strpos(dummy_text,"north america"); label var intl_namerica_sub_namerica "North America Bit"; generate byte intl_namerica_sub_canada = 0; replace intl_namerica_sub_canada = 1 if strpos(dummy_text,"canada") | strpos(dummy_text,"canadian") | strpos(dummy_text,"alberta") | strpos(dummy_text,"british columbia") | strpos(dummy_text,"calgary") | strpos(dummy_text,"manitoba") | strpos(dummy_text,"nova scotia") | strpos(dummy_text,"ontario") | strpos(dummy_text,"ottawa") | strpos(dummy_text," quebec") | strpos(dummy_text,"toronto") | strpos(dummy_text,"vancouver") | strpos(dummy_text,"winnepeg") ; label var intl_namerica_sub_canada "Canada Bit"; generate byte intl_namerica_sub_cuba = 0; replace intl_namerica_sub_cuba = 1 if strpos(dummy_text," cuba") & strpos(dummy_text,"mark cuban") == 0; label var intl_namerica_sub_cuba "Cuba Bit"; generate byte intl_namerica_sub_guatemala = 0; replace intl_namerica_sub_guatemala = 1 if strpos(dummy_text," guatemala"); label var intl_namerica_sub_guatemala "Guatemala Bit"; generate byte intl_namerica_sub_honduras = 0; replace intl_namerica_sub_honduras = 1 if strpos(dummy_text,"honduras") | strpos(dummy_text,"honduran"); label var intl_namerica_sub_honduras "Honduras Bit"; generate byte intl_namerica_sub_mexico = 0; replace intl_namerica_sub_mexico = 1 if strpos(dummy_text,"mexico") | strpos(dummy_text,"mexican"); label var intl_namerica_sub_mexico "Mexico Bit"; generate byte intl_namerica_sub_us = 0; replace intl_namerica_sub_us = 1 if strpos(dummy_text,"united states") | strpos(dummy_text,"america"); generate byte intl_namerica_sub = 0; replace intl_namerica_sub = 1 if intl_namerica_sub_namerica | intl_namerica_sub_canada | intl_namerica_sub_cuba | intl_namerica_sub_guatemala | intl_namerica_sub_honduras | intl_namerica_sub_mexico | intl_namerica_sub_us; label var intl_namerica_sub "North America Subtopic"; /********** oceania **********/ generate byte intl_oceania_sub_australia = 0; label var intl_oceania_sub_australia "Australia Bit"; replace intl_oceania_sub_australia = 1 if strpos(dummy_text,"australia") | strpos(dummy_text," aussie") ; generate byte intl_oceania_sub_marshall = 0; label var intl_oceania_sub_marshall "Marshall Islands Bit"; replace intl_oceania_sub_marshall = 1 if strpos(dummy_text,"Marshall Islands") ; generate byte intl_oceania_sub_nzealand = 0; label var intl_oceania_sub_nzealand "New Zealand Bit"; replace intl_oceania_sub_nzealand = 1 if strpos(dummy_text,"New Zealand") ; generate byte intl_oceania_sub = 0; label var intl_oceania_sub "Oceania Subframe"; replace intl_oceania_sub = 1 if intl_oceania_sub_australia | intl_oceania_sub_marshall | intl_oceania_sub_nzealand ; /********** russia and former satellites **********/ generate byte intl_ssr_sub_belarus = 0; replace intl_ssr_sub_belarus = 1 if strpos(dummy_text,"belarus"); label var intl_ssr_sub_belarus "Belarus Bit"; generate byte intl_ssr_sub_kurdistan = 0; replace intl_ssr_sub_kurdistan = 1 if strpos(dummy_text,"kurdistan"); label var intl_ssr_sub_kurdistan "Kurdistan Bit"; generate byte intl_ssr_sub_moldova = 0; label var intl_ssr_sub_moldova "Moldova"; replace intl_ssr_sub_moldova = 1 if strpos(dummy_text,"moldova"); generate byte intl_ssr_sub_russia = 0; label var intl_ssr_sub_russia "Russia Bit"; replace intl_ssr_sub_russia = 1 if strpos(dummy_text," russia") | strpos(dummy_text,"leningrad") | strpos(dummy_text,"siberia") | strpos(dummy_text,"soviet union") | strpos(dummy_text,"stalingrad") ; generate byte intl_ssr_sub_ukraine = 0; label var intl_ssr_sub_ukraine "Ukraine Bit"; replace intl_ssr_sub_ukraine = 1 if /*places*/ strpos(dummy_text," ukraine") | strpos(dummy_text,"ukrainian") | strpos(dummy_text," donbas") | strpos(dummy_text," donbass") | strpos(dummy_text," donetsk") | strpos(dummy_text," kiev") | strpos(dummy_text," kyiv") | strpos(dummy_text," luhansk") | strpos(dummy_text," lviv") | strpos(dummy_text,"mariupol") | (strpos(dummy_text," odessa") & (strpos(dummy_text,"crimea") | strpos(dummy_text,"russia") | strpos(dummy_text,"ukraine"))) ; ; generate byte intl_ssr_sub = 0; label var intl_ssr_sub "Former SSR"; replace intl_ssr_sub = 1 if strpos(dummy_text,"soviet republic") | strpos(dummy_text," ssr ") | intl_ssr_sub_belarus | intl_ssr_sub_kurdistan | intl_ssr_sub_moldova | intl_ssr_sub_russia | intl_ssr_sub_ukraine ; /********** south america **********/ generate byte intl_samerica_sub_samerica = 0; replace intl_samerica_sub_samerica = 1 if strpos(dummy_text,"south america"); label var intl_samerica_sub_samerica "South America Bit"; generate byte intl_samerica_sub_brazil = 0; replace intl_samerica_sub_brazil = 1 if strpos(dummy_text," brazil"); label var intl_samerica_sub_brazil "Brazil Bit"; generate byte intl_samerica_sub_peru = 0; replace intl_samerica_sub_peru = 1 if strpos(dummy_text," peru"); label var intl_samerica_sub_peru "Peru Bit"; generate byte intl_samerica_sub = 0; replace intl_samerica_sub = 1 if intl_samerica_sub_samerica | intl_samerica_sub_brazil | intl_samerica_sub_peru; label var intl_samerica_sub "Former South America Subtopic"; /********** overall total **********/ generate byte intl_topic = 0; replace intl_topic = 1 if intl_intl_sub | intl_africa_sub | intl_asia_sub | intl_europe_sub | intl_mideast_sub | intl_namerica_sub | intl_oceania_sub | intl_ssr_sub | intl_samerica_sub; label var intl_topic "International Topic"; keep source yearmonth yearmonthno intl_*; save "${framesdir}topic_intl_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_news.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFICATION OF NEWS SOURCES *****/ /***** Last Update: 02 August 2022 *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /********** General phrases ******/ generate byte news_gref_sub = 0; label var news_gref_sub "General News References"; replace news_gref_sub = 1 if strpos(dummy_text,"evening news") | strpos(dummy_text,"7pm news") | strpos(dummy_text,"mainstream media") | strpos(dummy_text," msm ") | strpos(dummy_text,"news media") ; /********** Mainstream News Services *****/ generate byte news_mainstream_sub = 0; label var news_mainstream_sub "Mainstream Media Subtopic"; replace news_mainstream_sub = 1 if strpos(dummy_text," abc ") | strpos(dummy_text,"abcnews") | strpos(dummy_text,"associated press") | strpos(dummy_text,"british broadcasting corp") | strpos(dummy_text," bbc") | strpos(dummy_text,"bbcnews") | strpos(dummy_text," cbs") | strpos(dummy_text,"cbsnews") | strpos(dummy_text," cnn") | strpos(dummy_text,"chris wallace") | strpos(dummy_text,"daily mail") | strpos(dummy_text,"dailymail") | strpos(dummy_text," forbes ") | strpos(dummy_text,"forbes.com") | strpos(dummy_text," nbc") | strpos(dummy_text,"nbcnews") | strpos(dummy_text,"national public radio") | strpos(dummy_text," npr") | strpos(dummy_text,"new york times") | strpos(dummy_text," nyt ") | strpos(dummy_text,"newsweek") | strpos(dummy_text,"reuters") | strpos(dummy_text,"the guardian") | strpos(dummy_text,"guardian.com") | strpos(dummy_text,"time magazine") | strpos(dummy_text,"time.com") | strpos(dummy_text,"united press international") | strpos(dummy_text," usa today") | strpos(dummy_text,"usatoday") | strpos(dummy_text,"wall street journal") | strpos(dummy_text," wsj") | strpos(dummy_text,"washington post") | strpos(dummy_text," wp "); /********** Left-Leaning News Services **********/ generate byte news_left_sub = 0; label var news_left_sub "Left-Leaning News Subtopic"; replace news_left_sub = 1 if strpos(dummy_text,"theatlantic.com") | strpos(dummy_text,"axios") | strpos(dummy_text,"buzz feed") | strpos(dummy_text,"buzzfeed") | strpos(dummy_text,"daily beast") | strpos(dummy_text,"dailybeast") | strpos(dummy_text,"huffington post") | strpos(dummy_text," huffpost") | strpos(dummy_text," msnbc ") | strpos(dummy_text,"chris cuomo") | strpos(dummy_text,"rachel maddow") | strpos(dummy_text,"morning joe") | strpos(dummy_text,"joe scarborough") | strpos(dummy_text,"mika brzezinski") | strpos(dummy_text,"brian williams") | strpos(dummy_text,"salon.com") | strpos(dummy_text,"vice.com"); /*********** Right-Leaning News Services **********/ generate byte news_right_sub = 0; label var news_right_sub "Right-Leaning News Subtopic"; replace news_right_sub = 1 if strpos(dummy_text," fox ") | strpos(dummy_text,"foxnews") | strpos(dummy_text,"national review") | strpos(dummy_text,"nationalreview") | strpos(dummy_text,"new york post") | strpos(dummy_text,"newsmax") | strpos(dummy_text,"townhall.com") | strpos(dummy_text,"washington examiner") | strpos(dummy_text,"washington times"); /********** Fringe News Services **********/ generate byte news_fringe_sub = 0; label var news_fringe_sub "Fringe News Subtopic"; replace news_fringe_sub = 1 if strpos(dummy_text,"american spectator") | strpos(dummy_text,"americanspectator") | strpos(dummy_text,"american thinker") | strpos(dummy_text,"becker news") | strpos(dummy_text,"thebl.tv") | strpos(dummy_text,"bongino report") | strpos(dummy_text,"breitbart") | strpos(dummy_text,"conservative brief") | strpos(dummy_text,"conservativebrief") | strpos(dummy_text,"corbett report") | strpos(dummy_text,"corbettreport") | strpos(dummy_text,"james corbett") | strpos(dummy_text,"creative destruction media") | strpos(dummy_text,"creativedestructionmedia") | strpos(dummy_text,"cd media") | strpos(dummy_text,"cdm.press") | strpos(dummy_text,"daily caller") | strpos(dummy_text,"daily signal") | strpos(dummy_text,"dailysignal") | strpos(dummy_text,"daily wire") | strpos(dummy_text,"epoch times") | strpos(dummy_text,"epochtimes") | (strpos(dummy_text,"the federalist") & strpos(dummy_text,"federalist society") == 0) | strpos(dummy_text,"free beacon") | strpos(dummy_text,"gateway pundit") | strpos(dummy_text,"gatewaypundit") | strpos(dummy_text,"joe rogan") | strpos(dummy_text,"just the news") | strpos(dummy_text,"justthenews") | strpos(dummy_text,"liberty daily") | strpos(dummy_text,"liberty nation") | strpos(dummy_text,"national pulse") | strpos(dummy_text,"nationalpulse") | strpos(dummy_text,"one america news") | strpos(dummy_text,"oneamericanews") | strpos(dummy_text," oan ") | strpos(dummy_text,"project veritas") | ((strpos(dummy_text,"o'keefe") | strpos(dummy_text,"okeefe")) & strpos(dummy_text,"interview")) | strpos(dummy_text,"redstate.com") | (strpos(dummy_text,"red state") & strpos(dummy_text,"news")) | strpos(dummy_text,"charlie ward") | strpos(dummy_text,"washington gazette") | strpos(dummy_text,"western journal") | strpos(dummy_text,"x22 report") | strpos(dummy_text,"youtube.com") | strpos(dummy_text,"zerohedge"); label var news_fringe_sub "Fringe News Subtopic"; /********** News Commentary **********/ generate byte news_comment_sub = 0; label var news_comment_sub "News Commentary Subtopic"; replace news_comment_sub = 1 if strpos(dummy_text,"steve bannon") | strpos(dummy_text,"maria bartiromo") | strpos(dummy_text,"dan bongino") | strpos(dummy_text,"tucker carlson") | strpos(dummy_text,"sean hannity") | strpos(dummy_text,"candace owens") | strpos(dummy_text,"jeanine pirro") | strpos(dummy_text,"michael savage") | strpos(dummy_text,"ben shapiro") ; /********** Christian News Services **********/ generate byte news_christian_sub = 0; label var news_christian_sub "Christian Media Subtopic"; replace news_christian_sub = 1 if strpos(dummy_text,"christian broadcasting network") | strpos(dummy_text," cbn ") | strpos(dummy_text,"cbnnews") | strpos(dummy_text,"christian post") | strpos(dummy_text,"christianpost") | strpos(dummy_text,"christianity today") | strpos(dummy_text,"christiantoday") | strpos(dummy_text,"one news now") | strpos(dummy_text,"onenewsnow") | strpos(dummy_text," onn ") | strpos(dummy_text," stream.org") | (strpos(dummy_text," world ") & strpos(dummy_text," magazine")) | strpos(dummy_text,"wng.org") | strpos(dummy_text,"world news daily") | strpos(dummy_text," wnd ") | strpos(dummy_text,"wnd.com") ; /********** Overall News Topics **********/ generate byte news_topic = 0; label var news_topic "News Topic"; replace news_topic = 1 if news_gref_sub | news_mainstream_sub | news_left_sub | news_right_sub | news_fringe_sub | news_comment_sub | news_christian_sub; keep source yearmonth yearmonthno news_*; save "${framesdir}topic_news_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_people.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFICATION OF NEWS SOURCES *****/ /***** Attributed Date: 28 October 2022 *****/ /***** Last Update: 29 April 2024 *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /***** In using this code, you are agree to the terms and conditions *****/ /***** given at the link above. *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; /***** Presidents and their families *****/ generate people_uspeople_sub_pres = 0; label var people_uspeople_sub_pres "U.S. Presidents & Their Families"; replace people_uspeople_sub_pres = 1 if strpos(dummy_text,"biden") | strpos(dummy_text,"hunter biden") | strpos(dummy_text,"lets go brandon") | strpos(dummy_text,"letsgobrandon") | strpos(dummy_text,"george h w bush") | strpos(dummy_text,"george hw bush") | strpos(dummy_text,"george w bush") | (strpos(dummy_text,"bush") & strpos(dummy_text,"president")) | strpos(dummy_text,"clinton") | ((strpos(dummy_text,"john f kennedy") | strpos(dummy_text," jfk")) & (strpos(dummy_text,"junior") == 0 & strpos(dummy_text," jr") == 0)) | strpos(dummy_text,"richard nixon") | (strpos(dummy_text,"nixon") & strpos(dummy_text,"president")) | strpos(dummy_text,"barak obama") | strpos(dummy_text,"obama") | strpos(dummy_text,"ronald reagan") | (strpos(dummy_text,"reagan") & strpos(dummy_text,"president")) | strpos(dummy_text," trump") ; /**** references to other politicians by name *****/ /*qanon politicians*/ generate byte people_uspeople_sub_qanon = 0; label var people_uspeople_sub_qanon "QAnon Politicians Bit"; replace people_uspeople_sub_qanon = 1 if strpos(dummy_text,"lauren boebert") | strpos(dummy_text,"mark finchem") | strpos(dummy_text,"louie gohmert") | strpos(dummy_text,"louis gohmert") | strpos(dummy_text,"paul gosar") | strpos(dummy_text,"marjorie taylor greene") | strpos(dummy_text,"wendy rogers") ; /*the squad*/ generate byte people_uspeople_sub_squad = 0; label var people_uspeople_sub_squad "The Squad Bit"; replace people_uspeople_sub_squad = 1 if strpos(dummy_text,"jamaal bowman") | strpos(dummy_text,"cori bush") | strpos(dummy_text,"ocasio-cortez") | strpos(dummy_text," aoc ") | strpos(dummy_text,"ilhan omar") | strpos(dummy_text,"ayanna pressley") | strpos(dummy_text,"rashida tlaib") ; /*prominent politicians*/ generate byte people_uspeople_sub_pol = 0; label var people_uspeople_sub_pol "U.S. Politicians"; replace people_uspeople_sub_pol = 1 if /*vice presidents*/ (strpos(dummy_text,"vice president") & (strpos(dummy_text,"harris") | strpos(dummy_text,"pence"))) | strpos(dummy_text,"kamala harris") | strpos(dummy_text,"michael pence") | strpos(dummy_text,"mike pence") | /*cabinet*/ strpos(dummy_text,"william barr") | strpos(dummy_text,"bill barr") | (strpos(dummy_text,"barr") & (strpos(dummy_text,"attorney general") | strpos(dummy_text," ag "))) | strpos(dummy_text,"blinken") | strpos(dummy_text,"buttigieg") | strpos(dummy_text,"merrick garland") | strpos(dummy_text,"steve mnuchin") | strpos(dummy_text,"mike pompeo") | strpos(dummy_text,"whitaker") | /*senate leaders*/ strpos(dummy_text,"mitch mcconnell") | strpos(dummy_text,"chuck schumer") | /*senators and senatorial candidates*/ strpos(dummy_text,"ted cruz") | strpos(dummy_text,"josh hawley") | strpos(dummy_text,"john mccain") | strpos(dummy_text,"mitt romney") | strpos(dummy_text,"bernie sanders") | strpos(dummy_text,"j d vance") | strpos(dummy_text,"jd vance") | strpos(dummy_text,"elizabeth warren") | strpos(dummy_text,"liz warren") | /*house*/ people_uspeople_sub_qanon | people_uspeople_sub_squad | strpos(dummy_text,"madison cawthorne") | strpos(dummy_text,"tulsi gabbard") | strpos(dummy_text,"kevin mccarthy") | (strpos(dummy_text,"mccarthy") & strpos(dummy_text,"house")) | strpos(dummy_text," nunes ") | strpos(dummy_text,"nancy pelosi") | strpos(dummy_text,"paul pelosi") | strpos(dummy_text,"eric swalwell") | strpos(dummy_text,"maxine waters") | /*governors and gubernatorial candidates*/ strpos(dummy_text,"greg abbott") | strpos(dummy_text,"andrew cuomo") | strpos(dummy_text,"ron desantis") | strpos(dummy_text,"mike dewine") | strpos(dummy_text,"doug ducey") | strpos(dummy_text,"tony evers") | strpos(dummy_text,"silas hawley") | strpos(dummy_text,"larry hogan") | strpos(dummy_text,"brian kemp") | strpos(dummy_text,"gavin newsom") | strpos(dummy_text,"kandiss taylor") | strpos(dummy_text,"gretchen whitmer") | strpos(dummy_text,"tom wolf ") | /*others*/ strpos(dummy_text,"kash patel") ; /***** References to non-us leaders *****/ generate byte people_intlpeople_sub = 0; label var people_intlpeople_sub "Non-U.S. Politicians"; replace people_intlpeople_sub = 1 if /*asia*/ (strpos(dummy_text,"china") & strpos(dummy_text," xi ")) | strpos(dummy_text,"xi jinping") | (strpos(dummy_text,"japan") & (strpos(dummy_text," abe") | strpos(dummy_text," suga"))) | strpos(dummy_text,"shinzo abe") | strpos(dummy_text,"yoshihide suga") | /*australia and oceania*/ (strpos(dummy_text,"australia") & (strpos(dummy_text,"morrison") | strpos(dummy_text,"turnbull"))) | strpos(dummy_text,"scott morrison") | strpos(dummy_text,"malcolm turnbull") | (strpos(dummy_text,"new zealand") & (strpos(dummy_text,"jacinda ardern") | strpos(dummy_text,"bill english"))) | strpos(dummy_text,"jacinda ardern") | strpos(dummy_text,"bill english") | /*europe*/ (strpos(dummy_text,"france") & strpos(dummy_text,"macron")) | (strpos(dummy_text,"germany") & strpos(dummy_text,"merkel")) | ((strpos(dummy_text,"united kingdom") | strpos(dummy_text," uk ") | strpos(dummy_text,"britain") | strpos(dummy_text,"england")) & strpos(dummy_text," truss")) | strpos(dummy_text,"boris johnson") | strpos(dummy_text,"theresa may") | strpos(dummy_text,"rishi sunak") | strpos(dummy_text,"mary truss") | /*middle east*/ (strpos(dummy_text,"israel") & strpos(dummy_text,"netanyahu")) | /*north america*/ (strpos(dummy_text,"canada") & strpos(dummy_text,"trudeau")) | strpos(dummy_text,"justin trudeau") | strpos(dummy_text,"mexico") & (strpos(dummy_text,"obrador") | strpos(dummy_text,"nieto")) | /*russia and former soviet states*/ (strpos(dummy_text,"belarus") & strpos(dummy_text,"lukashenko")) | strpos(dummy_text,"putin") | strpos(dummy_text,"zelensky") | strpos(dummy_text,"zelenskiy") | strpos(dummy_text,"zelenskyy") ; /********** Other People **********/ generate byte people_other_sub = 0; label var people_other_sub "Other People"; replace people_other_sub = 1 if strpos(dummy_text,"billy graham") | strpos(dummy_text,"patriarch kirill") ; /********** Overall People Topics **********/ generate byte people_topic = 0; label var people_topic "News Topic"; replace people_topic = 1 if people_uspeople_sub_pres | people_uspeople_sub_pol | people_intlpeople_sub | people_other_sub; keep source yearmonth yearmonthno people_*; save "${framesdir}topic_people_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_sports.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: IDENTIFY SPORTS TOPICS *****/ /***** Last Update: 02 August 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ #delimit ; clear ; use "${workingdir}working_${filedate}_${timeperiod}.dta"; generate byte sports_topic : "Sports Topic" = 0 ; replace sports_topic = 1 if strpos(dummy_text,"game") | strpos(dummy_text,"sports") | strpos(dummy_text,"athlete") | strpos(dummy_text,"athletic") | strpos(dummy_text,"player") | strpos(dummy_text,"coach") | strpos(dummy_text,"varsity") | strpos(dummy_text,"baseball") | strpos(dummy_text,"world series") | strpos(dummy_text,"basketball") | strpos(dummy_text,"lebron james") | strpos(dummy_text,"football") | strpos(dummy_text,"cornerback") | (strpos(dummy_text," tackle") & (strpos(dummy_text,"football") | strpos(dummy_text,"game"))) | strpos(dummy_text,"super bowl") | strpos(dummy_text,"super bowl") | strpos(dummy_text,"belichek") | strpos(dummy_text,"kapernick") | strpos(dummy_text,"tom brady") | strpos(dummy_text,"aaron rodgers") | strpos(dummy_text,"golf") | strpos(dummy_text,"tiger woods") | strpos(dummy_text,"hockey") | strpos(dummy_text,"mixed martial arts") | strpos(dummy_text," mma") | strpos(dummy_text," rugby") | strpos(dummy_text," soccer") | strpos(dummy_text," fa cup") | (strpos(dummy_text,"football") & (strpos(dummy_text,"manchester united") | strpos(dummy_text,"real madrid"))) | strpos(dummy_text,"tennis") | strpos(dummy_text,"djokovic") | strpos(dummy_text,"naomi osaka") | strpos(dummy_text,"wrestling") | strpos(dummy_text,"gwen berry") ; keep source yearmonth yearmonthno sports_*; save "${framesdir}topic_sports_${filedate}_${timeperiod}.dta", replace; g:\my drive\trend_studies\2-documentation_and_methods\framescode20240713\subroutine_topic_usplaces.do ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /********************************************************************************/ /********************************************************************************/ /***** *****/ /***** SUBROUTINE: U.S. PLACES *****/ /***** Latest Update: 28 March 2022 *****/ /***** *****/ /***** *****/ /***** Consult the READ ME FIRST! file for copyright information, terms of *****/ /***** use, and other relevant material at the following address: *****/ /***** https://drive.google.com/drive/folders/ *****/ /***** 1-iy1GDpFtDyi4s-MXBwOe1Mr7FPmyhvz?usp=sharing *****/ /***** *****/ /********************************************************************************/ /********************************************************************************/ # delimit; clear; use "${workingdir}working_${filedate}_${timeperiod}.dta"; generate byte usplaces_topic = 0; label var usplaces_topic "U.S. Places"; replace usplaces = 1 if strpos(dummy_text,"alabama") | strpos(dummy_text,"alaska") | strpos(dummy_text,"arizona") | strpos(dummy_text,"phoenix") | strpos(dummy_text,"arkansas") | strpos(dummy_text,"california") | strpos(dummy_text,"los angeles") | strpos(dummy_text,"san francisco") | strpos(dummy_text,"colorado") | strpos(dummy_text,"connecticut") | strpos(dummy_text,"delaware") | strpos(dummy_text,"district of columbia") | strpos(dummy_text,"florida") | strpos(dummy_text,"georgia") | strpos(dummy_text,"atlanta") | strpos(dummy_text,"hawaii") | strpos(dummy_text,"idaho") | strpos(dummy_text,"illinois") | strpos(dummy_text,"chicago") | strpos(dummy_text,"indiana") | strpos(dummy_text,"iowa") | strpos(dummy_text,"kansas") | strpos(dummy_text,"kentucky") | strpos(dummy_text,"louisiana") | strpos(dummy_text," maine") | strpos(dummy_text,"maryland") | strpos(dummy_text,"massachusetts") | strpos(dummy_text,"michigan") | strpos(dummy_text,"detroit") | strpos(dummy_text,"lansing") | strpos(dummy_text,"minnesota") | strpos(dummy_text,"mississippi") | strpos(dummy_text,"missouri") | strpos(dummy_text,"saint louis") | strpos(dummy_text,"st louis") | strpos(dummy_text,"montana") | strpos(dummy_text,"nebraska") | strpos(dummy_text,"nevada") | strpos(dummy_text,"las vegas") | strpos(dummy_text,"new hampshire") | strpos(dummy_text,"new jersey") | strpos(dummy_text,"new mexico") | strpos(dummy_text,"new york") | strpos(dummy_text,"north carolina") | strpos(dummy_text,"charlotte") | strpos(dummy_text,"north dakota") | strpos(dummy_text,"ohio") | strpos(dummy_text,"oklahoma") | strpos(dummy_text,"oregon") | strpos(dummy_text,"pennsylvania") | strpos(dummy_text,"philadelphia") | strpos(dummy_text,"pittsburgh") | strpos(dummy_text,"puerto rico") | strpos(dummy_text,"rhode island") | strpos(dummy_text,"south carolina") | strpos(dummy_text,"south dakota") | strpos(dummy_text,"tennessee") | strpos(dummy_text,"nashville") | strpos(dummy_text,"texas") | strpos(dummy_text,"austin") | strpos(dummy_text,"dallas") | strpos(dummy_text,"houston") | strpos(dummy_text,"utah") | strpos(dummy_text,"vermont") | strpos(dummy_text,"virginia") | strpos(dummy_text,"washington") | strpos(dummy_text,"seattle") | strpos(dummy_text,"west virginia") | strpos(dummy_text,"wisconsin") | strpos(dummy_text,"wyoming") | strpos(dummy_text,"yellowstone") ; keep source yearmonth yearmonthno usplaces_*; save "${framesdir}topic_usplaces_${filedate}_${timeperiod}.dta", replace;