Below is link to the data file and R code used to in the final models in “Models for Story Consistency and Interestingness in Single-Player RPGs” (in Mindtrek 2013) and “Modeling Player-character engagement in Single-player character-driven games” (in ACE 2013 Netherlands). The models q4 and q7 are used in the first paper and and the model q8 is used in the second paper.
df <- read.csv( url(“http://www.mediafire.com/download/t9d5d97d78qcbpp/story.csv”), sep = “;” )
df$game <- factor(df$game)
df$game <- factor(df$game)
df$sex <- factor(df$sex, levels=c(“Male”, “Female”))
df$rpg <- factor(df$rpg, levels=c(“not at all”, “less frequently”, “other”, “monthly”, “weekly”, “daily”))
df$education <- factor(df$education, levels=c(“High school”, “Other”, “Vocational”, “College”, “Bachelors”, “Masters”, “Doctoral”))
df$board_games <- factor(df$board_games, levels=c(“not at all”, “less frequently”, “other”, “monthly”, “weekly”, “daily”))
df$videogames <- factor(df$videogames, levels=c(“not at all”, “less frequently”, “other”, “monthly”, “weekly”, “daily”))
# casting variables to ordinal, no need to set levels expicitly with these
df$q4 <- factor(df$q4, ordered = FALSE) # story consistency
df$q7 <- factor(df$q7, ordered = FALSE) # story interestigness
df$q8 <- factor(df$q8, ordered = FALSE) # identification
df$char_dev <- factor(df$char_dev)
df$play_styles<-factor(df$play_styles)
df$romance <- factor(df$romance)
df$voice <- factor(df$voice)
df$friendship <- factor(df$friendship)
df$appearance <- factor(df$appearance)
# appearance with the best model produces “design is column rank deficient so dropping 1 coef”
levels(df$appearance)<-c(“no”,”yes”,”yes”)
df$quest <- factor(df$quest)
df$moral <- factor(df$moral)
df$dialog <- factor(df$dialog)
df$subject <- factor(df$subject)library(ordinal)
q4 <- clmm(q4 ~ romance_cut + char_dev + appearance + romance +sex + (1|subject), data = df, link = “logit”, Hess=TRUE, nAGQ=10L)
q7 <- clmm(q7 ~ + moral + play_styles + romance_cut + dialog + char_dev + appearance +sex + education + (1|subject), data = df, link = “logit”, Hess=TRUE , nAGQ=10L)
q8 <- clmm(q8 ~ dialog + romance + romance_cut + friendship + (1|subject), data = df, link = “logit”, Hess=TRUE, nAGQ=10L)
References:
- Lankoski, P. 2013. Models for Story Consistency and Interestingness in Single-Player RPGs. In Academic Mindtrek 2013. Tampere, Finland.
- Lankoski, P. 2013. Modeling Player-character Engagement in Single-player Character-driven Games. In ACE 2013 Netherlands. Twente, Netherlands.
Petri Lankoski 