Просто изменив первые две строки с помощью readline
и обернув все это в {}
Вы можете объединить свой сценарий в предложение.
{
a <- as.numeric(readline(prompt = "Enter a: ")) # Read in from console and change to number
b <- as.numeric(readline(prompt = "Enter b: ")) # Read in from console and change to number
y <- a*b
y
if((y %% 2) == 0) {
print(paste(y,"is Even"))
} else {
print(paste(y,"is Odd"))
}
}
Это позволяет вам управлять всем этим сверху вниз и последовательно принимать ваши данные. Вы также можете превратить это в функцию.