Update theoretical_curves.R

Removed the useless "getwd".