Great game of Turkey: Difference between revisions

Revision as of 12:36, 14 February 2016

Make today's decision First, see the issue and possible actions.

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

library(OpasnetUtils)

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

temp <- EvalOutput(issueofday)
temp <- temp[temp$Date == as.character(Sys.Date()) , ]

cat(
	"Issue #", 
	temp$Issueid, 
	":", 
	as.character(temp$Issue), 
	"\n", 
	as.character(temp$Issuedescription), 
	"\n"
)

oprint(temp[ , colnames(temp@output) %in% c("Actionid", "Action", "Actiondescription")])

Then, make the decision about today's issue.

+ Show code - Hide code

# This is code Op_en7421/choices on page [[Great game of Turkey]]
# Parameters used:
## option: numeric (1 or 2)

library(OpasnetUtils)

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

issueofday <- EvalOutput(issueofday)
issueofday <- issueofday[issueofday$Date == as.character(Sys.Date()) , ]

dat <- data.frame(
	Date = issueofday$Date[option],
	Issue = issueofday$Issue[option],
	Action = issueofday$Action[option],
	User = wiki_username, 
	Result = as.numeric(Sys.time())
)

opbase.upload(
	dat, 
	ident = "Op_en7421", 
	name = "Great game of Turkey", 
	subset = "Decisions", 
	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 issues and actions asked?

Answer

Game results

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", "Issue", "Action"), 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")

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

valmean <- oapply(valindex, cols = c("Date", "Issue", "Action"), FUN = mean)
valequity <- oapply(valmean, cols = "Issue", FUN = sd)

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

Setup profile

Setup your profile. Do this before you start. You may change your preferences later.

+ Show code - Hide code

# This is code Op_en7421/choices on page [[Great game of Turkey]]
# Paramters:
## group: selection (text string)

library(OpasnetUtils)

dat <- data.frame(
	User = wiki_username, 
	Group = group,
	Result = as.numeric(Sys.time())
)

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

test <- opbase.data("Op_en7421", subset = "Bonuses")$User
if(!wiki_username %in% test) {
	dat <- data.frame(
		User = wiki_username, 
		Reason = "Seed",
		Bonus = 1,
		Result = as.numeric(Sys.time())
	)

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

	oprint(dat)

	cat("Your seed bonus was successfully saved.\n")
}

Suggest issues and actions

+ Show code - Hide code

# This code is Op_en7421# on page [[Great game of Turkey]]
# Parameters:
## date: date type
## all: logical (if TRUE, show all days)

library(OpasnetUtils)

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

temp <- EvalOutput(allactions)
if(all) temp <- allactions[allactions$Date == as.character(date) , ]

for(i in sort(unique(paste(temp$Date, temp$Issueid)))) {
  temp2 <- temp[paste(temp$Date, temp$Issueid) == i , ]
  cat(
    as.character(temp$Date[1]),
    "Issue", 
    as.character(temp2$Issueid[1]), 
    ":", 
    as.character(temp2$Issue[1]), 
    "\n", 
    as.character(temp2$Issuedescription[1]), 
    "\n"
  )
  oprint(temp2[ , c("Action", "Actiondescription", "Actionid")])
}

+ Show code - Hide code

# This is code Op_en7421/ on page [[Great game of Turkey]]
# Parameters:
## date: date type. Default: today
## issue: textbox (text string)
## description: textbox(text string)

library(OpasnetUtils)

bonus <- EvalOutput(bonuses)
bonus <- result(bonus)[bonus$User == wiki_username , ]

dat <- data.frame(
	Date = as.character(date),
	Issue = issue,
	Description = description,
	User = wiki_username, 
	Result = as.numeric(Sys.time())
)

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

oprint(dat)

cat("Your issue was successfully saved.\n")

dat <- data.frame(
	Date = as.character(date),
	Issue = issue,
	User = wiki_username, 
	Ivotes = bonus,
	Result = as.numeric(Sys.time())
)

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

oprint(dat)

cat("The issue was also voted for with your bonuses.\n")

+ Show code - Hide code

# This is code Op_en7421/ on page [[Great game of Turkey]]
# Parameters:
## issue: numeric (Issueid)
## action: textbox (text string)
## description: textbox (text string)

library(OpasnetUtils)

