#' Compute true FDR
#'
#'
#' @export
trueFDR <- function( candidates, outlier ) {
return(length(which(!(candidates %in% outliers))) / length(candidates))
}
#' Compute true power
#'
#'
#' @export
truePower <- function( candidates, outlier ) {
return(length(which(candidates %in% outliers)) / length(outliers))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.