added complete.R and corr.R programs