SHARE
TWEET

Untitled

a guest Jul 17th, 2019 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. df1 = data.frame(normal_sim[61,])
  2. df3 = data.frame(snormal_sim09[61,])
  3. df4 = data.frame(t_sim2.1[61,])
  4. df7 = data.frame(st_sim2.1_09[61,])
  5.  
  6. ggplot() +
  7. geom_density(data = df7, aes(x = st_sim2.1_09[61,]),colour = 'pink',
  8.                size = 1.1,show.legend = F) +
  9. coord_cartesian(xlim = c(-4.5, 4.5)) +
  10.   labs( x = expression(y[r]), y=expression("Densities"))+
  11.   theme_bw()
  12.      
  13. ggplot() +
  14.   stat_function(data = data.frame(x = c(-3, 3)), aes(x),colour = 'yellow',fun = dnorm,n=100000 ,args = list(mean = 0, sd = 1), size=1.1) +
  15.   geom_density(data = df3, aes(x =snormal_sim09[61,]),colour = 'blue',
  16.                size = 1.1,show.legend = F) +
  17.   geom_density(data = df4, aes(x = t_sim2.1[61,]),colour = 'green',
  18.                size = 1.1,show.legend = F) +
  19.   geom_density(data = df7, aes(x = st_sim2.1_09[61,]),colour = 'pink',
  20.                size = 1.1,show.legend = F) +
  21.   geom_density(data = df1, aes(x = normal_sim[61,]),colour = 'black',
  22.                size = 1.1,show.legend = FALSE)+
  23.   coord_cartesian(xlim = c(-4.5, 4.5)) +
  24.   labs( x = expression(y[r]), y=expression("Densities"))+
  25.   theme_bw()
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