Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
# 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)
}