myItem<- matrix(
c(
0, -0.58 , 0, # delta+tau thurst thresh (gamma)
1, -0.58 , 0.776, # 0.196 -1.14
2, -0.58 , -0.697, # -1.277 -0.93
3, -0.58 , -0.629, # -1.209 -0.64
4, -0.58 , 0.55 # -0.03 0.25
), ncol =3, byrow=TRUE
)
thrstThrsh(myItem)
Run the code above in your browser using DataLab