#' @export
cshift <- function(array, shift, dim = NULL) {
.Call(cshift_cwrapper, array, shift, dim)
}
#' @export
cshift_ptr <- function(array, shift, dim = NULL) {
# .Call(cshift_cwrapper_ptr, as.array(array), as.integer(shift))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.