Added a simple Q-analysis code (in R)