new complete.R function using complete.cases() function