R/bayes.R

In lxy009/weibullpp: weibullpp

#grid calculation
#assume the_data a Surv object
# find_posterior <- function(the_data){
#   
#   grid_res <- 1E2
#   
#   func_for_optim <- function(th) -1*weibull_2p_like_1(th, the_data)
#   center
# 
#   
#   return(mle)
#   
# }