sexe = c("homme","femme","femme","homme","homme") math = c(10,12,5,9,13) anglais = c(5,13,7,12,5) tab = data.frame(math,anglais,sexe) rownames(tab) = c("Alfred", "Berthe", "Carole", "Didier", "Eric") tab$moyenne = (tab$math + tab$anglais)/2 tab$avis = as.factor(ifelse(tab$moyenne<10,"recale","admis")) library(R2HTML) setwd("C:/Documents and Settings/raffinat") # répertoire à adapter nomfichier = "rapport1" # à adapter HTMLInitFile(outdir=getwd(), filename=nomfichier, useLaTeX=FALSE, useGrid=FALSE) HTML.title("Un premier rapport", HR=1) HTML.title("1) Statistiques brutes", HR=2) HTML.title("1.1) Etude de la note finale", HR=3) HTML("moyenne (de la note finale) : ") HTML(mean(tab$moyenne,na.rm=T)) HTML("ecart-type (de la note finale) : ") HTML(sd(tab$moyenne,na.rm=T)) HTML.title("1.2) Etude de l'avis", HR=3) HTML(summary(tab$avis)) HTML.title("2) Statistiques avec présentation amélioree", HR=2) HTML.title("2.1) Utilisation de la fonction paste", HR=3) phrase1 = paste("La moyenne (de la note finale) vaut", mean(tab$moyenne,na.rm=T), ".") HTML(phrase1) phrase2 = paste("L'ecart-type (de la note finale) vaut", sd(tab$moyenne,na.rm=T), ".") HTML(phrase2) tout = paste(phrase1,phrase2) HTML(tout) HTML.title("2.2) Mise en forme avec des matrices", HR=3) mat = matrix(summary(tab$avis), nrow=1) colnames(mat) = names(summary(tab$avis)) HTML(mat) HTML.title("2.3) Utilisation de balises HTML", HR=3) HTML("Si vous connaissez le langage HTML, vous pourrez améliorer la présentation, par exemple avec des listes à puce :") phrase1 = paste("La moyenne (de la note finale) vaut", mean(tab$moyenne,na.rm=T), ".") HTML( paste("