# Calculate Standard Results SEs -------------------------------------- fadn.calculateSE=function(data) { seData=data.table(FID=data$tableAI$FID, SYS02=data$tableAI$WEIGHT) #Total labour input of holding SE010---- #expressed in annual work units = full-time person equivalents. #For casual unpaid labour: #AVEHRS1 = { [C13(4)..17(4)] } / { [C13(3)..17(3)] } #For casual paid labour: #AVEHRS2 = { C19(4) + C20(4) } / { C19(3) + C20(3) } #IF AVEHRS1 > 0 then A = #77 / AVEHRS1 for casual unpaid labour #IF AVEHRS2 > 0 then C = #83 / AVEHRS2 for casual paid labour #//todo # seData$SE010=getFormulaResult(data, # seData, # "%3+#57+#61+#65+#69+#72+#75+#79+#81+" # ); #SE011 Unpaid labour input ---- seData$SE011=getFormulaResult(data,seData,"#54+#58+#62+#66+#70+#73+#76+#77+#80+#82+#83"); #SE021 Paid labour Input ----- #Time worked in hours by paid labour input on holding. seData$SE021=getFormulaResult(data,seData,"#80+#82+#83"); #SE025 Total Utilised Agricultural Area ---- seData$SE025=getFormulaResult(data, seData, "#48+#49+#50"); #SE030 Rented U.A.A. ----- seData$SE030=getFormulaResult(data,seData,"#49"); #SE035 Cereals ----- seData$SE030=getFormulaResult(data,seData,"K120..148(4)"); #SE041 Other field crops ----- seData$SE041=getFormulaResult(data,seData,"K129..135(4)+K142(4)+K143(4)"); #SE042 Energy crops ----- seData$SE042=getFormulaResult(data,seData,"K129..133(4:2=10)+K135(4:2=10)+K144..145(4:2=10)+ K147..148(4:2=10)+K150(4:2=10)+ K158(4:2=10)+K160..161(4:2=10)+ K284(4:2=10)+K304(4:2=10)+K330..334(4:2=10)+ K345..348(4:2=10)+K360..364(4:2=10)"); #SE046 Vegetables and flowers ----- seData$SE046=getFormulaResult(data,seData,"K136..138(4)+K140(4)+K141(4)"); #SE050 Vineyards ----- seData$SE050=getFormulaResult(data,seData,"K155(4)"); #SE054 Permanent crops ----- seData$SE054=getFormulaResult(data,seData,"K152..154(4)+K156..158(4)"); #SE055 Orchards ----- seData$SE055=getFormulaResult(data,seData,"K152..153(4)"); #SE060 Olive groves ----- seData$SE060=getFormulaResult(data,seData,"K154(4)"); #SE065 Other permanent crops ----- seData$SE065=getFormulaResult(data,seData,"K156..158(4)"); #SE071 Forage crops ----- seData$SE071=getFormulaResult(data,seData,"K144..145(4)+K147(4)+K150..151(4)"); #SE072 Agricultural fallows ----- seData$SE072=getFormulaResult(data,seData,"K146(4:2=1&3=(0,1,2,3,4,9,10))"); #SE073 Set aside ----- seData$SE073=getFormulaResult(data,seData,"K146(4:2=1&3=(5,6,7,8))"); #SE074 Total agricultural area out of production ----- seData$SE074=getFormulaResult(data,seData,"SE072+SE073+K314(4)"); #SE075 Woodland area ----- seData$SE075=getFormulaResult(data,seData,"K173(4)"); #SE080 to SE105 TODO Livestock ---- #SE110 to SE125 TODO YIELDS ---- #SE135 Total crop output ---- seData$SE135=getFormulaResult(data, seData, "K120..148(7..10)-K120..148(6)+ K150..161(7..10)-K150..161(6)"); #SE110 to SE125 TODO YIELDS ---- seData$SE075=getFormulaResult(data,seData,"K173(4)"); #SE206 Total livestock output ---- seData$SE206=getFormulaResult(data, seData, "#231+#232+#234+#235+#237+#238+#240+#241+#243+#244+#246+#247 +#249+#250+#252+#253 -#233-#236-#239-#242-#245-#248-#251-#254 +K162..171(7..10)-K162..171(6)+K313(7..10)-K313(6)"); #SE256 Other output ---- seData$SE256=getFormulaResult(data, seData, "K149(7..10)+K172..181(7..10)"); #SE131 Total output ---- seData$SE131=getFormulaResult(data,seData,"SE135+SE206+S256"); #SE275 Total Intermediate consumption seData$SE275=getFormulaResult(data,seData,"#260..282+#284+#287"); #SE611 Compensatory Payments ---- seData$SE611=getFormulaResult(data,seData,"M602..614(5)+M618(5)+M622..629(5)+M632..634(5)+M638(5)+M655(5)"); #SE612 Set aside premiums ---- seData$SE612=getFormulaResult(data,seData,"M650(5)"); #SE613 Other Crop subsidies ---- seData$SE613=getFormulaResult(data,seData,"J120..145(2)+J147..161(2)+J185(2)+J281..284(2)+J296..301(2)+J326..357(2)+J360..374(2)+J952(2)"); #SE610 Total subsidies on crops ---- seData$SE610=getFormulaResult(data,seData,"SE611+SE612+SE613"); #SE616 Subsidies on dayring ---- seData$SE616=getFormulaResult(data,seData,"J30(2)+J162(2)+J163(2)+M770(5)-L401(10)"); #SE617 Subsidies other cattle ---- seData$SE617=getFormulaResult(data,seData,"J23..29(2)+J31..32(2)+J52(2)+J307(2)+M700(5)"); #SE618 Subsidies sheeps & goats ---- seData$SE618=getFormulaResult(data,seData,"K38..41(2)+J54..55(2)+J164..168(2)+J308(2)"); #SE619 Other livestock subsidies ---- seData$SE619=getFormulaResult(data,seData,"J22(2)+J33..34(2)+j43..51(2)+J56..58(2)+J169..171(2)+J309..311(2)+J313(2)+J951(2)"); #SE615 Total subsidies on livestock ---- seData$SE615=getFormulaResult(data,seData,"SE616+SE617+SE618+SE619"); #SE621 Environmental subsidies ---- seData$SE621=getFormulaResult(data,seData,"J800(2)+J810(2)"); #SE622 LFA subsidies ---- seData$SE622=getFormulaResult(data,seData,"J820(2)"); #SE623 Other Rural Development subsidies ---- seData$SE623=getFormulaResult(data,seData,"J830(2)+J835(2)+J840(2)+J900(2)+J910(2)+J953(2)"); #SE624 Total support on rural development seData$SE624=getFormulaResult(data,seData,"SE621+SE622+SE623+J173..176(2)+J179(2)"); #SE625 Subsidies on intermediate consumption seData$SE625=getFormulaResult(data,seData,"J59(2)+J85(2)+J89(2)"); #SE626 Subsidies on external factors ---- seData$SE626=getFormulaResult(data,seData,"J59(2)+J85(2)+J89(2)"); #SE631 Single Farm Payment ---- seData$SE631=getFormulaResult(data,seData,"J670(2)"); #SE632 Single Area Payment ---- seData$SE632=getFormulaResult(data,seData,"J680(2)"); #SE640 Additional aid seData$SE640=getFormulaResult(data,seData,"J955(2)"); #SE630 Decoupled payments seData$SE630=getFormulaResult(data,seData,"SE631+SE632+SE640"); #SE650 Aid for article 68 seData$SE650=getFormulaResult(data,seData,"J956(2)"); #Other subsidies seData$SE699=getFormulaResult(data,seData,"J172(2)+J177(2)+J178(2)+J180(2)+J181(2)+J182(2)+J950(2)+J998(2)+J999(2)"); #SE605 Total subsidies excluding on investments seData$SE605=getFormulaResult(data,seData,"SE610+SE615+SE624+SE625+SE626+SE630+SE650+SE699"); #SE395 VAT balance excluding on investments seData$SE395=getFormulaResult(data,seData,"#402+#405-#403"); #SE390 Taxes seData$SE390=getFormulaResult(data,seData,"#283+#288-J83(2)-J88(2)"); #SE600 Balance current subsidies & taxes seData$SE600=getFormulaResult(data,seData,"SE605+SE395-SE390"); #SE410 Gross Farm Income seData$SE410=getFormulaResult(data,seData,"SE131-SE275+SE600"); #SE360 Depreciation seData$SE360=getFormulaResult(data,seData,"#300+#348+#356"); #SE415 Farm Net Value Added seData$SE415=getFormulaResult(data,seData,"SE410-SE360"); #SE370 Wages Paid seData$SE370=getFormulaResult(data,seData,"#259"); #SE375 Rent Paid seData$SE375=getFormulaResult(data,seData,"#285"); #SE380 Interest Paid seData$SE380=getFormulaResult(data,seData,"#289"); #SE365 Total External factors seData$SE365=getFormulaResult(data,seData,"SE370+SE375+SE380"); #SE407 Payments to dairy outgoers seData$SE407=getFormulaResult(data,seData,"J1052(2)+J2052(2)"); #SE405 Balance subsidies & taxes on investments seData$SE405=getFormulaResult(data,seData,"#370+SE407-#404"); #SE420 Family Farm Income seData$SE420=getFormulaResult(data,seData,"SE415-SE365+SE405"); #SE140 Cereals Output---- seData$SE140=getFormulaResult(data,seData,"K120..128(7..10)-K120..128(6)"); #SE145 TODO Protein crops Output---- #SE146 TODO energy crops Output---- #SE150 TODO Potatoes Output---- #SE155 TODO Sugar beet Output---- #SE160 TODO Oil-seed crops Output---- #SE165 TODO Industrial crops Output---- #SE170 TODO Vegetables & flowers Output---- #SE175 TODO Fruits Output---- #SE180 TODO Citrus fruit Output---- #SE185 TODO Wine and grapes Output---- #SE190 TODO Olives & olive oil Output---- #SE195 TODO Forage crops Output---- #SE200 TODO Other crop output---- return(seData) }