Indice fuori range

library(GOplot)
EC$david <- read.delim("EC.david", header=TRUE)
EC$genelist<- read.delim("EC.genelist", header=TRUE)
EC$genelist[,1] <- toupper(EC$genelist[,1])
circ <- circle_dat(EC$david, EC$genelist)
EC$genes <- read.delim("ECgenes3.txt", header=TRUE)
EC$genes[,1] <- toupper(EC$genes[,1])
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)