options nodate nonumber ps=60 ls=78;
data compvar;
input locais bloco progenie PRODUCAO;
cards;
1      1       1        251
1      1       2        198
1      1       3        186
1      1       4        121
1      1       5        159
1      1       6        141
1      1       7        232
1      1       8        161
1      1       9        277
1      1      10        144
1      1      11        153
1      1      12        195
1      1      13        159
1      1      14        203
1      1      15        204
1      1      16        166
1      1      17        185
1      1      18        183
1      1      19        214
1      1      20        141
1      2       1        192
1      2       2        200
1      2       3        156
1      2       4        147
1      2       5        173
1      2       6        167
1      2       7        242
1      2       8        168
1      2       9        253
1      2      10        142
1      2      11        142
1      2      12        176
1      2      13        155
1      2      14        198
1      2      15        187
1      2      16        142
1      2      17        199
1      2      18        149
1      2      19        198
1      2      20        141
1      3       1        262
1      3       2        153
1      3       3        182
1      3       4        181
1      3       5        142
1      3       6        169
1      3       7        160
1      3       8        155
1      3       9        289
1      3      10        137
1      3      11        149
1      3      12        277
1      3      13        157
1      3      14        183
1      3      15        199
1      3      16        163
1      3      17        183
1      3      18        151
1      3      19        186
1      3      20        176
2      1       1        218
2      1       2        150
2      1       3        206
2      1       4        162
2      1       5        176
2      1       6        166
2      1       7        180
2      1       8        204
2      1       9        332
2      1      10        270
2      1      11        158
2      1      12        221
2      1      13        224
2      1      14        282
2      1      15        248
2      1      16        203
2      1      17        147
2      1      18        211
2      1      19        220
2      1      20        136
2      2       1        227
2      2       2        153
2      2       3        226
2      2       4        172
2      2       5        263
2      2       6        147
2      2       7        194
2      2       8        229
2      2       9        243
2      2      10        207
2      2      11        163
2      2      12        204
2      2      13        259
2      2      14        279
2      2      15        224
2      2      16        297
2      2      17        223
2      2      18        226
2      2      19        245
2      2      20        155
2      3       1        316
2      3       2        172
2      3       3        234
2      3       4        183
2      3       5        182
2      3       6        204
2      3       7        220
2      3       8        232
2      3       9        273
2      3      10        278
2      3      11        189
2      3      12        205
2      3      13        225
2      3      14        361
2      3      15        184
2      3      16        293
2      3      17        154
2      3      18        258
2      3      19        218
2      3      20        218
;


proc glm;
title 'Anavas individuais';
 by locais;
  class bloco progenie;
  model PRODUCAO= progenie bloco;
  random progenie bloco/test;
run;

proc glm;
title 'Análise conjunta';
  class progenie bloco locais;
  model PRODUCAO=locais bloco(locais) progenie progenie*locais;
  random progenie bloco(locais) progenie*locais / test;
run;