estvar(h0, y, iter = 50, tolerance = 2e-04, trace = 1, th0 = rbind(0, 1, 1))
ficorr(r)
ftc(th, y, h1, w1)
ftg(th, y, h1, cv1)
fth(th, y, h1, w1 = 1)
fts(th, y, h1, cv1)
gamsph(h, th = rbind(1, 1, 1))
gamsph1(h, th = rbind(1, 1, 1))
gamsph2(h, th = rbind(1, 1, 1))
gamsph3(h, th = rbind(1, 1, 1))
hyperg(r)
"print"(x, ...)