TITLE1 'Delineamento Inteiramente 
Casualizado'; 
TITLE2 'Programa para casualizar os 
Tratamentos as Parcelas';
/*  Programa para gerar as parcelas, os 
tratamentos e suas repetições;*/
/*  rep=repetições e trat=tratamentos;*/
TITLE3 'Gera as parcelas, os tratamentos e 
suas repetições';
DATA plano; /*comando DATA gera arquivo;*/
   rep=6; trat=8;
   DO parc=1 to rep*trat;
      trat=int((parc-1)/rep)+1;
         OUTPUT;
      END;  /* final do loop */
PROC PRINT NOOBS DATA=plano;  
 */ NOOBS - não imprima o número das observações */;
 VAR trat parc;
RUN;
TITLE 'Casualização dos tratamentos as 
parcelas';
PROC PLAN SEED=167;
*/ seed=semente. Pode usar qualquer número */;
   FACTORS parc=48;
   OUTPUT DATA=plano OUT=croqui;
RUN;
PROC PRINT DATA=CROQUI;
RUN;
TITLE ' Distribuição aleatoria dos 
tratamentos às Parcelas - CROQUI';
PROC SORT DATA=croqui; BY parc;
*/proc sort faz ordenação por variável, por parcela nesse caso*/;
RUN;
PROC PRINT NOOBS DATA=croqui;
   VAR parc trat;
RUN;
QUIT;
*/QUIT=sai da programação*/;




/*=========================================================*/
/* Planejamento de um experimento aleatorizado em blocos   */
/* com quatro blocos e cinco tratamentos                   */
/*=========================================================*/

option NODATE PS=65;
/* NODATE=nao colocar data, PS=colocar o tamanho da página.*/
title"Delineamento em Blocos Aleatorizado com um Fator";

proc plan seed=0;
  factors BLOCOS=4 ordered PARCELAS=5 ordered;
  /*Temos dois fatores. os blocos nao sao sorteados.*/
  treatments TRAT=5 random;
  output out=BLOCOS TRAT cvals=("A" "B" "C" "D" "E");
 /* cvals "c" significa caracteres e "vals" significa valores. Estamos dando nomes para os níveis dos trats*/
run;
proc print data=BLOCOS;
run;

/*=========================================================*/
/* Planejamento de um experimento aleatorizado em blocos   */
/* com quatro blocos e cinco tratamentos                   */
/*=========================================================*/

option NODATE PS=65;
title"Delineamento em Blocos Aleatorizado com um Fator";

proc plan;
  factors BLOCOS=4 ordered PARCELAS=5 ordered;
  treatments TRAT=5 random;
  output out=BLOCOS TRAT cvals=("A" "B" "C" "D" "E");
run;
proc print data=BLOCOS;
run;

/*=========================================================*/
/* Planejamento de um experimento quadrado latino 5x5      */
/*=========================================================*/

option NODATE PS=65;
title"Delineamento em Quadrado Latino";

proc plan seed=24371;
  factors LINHAS=5 ordered COLUNAS=5 ordered;
  treatments TRAT=5 cyclic;
run;


proc plan seed=24371;
  factors LINHAS=5 ordered COLUNAS=5 ordered;
  treatments TRAT=5 cyclic 2;
run;



proc plan seed=24371;
  factors LINHAS=5 ordered COLUNAS=5 ordered;
  treatments TRAT=5 cyclic (2 4 1 3 5) 2;
run;