Added MyRFunction.R