Update Complete.R

Ready to test