r语言怎么用while函数写斐波那契数列