R/recodeFirst.R

Defines functions `recodeFirst`

`recodeFirst` <-
function(mat,bases,geno=1:3){
	oldgeno<-paste(rep(bases,e=2),rep(bases,2),sep="")[-3]
	for(i in 1:3)
		mat[mat==oldgeno[i]]<-geno[i]
	mat
}

Try the scrime package in your browser

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

scrime documentation built on May 2, 2019, 10:24 a.m.