R/checkphengen.R

Defines functions checkphengen

checkphengen <- function(data)
{
	if (!is(data,"gwaa.data"))
		stop("wrong class of argument")
	if (any(data@phdata$id != data@gtdata@idnames))
		stop("no correspondence @gtdata$idnames <=> @phdata$id")
}

Try the GenABEL package in your browser

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

GenABEL documentation built on May 30, 2017, 3:36 a.m.