R语言运行超时，显示Timeout of 60 seconds was reached

刚开始学R语言，这是书上的程序，但是运行时一直显示超时。请问大家有什么办法可以加速运行或者延长运行时间嘛？