Spring 2015 • Graduate Course
Math 501
| Component | Weight | Schedule / Details |
|---|---|---|
| Homework | 40% | Weekly assignments, due at the start of each Wednesday class. |
| Midterm Exam 1 | 20% | Friday, February 27, 2015 |
| Midterm Exam 2 | 20% | Friday, April 3, 2015 |
| Final Exam | 20% | Wednesday, May 13, 2015 (8:00 AM – 10:00 AM) |
myfun = function(n) {
m = 1000
x = rgamma(m, n, 1) / n # m X's
y = -2 * (n * log(x) + n * (1 - x)) # m \lambda's
u = rchisq(m, 1)
qqplot(y, u, main = paste("QQ plot, n =", n))
lines(y, y)
sy = sort(y)
plot(sy, ppoints(sy), xlim = c(0.5, 2), ylim = c(0.4, 0.9), type = "l", lty = 1, main = paste("CDF, n =", n))
lines(sy, pchisq(sy, 1), xlim = c(0.5, 2), ylim = c(0.4, 0.9), type = "l", lty = 2)
}
pdf("fig10.pdf", height = 9.0, width = 6.5)
par(mfrow = c(2, 2))
n = 1
myfun(n)
n = 100
myfun(n)
dev.off()