# NOT RUN {
# }
# NOT RUN {
# }
# NOT RUN {
data(CviCol)
out <- netsnp(CviCol); out
plot(out)
#select optimal graph
epi <- selectnet(out)
plot(epi, vis="CI", xlab="markers", ylab="markers",
n.var = c(24,14,17,16,19), vertex.size=4)
#Visualize interactive plot of the selected network
#Different colors for each chromosome
cl <- c(rep("red", 24), rep("white",14), rep("tan1",17),
rep("gray",16), rep("lightblue2",19))
plot(epi, vis="interactive", vertex.color= cl)
#Partial correlations between markers on genome
image(epi$par.cor, xlab="markers", ylab="markers", sub="")
# }
Run the code above in your browser using DataCamp Workspace