bonus <- EvalOutput(bonuses)
bonus <- result(bonus)[bonus$User == wiki_username , ]

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

temp <- EvalOutput(allactions)
temp <- temp[temp$Issueid == issue , ] 

#if(!issue %in% issueofday$Issueid) stop("Issue not found")

dat <- data.frame(
	Issue = temp$Issue,
	Action = action,
	Description = description,
	User = wiki_username, 
	Result = as.numeric(Sys.time())
)

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

oprint(dat)

cat("Your action was successfully saved.\n")

dat <- data.frame(
	Issue = temp$Issue,
	Action = action,
	User = wiki_username, 
	Avotes = bonus,
	Result = as.numeric(Sys.time())
)

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

oprint(dat)

cat("The action was also voted for with your bonuses.\n")

Vote for issues and actions

+ Show code - Hide code

# This is code Op_en7421/ on page [[Great game of Turkey]]
# Paramters:
## issue: numeric (Issueid)

library(OpasnetUtils)

bonus <- EvalOutput(bonuses)
bonus <- result(bonus)[bonus$User == wiki_username , ]

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

iss <- EvalOutput(issueofday)
iss <- iss[iss$Date == as.character(Sys.Date()) , ]

dat <- data.frame(
	Date = iss$Date[iss$Issueid == issue],
	Issue = iss$Issue[iss$Issueid == issue],
	User = wiki_username, 
	Ivotes = bonus,
	Result = as.numeric(Sys.time())
)

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

oprint(dat)

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

+ Show code - Hide code

# This is code Op_en7421/ on page [[Great game of Turkey]]
# Parameters:
## action: numeric (Actionid)

library(OpasnetUtils)

bonus <- EvalOutput(bonuses)
bonus <- result(bonus)[bonus$User == wiki_username , ]

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

iss <- EvalOutput(issueofday)
iss <- iss[iss$Date == as.character(Sys.Date()) & iss$actionid == action , ]

dat <- data.frame(
	Date = iss$Date,
	Issue = iss$Issue,
	Action = iss$Action,
	User = wiki_username, 
	Avotes = bonus,
	Result = as.numeric(Sys.time())
)

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

oprint(dat)

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

Evaluate happiness and values

+ Show code - Hide code

# This is code Op_en7421/happiness on page [[Great game of Turkey]]
# Parameters:
## action: numeric (Actionid)
## hscore: numeric (integer from -2 to 2)

library(OpasnetUtils)

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

