* ifelse http://stackoverflow.com/questions/1335830/why-cant-rs-ifelse-statements-return-vectors
  * as.numeric http://blog.movedesign.de/r-pitfalls-in-converting-a-factor-to-a-numeric-value/