# read the output file that is provided with Frontier 4.1
outFile <- system.file( "front41/EG1.OUT", package = "micEcon" )
sfa <- readFront41out( outFile )
sfa$mleResults
sfa$efficiency
# perform an SFA and read the output
data( Coelli )
Coelli$logOutput <- log( Coelli$output )
Coelli$logCapital <- log( Coelli$capital )
Coelli$logLabour <- log( Coelli$labour )
writeFront41in( Coelli, "firm", "time", "logOutput",
c( "logCapital", "logLabour" ) )
system( "wine front41.exe" )
sfa <- readFront41out()
sfa$mleResults
sfa$efficiency
Run the code above in your browser using DataLab