R/faza.R

fazac<-function(sekchar){

  c<-length(sekchar)
  faza<-vector(mode='integer', length=c)
  faza[which(sekchar=='A')]<-pi/4
  faza[which(sekchar=='C')]<--3*pi/4
  faza[which(sekchar=='G')]<-3*pi/4
  faza[which(sekchar=='T')]<--pi/4
  return(faza)
}
MarkoLebo/FindOri documentation built on May 7, 2019, 3:35 p.m.