Advertisement
Guest User

Untitled

a guest
Sep 3rd, 2015
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. x <- c(16,16,16,16,34,35,38,42,45,1,12)
  2. xError <- c(0,1,1,1,3,3,3,4,5,1,1)
  3. y <- c(16,1,12)
  4.  
  5. length(x)
  6. length(xError)
  7. length(y)
  8.  
  9. df <- rbind(data.frame(value = x,name='x'),
  10. data.frame(value = y,name='y'))
  11.  
  12. 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