inst/oldRsrc/shiftRight.R

snpcode = function(sms, chr, id)
  factor(as(snps(sms, chrnum(chr))[, id], "character"))

shiftRight = function( vbl, smlSet ) {
 vec = exprs(smlSet)[vbl,]
 pData(smlSet)[[vbl]] = vec
 smlSet
}

Try the GGtools package in your browser

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

GGtools documentation built on Nov. 8, 2020, 6:32 p.m.