# \donttest{
data("geneHapR_test")
hapSummary <- hap_summary(hapResult)
# calculate haploNet
hapNet <- get_hapNet(hapSummary,
AccINFO = AccINFO, # accession types
groupName = colnames(AccINFO)[2])
# plot haploNet
plot(hapNet)
# plot haploNet
plotHapNet(hapNet,
size = "freq", # circle size
scale = "log10", # scale circle with 'log10(size + 1)'
cex = 1, # size of hap symbol
col.link = 2, # link colors
link.width = 2, # link widths
show.mutation = 2, # mutation types one of c(0,1,2,3)
legend = FALSE) # legend position
# }
Run the code above in your browser using DataLab