Sandbox: diferència entre les revisions

cap resum d'edició
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>