temp <- EvalOutput(allactions)
temp <- temp[temp$Actionid == action , ]
cat(as.character(temp$Issue), ":", as.character(temp$Action, "\n")

user <- EvalOutput(user)
user1 <- user[user@output$User == wiki_username , ]

dat <- data.frame(
	Issue = temp$Issue,
	Action = temp$Action,
	Group = user1$Group,
	User = user1$User, 
	Hscore = hscore, # Happiness score
	Result = as.numeric(Sys.time())
)

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/value on page [[Great game of Turkey]]
# Parameters:
## action: numeric (Actionid)
## value: selection (text string)
## vscore: numeric (integer from -2 to 2)

library(OpasnetUtils)

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

temp <- EvalOutput(allactions)
temp <- temp[temp$Actionid == action , ]

cat(as.character(temp$Issue), ":", as.character(temp$Action, "\n")

dat <- data.frame(
	Date = temp$Date,
	Issue = temp$Issue,
	Action = temp$Action,
	Value = value,
	User = wiki_username, 
	Vscore = vscore,
	Result = as.numeric(Sys.time())
)

if(!is.na(vscore)) {
	opbase.upload(
		dat, 
		ident = "Op_en7421", 
		name = "Great game of Turkey", 
		subset = "Values", 
		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")
}

Rationale

Calculations

+ Show code - Hide code

#This is code Op_n7421/ on page [[Great game of Turkey]]
# Parameters:
## subset: text (name of the Opasnet Base table)
## dat: table (automatically onverts to data.frame. Must have the structure of the database table)

library(OpasnetUtils)

colnames(dat) <- as.matrix(dat)[1 , ]
dat <- dat[2:nrow(dat) , ]
oprint(dat)

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

cat("Data uploaded successfully.\n")

+ Show code - Hide code

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

library(OpasnetUtils)

issueofday <- Ovariable("issueofday",
  dependencies = data.frame(Name = "allactions"),
  formula = function(...) {
    
    for(i in unique(allactions$Date)) {
      test <- allactions[allactions$Date == i , ]
      test <- test[order(-test$issuevoteResult) , c("Date", "Issue")][1 , ] # Choose the 1 row with most votes
      if(exists("issday")) issday <- combine(issday, test) else issday <- test
    }
    
    for(i in unique(allactions$Issueid)) {
      test <- allactions[allactions$Issueid == i , ]
      test <- test[order(-result(test)) , ][1:2 , ] # Action votes are the result column of allactions
      if(exists("actday")) actday <- combine(actday, test) else actday <- test
    }
    return(merge(issday, actday))
  }
)

# Day is only selected afterwards. Action and issue selection based on votes is done in issueofday.
allactions <- Ovariable("allactions",
  dependencies = data.frame(Name = c("issues", "issuevote", "actions", "actionvote")),
  formula = function(...) {
    
    issues$Issueid <- 1:length(result(issues))
    iss <- oapply(issuevote, cols = "User", FUN = sum) # Sum votes for each issue across users
    iss <- merge(issues, iss)
    iss$User <- NULL

    actions$Actionid <- 1:length(result(actions))
    act <- oapply(actionvote, cols = "User", FUN = sum)
    act <- merge(actions, act)
    act$User <- NULL
    out <- merge(iss, act)
    out@name <- "actionvote"
    return(out)
  }
)

uniques <- function(subset) {
  #Create a temporary ovariable temp and fetch the respective table with ddata.
  #indices that are used to find unique rows: 
  uncolumns <- c("Date", "Issue", "Action", "User", "Value", "Group", "Reason")
  #However, take away the index that is being added: 
  #Issue (for Issuevote and Issues); Action (for Actionvote and Actions). None for other tables.
  addindex <- NULL
  if(subset %in% c("Issues", "Issuevote")) addindex <- "Issue"
  if(subset %in% c("Actions", "Actionvote")) addindex <- "Action"
  uncolumns <- uncolumns[!uncolumns %in% addindex]
  #indices that are transformed to Result: 
  rescolumns <- c("Ivotes", "Avotes", "Bonus", "Vscore", "Hscore")

  dat <- opbase.data("Op_en7421", subset = subset)
  temp <- aggregate(dat["Result"], by = dat[colnames(dat) %in% uncolumns], FUN = max) 
  out <- merge(dat, temp)
  out$Result <- NULL
  colnames(out)[colnames(out) %in% rescolumns] <- "Result"
  if(!"Result" %in% colnames(out)) out$Result <- 1
  out$Result <- as.numeric(as.character(out$Result))
  return(out) 
}

dummy <- Ovariable("dummy", 
  data = data.frame(Date=1, Issue=1, Action=1, User=1, Value=1, Group=1, Reason=1, Result=1)
)

issues <- Ovariable("issues", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("Issues"))
  }
)

actions <- Ovariable("actions", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("Actions"))
  }
)

issuevote <- Ovariable("issuevote", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("Issuevote"))
  }
)

actionvote <- Ovariable("actionvote", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("Actionvote"))
  }
)

decisions <- Ovariable("decisions", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("Decisions"))
  }
)

values <- Ovariable("values", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("Values"))
  }
)

happiness <- Ovariable("happiness", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("Happiness"))
  }
)

bonuses <- Ovariable("bonuses", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    dat <- opbase.data("Op_en7421", subset = "Bonuses")
    dat$Bonus <- as.numeric(as.character(dat$Bonus))
    dat <- aggregate(dat["Bonus"], by = dat["User"], FUN = sum)
    colnames(dat)[colnames(dat) == "Bonus"] <- "Result"
    return(dat)
  }
)

user <- Ovariable("user", 
  dependencies = data.frame(Name = c("dummy")),
  formula = function(...) {
    return(uniques("User"))
  }
)

mergeusers <- function(happ) {
  if(length(happ$User) != length(happ$User[happ$User == wiki_username])) {
    happ$User <- ifelse(happ$User == wiki_username, "You", "Crowd")
  }
  return(out)
}

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

    happindex <- oapply(happiness, cols = "User", FUN = mean)
    deci <- mergeusers(decision)
    deci <- oapply(deci, cols = "User", FUN = length)
