data(linkExample)
x.range <- c(0, 100)
margin.len <- 0.5
show.rect <- TRUE
p <- ggplot2::ggplot() + theme_linkset(x.range, margin.len, show.rect)
print(p)
data(linkExample)
x.range <- c(0, 100)
show.rect <- TRUE
p <- ggplot2::ggplot() + theme_range(x.range, show.rect)
print(p)