data(papersdocstu)
df<-papersdocstu
head(df)
barplot(table(df$papers),xlab="Numero de papers publicados",
ylab="Frecuencia (num. de estudiantes)")
table(df$genero)
table(df$est.civil,df$genero)
tapply(df$papers,df$est.civil,summary)
Run the code above in your browser using DataLab