library("reader")
setwd("C:/Users/laure/Desktop/RESEARCH/otree/JMP")
# Import the data and look at the first six rows
data <- read.csv(file = 'Timesconverted.csv')



#data_completed <- data[data$app_name == "survey"]


#schmeiss alles ab texten raus


data_completed <- subset(data, epoch_time >= 1611590851)








data_final <- aggregate(cbind(data_completed$seconds_on_page),
                        by=list(data_completed$page_name), FUN=mean, na.rm=T)



data_final <- subset(data_final, V1 >0)


sum(data_final$V1)/60

15.084746+21.000000+65.674419+89.186047+24.547619+172.921053+10.800000+55.444444+37.000000+26.666667+20.085714+113.088235+68.588235+18.000000+31.294118+47.970588+135.058824+96.625000+65.125000

1114.161/60