"oral.lesion" <-
structure(list(Kerala = c(0, 8, 0, 0, 0, 0, 0, 1, 1), Gujarat = c(1, 
1, 1, 1, 1, 1, 1, 0, 0), Andhra = c(0, 8, 0, 0, 0, 0, 0, 1, 1
)), .Names = c("Kerala", "Gujarat", "Andhra"), class = "data.frame", row.names = c("Labial.Mucosa", 
"Buccal.Mucosa", "Commissure", "Gingiva", "Hard.Palate", "Soft.Palate", 
"Tongue", "Floor.Mouth", "Alveolar.Ridge"))