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$

1. 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 |

<iframe width="425" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=d&source=s_d&saddr=37Apartments,+Reykjavik,+Iceland&daddr=Bergstadastr%C3%A6ti+12+and+Laugavegur+85,+101+Reykjavik,+Iceland+(Reykjavik4You)&hl=en&geocode=FXrH0gMdB26x_iEw9BksWJiYAg%3BFdbF0gMdCVOx_iGQoIw40AEhWA&mra=pd&sll=64.143356,-21.936007&sspn=0.016096,0.055747&vpsrc=6&ie=UTF8&ll=64.14546,-21.929805&spn=0.0013,0.00657&output=embed"></iframe>
<a href="http://maps.google.com/maps?f=d&source=embed&saddr=37Apartments,+Reykjavik,+Iceland&daddr=Bergstadastr%C3%A6ti+12+and+Laugavegur+85,+101+Reykjavik,+Iceland+(Reykjavik4You)&hl=en&geocode=FXrH0gMdB26x_iEw9BksWJiYAg%3BFdbF0gMdCVOx_iGQoIw40AEhWA&mra=pd&sll=64.143356,-21.936007&sspn=0.016096,0.055747&vpsrc=6&ie=UTF8&ll=64.14546,-21.929805&spn=0.0013,0.00657" style="color:#0000FF;text-align:left">View Larger Map</a>