## Align following sequences with weights:
## ACATT 1
## CGTTA 10
## TTG 3
## GACATT 4
dweights <- c(1L, 10L, 3L, 4L)
d <- c("ACATT","CGTTA", "TTG", "GACATT")
dshifts <- c(0L, 1L, 2L, -1L)
W <- girafe:::weightedConsensusMatrix(d, dweights, shift=dshifts)
consensusString(W, ambiguityMap="N")
Run the code above in your browser using DataLab