1# returning univariate volatility
2
3# for "R_uni_vola.c"
4   uni.vola <- function(a,u){
5      usq <- u^2
6#      .Call("uni_vola", a, usq, PACKAGE="ccgarch")
7      .Call("uni_vola", a, usq)
8
9   }
10