DRYな備忘録

Don't Repeat Yourself.

Rのplotで複数の関数を線で描画する

fun1 <- function(x) {
    (x + 2) * (x - 4)
}
fun2 <- function(x) {
    (x + 1) * (x - 6)
}
v <- seq(-4, 8)
plot(v, fun1(v), type="l", col="red")
lines(v, fun2(v), col="blue")

f:id:otiai10:20180524154957p:plain