Displaying 2 results from an estimated 2 matches for "dna_seg_lin".
Did you mean:
dna_seg_line
2012 Oct 21
1
Navigating a grid.
...plotpush <- function(x,n,letter,row,column) {
pushViewport
(viewport
(layout.pos.row=row,layout.pos.col=column,name=as.character(n)))
plot_gene_map
(dna_segs=list(x[["seg"]]),annotations=x[["annot"]],dna_seg_scale=T,
scale_cex
=
1.4
,dna_seg_line
=F,plot_new=FALSE,scale=F,arrow_head_length=1,annotation_cex=1.4,
main=toupper(letters[n]),main_pos="left"
)
popViewport(0)
}
pushViewport(viewport(layout = grid.layout(nrow=26,ncol=2)))
sapply(repeats,plotpush,n=1:26,letter=1:26,row=1:26,col=1)
sapply(rep...
2012 Oct 22
0
Help with a R script using grid
...ction(x,n,letter,row,column,layout) {
pushViewport
(viewport
(layout
=gl,layout.pos.row=row,layout.pos.col=column,name=as.character(n)))
plot_gene_map
(dna_segs=list(x[["seg"]]),annotations=x[["annot"]],dna_seg_scale=T,
scale_cex
=
1.4
,dna_seg_line
=F,plot_new=FALSE,scale=F,arrow_head_length=1,annotation_cex=1.4,
main=toupper(letters[n]),main_pos="left"
)
}
gl <- grid.layout(nrow=26,ncol=2)
pushViewport(viewport(layout = gl)
segs <- c(segs.cys.115,segs.cys.196,segs.asp.388,segs.asp.1060,segs.gly)
s...