setwd("C:/Users/elias/Documents/UvA/internship 2/Kimberley/Temp data")
library(readxl)

d <- read_xlsx("ttest_stats.xlsx")
d$ITavg
d$STavg


t.test(d$ITavg, d$STavg)