##################################### Foodstuffs data set #########################

food.names <- c("Beef, braised","Hamburger","Beef roast","Beef, steak","Beef, canned",
	"Chicken, broiled","Chicken, canned","Beef, heart","Lamb leg, roast","Lamb shoulder, roast",
	"Smoked Ham","Pork roast","Pork simmered","Beef tongue","Veal cutlet","Bluefish, baked",
	"Clams, raw","Clams, canned","Crabmeat, canned","Haddock, fried","Mackerel, broiled","Mackerel, canned",
	"Perch, fried",	"Salmon, canned","Sardines, canned","Tuna, canned","Shrimp, canned")
abrevfood.names <- c("BB","HR","BR","BS","BC","CB","CC","BH","LL","LS","HS","PR","PS","PT","VC","FB","AR","AC",
	"TC","HF","MB","MC","PF","SC","DC","UC","RC")
Energy <- c(340,245,420,375,180,115,170,160,265,300,340,340,355,205,185,136,70,45,90,135,100,155,195,120,180,170,110)
Protein <- c(20,21,15,19,22,20,25,26,20,18,20,19,19,18,23,22,11,7,14,16,19,16,16,17,22,25,23)
Fat <- c(29,17,39,32,10,3,7,5,20,25,28,29,30,14,9,4,1,1,2,5,13,9,11,5,9,7,1)
Calcium <- c(9,9,7,9,17,8,12,14,9,9,9,9,9,7,9,25,82,74,38,15,5,157,14,159,367,7,98)
Iron <- c(2.5,2.7,2.0,2.5,3.7,1.4,1.5,5.9,2.6,2.3,2.5,2.5,2.4,2.5,2.7,0.6,6.0,5.4,0.8,0.5,1.0,1.8,1.3,0.7,2.5,1.2,2.6)
cbind(abrevfood.names,food.names,Energy,Protein,Fat,Calcium,Iron)

X <- cbind(Energy,Protein,Fat,Calcium,Iron)
colnames(X) <- c("Energy","Protein","Fat","Calcium","Iron")
rownames(X) <- abrevfood.names