# UCSCにアクセスしているため、一つのTrackを読み込むのに30~40秒くらいかかる knownGenes <- UcscTrack(genome=genome, chromosome=chr, track="knownGene", from=from, to=to, trackType="GeneRegionTrack", rstarts="exonStarts", rends="exonEnds", gene="name", symbol="name", transcript="name", strand="strand", fill="#8282d2", name="UCSC Genes") refGenes <- UcscTrack(genome=genome, chromosome=chr, track="xenoRefGene", from=from, to=to, tr