added approx to Rfunctions.py