data( germanFarms )
germanFarms$qOutput <- germanFarms$vOutput / germanFarms$pOutput
germanFarms$qVarInput <- -germanFarms$vVarInput / germanFarms$pVarInput
germanFarms$qLabor <- -germanFarms$qLabor
germanFarms$time <- c( 0:19 )
pNames <- c( "pOutput", "pVarInput", "pLabor" )
qNames <- c( "qOutput", "qVarInput", "qLabor" )
estResult <- snqProfitEst( pNames, qNames, c("land","time"), data=germanFarms )
residuals( estResult )
residuals( estResult, scaled = FALSE )
Run the code above in your browser using DataLab