%include catdata(berkeley);

*-- Collapse over dept;
%table(data=berkeley, out=berk2, var=Admit Gender, weight=freq,
	char=Y, format=admit admit. gender $sex.,
	order=data);

%ffold(data=berk2, var=Admit Gender);

*-- Full table, but recode numeric -> character;
%table(data=berkeley, var=Admit Gender Dept, weight=freq,
	char=Y, format=admit admit. gender $sex. dept dept.,
	order=data, out=berkeley);
	 
%ffold(data=berkeley, var=Admit Gender, 
	by=Dept, down=2, across=3, order=across, htext=2);