inst/snippet/mendel-pea-cross.R

o <- c(315, 102, 108, 31)
n <- sum(o)
e <- n * c(9, 3, 3, 1) / 16; e
G <- 2 * sum( o * log(o/e) ); G
pval <- 1-pchisq(G, 3); pval

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 1, 2019, 11:18 p.m.