# NOT RUN {
## Create an interactive Genome map in a temporal directory of your local machine
## Live examples on https://rjsplot.usal.es
if(interactive()){
# Create test data
chr <- character()
pos <- numeric()
for(i in 1:nrow(GRCh38)){
chr <- c(chr,as.character(rep(GRCh38[i,"chr"],100)))
pos <- c(pos,sample(GRCh38[i,"start"]:GRCh38[i,"end"],100))
}
value <- round(rexp(length(pos)),2)
# Create a genome map
track <- data.frame(chr,pos,pos+1,NA,value)
genomemap_rjs(GRCh38.bands, track)
}
# }
Run the code above in your browser using DataLab