added complete.R and corr.R. Still not perfect score