Code-source


00001     <?php     

00002     error_reporting(E_ALL | E_NOTICE ) ;     

00003     #    (gH)   -_-  aqt_det.php  ;  TimeStamp (unix) : 14 Juillet 2009 vers 13:49     

00004     include("../std.php") ;     

00005     debutPage("Analyse d&eacute;taill&eacute;e d'une variable quantitative")  ;     

00006     ###########################################################     

00007          

00008     h1("Analyse d&eacute;taill&eacute;e d'une variable quantitative :") ;     

00009          

00010     blockquote() ;     

00011     h2("caract&eacute;ristiques (m, s, cv, q2, iqr, iqr%...),") ;     

00012     h2("tests de normalit&eacute;, graphiques,") ;     

00013     h2("valeurs extr&ecirc;mes (\"outliers\").") ;     

00014     finblockquote() ;     

00015          

00016     pvide() ;     

00017          

00018     $xmp = 0 ;     

00019     if (isset($_GET["xmp"]))  { $xmp  = $_GET["xmp"]  ; } ; # pour les exemples     

00020     if (isset($_POST["xmp"])) { $xmp  = $_POST["xmp"] ; } ;     

00021          

00022     if ($xmp==1) {     

00023        $vnd     = "Poids organe (frais)" ;     

00024        $und     = "kg" ;     

00025        $dataval = "1 2 3 4 5 6 7 6 5 4 3 2 1" ;     

00026     } ; # fin de si     

00027          

00028     # donn&eacute;es r&eacute;elles Pla Snisf1     

00029          

00030     if ($xmp==2) {     

00031        $vnd = "Plaquettes (thrombocytes)" ;     

00032        $und = "G/L" ;     

00033        $dataval  = "" ;     

00034        $dataval .= "219 184 192 114 198 254 353 99 220 369 167 155 146 244 159 343 153 273 284" ;     

00035        $dataval .= " 338 93 100 175 234 253 127 225 257 289 291 187 111 178 89 101 175  310 99" ;     

00036        $dataval .= " 151 153 203 200 173 96 232 253 256 214 272 250 333 362 252 229 381 228 293" ;     

00037        $dataval .= " 276 224 188 256 295 265 284 193 122 264 240 193 33.9 297 241 279 233 278" ;     

00038        $dataval .= " 210 297 201 184 208 217 172 325 261 235 219 231 240 245 206 314 119 174" ;     

00039        $dataval .= " 191 154 138 223 332 232 210 340 304 173 260 163 211 292 184 164 164 224" ;     

00040        $dataval .= " 173 200 298 278 241 245 206 355 185 189 229 303 183 190 192 150 208 211" ;     

00041        $dataval .= " 253 263 221 337 254 212 308 330 191 227 159 282 257 234 267 153 249 237" ;     

00042        $dataval .= " 290 250 197 221 202 242 263 202 141 227 217 194 338 191 309 153 93 172 265" ;     

00043        $dataval .= " 145 184 221 100 229 215 199 231 238 231 339 174 214 287 261 220 174 250" ;     

00044        $dataval .= " 206 316 259 324 226 290 239 183 267 329 248 258 211 262 297 213 207 95 239" ;     

00045        $dataval .= " 121 240 212 180 392 154 202 163 144 125 457 224" ;     

00046     } ; # fin de si     

00047          

