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 2, 2019, 5:53 p.m.