Nothing
#' @export
data_P3<-c(0.853, 0.759, 0.874, 0.800, 0.716, 0.557, 0.503, 0.399, 0.334, 0.207, 0.118, 0.118, 0.097,
0.078, 0.067, 0.056, 0.044, 0.036, 0.026, .019, 0.014, 0.010)
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.