# NOT RUN {
library(ggplot2)
df <- data.frame(x = 1:6,
y = 5:10,
xend = 7,
yend = -3:2)
ggplot(df, aes(x = x, xend = xend, y = y, yend = yend, color = factor(x))) +
geom_sigmoid()
# }
Run the code above in your browser using DataLab