Error in FUN(X[[2L]], ...) : Could not find function with name + and 1 arguments