Great game of Turkey

+ Show code - Hide code

# This code is Op_en7421# on page [[Great game of Turkey]]

library(OpasnetUtils)

objects.latest("Op_en7421", code_name = "initiate")

ques <- question()

cat(as.character(ques$Description[1]), "\n")
cat(as.character(ques$Question[1]), "\n")

oprint(ques["Option"])

+ Show code - Hide code

# This is code Op_en7421/choices on page [[Great game of Turkey]]

library(OpasnetUtils)

objects.latest("Op_en7421", code_name = "initiate")

ques <- question()

dat <- data.frame(
	Question = ques$Question[1],
	User = wiki_username, 
	Result = ques$Option[option] # Option
)

opbase.upload(
	dat, 
	ident = "Op_en7421", 
	name = "Great game of Turkey", 
	subset = "Choices", 
	act_type = "append", 
	language = "eng", 
	who = wiki_username
)

oprint(dat)
cat("Your choice was successfully saved.\n")

+ Show code - Hide code

# This is code Op_en7421/choices on page [[Great game of Turkey]]

library(OpasnetUtils)

dat <- data.frame(
	User = wiki_username, 
	Date = as.character(Sys.Date()),
	Result = group # Group
)

opbase.upload(
	dat, 
	ident = "Op_en7421", 
	name = "Great game of Turkey", 
	subset = "User", 
	act_type = "append", 
	language = "eng", 
	who = wiki_username
)

oprint(dat)
cat("Your group was successfully saved.\n")

Question

What is a good game to crowdsource citizen priorities about daily political decisions in such a way that

it can be done using a mobile app,
it characterises happiness of citizen groups of the decisions,
it characterises progress of important societal values,
it enables crowdsourcing the actual questions and options asked?

Answer

See the top of the page for the main questionnaire of the game. Here we present results from the game.

+ Show code - Hide code

#This is code Op_en7421/ on page [[Great game of Turkey]]

library(OpasnetUtils)
library(ggplot2)

objects.latest("Op_en7421", code_name = "initiate")
objects.latest("Op_en6007", code_name = "answer") # oggplot etc

BS <- 24

happindex <- EvalOutput(happindex)
oggplot(happindex, x = "Date", fill = "Group") + facet_wrap(~ User) + labs(title = "Happiness per day") +
	theme(axis.text.x = element_text(angle = 90, hjust = 1)) # Turn text and adjust to right

happmean <- oapply(happindex, cols = c("Date", "Question", "Option"), FUN = mean)
happequity <- oapply(happmean, cols = "Group", FUN = sd)

oggplot(mergeusers(happmean), x = "User", fill = "Group") + labs(title = "Mean happiness during the whole period")
oggplot(mergeusers(happequity), x = "User") + labs(title = "Deviation from the equity")

progindex <- EvalOutput(progindex)
oggplot(progindex, x = "Date", fill = "Issue") + facet_wrap(~ User)+ labs(title = "Progress per day") +
	theme(axis.text.x = element_text(angle = 90, hjust = 1)) # Turn text and adjust to right

progmean <- oapply(progindex, cols = c("Date", "Question", "Option"), FUN = mean)
progequity <- oapply(progmean, cols = "Issue", FUN = sd)

oggplot(mergeusers(progmean), x = "User", fill = "Issue") + labs(title = "Mean progress over time")
oggplot(mergeusers(progequity), x = "User") + labs(title = "Deviation from the policy balance")

Rationale

Questions(-)
Obs	Date	Question	Description	Option
1	2016-01-16	Should the scarf ban in the universities be abandoned?	Since Kemal Atatürk, scarfs have been banned in universities. Now this policy is being re-evaluated.	Yes
2	2016-01-16	Should the scarf ban in the universities be abandoned?		Partly
3	2016-01-16	Should the scarf ban in the universities be abandoned?		No
4	2016-01-17	Should the military budget be increased?	The political and military situation in Syria and areas nearby have become more difficult during the last 12 months.	Yes
5	2016-01-17	Should the military budget be increased?		No, keep the same
6	2016-01-17	Should the military budget be increased?		No, reduce
7	2016-01-17	Should the education budget be increased?		Yes
8	2016-01-17	Should the education budget be increased?	X % of the young people in Turkey do not receive any education except the primary school. Education is a known determinant of social improvement, but it is also expensive.	No, keep the same
9	2016-01-17	Should the education budget be increased?		No, reduce
10	2016-01-18	Should the presidential palace be made to a public place?	President Erdogan built a presidential palace with more than a thousand rooms. Should it be opened up to the public instead of being in president's private use?	Yes
11	2016-01-18	Should the presidential palace be made to a public place?		No
12	2016-01-18	What should be done to the immigration situation near the Syrian border?	The was in Syria has made millions of people to flee from the area.	Increase refugee camps and ask for money from the EU.
13	2016-01-18	What should be done to the immigration situation near the Syrian border?		Force people from Syria to go back.
14	2016-01-18	What should be done to the immigration situation near the Syrian border?		Ask military help from the US and Nato.
15	2016-01-18	What should be done to the immigration situation near the Syrian border?		Fight the illegal refugee transport from Turkey across the Mediterranean.
16	2016-01-18	What should be done to the immigration situation near the Syrian border?		Attack Russia verbally because it helps the Syrian government and prolongs the war.
17	2016-01-18	What should be done to the immigration situation near the Syrian border?		Fight the Kurds in Syria but silently so that western allies do not get mad.
18	2016-01-19	How should terrorist attack be prevented?	Homeland security may be compromised in touristic areas because of terrorist attacks.	Increase guards in tourist areas.
19	2016-01-19	How should terrorist attack be prevented?		Increase guards on the streets.
20	2016-01-19	How should terrorist attack be prevented?		Increase international collaboration.
21	2016-01-19	How should terrorist attack be prevented?		Do as before.

