有没有更优雅的方法将0到1之间的x投影到w形状？

Question

我需要将x0到1之间的值()投影到aw shape(y=f(x)):

我可以通过以下功能实现我所需要的:

f <- function(x) {
  if (x < 0.25) {
    return (1-4*x)
  }
  if (x < 0.50) {
    return (-1 + 4*x)
  }
  if (x < 0.75) {
    return (3 - 4*x)
  }
  return (-3 + 4*x)
}


x <- 0:20/20
y <- lapply(x, f)

plot(x, y)
lines(x,y, col='red')

但是,我倾向于相信我的问题有一个更优雅的解决方案,可能是一个班轮.

R中有这样的东西吗？

Answer 1

f <- function(x)
abs(abs(2 - 4 * x) - 1)

plot(f)