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. Ubhayasekera W, Muñoz IG, Vasella A, Ståhlberg J, and Mowbray SL. Structures of Phanerochaete chrysosporium Cel7D in complex with product and inhibitors. FEBS J. 2005 Apr;272(8):1952-64. DOI:10.1111/j.1742-4658.2005.04625.x |