data(macro)
y=macro[-1,c(1)]
x=macro[-1,c(2,4)]
z=as.matrix(na.omit(exp(diff(macro)))) #IV
out=fmgive(y,x,z,v=15,t=5,ker_fun="parzen")
out$beta
out$vcov
out$stderr
out$tstat #t-ratio
tail(out$fit)
tail(out$resid)
y=macro[-1,c(1,3)]
x=macro[-1,c(2,4)]
z=as.matrix(na.omit(exp(diff(macro)))) #IV
out=fmgive(y,x,z,v=15,t=5,ker_fun="parzen")
out$beta
Run the code above in your browser using DataLab