with complete.R