setwd("C:/Users/laure/Desktop/RESEARCH/otree/JMP")
# Import the data and look at the first six rows




library(readr)
data_original <- read_csv("survey.csv")


data <- subset(data_original, participant._current_page_name == "Ak_At2")


mean(data$player.gender)
max(data$player.count_females)/nrow(data)
max(data$player.count_males)/nrow(data)
max(data$player.count_diverse)/nrow(data)

max(data$player.count_age_group_1)/nrow(data)
max(data$player.count_age_group_2)/nrow(data)
max(data$player.count_age_group_3)/nrow(data)
max(data$player.count_age_group_4)/nrow(data)


max(data$player.count_educated)/nrow(data)
max(data$player.count_uneducated)/nrow(data)


max(data$player.count_income_group_1)/nrow(data)
max(data$player.count_income_group_2)/nrow(data)
max(data$player.count_income_group_3)/nrow(data)