是什么导致我在R中的分段函数中引起此错误？

Question

我正在尝试通过以下参数在R中发挥分段函数：

##### Rules ####

# If x from 2 to 6, x2
# If x < 2, x-5
# If x > 6, x^9

因此，我已经制作了此功能来尝试适合这些参数：

piecewise <- function(x){
  return(ifelse(x < 2, x - 5,
                ifelse(x > 6, x^9, x^2)))
}

我创建了一个向量来测试并将其适合该功能：

x <- c(1,20,5,2,30)
piecewise(x)

但是，它给了我以下奇数输出：

[1] -4.0000e+00  5.1200e+11  2.5000e+01  4.0000e+00  1.9683e+13

是什么原因导致了此问题，我该如何解决？

Answer 1

您可以通过设置scipen“科学符号惩罚”选项来更改R的打印选项，以改变科学符号。数字少于scipen的数字将在没有科学符号的情况下打印：

options(scipen = 35)
x <- c(1,20,5,2,30)
piecewise(x)
# [1]             -4   512000000000             25              4 19683000000000

请参阅？options有关更多详细信息。