```
# NOT RUN {
#Draw a matrix of normal values
n<-matrix(rnorm(25),nrow=5,ncol=5)
#Dichotomize by the mean value
event2dichot(n,"mean")
#Dichotomize by the 0.95 quantile
event2dichot(n,"quantile",0.95)
# }
```

Run the code above in your browser using DataLab