Nothing
compute_power_range <- function(power_range_df){
power_range_df <- cbind.data.frame(power_range_df, as.data.frame((t(mapply(compute_power,power_range_df$k_v, power_range_df$es_v, power_range_df$variance, power_range_df$i2, power_range_df$c_alpha,power_range_df$test_type )))) %>%
dplyr::mutate_all(as.numeric))
return(power_range_df)
}
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.