# NOT RUN {
# 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", yName = "logOutput",
xNames = c( "logCapital", "logLabour" ),
path = tempdir(), insFile = "coelli.ins" )
# }
# NOT RUN {
system( paste0( "cd ", tempdir(), "; front41.bin coelli.ins" ) )
sfa <- front41ReadOutput( file.path( tempdir(), "coelli.out" ) )
summary( sfa )
# }
Run the code above in your browser using DataLab