Nothing
###
### R routines for the R package dlnm (c)
#
checkgroup <-
function(group, x, basisvar, lag) {
#
################################################################################
#
if(NCOL(x)>1L) stop("'group' allowed only for time series data")
if(min(tapply(x, group, length)) <= diff(lag))
stop("each group must have length > diff(lag)")
}
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.