Changed  function to use robust regression function  from library(robustbase). Currently broken