#' @useDynLib BNPseq CRT_sum
CRT_sum <- function(x,r)
{
# dyn.load("CRT_sum")
Lsum <- 0L
out <- .C("CRT_sum", x=as.double(x),
r=as.double(r), Lenx=as.integer(length(x)), Lsum=as.integer(Lsum))
return(out$Lsum)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.