Calculations

+ Show code - Hide code

# This is code Op_en7421/happiness on page [[Great game of Turkey]]

library(OpasnetUtils)

objects.latest("Op_en7421", code_name = "initiate")

ques <- question()

cat(as.character(ques$Question[1]), "\n")

oprint(ques["Option"])

dat <- data.frame(
	Question = ques$Question[1],
	Option = ques$Option[option],
	Group = group,
	User = wiki_username, 
	Result = hscore # Hscore
)

opbase.upload(
	dat, 
	ident = "Op_en7421", 
	name = "Great game of Turkey", 
	subset = "Happiness", 
	act_type = "append", 
	language = "eng", 
	who = wiki_username
)

oprint(dat)
cat("Your happiness score was successfully saved.\n")

+ Show code - Hide code

# This is code Op_en7421/progress on page [[Great game of Turkey]]

library(OpasnetUtils)

objects.latest("Op_en7421", code_name = "initiate")

ques <- question()

cat(as.character(ques$Question[1]), "\n")

oprint(ques["Option"])

dat <- data.frame(
	Question = ques$Question[1],
	Option = ques$Option[option],
	Issue = issue,
	User = wiki_username, 
	Result = pscore # Pscore
)

if(!is.na(pscore)) {
	opbase.upload(
		dat, 
		ident = "Op_en7421", 
		name = "Great game of Turkey", 
		subset = "Progress", 
		act_type = "append", 
		language = "eng", 
		who = wiki_username
	)
	oprint(dat)
	cat("Your progress score was successfully saved.\n")
} else {
	cat("Choose your score first.\n")
}

+ Show code - Hide code

# This code is Op_en7421/ on page [[Great game of Turkey]]

library(OpasnetUtils)

ques <- opbase.data("Op_en7421.questions")
colnames(ques)[colnames(ques) == "Result"] <- "Option"

questions <- unique(as.character(ques$Question[ques$Date == as.character(Sys.Date())]))

for(i in questions) {
  cat(as.character(ques$Description[ques$Question == i][1]), "\n\n")
  cat(as.character(ques$Obs[ques$Question == i][1]), ": ", i, "\n")
  oprint(ques[ques$Question == i , "Option", drop = FALSE])
}

+ Show code - Hide code

# This is code Op_en7421/ on page [[Great game of Turkey]]

library(OpasnetUtils)

ques <- opbase.data("Op_en7421.questions")
question <- as.character(ques$Question[ques$Obs == question])

dat <- data.frame(
	Date = as.character(Sys.Date()),
	User = wiki_username, 
	Result = question # Question
)

opbase.upload(
	dat, 
	ident = "Op_en7421", 
	name = "Great game of Turkey", 
	subset = "Question_vote",  # You MUST spell it with _
	act_type = "append", 
	language = "eng", 
	who = wiki_username
)

oprint(dat)

cat("Your question vote was successfully saved.\n")

+ Show code - Hide code

# This is code Op_en7421/ on page [[Great game of Turkey]]

library(OpasnetUtils)

ovote <- opbase.data("Op_en7421.questions")
ovote$Obs <- as.character(ovote$Obs)

dat <- data.frame(
  Question = ovote$Question[ovote$Obs == option],
  User = wiki_username, 
  Result = ovote$Result[ovote$Obs == option] # Option
)

opbase.upload(
	dat, 
	ident = "Op_en7421", 
	name = "Great game of Turkey", 
	subset = "Option_vote", 
	act_type = "append", 
	language = "eng", 
	who = wiki_username
)

oprint(dat)

cat("Your option vote was successfully saved.\n")

You want to find the most popular choice. First, take the last vote of each person. Then calculate the sum of results over all users. Show these popularity sums as the result of object popularity? Select the most popular row among a group defined by an index; use oapply to integrate over the index using which.max and pick that row only. Should this be a function or ovariable?

