library(dplyr) library(ggplot2) devtools::load_all() load("../simulation/simu_qte_v7.Rdata")
knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width=14, fig.height=14 )
We further evaluate the performance of the proposed method under different censoring proportion. All set up are the same as in simultion_v5.Rmd report except the intercept of the censoring distribution.
result_meta %>% subset(scenario != 4) %>% mutate_if(is.numeric, round, digits = 1) %>% show_db()
s1
s2
s3
s4
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.