x <- sort(seq(-5,5,.01))
xval <- seq(-5,5,1)
x1 <- plot(dt(x, df=1),xaxt="n",ylim=c(0,0.5),lwd=1, main="Kurtosis",xlab="X",ylab="density")
x2 <- lines(dt(x, df=50), col = "cyan",lwd=4)
x3 <- lines(dunif(x,-4,4), col = "magenta",lwd=4)
legend(2, 0.5, legend=c("Student", "Normal","Uniform"),fill = c("black","cyan", "magenta"))

LS0tCnRpdGxlOiAiQUNUVS00NTcgKE1hc3QgNzI0KSBSaXNrIFRoZW9yeSIKYXV0aG9yOiAiUHJvZi4gTWVsaW5hIE1haWxob3QiCmRhdGU6ICIyMDI0LTEyLTI4IgpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdAogIHBkZl9kb2N1bWVudDogZGVmYXVsdAotLS0KCmBgYHtyfQp4IDwtIHNvcnQoc2VxKC01LDUsLjAxKSkKeHZhbCA8LSBzZXEoLTUsNSwxKQp4MSA8LSBwbG90KGR0KHgsIGRmPTEpLHhheHQ9Im4iLHlsaW09YygwLDAuNSksbHdkPTEsIG1haW49Ikt1cnRvc2lzIix4bGFiPSJYIix5bGFiPSJkZW5zaXR5IikKeDIgPC0gbGluZXMoZHQoeCwgZGY9NTApLCBjb2wgPSAiY3lhbiIsbHdkPTQpCngzIDwtIGxpbmVzKGR1bmlmKHgsLTQsNCksIGNvbCA9ICJtYWdlbnRhIixsd2Q9NCkKbGVnZW5kKDIsIDAuNSwgbGVnZW5kPWMoIlN0dWRlbnQiLCAiTm9ybWFsIiwiVW5pZm9ybSIpLGZpbGwgPSBjKCJibGFjayIsImN5YW4iLCAibWFnZW50YSIpKQpgYGAK