tests/sfactor2bwTest.R

library( "micEconNP" )
data( "oecdpanel" )

oecdpanel$yearFactor <- factor( oecdpanel$year )
npModel <- npreg( growth ~ yearFactor + initgdp, 
   regtype = "ll", gradients = TRUE, data = oecdpanel )

summary( npModel )

summary( npModel$bws )

bw <- sfactor2bw( npModel$bws$sfactor$x, c( "yearFactor", "initgdp" ),
   data = oecdpanel )
bw

all.equal( npModel$bws$bw, bw )

Try the micEconNP package in your browser

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

micEconNP documentation built on May 2, 2019, 6:30 p.m.