Sandbox

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, 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>1:20</R>

$\int _{-N}^{N}e^{x}\,dx$

hola [1]

Error fetching PMID 15819888:
Error fetching PMID 20445623:
Error fetching PMID 15558047:
Error fetching PMID 20385591:
Error fetching PMID 16980575:
Error fetching PMID 15217358:
Error fetching PMID 15956978:
Error fetching PMID 18688268:

1. CE2006 pmid=16135284
2. dieta1RCT pmid=10198499
3. dieta2RCT pmid=15356807
4. dieta4 pmid=10492950
5. manos1META pmid=12726975
6. SRO1 pmid=11380315
7. SRO2 pmid=8604285
8. SRO3 pmid=8945701
9. SRO5 pmid=11451782
10. SRO7 pmid=16931613

Error fetching PMID 17008675:

1. prob1 pmid=16939749
2. prob2 pmid=12052801
3. prob3 pmid=12182746
4. prob4 pmid=11927715
5. prob5 pmid=15106189
6. prob6 pmid=12452406
7. prob7 pmid=16908901
8. prob8 pmid=16728323
9. prot1 pmid=16625550
10. prot2 pmid=8607590
11. ptt pmid=15203374
12. polymeal pmid=15604180
13. lowsugar pmid=17093250
14. choco pmid=16390538
15. epi pmid=10205103