Make a new index where You contains your answers and Crowd contains the most popular vote of everyone.
Show cumulative scores for happiness and values.
Rename terms: problem -> issue, option -> action, issue -> value
Only pick two main options for decision.
Interface for both issue and action, where the latter depends on the former.
- Show current issues in the order of popularity.
- Ask for new issues.
- Show current issues and their actions in order of popularity.
- Ask for new actions.
- Person's bonus points are used as the starting point for votes.

Add a table about person's points. Add Iscore to Question vote and Ascore to Option score. When a person votes, their bonus score is used.

Interface for both issues and actions.

+ Show code - Hide code

# This is code Op_en7421/initiate on page [[Great game of Turkey]]

library(OpasnetUtils)

question <- function() {
  if(!exists("today")) today <- as.character(Sys.Date())
  ques <- opbase.data("Op_en7421.questions")
  
  qvote <- opbase.data("Op_en7421.question_vote")
  colnames(qvote)[colnames(qvote) == "Result"] <- "Question"
  qvote <- unique(qvote[qvote$Date == today , ]) # Remove double votes
  qvote <- aggregate(qvote["User"], by = qvote["Question"], FUN = length)
  qvote <- qvote[order(qvote$User, decreasing = TRUE) , ][1,] # Choose the row with most votes
  
  temp <- merge(ques, qvote)[1 , c("Question", "Description")]

  # Find the most popular options
  
  ovote <- opbase.data("Op_en7421.option_vote")
  colnames(ovote)[colnames(ovote) == "Result"] <- "Option"
  ovote <- ovote[nrow(ovote):1 , ] #Turn newest first
  #ovote <- ovote[!duplicated(ovote[c("Date", "User") , ]) , ] # Only keep the last vote
  out <- merge(temp, ovote)
  out <- aggregate(out["User"], by = out[c("Question", "Description", "Option")], FUN = length)
  out <- out[order(out$User, decreasing = TRUE) , ][1:4,] # Choose the 4 rows with most votes
  out <- out[!is.na(out$User) , ]
  out$User <- NULL
  
  return(out)
}

mergeusers <- function(happ) {
  if(length(happ$User) != length(happ$User[happ$User == wiki_username])) {
    test1 <- happ[happ$User == wiki_username , ]
    test1$User <- "You"
    test2 <- happ[happ$User != wiki_username , ]
    test2$User <- "Others"
    happ <- combine(test1, test2)
  }
  return(happ)
}

happiness <- Ovariable("happiness", ddata = "Op_en7421.happiness", getddata = FALSE)
progress <- Ovariable("progress", ddata = "Op_en7421.progress", getddata = FALSE)

choices <- Ovariable("choices", 
 dependencies = data.frame(Name = "happiness"),
 formula = function(...) {
   dat <- opbase.data("Op_en7421.choices")
   colnames(dat)[colnames(dat) == "Result"] <- "Option"
   dat$Obs <- NULL
   dat$Result <- 1
   return(dat)
 }
)

questions <- Ovariable("questions", 
 dependencies = data.frame(Name = "happiness"),
 formula = function(...) {
   dat <- opbase.data("Op_en7421.questions")
   colnames(dat)[colnames(dat) == "Result"] <- "Option"
   dat$Obs <- NULL
   dat$Result <- 1
   return(dat)
 }
)

happindex <- Ovariable("happindex", 
  dependencies = data.frame(Name = c(
    "happiness",
    "choices",
    "questions"
    )),
  formula = function(...) {

    happiness <- oapply(happiness, cols = "User", FUN = mean)
    happindex <- choices * happiness * questions
    return(happindex)
  }
)

progindex <- Ovariable("progindex", 
 dependencies = data.frame(Name = c(
   "progress",
   "choices",
   "questions"
 )),
 formula = function(...) {

   progress <- oapply(progress, cols = "User", FUN = mean)
   progindex <- choices * progress * questions
   return(progindex)
 }
)

objects.store(list = ls())

**Structures of the tables.**
Questions	Choices	Happiness	Progress	Question vote	Option vote	User
Date Question Description Option	Question User Option	Question Option Group User Hscore	Question Option Issue User Pscore	Date User Question	Question User Option	User Date Group

**Important categories**
Groups for Turkey	Progress categories
Nationalists Conservatives Minorities Liberals Kemalists	Civil Rights Women's Rights Religion National Values Democracy

Keywords

References

Related files

Great game of Turkey

Contents

Question

Answer

Rationale

Calculations

See also

Keywords

References

Related files

Navigation menu

This page is a knowledge crystal of subtype assessment. The page identifier is Op_en7421
Moderator:Jouni (see all)

Upload data {{#opasnet_base_link:Op_en7421}}