# NOT RUN {
phi_func= function(x)
{
return(dnorm(x,mean=0,sd=0.1))
}
y=g_cfar1(100,5,phi_func,grid=1000,sigma=1,ini=100)
phi_func= function(x)
{
return(dnorm(x,mean=0,sd=0.1))
}
y=g_cfar1(1000,5,phi_func,grid=1000,sigma=1,ini=100)
# }
Run the code above in your browser using DataLab