1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
### =========================================================================
### The strand() and `strand<-`() generics
### -------------------------------------------------------------------------
setGeneric("strand", function(x, ...) standardGeneric("strand"))
setGeneric("strand<-", function(x, ..., value) standardGeneric("strand<-"))
unstrand <- function(x)
{
strand(x) <- "*"
x
}
setGeneric("invertStrand", function(x) standardGeneric("invertStrand"))
setMethod("invertStrand", "ANY",
function(x)
{
strand(x) <- invertStrand(strand(x))
x
}
)
|
