# example included in FRONTIER 4.1
data( front41Data )
front41Data$logOutput <- log( front41Data$output )
front41Data$logCapital <- log( front41Data$capital )
front41Data$logLabour <- log( front41Data$labour )
sfa <- frontier( front41Data, "firm", "time", "logOutput",
c( "logCapital", "logLabour" ) )
summary( sfa )
# rice producers in the Phillipines
data( riceProdPhil )
riceProdPhil$lPROD <- log( riceProdPhil$PROD )
riceProdPhil$lAREA <- log( riceProdPhil$AREA )
riceProdPhil$lLABOR <- log( riceProdPhil$LABOR )
riceProdPhil$lNPK <- log( riceProdPhil$NPK )
rice <- frontier( riceProdPhil,
crossSectionName = "FMERCODE", timePeriodName = "YEARDUM",
yName = "lPROD", xNames = c( "lAREA", "lLABOR", "lNPK" ) )
summary( rice )
rice2 <- frontier( riceProdPhil,
crossSectionName = "FMERCODE", timePeriodName = "YEARDUM",
yName = "lPROD", xNames = c( "lAREA", "lLABOR", "lNPK" ),
zNames = c( "EDYRS", "BANRAT" ) )
summary( rice2 )
Run the code above in your browser using DataLab