motif_folder= "extdata/pwm"
motif_names = c("HepG2","MCF7","HUVEC","ProgFib")
motifs = list()
for (name in motif_names) {
fileName = paste(motif_folder,"/",name,".txt",sep="")
file = system.file(fileName, package = "DiffLogo")
motifs[[name]] = as.matrix(read.delim(file,header=FALSE))
}
diffLogoTable(motifs)
Run the code above in your browser using DataLab