powered by
Parented
str(Parented) attach(Parented) MAT <- cbind(Mother, Father) row.names(MAT) <- Educat MAT barplot(t(MAT),beside=TRUE,legend=TRUE,col=c("blue","red")) detach(Parented) remove(MAT)
Run the code above in your browser using DataLab