[英]Define and plot a PieceWise function in R
我試圖用 RStudio 定義這個 function 但我遇到了很多問題並且無法理解有什么問題
x <- seq(-10, 10, 0.001)
fx <- function()
if(x < 0 ) {fx<- sin(x)
}
else if (x >= 0 && x < 2)
{
fx<- x^2
}
else if(x >= 2 )
{
fx<- 4*exp(x-2)
}
}
plot(x, fx)
我怎么能這樣做? 我在互聯網上找不到任何有用的東西
嘗試這個:
x <- seq(-10, 10, 0.001)
fx <- function(x) {
if (x < 0) {
return(sin(x))
} else if (x >= 0 & x < 2) {
return(x^2)
} else {
return(4*exp(x-2))
}
}
plot(x, sapply(x, fx))
由代表 package (v0.3.0) 於 2020 年 4 月 11 日創建
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.