# read the output file that is provided with Frontier 4.1
outFile <- system.file( "front41/EG1.OUT", package = "frontier" )
sfa <- front41ReadOutput( outFile )
print( sfa, efficiencies = TRUE )
# perform an SFA and read the output
data( front41Data )
front41Data$logOutput <- log( front41Data$output )
front41Data$logCapital <- log( front41Data$capital )
front41Data$logLabour <- log( front41Data$labour )
front41WriteInput( front41Data, "firm", "time", "logOutput",
c( "logCapital", "logLabour" ), insFile = "coelli.ins" )
system( "front41.bin coelli.ins" )
sfa <- front41ReadOutput( "coelli.out" )
print( sfa )
Run the code above in your browser using DataLab