Wow! Yes, that is perfect! Thanks!!
On Wed, Sep 30, 2009 at 1:17 PM, jim holtman wrote:
> Is this close to what you want:
>
> x <- read.table(textConnection("locus min max
> K9/10* 70 72
> Pcc40 80 81
> 2F9 84 100
> 4E8/Pca12 96 108
> Pau6 99 103
> Pau20 100 113
> Pau9 103 129
> Pocc1* 104 128
>
Is this close to what you want:
x <- read.table(textConnection("locus min max
K9/10* 70 72
Pcc40 80 81
2F9 84 100
4E8/Pca12 96 108
Pau6 99 103
Pau20 100 113
Pau9 103 129
Pocc1* 104 128
Pau7 105 111"), header=TRUE, as.is=TRUE)
closeAllConnections()
x$row <- seq(nrow(x))
plot(0, type='n', ylim=c(0,m
2 matches
Mail list logo