## SOURCE("fBasics.5A-HypothesisTesting")
## fHTEST -
getClass("fHTEST")
## pPlot -
## jbTable -
# Interpolated plot of Small Jarque Bera Table:
X = jbTable(type = "LM", size = "small")
par(ask = FALSE)
pPlot(X, linear = TRUE, logStat = TRUE)
pPlot(X, linear = TRUE, logStat = TRUE, fill = TRUE, main = "JB LM")
pPlot(X, linear = FALSE, logStat = TRUE)
pPlot(X, linear = FALSE, logStat = TRUE, fill = TRUE)
## [pq]Table -
## jbTable -
# Jarque Bera B q and p Table:
X = jbTable(type = "LM", size = "small")
p = (1:99)/100
plot(qTable(X, p, N = 100), p, type = "b")
Stat = seq(0.01, 15, length = 100)
plot(Stat, pTable(X, Stat, N = 100), type = "b")
Run the code above in your browser using DataLab