asudipta

hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male")
n2 <- nPlot(Freq ~ Hair, group = 'Eye', data = hair_eye_male, type = 'multiBarChart')
n2

asudipta

# Specifying functions:

CalcResiduals <- function(th, data) {
   # Calculates the e_t and h_t for the GARCH(1, 1) model with given parameters.
   #
   # Argumentss:
   #   th: Parameters
   #          th[1] -> mean
   #          th[2] -> alpha.0
   #          th[3] -> alpha.1