j<-0
for (i in 1:5000)
{ 
    if(abs(t_test[i])>1.9844) {j<-j+1} 
}