Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(GOplot)
- EC$david <- read.delim("/home/genomica/DATA/Lattuga/GOPLOT/EC.david", header=TRUE)
- EC$genelist<- read.delim("/home/genomica/DATA/Lattuga/GOPLOT/EC.genelist", header=TRUE)
- circ <- circle_dat(EC$david, EC$genelist)
- EC$genes <- read.delim("/home/genomica/DATA/Lattuga/GOPLOT/ECgenes3.txt", header=TRUE)
- EC$processes <- c ('protein heterodimerization activity','oxoacid metabolic process','response to lipid hydroperoxide','chloroplast stroma','nucleotide diphosphatase activity','oxidoreductase activity','cytoplasmic part','carboxylic acid biosynthetic process','fatty acid transmembrane transporter activity')
- chord <- chord_dat(circ, EC$genes, EC$processes)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement