added complete.R

PA 1 / part 2