Simplified complete.R