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