我正在嘗試使用以下引數在 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
是什么導致了這個問題，我該如何解決？
uj5u.com熱心網友回復：
您可以通過設定scipen“科學記數法懲罰”選項來更改 R 的科學記數法列印選項。位數少于scipen不使用科學記數法列印的數字：
options(scipen = 35)
x <- c(1,20,5,2,30)
piecewise(x)
# [1] -4 512000000000 25 4 19683000000000
有關?options更多詳細資訊，請參閱。
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/496456.html