#' @title Fn.Bernshtein
#' @description Fn.Bernshtein
#' @param u non-excedance probabilities
#' @param xg given x
#' @param xy real data
#' @export
Fn.Bernshtein.aux <- function(u, xg, xy) Fn.inv.Bernshtein(u, xy[,1]) - xg
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.