Create factToNum.R

Function to convert factors to numeric. ',' as dec are replaced with '.'