提示矢量值，然后对值求和

Question

我试图提示输入值，将它们全部包含在一个向量中，然后添加所有输入的值。

HomeTeam <- c()

for (x in 1:3) {
a <- readline(prompt = "Enter score: ")
n <- as.numeric(a)
HomeTeam <- append(HomeTeam,a)
}

print(HomeTeam)
print(sum(HomeTeam))

我希望输出每次都提示我提示值，然后将所有这些值相加。