Господа, я тут пытаюсь освоить R, написал простенькую прогамму, но

Question

Господа, я тут пытаюсь освоить R, написал простенькую прогамму, но

R почему-то ругается:
myfunc <- function(){
cat("Введите число")
number <-as.integer(readline(prompt=""))
if((number/10)>=1.1 && (number/10)<=1.9 )
{cat(number, 'коров')
} else if((number%%10)==1)
{cat(number, 'корова')
} else if((number%%10==2) || (number%%10)==3 || (number%%10)==4)
{cat(number, 'коровы')
} else
{cat(number,'коров')}
}
myfunc()
Никто не знает. в чем может быть проблема?