data("dna.obj")
x<-dna.obj
### Method for signature 'Dna'.
## Getting sequence names.
rownames(x)
## Setting sequence names.
rownames(x)<-c(1:nrow(x))
rownames(x)
### Method for signature 'Parsimnet'.
x<-dna.obj
##single network
p<-parsimnet(x)
##Getting vertex names
rownames(p)
## Setting vertex names.
rownames(p)<-list(c(1:nrow(p@d[[1]])))
rownames(p)
plot(p)
## Multiple networks with 99% connection limit.
p<-parsimnet(x,prob=.99)
## Getting vertex names
rownames(p)
## Setting vertex names.
rownames(p)<-list(1:9, 10, 11,12:13,14,15:16)
rownames(p)
Run the code above in your browser using DataLab