由于您只想在循环中打印，因此从函数中删除return语句。

classmark<-function(marks){
  ans<- marks
  for(i in 1:length(marks)){
    if(marks[i] > 90){
      cat("Best Class\n")
    }
    else{
      cat("Needs Improvement\n")
    }
  }    
}

classmark(c(100,95,94,56))
#Best Class
#Best Class
#Best Class
#Needs Improvement

您也可以使用ifelse的矢量化版本，它不需要for循环。

classmark<-function(marks){
 ifelse(marks > 90, "Best Class", "Needs Improvement")
}

classmark(c(100,95,94,56))
#[1] "Best Class"   "Best Class"   "Best Class"    "Needs Improvement"

由于条件是检查是否“所有”数字：

classmark <- function(marks) { 
  ans <- c() 
  for (i in 1:length(marks)) {
    if (marks[i] > 90) { 
      ans <- "Best Class"
    } else { 
      ans <- "Needs Improvement" 
    } 
  } 
  return(ans) 
}

检查一下这个是否有效。

filter <- marks > 90
x <- TRUE
for (y in filter){
    x <- x && y
}
if(x){
    ans <- "Best Class"
}else{
    ans <- "Needs Improvement"
}

这实际上是要求检查参数（标记）的所有值是否大于90，而不是单个值。

classmark<-function(marks){

  # Enter your code here. Read input from STDIN. Print output to STDOUT
  
  # if all values in marks are greater than 90, return "Best Class"
  if (all(marks > 90)){
    return ("Best Class")
  }
  else {
    return ("Needs Improvement")
  }  
}
print(classmark(c(100,95,94,56)))
print(classmark(c(100,95,94,96)))

我认为这应该起作用：

for(i in 1:length(marks)){
    if(marks[i]>90){
        ans<- "Best Class"
    }
    else{
        ans<- "Needs Improvement"
    }
}

return(ans)