data(smi.stocks)
smi.fit <- fit.tuv(data = smi.stocks[,"SMI"], symmetric = TRUE)
nestle.fit <- fit.tuv(data = smi.stocks[,"Nestle"], symmetric = TRUE)
## Student-t distribution
plot(smi.fit, type = "l", log = "y")
lines(nestle.fit, col = "blue")
## Empirical
lines(density(smi.stocks[,"SMI"]), lty = "dashed")
lines(density(smi.stocks[,"Nestle"]), lty = "dashed", col = "blue")
Run the code above in your browser using DataLab