# plot the PDF of a chi^2 random variable with df = 10
# plot the PDF of a chi^2 random variable with df = 10
curve(dchisq(x, df = 10), xlim = c(0, 25))
test_function("curve", args = c("expr", "xlim"), eval = c(NA, T))
test_student_typed("dchisq")