if(interactive()){
dat <- unlist(read.delim(system.file("extdata",
"grB.txt", package="dagLogo"),
header=F, as.is=TRUE))
proteome <- prepareProteome(fasta=system.file("extdata",
"HUMAN.fasta",
package="dagLogo"))
seq <- formatSequence(dat, proteome)
}
Run the code above in your browser using DataLab