为文本/字符变量产生“无效”的 R 函数

Question

我正在尝试在 R 中创建一个函数，如果整数大于 100，则输出“通过”，如果小于 100，则输出“失败”，如果等于 100，则输出“中性”。代码应显示“无效”对于字符变量/文本。

这是我目前的代码：

compare <- function(x) {

 if (x>100) {
  result = "pass"
 }

 else if (x<100) {
 result = "fail"
 }

 else if (x==100) {
 result = "neutral"
 }

 else if (is.character(x) == TRUE) {
 result = "invalid"
 }

 print(result)

 }

compare(10)
compare(100)
compare(120)
compare("text")

我希望 compare(10) 产生“失败”，compare(100) 产生“中性”，compare(120) 产生“通过”，比较 (“text”) 产生“无效”。所有整数都有效，但是 compare("text") 不断产生“通过”而不是“无效”。 Compare(as.character("text")) 也只产生“pass”。

Answer 1

要创建条件语句，您需要== 而不是=。

compare <- function(x) {
  if (!is.numeric(x)) {
    result = "invalid"
  } else  if (x>100) {
    result = "pass"
  } else if (x<100) {
    result = "fail"
  } else if (x==100) {
    result = "neutral"
  } 

  print(result)
}

这个功能对我有用。以下是输出测试。

> compare(10)
[1] "fail"
> compare(100)
[1] "neutral"
> compare(120)
[1] "pass"
> compare("hello")
[1] "invalid"