Nothing
model <-
function(object){
welcome<-function(){
cat("===== Model selection based on credible intervals ======")
cat("\n")
cat("# #")
cat("\n")
cat("# Author: Rahim Alhamzawi #")
cat("\n")
cat("# Contact: [email protected] #")
cat("\n")
cat("# July, 2018 #")
cat("\n")
cat("# #")
cat("\n")
cat("=========================================================")
cat("\n")
}
##############################################################
CredInt = apply(object$beta, 2, quantile, c(0.025, 0.975))
Estimate= coef(object)
for(i in 1:length(CredInt [1,])){
if (sign(CredInt [1,i])==-1 & sign (CredInt [2,i])==1) Estimate [i]=0
}
result= cbind(Estimate)
welcome()
result
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.