tibetskull.txt

"Tibet" <- 
structure(.Data = list(c(190.5, 172.5, 167., 169.5, 175., 177.5, 179.5, 179.5, 173.5, 162.5, 178.5, 171.5, 180.5, 183., 169.5, 172., 170.,
	182.5, 179.5, 191., 184.5, 181., 173.5, 188.5, 175., 196., 200., 185., 174.5, 195.5, 197., 182.5)
, c(152.5, 132., 130., 150.5, 138.5, 142.5, 142.5, 138., 135.5, 139., 135., 148.5, 139., 149., 130., 140., 126.5,
	136., 135., 140.5, 141.5, 142., 136.5, 130., 153., 142.5, 139.5, 134.5, 143.5, 144., 131.5, 131.)
, c(145., 125.5, 125.5, 133.5, 126., 142.5, 127.5, 133.5, 130.5, 131., 136., 132.5, 132., 121.5, 131., 136., 134.5,
	138.5, 128.5, 140.5, 134.5, 132.5, 126., 143., 130., 123.5, 143.5, 140., 132.5, 138.5, 135., 135.)
, c(73.5, 63., 69.5, 64.5, 77.5, 71.5, 70.5, 73.5, 70., 62., 71., 65., 74.5, 76.5, 68., 70.5, 66., 76., 74., 72.5,
	76.5, 79., 71.5, 79.5, 76.5, 76., 82.5, 81.5, 74., 78.5, 80.5, 68.5)
, c(136.5, 121., 119.5, 128., 135.5, 131., 134.5, 132.5, 133.5, 126., 124., 146.5, 134.5, 142., 119., 133.5, 118.5,
	134., 132., 131.5, 141.5, 136.5, 136.5, 136., 142., 134., 146., 137., 136.5, 144., 139., 136.)
, structure(.Data = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
, levels = c("1", "2")
, class = "factor"
)
)
, names = c("Length", "Breadth", "Height", "Fheight", "Fbreadth", "Type")
, row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20",
	"21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32")
, class = "data.frame"
)