0

所以我在这里阅读了一个答案，然后继续使用ifelse.

我定义了一个分段函数来说明p不以不同的损失金额x计价的罚款金额。

p <- function(x){
  return(ifelse(x <=300, x - x*(300/400) , 
      ifelse(x > 300 & x <= 400,  300 - x*(300/400),
      ifelse(x > 400, 0, 0))))}
plot(p(0:500),type="l")

如您所见，输出不是很流畅，我的问题是：

  1. 任何绘图选项可以使它完美平滑（因为它应该在这里）？
  2. 如何仅在x从200到范围内420绘制每个10损失美元增量的情节点？我想这可能是我不知道的非常简单的事情200:10:420？？
4

0 回答 0