Sandbox: diferència entre les revisions
Cap resum de modificació |
Cap resum de modificació |
||
Línia 1: | Línia 1: | ||
===now=== | |||
<img src="http://www.traba.org/wikitraba/images/5/58/200px-Flag_of_Iceland.svg.png"/> | |||
===before=== | |||
<R output="html" iframe="width:100%;height:250px;"> | <R output="html" iframe="width:100%;height:250px;"> | ||
prob=0.15; nmin=1; nmax=15; x=6 | prob=0.15; nmin=1; nmax=15; x=6 | ||
Línia 43: | Línia 46: | ||
#SplicingNomenclature pmid=18688268 | #SplicingNomenclature pmid=18688268 | ||
</biblio> | </biblio> | ||
Revisió del 09:42, 13 oct 2011
now
<img src="http://www.traba.org/wikitraba/images/5/58/200px-Flag_of_Iceland.svg.png"/>
before
<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>
hola [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 |
- 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 |