Description Usage Arguments Examples
get means
1 |
data |
|
snp.name |
|
trait.name |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (data, snp.name, trait.name)
{
snp.num <- which(snpnames(data) == snp.name)
gtypes <- as.numeric(data@gtdata[, snp.num])
m1 <- mean(na.omit(data@phdata[which(gtypes == 0), trait.name]))
m2 <- mean(na.omit(data@phdata[which(gtypes == 1), trait.name]))
m3 <- mean(na.omit(data@phdata[which(gtypes == 2), trait.name]))
c(m1, m2, m3)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.