## library(mFilter)
data(unemp)
## example usage
unemp.bn<-bnfilter(unemp,2,2)
summary(unemp.bn)
plot(unemp.bn)
## custom parameters
unemp.bn1<-bnfilter(unemp,phi=0.47,theta=0.15)
summary(unemp.bn1)
plot(unemp.bn1)
## A mix of fixed and estimated parameters
## Here phi_2 will be estimated
unemp.bn2<-bnfilter(unemp,p=2,q=1,phi=0.78,drift=0)
summary(unemp.bn2)
plot(unemp.bn2)
{
}
Run the code above in your browser using DataLab