Update Complete.R

Almost done, just need to fix output