scenario.R

# script for defining scenarios

s <- 0.02 ; # stake payment
alpha <- 0.7 ; # burn power
beta <- 0.5 ; # stake fee skewness
d <- 0.08 ;  # stake distribution factor
contributionsNum <- 2 ; 
numUsers <-5 ; 
initialReputation <- 20 ;
initialTokens <- 50 ;
numEvaluations <- 10 ;
tokenRewardFactor <- 50 ;
reputationRewardFactor <- 5 ;
rewardScoreThreshold <- 0.5 ;
contributionFee <- 1 ;

# create user data frame
userNames <- paste("P",1:numUsers,sep = "");
userReputation <- rep(initialReputation, numUsers) ; # sample(1:initialReputation,numUsers, replace = TRUE) ; 
userTokens <- rep(initialTokens, numUsers) ;
users <- data.frame(userNames, userReputation, userTokens) ;
names(users)<- c("name", "reputation", "tokens");

#create contributions data frame
contribIds <- paste("C",1:contributionsNum,sep = "") ;
contributor <- sample(1:numUsers, contributionsNum, replace=T) ;
maxScores <- rep(0, contributionsNum) ;
votes <- matrix(-1, nrow = contributionsNum, ncol = numUsers) ;
colnames(votes)<-userNames ;
contributions<-data.frame(id = contribIds, contributor = contributor, maxScore = maxScores, votes) ;

# deduct contribution fee for contributors
for (i in 1:contributionsNum)
{
  if (users$tokens[contributions$contributor[i]] >= contributionFee) {
    users$tokens[contributions$contributor[i]] <- users$tokens[contributions$contributor[i]] - contributionFee ;
  }
  else {
    stop("user does not have enough tokens") ;
  }
}

# create scenario data frame
# evaluators <- c(1:numEvaluations); #sample(1:numUsers, numEvaluations, replace = TRUE) ; 
# evaluatedContribs <- sample(1:contributionsNum, numEvaluations, replace = TRUE) ;
# voteValues <- rep(1, numEvaluations); #sample(0:1, numEvaluations, replace = TRUE);  
# scenario <- data.frame(evaluators, evaluatedContribs, voteValues) ;

evaluators <- c(1,2,3,4,5,1,2,3,4,5) ;
evaluatedContribs <- c(1,1,1,2,2,2,1,1,1,2) ;
voteValues <- c(1,0,1,1,0,1,1,0,1,1) ;
numEvaluations <- length(evaluators) ;
scenario <- data.frame(evaluators, evaluatedContribs, voteValues) ;


# create scenarion results data frame
# later will serve as a log for the events in the simulation
events <- character(length = numEvaluations + 1) ;
comments <- character(length = numEvaluations + 1) ;
events[1] <- "Initial state after contributions made" ;

initReputationVector <- rep(0,numUsers) ;
reputation <- rep(initReputationVector,numEvaluations + 1) ;
reputation <- matrix(reputation, numEvaluations + 1, numUsers, byrow = TRUE) ;
reputation[1,] <- userReputation ;
colnames(reputation) <- paste("P",1:numUsers, " rep", sep = "");

initTokensBalance <- rep(0,numUsers) ;
tokensBalance <- rep(initTokensBalance,numEvaluations + 1) ;
tokensBalance <- matrix(tokensBalance, numEvaluations + 1, numUsers, byrow = TRUE) ;
tokensBalance[1,] <- users$tokens ;
colnames(tokensBalance) <- paste("P",1:numUsers, " tok", sep = "");
results <- data.frame(events, reputation, tokensBalance, comments, stringsAsFactors=FALSE) ;