Listing du fichier pagsd4.php
00001 <?php
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier. |
Retour à la page principale de
(gH)
Listing du fichier pagsd4.php
00001 <?php
00002 error_reporting(E_ALL | E_NOTICE | E_STRICT) ;
00003 include("std7.php") ;
00004 include("pagsd_inc.php") ;
00005 # # (gH) -_- pagsd4.php ; TimeStamp (unix) : 07 Janvier 2019 vers 13:25
00006
00007 $LaTeX = s_span("LaTeX","grouge") ;
00008 $R = s_span("R","grouge") ;
00009 $Sweave = s_span("Sweave","gvert") ;
00010 $Knitr = s_span("Knitr","gvert") ;
00011 $Markdown = s_span("Markdown","gvert") ;
00012
00013 #######################################################################################
00014
00015 debutPage("PAGSD 4/5","strict","","pagsd.js") ;
00016
00017 debutSection() ;
00018 h1(s_span("P","gbleu")."roduction ".s_span("A","gbleu")."utomatisée de") ;
00019 h1(s_span("G","gbleu")."raphiques, ".s_span("S","gbleu")."tatistiques et ".s_span("D","gbleu")."ocuments") ;
00020 $gh = s_nbsp(20)." gilles.hunault \"at\" univ-angers.fr" ;
00021 h2($gh,"gvert") ;
00022 pvide() ;
00023 h2(" -- partie 4 sur 5 : $Sweave et $Knitr = $LaTeX + $R ");
00024 finSection() ;
00025
00026 ##############################################################################################
00027
00028 sdl(3) ; echo cmt(' pour afficher toutes les solutions : pagsd1.php?solutions=1') ; sdl(3) ;
00029
00030 ## -------------------------------------------------------------------------------------------
00031
00032 debutSection() ;
00033
00034 $tableauDesRubriques = array() ;
00035 $idr = 0 ;
00036 $idr++; $tableauDesRubriques[$idr] = "Rapport sur la qualité de la fonction ".bleu("runif()") ;
00037 $idr++; $tableauDesRubriques[$idr] = "Production d'un document de veille technologique" ;
00038 $idr++; $tableauDesRubriques[$idr] = "Manuel d'analyses statistiques pour LEAPdb et sHSPdb" ;
00039 $tdmCRLM = new tdm($tableauDesRubriques) ;
00040 $tdmCRLM->titre() ;
00041 $tdmCRLM->menu("oui","oui","nou") ;
00042
00043 pvide() ;
00044
00045 p() ;
00046 echo "Il est possible d'afficher toutes les solutions via " ;
00047 echo href("pagsd4.php?solutions=1","?solutions=1","bouton_fin vert_pastel nou") ;
00048 echo " et de toutes les masquer avec " ;
00049 echo href("pagsd4.php?solutions=0","?solutions=0","bouton_fin jaune_pastel nou").". " ;
00050 finp() ;
00051
00052 finSection() ;
00053
00054 debutSection() ;
00055
00056 $numSerie = 1 ;
00057 $numExo = 0 ;
00058
00059 ## -------------------------------------------------------------------------------------------
00060
00061 $tdmCRLM->afficheRubrique("oui") ; $numExo++ ; # Rapport sur la qualité de la fonction runif
00062
00063 ## -------------------------------------------------------------------------------------------
00064
00065 blockquote() ;
00066
00067 blockquote() ;
00068
00069 p() ;
00070 echo "Sous $R, la fonction " ;
00071 echo hrrr("Uniform","stats","runif()") ;
00072 echo " produit des nombres \"au hasard\", uniformément répartis dans l'intervalle [0,1]." ;
00073 finp() ;
00074
00075 p() ;
00076 echo " Ecrire du code $R pour tester cette équirépartition puis en faire un rapport $pdf via $Sweave." ;
00077 finp() ;
00078
00079 p() ;
00080 echo " Modifier ensuite le document pour produire du $html, du $word et du $pdf avec $Knitr." ;
00081 finp() ;
00082
00083 finblockquote() ;
00084
00085 solution($numExo,$numSerie) ;
00086
00087 p("texte") ;
00088 echo " Voici, dans le fichier ".href("testrunif.r").", un exemple de programme $R qui effectue des tirages aléatoires avec la fonction " ;
00089 echo hrrr("Uniform","stats","runif()") ;
00090 echo " et qui comptabilise les résultats :" ;
00091 finp() ;
00092
00093 pre_fichier("testrunif.r","cadrebleu") ;
00094
00095 p("texte") ;
00096 echo " Si on l'utilise via l'appel ".b("testRunif(10,5000)")." voici un exemple de résultats possibles :" ;
00097 finp() ;
00098
00099 pre_fichier("testrunif.res","cadrejaune") ;
00100
00101 p("texte") ;
00102 echo "Pour réaliser un document $Sweave qui exécute ce fichier, il suffit de respecter la syntaxe proposée dans " ;
00103 echo " la ".href("https://www.statistik.lmu.de/~leisch/Sweave/","documentation officielle").", soit le document " ;
00104 echo " suivant, nommé ".href("testrunif.rnw")." :" ;
00105 finp() ;
00106
00107 pre_fichier("testrunif.rnw","cadre") ;
00108
00109 p("texte") ;
00110 echo "Et on trouvera dans ".href("runif.pdf")." le fichier $pdf résultat." ;
00111 finp() ;
00112
00113 p("texte") ;
00114 echo "Pour celles et ceux qui lisent plus facilement le français que l'anglais, on pourra consulter les liens " ;
00115 echo href("http://informatique-mia.inra.fr/r4ciam/node/184","r4ciam").", " ;
00116 echo href("http://rug.mnhn.fr/semin-r/PDF/semin-R_sweave_LPonger_290312.pdf","semin-R")." et " ;
00117 echo href("https://pbil.univ-lyon1.fr/R/pdf/tdr78.pdf","tdr78.pdf").". " ;
00118 finp() ;
00119
00120 p("texte") ;
00121 echo "Pour générer des documents au format $Markdown/$Knitr, la syntaxe est légèrement différente, " ;
00122 echo " soit le document suivant, nommé ".href("testrunif.rmd")." :" ;
00123 finp() ;
00124
00125 pre_fichier("testrunif.rmd","cadre") ;
00126
00127 p("texte") ;
00128 echo "Les fichiers produits avec les options " ;
00129 echo b("output: html_document").", " ;
00130 echo b("output: word_document")." et " ;
00131 echo b("output: pdf_document")." sont respectivement nommés " ;
00132 echo " ".href("k-runif.html").", " ;
00133 echo " ".href("k-runif.docx")." et " ;
00134 echo " ".href("k-runif.pdf").". " ;
00135 finp() ;
00136
00137 finsolution() ;
00138
00139 finblockquote() ;
00140
00141 ## -------------------------------------------------------------------------------------------
00142
00143 $tdmCRLM->afficheRubrique("oui") ; $numExo++ ; # Production d'un document de veille technologique
00144
00145 ## -------------------------------------------------------------------------------------------
00146
00147 blockquote() ;
00148
00149 blockquote() ;
00150
00151 p("texte") ;
00152 echo "On s'intéresse à la fréquence fournie par Google d'un certain nombre de mots-clés, par exemple les " ;
00153 echo " mots ".b("python")." et ".b("ruby").". Pour cela, on souhaite archiver ces fréquences avec la date à laquelle on " ;
00154 echo " a obtenu ces fréquences dans une base de données au sens de ".b("Sqlite")." et produire un document $pdf " ;
00155 echo " qui affiche chronologiquement ces fréquences afin d'en analyser l'évolution. " ;
00156 finp() ;
00157
00158 p() ;
00159 echo " Ecrire du code $R pour interroger Google et stocker les fréquences avec la date puis en faire un document $pdf via $Sweave." ;
00160 finp() ;
00161
00162 finblockquote() ;
00163
00164 solution($numExo,$numSerie) ;
00165
00166 p("texte") ;
00167 echo " Solution volontairement non communiquée." ;
00168 finp() ;
00169
00170 finsolution() ;
00171
00172 finblockquote() ;
00173
00174 ## -------------------------------------------------------------------------------------------
00175
00176 $tdmCRLM->afficheRubrique("oui") ; $numExo++ ; # Manuel d'analyses statistiques pour LEAPdb et sHSPdb
00177
00178 ## -------------------------------------------------------------------------------------------
00179
00180 blockquote() ;
00181
00182 blockquote() ;
00183
00184 p("texte") ;
00185 echo " On trouve, pour la base de données " ;
00186 echo href("http://forge.info.univ-angers.fr/~gh/Leadb/index.php?action=0&mode=0","LEAPdb").", " ;
00187 #echo " et " ;
00188 #echo href("http://forge.info.univ-angers.fr/~gh/Shspdb/index.php?action=0&mode=0","sHSPdb") ;
00189 echo " à la rubrique ".b("Statistical analysis").", soit le lien " ;
00190 echo href("http://forge.info.univ-angers.fr/~gh/Leadb/index.php?action=12&mode=0","statAn").", " ;
00191 #echo " et " ;
00192 #echo href("http://forge.info.univ-angers.fr/~gh/Shspdb/index.php?action=12&mode=0","stat2").", " ;
00193 echo " deux manuels exhaustifs d'analyses statistiques de plusieurs centaines de pages. " ;
00194 echo " De quels types d'analyses s'agit-il ?" ;
00195 echo " Ecrire du code $R et $php pour reproduire ces manuels. " ;
00196 finp() ;
00197
00198 # on fournit les données protpc.csv ?
00199
00200 finblockquote() ;
00201
00202 solution($numExo,$numSerie) ;
00203
00204 # ==> il manque la liste des classes et la liste de propriétés
00205 # donc une table des matières ?
00206
00207 p("texte") ;
00208 echo "Solution volontairement restreinte à l'archive ".href("http://forge.info.univ-angers.fr/~gh/Leadb/leaman/leaman.zip","leamanual.zip").". " ;
00209 finp() ;
00210
00211 finsolution() ;
00212
00213 finblockquote() ;
00214
00215 ## -------------------------------------------------------------------------------------------
00216
00217 p() ;
00218 echo href("montresource.php?nomfic=pagsd4.php","Code-source de cette page","orange_stim nou")." ; " ;
00219 echo " fichiers inclus : ".href("montresource.php?nomfic=pagsd_inc.php","pagsd_inc.php","orange_stim nou") ;
00220 echo " et ".href("montresource.php?nomfic=pagsd.js","pagsd.js","orange_stim nou")."." ;
00221 finp() ;
00222
00223 finSection() ;
00224 finPage() ;
00225 ?>
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier.