Nothing
checkYCat <- function( yCat, nYCat, maxLength = 1 ) {
if( is.null( yCat ) ) {
stop( "argument 'yCat' must be be specified for 'mlogit' models" )
}
if( any( yCat != round( yCat ) ) ) {
stop( "argument 'yCat' must be a vector of integers" )
}
if( length( yCat ) > maxLength ) {
stop( "argument 'yCat' must have a length smaller than or equal to ",
maxLength )
}
if( any( yCat < 0 ) ) {
stop( "all elements of argument 'yCat' must non-negative" )
}
if( any( yCat > nYCat ) ) {
stop( "all elements of argument 'yCat' must be smaller than or equal to ",
nYCat )
}
if( max( table( yCat ) ) > 1 ) {
stop( "all elements of argument 'yCat' may only occur once" )
}
}
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.