I am running the following code
x=as.data.frame(database$RT.Information.Choice.) RT=matrix(c(rep(0,dim(databaseSubset)[1]*90)), nrow =dim(databaseSub