R/pik3cags.R

if(getRversion() >= "2.15.1")  utils::globalVariables("sig.pik3cags")

`pik3cags` <-
function(data, annot, do.mapping=FALSE, mapping, verbose=FALSE) {

	pik3cags.gl <- sig.pik3cags[ ,c("probe", "EntrezGene.ID", "coefficient")]
	res <- sig.score(x=pik3cags.gl, data=data, annot=annot, do.mapping=do.mapping, mapping=mapping, signed=TRUE, verbose=verbose)$score
	
	return (res)
}

Try the genefu package in your browser

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

genefu documentation built on Nov. 1, 2018, 2:25 a.m.