Update Conjugate_priors_Bayes.R

Conjugate_priors_Bayes.R

@@ -39,10 +39,6 @@ hist(beta)
 hist(alpha)
 hist(sigma)
 
-write.csv(beta, file="intercept_conj.csv")
-write.csv(alpha, file="slope_conj.csv")
-write.csv(sigma,file="sigma_conj.csv")
-
 ## Truncated Cauchy prior
 trunc <- function(loc, scale, a, b, sz) {
 ua = atan((a - loc)/scale)/pi + 0.5