sas_anova_sementes

Acima 105 -> em blocos
Abaixo 105 -> casualizados

PROC FORMAT;
VALUE TRAT
1 = 'Marron'
2 = 'Azul'
3 = 'Verde'
4 = 'Vermelho'
5 = 'Amarelo'
6 = 'Sem_tratamento'
;
DATA A;
INPUT TRAT BLOCO CONSUMO;
DATALINES;
1	1	24.34
1	2	5.33
1	3	9.11
1	4	5.73
1	5	24.00
1	6	18.60
1	7	15.75
1	8	15.25
1	9	17.37
1	10	12.43
2	1	27.57
2	2	47.21
2	3	40.39
2	4	40.04
2	5	5.33
2	6	33.28
2	7	39.91
2	8	39.00
2	9	29.62
2	10	10.39
3	1	25.50
3	2	38.90
3	3	78.36
3	4	20.41
3	5	82.51
3	6	31.43
3	7	57.08
3	8	5.33
3	9	77.55
3	10	45.18
4	1	91.45
4	2	36.63
4	3	43.34
4	4	36.52
4	5	32.48
4	6	31.65
4	7	30.17
4	8	86.82
4	9	83.08
4	10	81.15
5	1	91.45
5	2	64.59
5	3	66.44
5	4	47.44
5	5	64.83
5	6	43.57
5	7	81.64
5	8	14.06
5	9	38.91
5	10	66.76
6	1	64.87
6	2	77.78
6	3	65.87
6	4	64.65
6	5	91.45
6	6	26.97
6	7	66.76
6	8	41.16
6	9	86.12
6	10	91.45
;
PROC PRINT DATA=A;
FORMAT TRAT TRAT.;RUN;

TITLE3'*** Teste de normalidade de Shapiro-Wilk ***';
PROC UNIVARIATE DATA= A NORMAL;
VAR CONSUMO;
FORMAT TRAT TRAT.;RUN;

TITLE3'*** Homogeneidade de variancias***';
PROC TRANSREG DATA=A PLOTS=NONE;
MODEL BOXCOX(CONSUMO)=CLASS(TRAT);
FORMAT TRAT TRAT.;RUN;

DATA A;
SET A;
T_CONS= CONSUMO**0.5;
RUN;
PROC PRINT DATA=A; RUN;

PROC TRANSREG DATA=A PLOTS=NONE;
MODEL BOXCOX(T_CONS)=CLASS(TRAT);
FORMAT TRAT TRAT.;RUN;

TITLE3'*** Teste de normalidade de Shapiro-Wilk ***';
PROC UNIVARIATE DATA= A NORMAL;
VAR T_CONS;
FORMAT TRAT TRAT.;RUN;

PROC GLM DATA=A;
CLASS TRAT BLOCO;
MODEL T_CONS = TRAT BLOCO;
MEANS TRAT / TUKEY LINES;
FORMAT TRAT TRAT.; RUN;