Error in single.na(to) : argument is missing, with no default