# NOT RUN {
a <- data.frame(prov=c("Alava","Albacete","Valladolid"),
PP=c(20,30,10),PSOE=c(34,12,45), stringsAsFactors = FALSE)
INSP(a)
b<-data.frame(prov=c("1","2"),A=c(400,190),B=c(200,1000),stringsAsFactors = FALSE)
INSP(b)
# }
Run the code above in your browser using DataLab