# F分布

# パラメータ
nu1 <- 4
nu2 <- 5

# 確率密度関数のグラフ
fmin <- 0
fmax <- 5
title <- sprintf("F(%d,%d)", nu1, nu2)
curve(df(x, nu1, nu2), from = fmin, to = fmax, main = title)