added R code for filtering depression sufferers