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"])

Check above the question of the day and decide which option you would choose.: Option 1 Option 2 Option 3 Option 4 + 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( User = wiki_username, Question = ques$Question[1], 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")

Into which group do you identify most? (You only need to choose once): Nationalists Conservatives Minorities Liberals Kemalists + 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.

Choices(-)

Obs	Question	User	Option
1	Should the scarf ban in the universities be abandoned?	Jouni	Yes
2	Should the scarf ban in the universities be abandoned?	Peter	Partly
3	Should the scarf ban in the universities be abandoned?	Alex	No
4	Should the military budget be increased?	Jouni	Yes
5	Should the military budget be increased?	Peter	No, keep the same
6	Should the military budget be increased?	Alex	No, reduce
7	Should the military budget be increased?	Cecil	Yes
8	Should the education budget be increased?	Jouni	Yes
9	Should the education budget be increased?	Peter	Yes
10	Should the education budget be increased?	Alex	No, keep the same
11	Should the education budget be increased?	Cecil	No, reduce
12	Should the presidential palace be made to a public place?	Jouni	Yes
13	Should the presidential palace be made to a public place?	Peter	No
14	Should the presidential palace be made to a public place?	Alex	Yes
15	Should the presidential palace be made to a public place?	Cecil	No
16	What should be done to the immigration situation near the Syrian border?	Jouni	Increase refugee camps and ask for money from the EU.
17	What should be done to the immigration situation near the Syrian border?	Peter	Force people from Syria to go back.
18	What should be done to the immigration situation near the Syrian border?	Alex	Ask military help from the US and Nato.
19	What should be done to the immigration situation near the Syrian border?	Cecil	Fight the illegal refugee transport from Turkey across the Mediterranean.
20	How should terrorist attack be prevented?	Jouni	Increase guards in tourist areas.
21	How should terrorist attack be prevented?	Peter	Increase guards on the streets.
22	How should terrorist attack be prevented?	Alex	Increase international collaboration.
23	How should terrorist attack be prevented?	Cecil	Do as before.

Happiness(-)

Obs	Question	Option	Group	User	hscore
1	Should the scarf ban in the universities be abandoned?	Yes	Nationalists	Jouni	2
2	Should the scarf ban in the universities be abandoned?	Partly	Nationalists	Peter	1
3	Should the scarf ban in the universities be abandoned?	No	Nationalists	Alex	0
4	Should the military budget be increased?	Yes	Nationalists	Cecil	2
5	Should the military budget be increased?	No, keep the same	Nationalists	Jouni	-2
6	Should the military budget be increased?	No, reduce	Nationalists	Peter	-2
7	Should the education budget be increased?	Yes	Nationalists	Alex	0
8	Should the education budget be increased?	No, keep the same	Nationalists	Cecil	1
9	Should the education budget be increased?	No, reduce	Nationalists	Jouni	2
10	Should the presidential palace be made to a public place?	Yes	Nationalists	Peter	1
11	Should the presidential palace be made to a public place?	No	Nationalists	Alex	0
12	What should be done to the immigration situation near the Syrian border?	Increase refugee camps and ask for money from the EU.	Nationalists	Cecil	-1
13	What should be done to the immigration situation near the Syrian border?	Force people from Syria to go back.	Nationalists	Jouni	2
14	What should be done to the immigration situation near the Syrian border?	Ask military help from the US and Nato.	Nationalists	Peter	-1
15	What should be done to the immigration situation near the Syrian border?	Fight the illegal refugee transport from Turkey across the Mediterranean.	Nationalists	Alex	0
16	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.	Nationalists	Cecil	1
17	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.	Nationalists	Jouni	2
18	How should terrorist attack be prevented?	Increase guards in tourist areas.	Nationalists	Peter	1
19	How should terrorist attack be prevented?	Increase guards on the streets.	Nationalists	Alex	2
20	How should terrorist attack be prevented?	Increase international collaboration.	Nationalists	Cecil	-1
21	How should terrorist attack be prevented?	Do as before.	Nationalists	Jouni	0
22	Should the scarf ban in the universities be abandoned?	Yes	Conservatives	Peter	-1
23	Should the scarf ban in the universities be abandoned?	Partly	Conservatives	Alex	0
24	Should the scarf ban in the universities be abandoned?	No	Conservatives	Cecil	2
25	Should the military budget be increased?	Yes	Conservatives	Jouni	1
26	Should the military budget be increased?	No, keep the same	Conservatives	Peter	2
27	Should the military budget be increased?	No, reduce	Conservatives	Alex	0
28	Should the education budget be increased?	Yes	Conservatives	Cecil	-1
29	Should the education budget be increased?	No, keep the same	Conservatives	Jouni	2
30	Should the education budget be increased?	No, reduce	Conservatives	Peter	-1
31	Should the presidential palace be made to a public place?	Yes	Conservatives	Alex	0
32	Should the presidential palace be made to a public place?	No	Conservatives	Cecil	1
33	What should be done to the immigration situation near the Syrian border?	Increase refugee camps and ask for money from the EU.	Conservatives	Jouni	0
34	What should be done to the immigration situation near the Syrian border?	Force people from Syria to go back.	Conservatives	Peter	1
35	What should be done to the immigration situation near the Syrian border?	Ask military help from the US and Nato.	Conservatives	Alex	0
36	What should be done to the immigration situation near the Syrian border?	Fight the illegal refugee transport from Turkey across the Mediterranean.	Conservatives	Cecil	-1
37	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.	Conservatives	Jouni	-2
38	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.	Conservatives	Peter	1
39	How should terrorist attack be prevented?	Increase guards in tourist areas.	Conservatives	Alex	0
40	How should terrorist attack be prevented?	Increase guards on the streets.	Conservatives	Cecil	2
41	How should terrorist attack be prevented?	Increase international collaboration.	Conservatives	Jouni	0
42	How should terrorist attack be prevented?	Do as before.	Conservatives	Peter	2
43	Should the scarf ban in the universities be abandoned?	Yes	Minorities	Alex	0
44	Should the scarf ban in the universities be abandoned?	Partly	Minorities	Cecil	-1
45	Should the scarf ban in the universities be abandoned?	No	Minorities	Jouni	-2
46	Should the military budget be increased?	Yes	Minorities	Peter	-2
47	Should the military budget be increased?	No, keep the same	Minorities	Alex	0
48	Should the military budget be increased?	No, reduce	Minorities	Cecil	1
49	Should the education budget be increased?	Yes	Minorities	Jouni	2
50	Should the education budget be increased?	No, keep the same	Minorities	Peter	1
51	Should the education budget be increased?	No, reduce	Minorities	Alex	-2
52	Should the presidential palace be made to a public place?	Yes	Minorities	Cecil	0
53	Should the presidential palace be made to a public place?	No	Minorities	Jouni	0
54	What should be done to the immigration situation near the Syrian border?	Increase refugee camps and ask for money from the EU.	Minorities	Peter	2
55	What should be done to the immigration situation near the Syrian border?	Force people from Syria to go back.	Minorities	Alex	-2
56	What should be done to the immigration situation near the Syrian border?	Ask military help from the US and Nato.	Minorities	Cecil	1
57	What should be done to the immigration situation near the Syrian border?	Fight the illegal refugee transport from Turkey across the Mediterranean.	Minorities	Jouni	0
58	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.	Minorities	Peter	1
59	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.	Minorities	Alex	-2
60	How should terrorist attack be prevented?	Increase guards in tourist areas.	Minorities	Cecil	-1
61	How should terrorist attack be prevented?	Increase guards on the streets.	Minorities	Jouni	0
62	How should terrorist attack be prevented?	Increase international collaboration.	Minorities	Peter	2
63	How should terrorist attack be prevented?	Do as before.	Minorities	Alex	0
64	Should the scarf ban in the universities be abandoned?	Yes	Liberals	Cecil	2
65	Should the scarf ban in the universities be abandoned?	Partly	Liberals	Jouni	0
66	Should the scarf ban in the universities be abandoned?	No	Liberals	Peter	-2
67	Should the military budget be increased?	Yes	Liberals	Alex	-2
68	Should the military budget be increased?	No, keep the same	Liberals	Cecil	-1
69	Should the military budget be increased?	No, reduce	Liberals	Jouni	2
70	Should the education budget be increased?	Yes	Liberals	Peter	2
71	Should the education budget be increased?	No, keep the same	Liberals	Alex	0
72	Should the education budget be increased?	No, reduce	Liberals	Cecil	-2
73	Should the presidential palace be made to a public place?	Yes	Liberals	Jouni	2
74	Should the presidential palace be made to a public place?	No	Liberals	Peter	-1
75	What should be done to the immigration situation near the Syrian border?	Increase refugee camps and ask for money from the EU.	Liberals	Alex	2
76	What should be done to the immigration situation near the Syrian border?	Force people from Syria to go back.	Liberals	Cecil	-2
77	What should be done to the immigration situation near the Syrian border?	Ask military help from the US and Nato.	Liberals	Jouni	-1
78	What should be done to the immigration situation near the Syrian border?	Fight the illegal refugee transport from Turkey across the Mediterranean.	Liberals	Peter	-1
79	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.	Liberals	Alex	-2
80	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.	Liberals	Cecil	-2
81	How should terrorist attack be prevented?	Increase guards in tourist areas.	Liberals	Jouni	1
82	How should terrorist attack be prevented?	Increase guards on the streets.	Liberals	Peter	1
83	How should terrorist attack be prevented?	Increase international collaboration.	Liberals	Alex	2
84	How should terrorist attack be prevented?	Do as before.	Liberals	Cecil	-1
85	Should the scarf ban in the universities be abandoned?	Yes	Kemalists	Jouni	-2
86	Should the scarf ban in the universities be abandoned?	Partly	Kemalists	Peter	-1
87	Should the scarf ban in the universities be abandoned?	No	Kemalists	Alex	2
88	Should the military budget be increased?	Yes	Kemalists	Cecil	1
89	Should the military budget be increased?	No, keep the same	Kemalists	Jouni	2
90	Should the military budget be increased?	No, reduce	Kemalists	Peter	-1
91	Should the education budget be increased?	Yes	Kemalists	Alex	0
92	Should the education budget be increased?	No, keep the same	Kemalists	Cecil	-1
93	Should the education budget be increased?	No, reduce	Kemalists	Jouni	-1
94	Should the presidential palace be made to a public place?	Yes	Kemalists	Peter	-1
95	Should the presidential palace be made to a public place?	No	Kemalists	Alex	0
96	What should be done to the immigration situation near the Syrian border?	Increase refugee camps and ask for money from the EU.	Kemalists	Cecil	1
97	What should be done to the immigration situation near the Syrian border?	Force people from Syria to go back.	Kemalists	Jouni	2
98	What should be done to the immigration situation near the Syrian border?	Ask military help from the US and Nato.	Kemalists	Peter	1
99	What should be done to the immigration situation near the Syrian border?	Fight the illegal refugee transport from Turkey across the Mediterranean.	Kemalists	Alex	0
100	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.	Kemalists	Cecil	-1
101	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.	Kemalists	Jouni	1
102	How should terrorist attack be prevented?	Increase guards in tourist areas.	Kemalists	Peter	-1
103	How should terrorist attack be prevented?	Increase guards on the streets.	Kemalists	Alex	0
104	How should terrorist attack be prevented?	Increase international collaboration.	Kemalists	Cecil	1
105	How should terrorist attack be prevented?	Do as before.	Kemalists	Jouni	2

Calculations

Select an option: Option 1 Option 2 Option 3 Option 4 Select a group: Nationalists Conservatives Minorities Liberals Kemalists How much happiness would this option bring to this group?: - choose score - +2 +1 0 -1 -2 + 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")

Select an option: Option 1 Option 2 Option 3 Option 4 Select an issue: Civil Rights Women´s Rights Religion National Values Democracy How much progress would this option bring to this issue?: - choose score - +2 +1 0 -1 -2 + 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], Progress = progress, 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") ques <- ques[ques$Date == as.character(Sys.Date()) , ] colnames(ques)[colnames(ques) == "Result"] <- "Option" for(i in unique(as.character(ques$Question))) { cat(as.character(ques$Description[ques$Question == i][1]), "\n\n") cat(ques$Obs[ques$Question == i][1], ": ", i, "\n") oprint(ques[ques$Question == i , "Option", drop = FALSE]) }

Give the number of the question you want for today.: + 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")

Give the number of the option you want for today (up to 4 options used).: + Show code- Hide code # This is code Op_en7421/ on page [[Great game of Turkey]] library(OpasnetUtils) ovote <- opbase.data("Op_en7421.questions") option <- ovote$Result[ovote$Obs == option] dat <- data.frame( Date = as.character(Sys.Date()), User = wiki_username, Result = 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")

+ 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 Option	Question User Option	Question Option Group User Hscore	Question Option Progress 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

See also

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}}