R/RcppExports.R

Defines functions bfslice_c bfslice_u bfslice_eqp_c bfslice_eqp_u ds_eqp_1 ds_1 ds_eqp_k ds_k

Documented in bfslice_c bfslice_eqp_c bfslice_eqp_u bfslice_u ds_1 ds_eqp_1 ds_eqp_k ds_k

bfslice_c <- function(z, x, zdim, xdim, lambda, alpha)
{
	.Call('dslice_bfslice_c', z, x, zdim, xdim, lambda, alpha, PACKAGE = 'dslice')
}

bfslice_u <- function(x, dim, lambda, alpha)
{
	.Call('dslice_bfslice_u', x, dim, lambda, alpha, PACKAGE = 'dslice')
}

bfslice_eqp_c <- function(z, x, zdim, xdim, lambda, alpha)
{
	.Call('dslice_bfslice_eqp_c', z, x, zdim, xdim, lambda, alpha, PACKAGE = 'dslice')
}

bfslice_eqp_u <- function(x, dim, lambda, alpha)
{
	.Call('dslice_bfslice_eqp_u', x, dim, lambda, alpha, PACKAGE = 'dslice')
}

ds_eqp_1 <- function(y, lambda = 1)
{
	.Call('dslice_ds_eqp_1', y, lambda, PACKAGE = 'dslice')
}

ds_1 <- function(y, lambda = 1, alpha = 1)
{
	.Call('dslice_ds_1', y, lambda, alpha, PACKAGE = 'dslice')
}

ds_eqp_k <- function(x, xdim, lambda = 1, slice = FALSE)
{
	if(slice) {
		.Call('dslice_dslice_eqp_k', x, xdim, lambda, PACKAGE = 'dslice')
	}else{
		.Call('dslice_ds_eqp_k', x, xdim, lambda, PACKAGE = 'dslice')
	}
}

ds_k <- function(x, xdim, lambda = 1, slice = FALSE)
{
	if(slice){
		.Call('dslice_dslice_k', x, xdim, lambda, PACKAGE = 'dslice')
	}else{
		.Call('dslice_ds_k', x, xdim, lambda, PACKAGE = 'dslice')
	}
}

Try the dslice package in your browser

Any scripts or data that you put into this service are public.

dslice documentation built on May 2, 2019, 9:39 a.m.