Nothing
f.a.asymp <- function(data, ncells, norig, orig, info){
## Set up ambiguity matrix
##
.a <- matrix(0, nrow = ncells, ncol = norig)
dimnames(.a) <- list(gridln = 1:ncells, origln = orig)
# Loop over original lines
for(i in seq(along = orig)){
.tmpd <- data[data$orig.lines == orig[i], , drop = F]
.pos <- f.pos.match(data = .tmpd, info = info)
.a[.pos,i] <- 1
}
return(.a)
}
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.