MH Manuel Haqiqatkhah psyguy

Department compute server

This is the documentation for using the Methods & Statistics department compute server.

Department compute server
Server specifications

Popular Iranian Names – 1383-1396

A few days back, Peyman Asadzade, a polotical scientist at Arizona State University, posted the following tweet, holding what he called “the decline in the popularity of religious names for babies” as an example for “considerable evidence of growing secularization in Iran.”

To be completed later.

Data taken off Iran's National Organization for Civil Registration website

In case of any questions, contact me on Twitter @_psyguy

To be added later, if needed.

The raw data (in .sav format) can be downloaded Tehran Municipality's website

The QoUL-cleaning.R code cleans the data and outputs the responses and key to the survey (question and option description) in .csv files. The .csv files are included in this Gist. (In case you face problems previewing key online, find it here.)

The code is commented in details. In case of further questions, contact me on Twitter @_psyguy

To be added later, if needed.

The raw data (in .sav format) can be downloaded Tehran Municipality's website

The QoUL-cleaning.R code cleans the data and outputs the responses and key to the survey in .csv files. The .csv files are included in this Gist.

The code is commented in details. In case of further questions, contact me on Twitter @_psyguy

	[
	{
	"slur": "10% Off",
	"group": "Jews",
	"desc": "Refers to circumcision and consumerism (never pay retail). The term is most widely used in the UK where circumcision among non-Jews or non-Muslims is more rare, but in the United States, where it is more common, it can be considered insulting to many non-Jewish males as well."
	},
	{
	"slur": "51st Stater",
	"group": "Canadians",
	"desc": "Canada is so culturally similar to the U. S. that they are practically the 51st state"

	library(stringr)
	library(readr)

	# Extract citation keys based on the provided pattern.
	extract_citation_keys <- function(tex_file) {
	# Read the content of the .tex file
	tex_content <- readLines(tex_file, warn = FALSE)

	# Regular expression pattern for the citation keys
	pattern <- "\\b[a-z]+-?[a-z]*_\\d{4}_[a-zA-Z-]+(?:_[a-zA-Z-]+)?(?:_[a-zA-Z-]+)?\\b"

	Question.Code,Description,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
	Case.Number,شماره پرسشنامه,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA
	District,منطقه شهرداری,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA
	NeighborhoodCode2,نام محله,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA
	Population,جمعیت محله در سرشماری,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA
	Q1,مدت اقامت در محله,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA
	Q2,قبل از سکونت در این محل کجا بودید؟,NA,NA,از زمان تولد در همین خانه بوده ام,مکان دیگر در این محله,محله دیگر در این منطقه,منطقه ای دیگردر تهران,شهر یا کشور دیگر,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA
	Q3,تعداد خویشاوندان در محله,NA,NA,NA,NA,NA

	"cntry","dscrrce","dscrntn","dscrrlg","dscrlng","dscretn","dscrage","dscrgnd","dscrsex","dscrdsb","dscroth","ppltrst","pplfair","pplhlp","trstprl","trstlgl","trstplc","trstplt","trstprt","psppsgva","actrolga","psppipla","cptppola","polintr"
	"AT",0,0,0,0,0,0,0,0,0,1,8,8,3,6,7,0,2,8,2,2,2,3,1
	"AT",0,0,0,0,0,0,0,0,0,0,6,6,5,5,4,3,3,4,1,3,2,3,1
	"AT",0,0,0,0,0,0,0,0,0,0,5,6,4,3,5,9,3,3,2,2,2,2,3
	"AT",0,0,0,0,0,0,0,0,0,0,6,5,6,1,1,2,1,1,3,2,3,4,2
	"AT",0,0,0,0,0,0,0,0,0,0,5,5,7,7,7,10,6,7,3,3,4,1,3
	"AT",0,0,0,0,0,0,0,0,0,0,3,5,4,4,6,7,3,3,2,2,2,2,2
	"AT",0,0,0,0,1,0,0,0,0,0,7,7,6,5,6,7,2,2,2,1,2,1,3
	"AT",0,0,0,0,0,0,0,0,0,0,7,7,7,6,7,9,5,3,2,2,2,2,3
	"AT",0,0,0,0,0,0,0,0,0,0,9,10,10,10,10,10,9,8,2,2,2,2,4

	# loading stuff -----------------------------------------------------------

	list.of.packages <- c("tidyverse",
	"plyr",
	"qgraph",
	"dplyr",
	"knitr",
	"kableExtra",
	"psych",
	"semPlot",