Nothing
VE.Jk.CBS.SYG.Total.Hajek <- function(VecY.s, VecPk.s, MatPkl.s, N)
{
if(length(N) != 1 ){stop("Value of N must be a scalar, i.e. a vector of length 1.") }
if(N%%1 != 0 ){stop("N must be an integer or a double-precision scalar with zero-valued fractional part.") }
DoubleN <- as.double(N)
VE.Jk.CBS.SYG.Mean.Hajek(VecY.s, VecPk.s, MatPkl.s) * DoubleN * DoubleN
}
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.