randomList = list()



scienceFunction <- function(xMean){
  time <- 0
  score <- 28
  timeList <- list()
  while (time < 150){
    randomList <- rnorm(30,xMean,1)
    y <- sample(randomList, 1)
    # time = time + time to think of a word + time to type word
    time <- time + y + 1.4
    timeList[[time]] <- score
    print(time)
    score <- score + 28
    xMean <- xMean + 1.1
  }
  return(timeList)
}

randomList <- scienceFunction(7)