R/strand2Num.R

In jotsetung/GenomePlotR: Plotting data in genomic context

Defines functions strand2Num

Documented in strand2Num

strand2Num <-
function( x ){
  x <- paste( x, "1", sep="" )
  x <- as.numeric( x )
  if( x < 0 ){
    return( -1 )
  }
  else{
    return( 1 )
  }
}