A bunch of functions I find helpfull in R