Great game of Turkey: Difference between revisions

Revision as of 03:17, 16 January 2016

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

library(OpasnetUtils)

today <- Sys.Date()
ques <- opbase.data("Op_en7421.questions")
ques$Date <- as.Date(ques$Date)
ques <- ques[ques$Date == today ,]]

oprint(ques)

+ Show code - Hide code

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

library(OpasnetUtils)

dat <- data.frame(
	User = wiki_username, 
	Result = 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")

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.

Rationale

You have error(s) in your data:

Number of indices and result cells does not match

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)

dat <- data.frame(
	Option = option,
	Group = group,
	User = wiki_username, 
	Result = hscore # Hscore
)

if(!is.na(hscore)) {
	opbase.upload(
		dat, 
		ident = "Op_en7421", 
		name = "Great game of Turkey", 
		subset = "Happiness", 
		act_type = "replace", 
		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 is code Op_en7421/progress on page [[Great game of Turkey]]

library(OpasnetUtils)

dat <- data.frame(
	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 = "replace", 
		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 is code Op_en7421/ on page [[Great game of Turkey]]

library(OpasnetUtils)

ques
<rcode name="questionvote" label="Vote for the day's question" embed=0 variables="
	name:question|description:Give the number of the question you want for today.
">
# This is code Op_en7421/questionvote on page [[Great game of Turkey]]

library(OpasnetUtils)

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

if(!is.null(question)) {
	opbase.upload(
		dat, 
		ident = "Op_en7421", 
		name = "Great game of Turkey", 
		subset = "Question vote", 
		act_type = "replace", 
		language = "eng", 
		who = wiki_username
	)
	oprint(dat)
	cat("Your question vote was successfully saved.\n")
} else {
	cat("Choose your question first.\n")
}

**Structures of the tables.**
Questions	Choices	Happiness	Progress	Question vote	Option vote	User
Question Option	User Option	Option Group User Hscore	Option Progress User Pscore	Question User Qscore	Option User Oscore	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

@@ Line 1: / Line 1: @@
 [[Category:GovLab]]
+<rcode label="See the question of the day" embed=1>
+# This code is Op_en7421# on page [[Great game of Turkey]]
+library(OpasnetUtils)
+today <- Sys.Date()
+ques <- opbase.data("Op_en7421.questions")
+ques$Date <- as.Date(ques$Date)
+ques <- ques[ques$Date == today ,]]
+oprint(ques)
+</rcode>
 <rcode name="choices" label="Choose policy" embed=1 variables="
-	name:option|description:Should the scarf ban in the universities be abandoned?|type:selection|options:
+	name:option|description:Check above the question of the day and decide which option you would choose.|type:selection|options:
-		'Abandon scarf ban';Abandon scarf ban;
+		'Option 1';Option 1;
-		'Abandon scarf ban partly';Abandon scarf ban partly;
+		'Option 2';Option 2;
-		'Do not abandon scarf ban';Do not abandon scarf ban
+		'Option 3';Option 3;
+		'Option 4';Option 4
 ">
 # This is code Op_en7421/choices on page [[Great game of Turkey]]
@@ Line 43: / Line 58: @@
 == Rationale ==
-<t2b name="Questions" index="Question" obs="Option" unit="-">
+<t2b name="Questions" index="Date|Question" obs="Option" unit="-">
-Should the scarf ban in the universities be abandoned?|Yes
+-01-16|Should the scarf ban in the universities be abandoned?|Yes
-Should the scarf ban in the universities be abandoned?|Partly
+-01-16|Should the scarf ban in the universities be abandoned?|Partly
-Should the scarf ban in the universities be abandoned?|No
+-01-16|Should the scarf ban in the universities be abandoned?|No
+-01-17|Should the military budget be increased?|Yes
+-01-17|Should the military budget be increased?|No, keep the same
+-01-17|Should the military budget be increased?|No, reduce
+-01-17|Should the education budget be increased?|Yes
+-01-17|Should the education budget be increased?|No, keep the same
+-01-17|Should the education budget be increased?|No, reduce
 </t2b>
@@ Line 130: / Line 151: @@
 } else {
 	cat("Choose your score first.\n")
+}
+</rcode>
+<rcode label="Show today's questions and options" embed=1>
+# This is code Op_en7421/ on page [[Great game of Turkey]]
+library(OpasnetUtils)
+ques
+<rcode name="questionvote" label="Vote for the day's question" embed=0 variables="
+	name:question|description:Give the number of the question you want for today.
+">
+# This is code Op_en7421/questionvote on page [[Great game of Turkey]]
+library(OpasnetUtils)
+dat <- data.frame(
+	Date = Sys.Date(),
+	User = wiki_username,
+	Result = question # Question
+)
+if(!is.null(question)) {
+	opbase.upload(
+		dat,
+		ident = "Op_en7421",
+		name = "Great game of Turkey",
+		subset = "Question vote",
+		act_type = "replace",
+		language = "eng",
+		who = wiki_username
+	)
+	oprint(dat)
+	cat("Your question vote was successfully saved.\n")
+} else {
+	cat("Choose your question first.\n")
 }
 </rcode>
@@ Line 135: / Line 192: @@
 {| {{prettytable}}
 |+'''Structures of the tables.
-! Questions || Choices || Happiness || Progress || Questionselection || Optionselection || User
+! Questions || Choices || Happiness || Progress || Question vote || Option vote || User
 |----
 |

Great game of Turkey: Difference between revisions

Revision as of 03:17, 16 January 2016

Contents

Question

Answer

Rationale

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