str(Heat)
attach(Heat)
MAT <- cbind(Reserv, All.US, Not.Rese)
row.names(MAT) <- c("Utility Gas","LP bottled Gas","Electricity",
"Fuel Oil","Wood","Other Fuel")
MAT
barplot(t(MAT),beside=TRUE,legend=TRUE,main="Heating of American Indian Homes")
sum(Reserv)
sum(All.US)
sum(Not.Rese)
detach(Heat)
Run the code above in your browser using DataLab