R/Jacobian.R

`Jacobian` <-
function(zeta){
if(length(zeta)==1) 
    return(1)
J<-JacobianK(zeta,1)
if (length(zeta)==2) 
    return(J)
for (j in 2:(length(zeta)-1)){
         J<-J%*%JacobianK(zeta,j)
         }
J
}

Try the FitAR package in your browser

Any scripts or data that you put into this service are public.

FitAR documentation built on May 2, 2019, 3:22 a.m.