Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- x <- c(16,16,16,16,34,35,38,42,45,1,12)
- xError <- c(0,1,1,1,3,3,3,4,5,1,1)
- y <- c(16,1,12)
- length(x)
- length(xError)
- length(y)
- df <- rbind(data.frame(value = x,name='x'),
- data.frame(value = y,name='y'))
- ggplot(df, aes(x=value,color=name,linetype=name))+ stat_ecdf()+ geom_errorbar(aes(ymax = x + xError, ymin=x - xError))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement