r语言 提示 Error:expected while 问题出在哪儿

r语言 提示 Error:expected while 问题出在哪儿

fun0502<-function(n,p=0.5){ t0<-c(1,n) while(t0[1]<=n)t0<-fun0501(t0,p)t0[2]}

Error: unexpected 'while' in "fun0502<-function(n,p=0.5){ t0<-c(1,n) while"

重新输入代码，或者删除字符之间的空格等，或者增加字符之间连接的空格

代码正常运行，不报错