daily pastebin goal
41%
SHARE
TWEET

Untitled

a guest Feb 20th, 2019 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. x <- seq(0,5,length=1000)
  2. plot(x = x,                  
  3.      y = dnorm(x, 1.5, 0.4),                  
  4.      type = "l",    
  5.      col = "white",
  6.      axes = FALSE,
  7.      mgp = c(2, 2, 2),
  8.      ylim=c(0,2),                         # Set limit of y-axis
  9.      frame.plot=TRUE,
  10.      xlab = "theta",                        
  11.      ylab = "plausibility",
  12.      font.main = 1,
  13.      main=paste("Distributions"),
  14.      lwd=2
  15. )      
  16. polygon(x,dnorm(x, 1.5, 0.4),col=1,border = NULL)
  17. polygon(x,dnorm(x, 1, 0.5),col=2,border = NULL)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top