@geospacedman just define

unction <- function

Problem solved.