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>

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

hola [1]

[2]

1. Shaner NC, Campbell RE, Steinbach PA, Giepmans BN, Palmer AE, and Tsien RY. Improved monomeric red, orange and yellow fluorescent proteins derived from Discosoma sp. red fluorescent protein. Nat Biotechnol. 2004 Dec;22(12):1567-72. DOI:10.1038/nbt1037 |
2. Barash Y, Calarco JA, Gao W, Pan Q, Wang X, Shai O, Blencowe BJ, and Frey BJ. Deciphering the splicing code. Nature. 2010 May 6;465(7294):53-9. DOI:10.1038/nature09000 |