getMeans: get means

Description Usage Arguments Examples

View source: R/getMeans.R

Description

get means

Usage

1
getMeans(data, snp.name, trait.name)

Arguments

data
snp.name
trait.name

Examples

 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)
  }

AcceptABEL documentation built on May 31, 2017, 3:27 a.m.