library(ggplot2)
y <- rBCT(1000, mu=3, sigma=.1, nu=-1, tau=5)
y_hist(y)
gg <- y_hist(y, with.dens=FALSE)
gg + stat_function(fun = dBCT, args=list(mu=3, sigma=.1, nu=-1, tau=5),
colour = "black")
gg + stat_function(fun = dBCT, args=list(mu=3, sigma=.1, nu=-1, tau=5),
geom = "area", alpha=0.5, fill="pink", color="black", n=301)
y_acf(diff(EuStockMarkets[,1]))
y_dots(rent$R)
Run the code above in your browser using DataLab