# Wirtschaftsstatistik Blatt 2

# Aufgabe 3

rm(list=ls(all=T))

# Verteilungsfunktion der t_4-Verteilung plotten
plot(function(x) pt(x, 4), -5, 5, col = "black", xlab = "x", ylab = "VF bzw. Dichte")

# Dichte der t_4-Verteilung dazu plotten
plot(function(x) dt(x, 4), -5, 5, col = "red", add = TRUE)

# Titel angeben
title("VF und Dichte der t-Verteilung")

# Legende angeben
legend(x = -4, y = 0.8, legend = c("VF", "Dichte"), lty = c(1, 1), col = c("black", "red"))