/* Using PROC TRANSPOSE to flip variables */
/* and observations */

* Reading in data for newborn babies;

data babies;
input name $14. measurement :$12. number;
lines;
Robert Johnson length 21.5
Sarah Smith    length 22.0
Jack White     length 21.0
Daniel Tjo     length 20.5
Robert Johnson weight 8.6
Sarah Smith    weight 8.1
Jack White     weight 7.0
Daniel Tjo     weight 7.2
Robert Johnson days_overdue 1
Sarah Smith    days_overdue 0
Jack White     days_overdue -5
Daniel Tjo     days_overdue -4
;
run;

PROC SORT data=babies;
BY name;

PROC TRANSPOSE data=babies out=transpose_babies;
BY name;
ID measurement;
VAR number;
run;

PROC PRINT data=transpose_babies;
title 'Baby Data Transposed';

PROC CORR data=transpose_babies;
VAR length weight days_overdue;
title;
run;