自定义函数格式:function.name <- function(arg1, arg2, or no arg...){statement}function.name(arg = , arg, ...) #call function