Difference between revisions of "Great game of Turkey"

Revision as of 19:22, 17 January 2016

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

library(OpasnetUtils)

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

ques <- question()

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 = "dayquestion")

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

+ 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 = 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 = "dayquestion")
objects.latest("Op_en6007", code_name = "answer") # oggplot etc

happindex <- EvalOutput(happindex)
oggplot(happindex, x = "Date", fill = "Group") + facet_wrap(~ User)

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 over time")
oggplot(mergeusers(happequity), x = "User") + labs(title = "Deviation from the equity")

progindex <- EvalOutput(progindex)
oggplot(progindex, x = "Date", fill = "Group") + facet_wrap(~ User)

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

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

Rationale

Questions(-)
Obs	Date	Question	Option
1	2016-01-16	Should the scarf ban in the universities be abandoned?	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?	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?	No, keep the same
9	2016-01-17	Should the education budget be increased?	No, reduce

+ Show code - Hide code

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

library(OpasnetUtils)

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

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 = "dayquestion")

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(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)

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)

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/dayquestion on page [[Great game of Turkey]]

library(OpasnetUtils)

question <- function() {
  ques <- opbase.data("Op_en7421.questions")
  colnames(ques)[colnames(ques) == "Result"] <- "Option"
  
  qvote <- opbase.data("Op_en7421.question_vote")
  qvote <- unique(qvote[qvote$Date == as.character(Sys.Date()) , ]) # Remove double votes
  qvote <- aggregate(qvote["User"], by = qvote["Result"], FUN = length)
  qvote <- qvote[order(qvote$User, descending = TRUE) , ][1,] # Choose the row with most votes
  
  temp <- merge(ques, qvote, by.x = "Obs", by.y = "Result")["Question"]
  
  # Find the most popular options
  
  ovote <- opbase.data("Op_en7421.option_vote")
  ovote <- ovote[nrow(ovote):1 , ] #Turn newest first
  #ovote <- ovote[!duplicated(ovote[c("Date", "User") , ]) , ] # Only keep the last vote
  out <- merge(merge(temp, ques), ovote, by.x = "Obs", by.y = "Result")
  out <- aggregate(out["User"], by = out["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) , "Option", drop = FALSE]

  return(merge(temp, 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)
questions <- Ovariable("questions", ddata = "Op_en7421.questions", 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	Date 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

Difference between revisions of "Great game of Turkey"

Revision as of 19:22, 17 January 2016

Contents

Question

Answer

Rationale

See also

Keywords

References

Related files

Navigation menu

Personal tools

Namespaces

Variants

Views

More

Search

Navigation

Page Tools

Tools

In other websites

This page is a assessment. The page identifier is Op_en7421
Moderator:Jouni (see all)
Give your opinion to the peer rating of the content of this page. {{ #opasnet_rater: }}
Upload data Show results