R version 2.13.0 (2011-04-13) Copyright (C) 2011 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: x86_64-pc-linux-gnu (64-bit) R est un logiciel libre livré sans AUCUNE GARANTIE. Vous pouvez le redistribuer sous certaines conditions. Tapez 'license()' ou 'licence()' pour plus de détails. R est un projet collaboratif avec de nombreux contributeurs. Tapez 'contributors()' pour plus d'information et 'citation()' pour la façon de le citer dans les publications. Tapez 'demo()' pour des démonstrations, 'help()' pour l'aide en ligne ou 'help.start()' pour obtenir l'aide au format HTML. Tapez 'q()' pour quitter R. > date() [1] "Thu Sep 22 16:14:21 2011" > ################################################### > ### chunk number 2: loibin1 > ################################################### > #line 74 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > options(digits = 7) #par défaut > dbinom(0:10, 10, 1/3) [1] 1.734153e-02 8.670765e-02 1.950922e-01 2.601229e-01 2.276076e-01 [6] 1.365645e-01 5.690190e-02 1.625768e-02 3.048316e-03 3.387018e-04 [11] 1.693509e-05 > > > ################################################### > ### chunk number 3: loibin2 > ################################################### > #line 78 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > options(digits = 4) > > > ################################################### > ### chunk number 4: loibin3 > ################################################### > #line 83 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > dbinom(0:10, 10, 1/3) [1] 1.734e-02 8.671e-02 1.951e-01 2.601e-01 2.276e-01 1.366e-01 5.690e-02 [8] 1.626e-02 3.048e-03 3.387e-04 1.694e-05 > > > ################################################### > ### chunk number 5: loibin4 > ################################################### > #line 89 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > dbinom(1, 10, 1/3) [1] 0.08671 > > > ################################################### > ### chunk number 6: loibin5 > ################################################### > #line 107 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > sum(dbinom(46:54, 100, 0.5)) [1] 0.6318 > > > ################################################### > ### chunk number 7: loibin6 > ################################################### > #line 113 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > pbinom(1, 10, 1/3) [1] 0.104 > dbinom(0, 10,1/3) [1] 0.01734 > dbinom(1, 10,1/3) [1] 0.08671 > dbinom(0, 10,1/3) + dbinom(1, 10,1/3) [1] 0.104 > pbinom(0.5, 10, 1/3) [1] 0.01734 > pbinom(-0.5, 10, 1/3) [1] 0 > > > ################################################### > ### chunk number 8: exo1 > ################################################### > #line 130 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > 1 - ppois(4,2.7) [1] 0.1371 > > > ################################################### > ### chunk number 9: exo2 > ################################################### > #line 135 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > 1 - pnorm(1.96) [1] 0.025 > > > ################################################### > ### chunk number 10: exo3 > ################################################### > #line 142 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > qnorm(0.975) [1] 1.96 > > > ################################################### > ### chunk number 11: exo4 > ################################################### > #line 147 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > qt(0.01,5) [1] -3.365 > > > ################################################### > ### chunk number 12: exo5 > ################################################### > #line 156 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > rpois(10, 2.7) [1] 3 0 3 0 5 0 1 0 1 1 > > > ################################################### > ### chunk number 13: exo6 > ################################################### > #line 160 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > rnorm(10) [1] 0.1311 -2.0513 -0.3453 -2.6397 -0.3959 -0.3044 -1.6844 1.5257 -0.9979 [10] 0.3900 > > > ################################################### > ### chunk number 14: exo7 > ################################################### > #line 164 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > rchisq(10, 2) [1] 5.50537 0.49052 8.13026 0.06124 0.08485 0.74561 0.91679 12.54541 [9] 3.36559 1.24568 > > > ################################################### > ### chunk number 15: exo8 > ################################################### > #line 168 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > rbinom(10, 100, 0.5) [1] 47 48 52 50 43 43 52 41 46 51 > > > ################################################### > ### chunk number 16: dpqrtable > ################################################### > #line 178 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > noms <- ls("package:stats") > > startwith <- function(nom, char) + { + substr(nom, 1, 1) == char + } > (dnoms <- noms[sapply(noms, startwith, "d")]) [1] "dbeta" "dbinom" "dcauchy" "dchisq" [5] "decompose" "delete.response" "deltat" "dendrapply" [9] "density" "density.default" "deriv" "deriv3" [13] "deriv3.default" "deriv3.formula" "deriv.default" "deriv.formula" [17] "deviance" "dexp" "df" "dfbeta" [21] "dfbetas" "dffits" "df.kernel" "df.residual" [25] "dgamma" "dgeom" "dhyper" "diffinv" [29] "diff.ts" "dist" "dlnorm" "dlogis" [33] "dmultinom" "dnbinom" "dnorm" "dpois" [37] "drop1" "drop.scope" "drop.terms" "dsignrank" [41] "dt" "dummy.coef" "dunif" "dweibull" [45] "dwilcox" > (pnoms <- noms[sapply(noms, startwith, "p")]) [1] "pacf" "p.adjust" "p.adjust.methods" [4] "pairwise.prop.test" "pairwise.table" "pairwise.t.test" [7] "pairwise.wilcox.test" "pbeta" "pbinom" [10] "pbirthday" "pcauchy" "pchisq" [13] "pexp" "pf" "pgamma" [16] "pgeom" "phyper" "plclust" [19] "plnorm" "plogis" "plot.density" [22] "plot.ecdf" "plot.lm" "plot.mlm" [25] "plot.spec" "plot.spec.coherency" "plot.spec.phase" [28] "plot.stepfun" "plot.ts" "plot.TukeyHSD" [31] "pnbinom" "pnorm" "poisson" [34] "poisson.test" "poly" "polym" [37] "power" "power.anova.test" "power.prop.test" [40] "power.t.test" "ppoints" "ppois" [43] "ppr" "prcomp" "predict" [46] "predict.glm" "predict.lm" "predict.mlm" [49] "predict.poly" "preplot" "princomp" [52] "print.anova" "print.coefmat" "printCoefmat" [55] "print.density" "print.family" "print.formula" [58] "print.ftable" "print.glm" "print.infl" [61] "print.integrate" "print.lm" "print.logLik" [64] "print.terms" "print.ts" "profile" [67] "proj" "promax" "prop.test" [70] "prop.trend.test" "psignrank" "pt" [73] "ptukey" "punif" "pweibull" [76] "pwilcox" > (qnoms <- noms[sapply(noms, startwith, "q")]) [1] "qbeta" "qbinom" "qbirthday" "qcauchy" [5] "qchisq" "qexp" "qf" "qgamma" [9] "qgeom" "qhyper" "qlnorm" "qlogis" [13] "qnbinom" "qnorm" "qpois" "qqline" [17] "qqnorm" "qqnorm.default" "qqplot" "qsignrank" [21] "qt" "qtukey" "quade.test" "quantile" [25] "quantile.default" "quasi" "quasibinomial" "quasipoisson" [29] "qunif" "qweibull" "qwilcox" > (rnoms <- noms[sapply(noms, startwith, "r")]) [1] "r2dtable" "rbeta" "rbinom" [4] "rcauchy" "rchisq" "read.ftable" [7] "rect.hclust" "reformulate" "relevel" [10] "reorder" "replications" "reshape" [13] "reshapeLong" "reshapeWide" "resid" [16] "residuals" "residuals.default" "residuals.glm" [19] "residuals.lm" "rexp" "rf" [22] "rgamma" "rgeom" "rhyper" [25] "rlnorm" "rlogis" "rmultinom" [28] "rnbinom" "rnorm" "rpois" [31] "rsignrank" "rstandard" "rstandard.glm" [34] "rstandard.lm" "rstudent" "rstudent.glm" [37] "rstudent.lm" "rt" "runif" [40] "runmed" "rweibull" "rwilcox" > > suffix <- function(nom) + { + substr(nom, 2, nchar(nom)) + } > (dnoms <- sapply(dnoms, suffix, USE.NAMES = FALSE)) [1] "beta" "binom" "cauchy" "chisq" [5] "ecompose" "elete.response" "eltat" "endrapply" [9] "ensity" "ensity.default" "eriv" "eriv3" [13] "eriv3.default" "eriv3.formula" "eriv.default" "eriv.formula" [17] "eviance" "exp" "f" "fbeta" [21] "fbetas" "ffits" "f.kernel" "f.residual" [25] "gamma" "geom" "hyper" "iffinv" [29] "iff.ts" "ist" "lnorm" "logis" [33] "multinom" "nbinom" "norm" "pois" [37] "rop1" "rop.scope" "rop.terms" "signrank" [41] "t" "ummy.coef" "unif" "weibull" [45] "wilcox" > (pnoms <- sapply(pnoms, suffix, USE.NAMES = FALSE)) [1] "acf" ".adjust" ".adjust.methods" [4] "airwise.prop.test" "airwise.table" "airwise.t.test" [7] "airwise.wilcox.test" "beta" "binom" [10] "birthday" "cauchy" "chisq" [13] "exp" "f" "gamma" [16] "geom" "hyper" "lclust" [19] "lnorm" "logis" "lot.density" [22] "lot.ecdf" "lot.lm" "lot.mlm" [25] "lot.spec" "lot.spec.coherency" "lot.spec.phase" [28] "lot.stepfun" "lot.ts" "lot.TukeyHSD" [31] "nbinom" "norm" "oisson" [34] "oisson.test" "oly" "olym" [37] "ower" "ower.anova.test" "ower.prop.test" [40] "ower.t.test" "points" "pois" [43] "pr" "rcomp" "redict" [46] "redict.glm" "redict.lm" "redict.mlm" [49] "redict.poly" "replot" "rincomp" [52] "rint.anova" "rint.coefmat" "rintCoefmat" [55] "rint.density" "rint.family" "rint.formula" [58] "rint.ftable" "rint.glm" "rint.infl" [61] "rint.integrate" "rint.lm" "rint.logLik" [64] "rint.terms" "rint.ts" "rofile" [67] "roj" "romax" "rop.test" [70] "rop.trend.test" "signrank" "t" [73] "tukey" "unif" "weibull" [76] "wilcox" > (qnoms <- sapply(qnoms, suffix, USE.NAMES = FALSE)) [1] "beta" "binom" "birthday" "cauchy" [5] "chisq" "exp" "f" "gamma" [9] "geom" "hyper" "lnorm" "logis" [13] "nbinom" "norm" "pois" "qline" [17] "qnorm" "qnorm.default" "qplot" "signrank" [21] "t" "tukey" "uade.test" "uantile" [25] "uantile.default" "uasi" "uasibinomial" "uasipoisson" [29] "unif" "weibull" "wilcox" > (rnoms <- sapply(rnoms, suffix, USE.NAMES = FALSE)) [1] "2dtable" "beta" "binom" "cauchy" [5] "chisq" "ead.ftable" "ect.hclust" "eformulate" [9] "elevel" "eorder" "eplications" "eshape" [13] "eshapeLong" "eshapeWide" "esid" "esiduals" [17] "esiduals.default" "esiduals.glm" "esiduals.lm" "exp" [21] "f" "gamma" "geom" "hyper" [25] "lnorm" "logis" "multinom" "nbinom" [29] "norm" "pois" "signrank" "standard" [33] "standard.glm" "standard.lm" "student" "student.glm" [37] "student.lm" "t" "unif" "unmed" [41] "weibull" "wilcox" > > (dpqr <- dnoms[dnoms %in% pnoms & dnoms %in% qnoms & dnoms %in% rnoms]) [1] "beta" "binom" "cauchy" "chisq" "exp" "f" [7] "gamma" "geom" "hyper" "lnorm" "logis" "nbinom" [13] "norm" "pois" "signrank" "t" "unif" "weibull" [19] "wilcox" > > (ddpqr <- paste("d",dpqr, sep = "")) [1] "dbeta" "dbinom" "dcauchy" "dchisq" "dexp" "df" [7] "dgamma" "dgeom" "dhyper" "dlnorm" "dlogis" "dnbinom" [13] "dnorm" "dpois" "dsignrank" "dt" "dunif" "dweibull" [19] "dwilcox" > (pdpqr <- paste("p",dpqr, sep = "")) [1] "pbeta" "pbinom" "pcauchy" "pchisq" "pexp" "pf" [7] "pgamma" "pgeom" "phyper" "plnorm" "plogis" "pnbinom" [13] "pnorm" "ppois" "psignrank" "pt" "punif" "pweibull" [19] "pwilcox" > (qdpqr <- paste("q",dpqr, sep = "")) [1] "qbeta" "qbinom" "qcauchy" "qchisq" "qexp" "qf" [7] "qgamma" "qgeom" "qhyper" "qlnorm" "qlogis" "qnbinom" [13] "qnorm" "qpois" "qsignrank" "qt" "qunif" "qweibull" [19] "qwilcox" > (rdpqr <- paste("r",dpqr, sep = "")) [1] "rbeta" "rbinom" "rcauchy" "rchisq" "rexp" "rf" [7] "rgamma" "rgeom" "rhyper" "rlnorm" "rlogis" "rnbinom" [13] "rnorm" "rpois" "rsignrank" "rt" "runif" "rweibull" [19] "rwilcox" > > data.frame(cbind(ddpqr,pdpqr, qdpqr, rdpqr), row.names = dpqr) -> data > names(data) <- c("d","p","q","r") > data d p q r beta dbeta pbeta qbeta rbeta binom dbinom pbinom qbinom rbinom cauchy dcauchy pcauchy qcauchy rcauchy chisq dchisq pchisq qchisq rchisq exp dexp pexp qexp rexp f df pf qf rf gamma dgamma pgamma qgamma rgamma geom dgeom pgeom qgeom rgeom hyper dhyper phyper qhyper rhyper lnorm dlnorm plnorm qlnorm rlnorm logis dlogis plogis qlogis rlogis nbinom dnbinom pnbinom qnbinom rnbinom norm dnorm pnorm qnorm rnorm pois dpois ppois qpois rpois signrank dsignrank psignrank qsignrank rsignrank t dt pt qt rt unif dunif punif qunif runif weibull dweibull pweibull qweibull rweibull wilcox dwilcox pwilcox qwilcox rwilcox > > library(xtable) > print(xtable(data, caption = "Les lois de probabilité définies dans \\Rlogo{}.", label = "dpqr"), + file = "dpqrtable.tex") > > > ################################################### > ### chunk number 17: dpqrtablesup > ################################################### > #line 217 "/bge/penel/verif_pedadoc/pedadoc/fichestd/tdr21//tdr21.rnw" > library(SuppDists) Erreur dans library(SuppDists) : aucun package nommé 'SuppDists' n'est trouvé Exécution arrêtée