r语言var函数