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]

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. Bruggeman FJ, Boogerd FC, and Westerhoff HV. The multifarious short-term regulation of ammonium assimilation of Escherichia coli: dissection using an in silico replica. FEBS J. 2005 Apr;272(8):1965-85. DOI:10.1111/j.1742-4658.2005.04626.x |