Sandbox: diferència entre les revisions
Salta a la navegació
Salta a la cerca
Cap resum de modificació |
Cap resum de modificació |
||
| Línia 9: | Línia 9: | ||
rownames(m) <- format(0:x) | rownames(m) <- format(0:x) | ||
outHTML(rhtml, m, title="x\n", format="f", digits=4) | outHTML(rhtml, m, title="x\n", format="f", digits=4) | ||
</R> | |||
<R output="display" iframe="width:400px;height:400px"> | |||
pdf(rpdf, horizontal=FALSE, width=5, height=5) | |||
n <- 10 | |||
prob <- 0.2 | |||
x <- seq(0, n, 1) | |||
p <- dbinom(x, n, prob) | |||
param <- list(n, prob) | |||
main <- c("Binomialverteilung - Wahrscheinlichkeitsfunktion", paste (c("Stichprobenumfang n", "Wahrscheinlichkeit p"), param, sep="=")) | |||
plot(x,p, type="h", main=main) | |||
</R> | </R> | ||
Revisió del 09:45, 27 ago 2006
Probando
<R output="html" iframe="width:100%;height:250px;"> prob=0.15; nmin=1; nmax=15; x=6 m <-pbinom(rep(0:x, each = nmax-nmin+1), rep(nmin:nmax,x), prob) dim(m) <- c(nmax-nmin+1,x+1) m <- t(m) colnames(m) <- format(nmin:nmax) rownames(m) <- format(0:x) outHTML(rhtml, m, title="x\n", format="f", digits=4) </R>
<R output="display" iframe="width:400px;height:400px"> pdf(rpdf, horizontal=FALSE, width=5, height=5) n <- 10 prob <- 0.2 x <- seq(0, n, 1) p <- dbinom(x, n, prob) param <- list(n, prob) main <- c("Binomialverteilung - Wahrscheinlichkeitsfunktion", paste (c("Stichprobenumfang n", "Wahrscheinlichkeit p"), param, sep="=")) plot(x,p, type="h", main=main) </R>