notes = c(15,8,5,NA,10) notes mean(notes, na.rm=T) avis = ifelse(notes<10,"recale","admis") avis table(avis) pie(table(avis), main="camembert")