möchte gerne den Teil unter der Kurve von der blauen Linie bis zum rechten Rand einfärben.
Recherche im Netz war erfolglos -.-.
Danke für Hilfe
- Code: Alles auswählen
linie = pchisq(9.16,3)*10
x = seq(0,15,0.1)
plot(x,dchisq(x,3),type = 'l')
abline(h=0)
abline(v=linie, col="blue", lwd=3, lty=2)
abline(v=9.16, col="red", lwd=3)
text(expression(chi^2), x = 9.16, y = min(y), srt = 90, adj = c(-10, -0.2), col = "red") # near bottom
text(expression(Krit), x = 9.16, y = min(y), srt = 90, adj = c(-10, 1.5), col = "blue") # near bottom
pchisq(9.16,3)