# KESKENERÄINEN TEE MUUT ENSIN
    for(i in unique(allactions$Date)) {
      test <- allactions[allactions$Date == i , ]
      test <- test[order(-test$issuevoteResult) , c("Date", "Issue")][1 , ] # Choose the 1 row with most votes
      if(exists("issday")) issday <- combine(issday, test) else issday <- test
    }
    
    happindex <- deci * happindex * issues
    return(happindex)
  }
)

valindex <- Ovariable("valindex", 
 dependencies = data.frame(Name = c(
   "values",
   "decisions",
   "issues"
 )),
 formula = function(...) {

   valindex <- oapply(values, cols = "User", FUN = mean)
#KESKEN ks. happindex
    deci <- mergeusers(decisions)
   valueindex <- deci * valueindex * issues
   return(valindex)
 }
)

objects.store(list = ls())
cat("Objects", ls(), "stored successfully.\n")

Structure and functionalities

The content of and use of the data tables is the following:

Issues: List of decisions to be made. A user can suggest only one issue per day. For each day, the most popular issue is taken to the game.
Actions: List of decision options to be made. A user can suggest only one action per issue. For each time point, two most popular actions are taken to the game. However, the actions in the game may change during the day, if the rank of the issues changes.
Issue vote: List of votes for each issue. Each user can cast a single vote either for or against an issue. The number of votes a user has equals their bonuses.
Action vote: List of votes for each action under issues. The voting system is the same as for issues.
Decisions: List of decisions each user makes from the actions and issues on the game.
Bonuses: List of bonuses the users have earned during the game. In the beginning, each user has 1 bonus. You can earn bonuses if your actions suggestions gets to be played (+1) or if your issues gets to be played (+5). Every time a user makes a decision, they get +0.1 bonus.
Happiness: Users' opinions about how much happiness an action brings to their own group.
Values: Users' opinions about how much value an action brings to a selected group.
Users: List of users' groups (i.e. to which group each user identifies themselves).

The functions needed are the following.

Upload data: Take the data provided by the user or calculated. Add automatic fields, e.g. ts, user and date. Upload data to the respective table.
Create ovariable: Download data from a table. From the data, find the unique rows with a given condition (e.g. discard previous decisions made by a user previously on the same day). Then create an ovariable with the structure needed.
Firstuser: Check's whether user's wiki_username is found from Bonuses. If not, it is added there and 1 bonus given.

The interface codes used are the following:

Suggest issues: Ask date, issue and description from user. Date means the date when this issue will be played. Default is today, but user can change that and suggest future issues. Timestamp (ts) come automatically. User is the wiki_username. Upload data to Issues table. No need to check previous entries. Upload user's bonus to Issue vote as number of votes.
Show issues: Ask date (today by default) and show all issues and each one's actions listed from the most to least popular. This is necessary for suggesting actions.
Show today's issue: Ask nothing. Show today's top-ranked issue and its two top-ranked actions. [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?]
Suggest actions: Ask date, issue, action and description from user. Date is today by default. Ts and user come as previously. If the date-issue pair does not exist in Issues table, give error message. Upload data to Actions and user's bonus to Action vote.
Vote for issue: Ask the rank number of the issue as a number. The user can check the numbers with Show issues. Date, user, and ts come automatically. Do firstuser. Votes is the number of user's bonuses and comes from Bonuses. Upload data to Issue vote. Store information about the rank before voting somewhere (as an ovariable or a technical data table?). If the information has changed from the last time, give bonus to the user whose information is now on the top.
Vote for action: Similar to vote for issue, except that the action number is asked and data is uploaded to Action vote.
Make decision: Ask the action from the two top choices of the most popular issue using a drop-down list. The options can be seen with show today's issue. Upload data to Decisions. However, if an issue was the most popular at some point during the day, it is still kept in the issue list. ----#: . Is it? How? --Jouni (talk) 17:21, 7 February 2016 (UTC) (type: truth; paradigms: science: comment)
Evaluate happiness: Ask date (today is the default), action number from show issues for that date, and hscore for happiness score in the user's own group. Ts, user as previously. Check if user has a group in Users and if not, give an error message to sign up to a group first. Upload data to Happiness.
Evaluate values: As evaluate happiness, except that unlike group, the value is asked from the user and nothing is checked. Upload data to Values.
Manage profile: Ask the group to which user identifies themselves. Take user and ts as previously. Add data to Users.
Show results: This code is divided into several parts:
- Show happiness performance: Ask nothing. From Decisions, take the action of each day; do this separately for You, the user's own decisions, and Crowd, i.e. the most popular action of each day. Combine that with the happiness scores from Happiness. Show cumulative happiness across time for both decision makers.
- Show value performance: Similar to show happiness performance, but for values from Values. It is imprtant to notice that value scores for each action are only partly a matter of opinion and partly a matter of research. Therefore, ideas should be developed how this research is gathered and used.
- Show situation': Show the situation of the current issue: the issue and description, and the two actions and their votes.
- Show all issues: Show all issues and actions and their votes for today.

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

