在 R 中，如何从用户提示中读取多个整数？

Question

我需要创建一个包含来自用户的多个输入（整数）的向量。

目的是创建一个列表并验证它是否具有众数以及它的中位数在哪里。

我正在使用此代码：

ReadVector <- function()
{ 
  x <- 0
  while(x<16) {
  n <- readline(prompt="Input one integer: ")
  return(as.integer(n))
  VectorUser <- c(n)
  x <- x+1
  } 
  print(VectorUser)
  }

ReadVector()

而且我只能得到一个整数，我不知道我的错误是在while循环中还是在它之后的concatenate命令中（和）。你能帮帮我吗？

Answer 1

这对你有用吗？

ReadVector <- function()
{ 
  x <- 0
  myvector = vector()
  while(x<16) {
    n <- readline(prompt="Input one integer: ")
    myvector = c(myvector,n)
    x <- x+1
  } 
  return (as.integer(myvector))
}

你需要将你的值保存在一个向量中，并保留它（不在循环内返回），直到你完成它。

希望对您有所帮助

Answer 2

ff=function(){
  d=c()
  while (TRUE){
    int = readline('ENTER to quit > ')
    if(nchar(int)==0) {
      if(length(d)>0)cat("The numbers you entered are:",d)
      else(cat("You did not enter any number!!"));break}
    else{
      value=suppressWarnings(as.integer(int))
      if(!is.na(value)){cat(value);d=c(d,value)} else cat(ran[sample(6,1)])
    }}
ff()

在 R 中，如何从用户提示中读取多个整数？

In R, how to read multiple integers from user prompt?

r

input

concatenation

readline

while-loop