Nothing
f.b.asymp <- function(data, p, ncells, norig, orig, info){
## Set up ambiguity matrix
## Then multiply with p and standardize
.a <- f.a.asymp(data, ncells = ncells, norig = norig, orig = orig, info = info)
.ap <- .a*p
.b <- t(t(.ap)/colSums(.ap))
return(.b)
}
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.