00048     if ($xmp==3) {     

00049        $vnd = "TP (taux de prothrombine)" ;     

00050        $und = "%" ;     

00051        $dataval  = "" ;     

00052        $dataval .= "101 108 115 77 113 81 82 67 73 110 89 73 99 94 100 95 87 97 98 99 75 85 94 101" ;     

00053        $dataval .= " 100 75 98 91 103 111 91 83 93 79 63 79 99 106 77 85 62 100 96 73 100 92 100 100" ;     

00054        $dataval .= " 100 100 100 100 100 90 90 96 100 96 100 100 90 100 92 89 81 94 96 90 81 100 94" ;     

00055        $dataval .= " 95 100 85 93 83 100 99 100 89 95 78 100 86 93 89 99 95 81 79 95 83 78 85 79 77" ;     

00056        $dataval .= " 85 79 100 80 100 83 99 100 80 91 100 76 76 81 92 98 86 100 100 100 92 96 100 89" ;     

00057        $dataval .= " 90 87 90 75 67 87 83 83 100 100 93 88 100 98 100 98 98 100 100 100 83 93 88 100" ;     

00058        $dataval .= " 85 100 83 86 93 82 85 100 98 94 85 69 77 88 85 100 86 86 109 78 98 100 71 88" ;     

00059        $dataval .= " 100 72 84 100 100 81 85 100 93 100 83 100 100 86 78 86 88 96 100 96 100 94 99" ;     

00060        $dataval .= " 87 94 100 100 100 100 100 91 100 97 71 104 64 102 97 102 103 76 107 95 96 84" ;     

00061        $dataval .= " 101 92" ;     

00062     } ; # fin de si     

00063          

00064     if ($xmp==4) {     

00065        $vnd = "Longueur de la prot&eacute;ine" ;     

00066        $und = "aa" ;     

00067        $dataval  = "" ;     

00068        $dataval .= "25 74.87642 78.19103 73.40912 80.83683 74.03204 75.95157 76.88743 77.138 77.4307" ;     

00069        $dataval .= " 71.69775 74.54015 67.95178 76.08064 76.7015 76.96932 73.92455 79.59978 74.56595" ;     

00070        $dataval .= " 78.42517 71.12141 71.07971 73.44617 75.45932 74.76473 74.04173 71.3043 72.49137" ;     

00071        $dataval .= " 74.58058 72.6759 72.50979 77.11041 70.29238 75.4793 79.19248 79.10708 81.63332" ;     

00072        $dataval .= " 78.60182 71.77013 74.74785 72.55056 70.87409 73.79535 71.92435 73.78559 74.24022" ;     

00073        $dataval .= " 72.16426 69.99146 74.31182 74.09783 76.14596 76.84386 73.82505 76.71136 73.22637" ;     

00074        $dataval .= " 72.75667 73.61993 76.97975 79.54132 77.78691 80.96624 71.85167 76.91979 74.05154" ;     

00075        $dataval .= " 74.21126 69.84539 74.73602 73.5517 74.4878 76.74593 75.25908 70.69476 79.06986" ;     

00076        $dataval .= " 81.25396 67.50567 76.17327 69.64348 75.2785 81.25872 68.74756 80.0237 70.82097" ;     

00077        $dataval .= " 76.44476 77.29135 79.20483 77.46812 78.95298 75.12928 82.07948 75.46176 73.39259" ;     

00078        $dataval .= " 74.6061 74.9859 73.06824 76.01469 75.46039 76.07863 78.10704 98 99" ;     

00079          

00080     } ; # fin de si     

00081          

00082     blockquote() ;     

00083     debutSection() ;     

00084          

00085     form("calcstat.php","post") ;     

00086          

00087        input_hidden("calc","aqtdet") ;     

00088        table(0,10) ;     

00089          tr() ;     

00090            td() ; echo s_span("D&eacute;monstration","gvert") ; fintd() ;     

00091            td() ;     

00092               echo  href("aqt_det.php?xmp=1",s_span("exemple 1","grouge")) ;     

00093               nbsp(5) ;     

00094               echo  href("aqt_det.php?xmp=2",s_span("exemple 2","grouge")) ;     

00095               nbsp(5) ;     

00096               echo  href("aqt_det.php?xmp=3",s_span("exemple 3","grouge")) ;     

00097               nbsp(5) ;     

00098               echo  href("aqt_det.php?xmp=4",s_span("exemple 4","grouge")) ;     

00099            fintd() ;     