Keywords

References

Related files

Great game of Turkey: Difference between revisions

Revision as of 12:36, 14 February 2016

Contents

Question

Answer

Game results

Setup profile

Suggest issues and actions

Vote for issues and actions

Evaluate happiness and values

Rationale

Calculations

Structure and functionalities

See also

Keywords

References

Related files

Navigation menu

@@ Line 2: / Line 2: @@
 '''Make today's decision
-First, see the question.
+First, see the issue and possible actions.
-<rcode label="See the question of the day" embed=1>
+<rcode label="See the issue of the day" embed=1>
 # This code is Op_en7421# on page [[Great game of Turkey]]
@@ Line 11: / Line 11: @@
 objects.latest("Op_en7421", code_name = "initiate")
-iss <- EvalOutput(issueofday)
+temp <- EvalOutput(issueofday)
-iss <- iss[iss$Date == as.character(Sys.Date()) , ]
+temp <- temp[temp$Date == as.character(Sys.Date()) , ]
 cat(
 	"Issue #",
-	iss$Issueid,
+	temp$Issueid,
 	":",
-	as.character(iss$Issue),
+	as.character(temp$Issue),
 	"\n",
-	as.character(iss$Issuedescription),
+	as.character(temp$Issuedescription),
 	"\n"
 )
-oprint(issueofday[ , colnames(issueofday@output) %in% c("Actionid", "Action", "Actiondescription")])
+oprint(temp[ , colnames(temp@output) %in% c("Actionid", "Action", "Actiondescription")])
 </rcode>
@@ Line 30: / Line 30: @@
 <rcode name="choices" label="Choose policy" embed=1 variables="
-	name:option|description:Check above the question of the day and decide which option you would choose.|type:selection|options:
+	name:option|description:Check above the issue of the day and decide which option you would choose.|type:selection|options:
 ;Option 1;
 ;Option 2
 ">
 # This is code Op_en7421/choices on page [[Great game of Turkey]]
+# Parameters used:
+## option: numeric (1 or 2)
 library(OpasnetUtils)
@@ Line 71: / Line 73: @@
 * 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?
+* it enables crowdsourcing the actual issues and actions asked?
 == Answer ==
@@ Line 94: / Line 96: @@
 	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)
+happmean <- oapply(happindex, cols = c("Date", "Issue", "Action"), FUN = mean)
 happequity <- oapply(happmean, cols = "Group", FUN = sd)
@@ Line 100: / Line 102: @@
 oggplot(mergeusers(happequity), x = "User") + labs(title = "Deviation from the equity")
-progindex <- EvalOutput(progindex)
+valindex <- EvalOutput(valindex)
-oggplot(progindex, x = "Date", fill = "Issue") + facet_wrap(~ User)+ labs(title = "Progress per day") +
+oggplot(valindex, x = "Date", fill = "Issue") + facet_wrap(~ User)+ labs(title = "Values 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)
+valmean <- oapply(valindex, cols = c("Date", "Issue", "Action"), FUN = mean)
-progequity <- oapply(progmean, cols = "Issue", FUN = sd)
+valequity <- oapply(valmean, cols = "Issue", FUN = sd)
-oggplot(mergeusers(progmean), x = "User", fill = "Issue") + labs(title = "Mean progress over time")
+oggplot(mergeusers(valmean), x = "User", fill = "Issue") + labs(title = "Mean values over time")
 oggplot(mergeusers(progequity), x = "User") + labs(title = "Deviation from the policy balance")
@@ Line 126: / Line 128: @@
 ">
 # This is code Op_en7421/choices on page [[Great game of Turkey]]
+# Paramters:
+## group: selection (text string)
 library(OpasnetUtils)
@@ Line 176: / Line 180: @@
 === Suggest issues and actions ===
-<rcode label="See all actions" embed=1>
+<rcode label="See all actions" embed=1 variables="
+name:date|description:Issues and actions for which day?|type:date|
+name:all|description:Do you want to see a single day or all?|type:selection|
+	options:FALSE;Show only the selected day;TRUE;Show all days|default:FALSE
+">
 # This code is Op_en7421# on page [[Great game of Turkey]]
+# Parameters:
+## date: date type
+## all: logical (if TRUE, show all days)
 library(OpasnetUtils)
@@ Line 183: / Line 194: @@
 objects.latest("Op_en7421", code_name = "initiate")
-allactions <- EvalOutput(allactions)
+temp <- EvalOutput(allactions)
+if(all) temp <- allactions[allactions$Date == as.character(date) , ]
-cat("All issues and actions\n")
+for(i in sort(unique(paste(temp$Date, temp$Issueid)))) {
-oprint(allactions)
+  temp2 <- temp[paste(temp$Date, temp$Issueid) == i , ]
+  cat(
+    as.character(temp$Date[1]),
+    "Issue",
+    as.character(temp2$Issueid[1]),
+    ":",
+    as.character(temp2$Issue[1]),
+    "\n",
+    as.character(temp2$Issuedescription[1]),
+    "\n"
+  )
+  oprint(temp2[ , c("Action", "Actiondescription", "Actionid")])
+}
 </rcode>
@@ Line 198: / Line 222: @@
 ">
 # This is code Op_en7421/ on page [[Great game of Turkey]]
+# Parameters:
+## date: date type. Default: today
+## issue: textbox (text string)
+## description: textbox(text string)
 library(OpasnetUtils)
-bonus <- 1
+bonus <- EvalOutput(bonuses)
+bonus <- result(bonus)[bonus$User == wiki_username , ]
 dat <- data.frame(
@@ Line 252: / Line 281: @@
 <rcode label="Suggest action" embed=1 variables="
-	name:issue|description:What is the number of the issue (from See all actions)?|type:default|
+	name:issue|description:What is the Issueid of the issue (from See all actions)?|type:default|
-	name:action|description:What is the action you suggest? (briefly)|type:textbox|
+	name:action|description:What is the action you suggest to this issue? (briefly)|type:textbox|
 	name:description|description:Give a more detailed description.|type:textbox
 ">
 # This is code Op_en7421/ on page [[Great game of Turkey]]
+# Parameters:
+## issue: numeric (Issueid)
+## action: textbox (text string)
+## description: textbox (text string)
 library(OpasnetUtils)
-bonus <- 1
+bonus <- EvalOutput(bonuses)
+bonus <- result(bonus)[bonus$User == wiki_username , ]
 objects.latest("Op_en7421", code_name = "initiate")
-iss <- EvalOutput(allactions)
+temp <- EvalOutput(allactions)
-iss <- iss[iss$Date == as.character(Sys.Date()) , ] # If only today's issues are used.
+temp <- temp[temp$Issueid == issue , ]
 #if(!issue %in% issueofday$Issueid) stop("Issue not found")
 dat <- data.frame(
-	Date = as.character(Sys.Date()),
+	Issue = temp$Issue,
-	Issue = iss$Issue[iss$Issueid == issue],
 	Action = action,
 	Description = description,
@@ Line 293: / Line 326: @@
 dat <- data.frame(
-	Date = as.character(Sys.Date()),
+	Issue = temp$Issue,
-	Issue = iss$Issue[iss$Issueid == issue],
 	Action = action,
 	User = wiki_username,
@@ Line 324: / Line 356: @@
 <rcode label="Vote for an issue" embed=1 variables="
-	name:issue|description:What is the number of issue (decision) that should be played?|type:default
+	name:issue|description:What is the Issueid of the of issue (decision) that should be played?|type:default
 ">
 # This is code Op_en7421/ on page [[Great game of Turkey]]
+# Paramters:
+## issue: numeric (Issueid)
 library(OpasnetUtils)
-bonus <- 1
+bonus <- EvalOutput(bonuses)
+bonus <- result(bonus)[bonus$User == wiki_username , ]
 objects.latest("Op_en7421", code_name = "initiate")
@@ Line 363: / Line 398: @@
 <rcode label="Vote for an action" embed=1 variables="
-	name:action|description:What is the number of the action you vote for?|type:default
+	name:action|description:What is the Actionid of the action you vote for?|type:default
 ">
 # This is code Op_en7421/ on page [[Great game of Turkey]]
+# Parameters:
+## action: numeric (Actionid)
 library(OpasnetUtils)
-bonus <- 1
+bonus <- EvalOutput(bonuses)
+bonus <- result(bonus)[bonus$User == wiki_username , ]
 objects.latest("Op_en7421", code_name = "initiate")
@@ Line 407: / Line 445: @@
 |
 <rcode name="happiness" label="Save your happiness score" embed=1 variables="
-	name:action|description:Give the action ID for the action you want to score (from code 'See actions')|type:default|
+	name:action|description:Give the Actionid for the action you want to score (from code 'See actions')|type:default|
 	name:hscore|description:How much happiness would this option bring to this group?|type:selection|options:
 		NA;- choose score -;2;+2;1;+1;0;0;-1;-1;-2;-2|default:NA
 ">
 # This is code Op_en7421/happiness on page [[Great game of Turkey]]
+# Parameters:
+## action: numeric (Actionid)
+## hscore: numeric (integer from -2 to 2)
 library(OpasnetUtils)
@@ Line 417: / Line 458: @@
 objects.latest("Op_en7421", code_name = "initiate")
-ques <- question()
+temp <- EvalOutput(allactions)
+temp <- temp[temp$Actionid == action , ]
-cat(as.character(ques$Question[1]), "\n")
+cat(as.character(temp$Issue), ":", as.character(temp$Action, "\n")
-oprint(ques["Option"])
 user <- EvalOutput(user)
-user <- user[user@output$User == wiki_username , ]
+user1 <- user[user@output$User == wiki_username , ]
 dat <- data.frame(
-	Date = ques$Date,
+	Issue = temp$Issue,
-	Issue = ques$Issue,
+	Action = temp$Action,
-	Action = ques$Action,
+	Group = user1$Group,
-	Group = user$Group,
+	User = user1$User,
-	User = user$User,
 	Hscore = hscore, # Happiness score
 	Result = as.numeric(Sys.time())
@@ Line 441: / Line 479: @@
 	name = "Great game of Turkey",
 	subset = "Happiness",
-	act_type = "replace",
+	act_type = "append",
 	language = "eng",
 	who = wiki_username
@@ Line 454: / Line 492: @@
 <rcode name="value" label="Save your value score" embed=1 variables="
-	name:action|description:What is the id of the action (from All actions)|type:default|
+	name:action|description:What is the Actionid of the action (from All actions)?|type:default|
 	name:value|description:Select an objective to evaluate|type:selection|options:
 		'Civil Rights';Civil Rights;
@@ Line 461: / Line 499: @@
 		'National Values';National Values;
 		'Democracy';Democracy|
-	name:pscore|description:How much value would this action bring?|type:selection|options:
+	name:vscore|description:How much value would this action bring?|type:selection|options:
 		NA;- choose score -;2;+2;1;+1;0;0;-1;-1;-2;-2|default:NA
 ">
 # This is code Op_en7421/value on page [[Great game of Turkey]]
+# Parameters:
+## action: numeric (Actionid)
+## value: selection (text string)
+## vscore: numeric (integer from -2 to 2)
 library(OpasnetUtils)
@@ Line 470: / Line 512: @@
 objects.latest("Op_en7421", code_name = "initiate")
-iss <- EvalOutput(allactions)
+temp <- EvalOutput(allactions)
-iss <- iss[iss$Issueid == action , ]
+temp <- temp[temp$Actionid == action , ]
-oprint(iss)
+cat(as.character(temp$Issue), ":", as.character(temp$Action, "\n")
 dat <- data.frame(
-	Date = iss$Date,
+	Date = temp$Date,
-	Issue = iss$Issue,
+	Issue = temp$Issue,
-	Action = iss$Action,
+	Action = temp$Action,
 	Value = value,
 	User = wiki_username,
-	Vscore = bonus,
+	Vscore = vscore,
 	Result = as.numeric(Sys.time())
 )
-if(!is.na(pscore)) {
+if(!is.na(vscore)) {
 	opbase.upload(
 		dat,
 		ident = "Op_en7421",
 		name = "Great game of Turkey",
-		subset = "Progress",
+		subset = "Values",
-		act_type = "replace",
+		act_type = "append",
 		language = "eng",
 		who = wiki_username
@@ Line 504: / Line 546: @@
 == Rationale ==
-<t2b name="Progress" index="Description" obs="Option" unit="-">
-|
-</t2b>
 === Calculations ===
@@ Line 515: / Line 553: @@
 name:dat|description:Insert data as table|type:table
 ">
+#This is code Op_n7421/ on page [[Great game of Turkey]]
+# Parameters:
+## subset: text (name of the Opasnet Base table)
+## dat: table (automatically onverts to data.frame. Must have the structure of the database table)
 library(OpasnetUtils)
-colnames(dat) <- t(dat)[ , 1]
+colnames(dat) <- as.matrix(dat)[1 , ]
 dat <- dat[2:nrow(dat) , ]
 oprint(dat)
@@ Line 526: / Line 569: @@
 	name = "Great game of Turkey",
 	subset = subset,
-	act_type = "replace",
+	act_type = "append",
 	language = "eng",
 	who = wiki_username
@@ Line 543: / Line 586: @@
    dependencies = data.frame(Name = "allactions"),
    formula = function(...) {
      for(i in unique(allactions$Date)) {
        test <- allactions[allactions$Date == i , ]
-       test <- test[order(-test$issuevoteResult) , ][1 , ] # Choose the 1 row with most votes
+       test <- test[order(-test$issuevoteResult) , c("Date", "Issue")][1 , ] # Choose the 1 row with most votes
        if(exists("issday")) issday <- combine(issday, test) else issday <- test
      }
      for(i in unique(allactions$Issueid)) {
        test <- allactions[allactions$Issueid == i , ]
@@ Line 658: / Line 701: @@
    dependencies = data.frame(Name = c("dummy")),
    formula = function(...) {
-     return(uniques("Bonuses"))
+     dat <- opbase.data("Op_en7421", subset = "Bonuses")
+    dat$Bonus <- as.numeric(as.character(dat$Bonus))
+    dat <- aggregate(dat["Bonus"], by = dat["User"], FUN = sum)
+    colnames(dat)[colnames(dat) == "Bonus"] <- "Result"
+    return(dat)
    }
 )
@@ Line 671: / Line 718: @@
 mergeusers <- function(happ) {
    if(length(happ$User) != length(happ$User[happ$User == wiki_username])) {
-     test1 <- happ[happ$User == wiki_username , ]
+     happ$User <- ifelse(happ$User == wiki_username, "You", "Crowd")
-    test1$User <- "You"
-    test2 <- happ
-    test2$User <- "Crowd"
-    happ <- combine(test1, test2)
    }
-   return(happ)
+   return(out)
 }
@@ Line 689: / Line 732: @@
      happindex <- oapply(happiness, cols = "User", FUN = mean)
-     happindex <- mergeusers(decisions) * happiness * issues
+     deci <- mergeusers(decision)
+    deci <- oapply(deci, cols = "User", FUN = length)
+# KESKENERÄINEN TEE MUUT ENSIN
+    for(i in unique(allactions$Date)) {
+      test <- allactions[allactions$Date == i , ]
+      test <- test[order(-test$issuevoteResult) , c("Date", "Issue")][1 , ] # Choose the 1 row with most votes
+      if(exists("issday")) issday <- combine(issday, test) else issday <- test
+    }
+    happindex <- deci * happindex * issues
      return(happindex)
    }
 )
-valueindex <- Ovariable("valueindex",
+valindex <- Ovariable("valindex",
   dependencies = data.frame(Name = c(
     "values",
@@ Line 702: / Line 754: @@
   formula = function(...) {
-    valueindex <- oapply(values, cols = "User", FUN = mean)
+    valindex <- oapply(values, cols = "User", FUN = mean)
-   valueindex <- mergeusers(decisions) * valueindex * issues
+#KESKEN ks. happindex
-    return(valueindex)
+    deci <- mergeusers(decisions)
+   valueindex <- deci * valueindex * issues
+    return(valindex)
   }
 )

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