Pop<-matrix(c(1,1,0,2,2,1,1,1,2,2,0,1,1,3,3,0,1,1,3,3,1,1,1,3,4,1,0,1,3,3,0,1,1,3,3,0,0,1,2,2,0,1,1,3,3,1,0,1,2,1,0,0,1,2,2,0,0,1,2,2,1,0,0,2,2), nrow=13, ncol=5, byrow=TRUE)
colnames(Pop)<-c("V2", "V5", "V6", "V9", "V11")
Pop<-data.frame(Pop)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.