R/Comparision.R

In Anisha-Neupane/R_package_Neupane: An R package for posterior predictive.

# Comparision of data
#' use of ggplot
#' @param datasdf Default dataset to use for plot.
#' @return p
#' @export
#' @usage 
#' comparision(datasdf = datas)



comparision<- function(datasdf){
p <- ggplot2::ggplot(datasdf, aes(fill = simulated_data, x = simulated_data)) +  ggplot2::geom_density() + ggplot2::geom_vline(aes(xintercept = meane, linetype = "dotted", col = 2))
return(p)
print(p)
}