00100            td() ; nbsp() ; fintd() ;     

00101            td() ; echo href("calcstat.htm",s_span("retour","gbleu")) ; fintd() ;     

00102          fintr() ;     

00103          tr() ;     

00104             td() ; nbsp() ; fintd() ;     

00105          fintr() ;     

00106          tr() ;     

00107            td("L","valigntop") ; echo s_span("Donn&eacute;es &agrave; traiter","gvert") ; fintd() ;     

00108            td ("L") ;     

00109               textarea("valent","tajaunec","7","85") ;     

00110               if (isset($dataval)) {     

00111                 echo trim($dataval) ;     

00112               } ; # fin si     

00113               fintextarea() ;     

00114            fintd() ;     

00115          fintr() ;     

00116          tr() ;     

00117            td("L","valigntop") ; echo s_span("Nom de la variable (facultatif)","gvert") ; fintd() ;     

00118            td() ;     

00119              if (!isset($vnd)) { $vnd = "" ; } ;     

00120              input_text("ndlv",$vnd,"35","tarose") ;     

00121            fintd() ;     

00122          fintr() ;     

00123          tr() ;     

00124            td("L","valigntop") ; echo s_span("Unit&eacute; des donn&eacute;es (facultatif)","gvert") ; fintd() ;     

00125            td() ;     

00126              if (!isset($und)) { $und = "" ; } ;     

00127              input_text("und",$und,"5","tarose") ;     

00128              nbsp(4) ;     

00129              echo href("aqt_det.php?xmp=0",s_span("vidage","gbleu")) ;     

00130              nbsp(4) ;     

00131              input_submit("envoi") ;     

00132            fintd() ;     

00133          fintr() ;     

00134        fintable() ;     

00135     finform() ;     

00136          

00137     p() ;     

00138     echo "L'exemple 1 contient des donn&eacute;es simul&eacute;es peu nombreuses et sert juste &agrave; v&eacute;rifier les formules de calcul. \n" ;     

00139     finp() ;     

00140          

00141     p() ;     

00142     echo "Les donn&eacute;es de l'exemple 2 (donn&eacute;es r&eacute;elles d'une de nos &eacute;tudes au CHU \n" ;     

00143     echo "et correspondant &agrave; des \n" ;     

00144     echo "<a href=\"http://fr.wikipedia.org/wiki/Thrombocyte\">plaquettes sanguines</a>) \n" ;     

00145     echo "suivent &agrave; peu pr&egrave;s une loi normale alors que les donn&eacute;es \n" ;     

00146     echo "de l'exemple 3 (r&eacute;elles, elles aussi, \n" ;     

00147     echo "de <a href=\"http://fr.wikipedia.org/wiki/Taux_de_prothrombine\">taux de prothrombine</a>) \n" ;     

00148     echo "\"r&eacute;sistent\" &agrave; toute transformation de  normalit&eacute;. \n" ;     

00149     finp() ;     

00150          

00151     p() ;     

00152     echo "L'exemple 4  (donn&eacute;es am&eacute;nag&eacute;es) contient des \"outliers\" faciles &agrave; d&eacute;tecter. \n" ;     

00153     finp() ;     

00154          

00155     p() ;     

00156     echo b("Remarque : ") ;     

00157     echo "vous pouvez copier/coller des donn&eacute;es en colonne issues d'Excel." ;     

00158     finp() ;     

00159          

00160     pvide() ;     

00161          

00162     p() ;     

00163     echo href("montresource.php?nomfic=aqt_det.php","Code-source de cette page","orange_stim nou")."&nbsp;;&nbsp;" ;     

00164     echo " fichiers inclus&nbsp;: ".href("montresource.php?nomfic=std.php","std.php","orange_stim nou")."." ;     

00165     finp() ;     

00166          

00167     finSection() ;     

00168     finblockquote() ;     

00169     finPage() ;     

00170     ?>
Listing du fichier aqt_det.php
