.algorithmEnum <- function( param ) {
param <- toupper(param)
if( param == "LINEAR" ) return( 0 );
if( param == "KDTREE" ) return( 1 );
#if( param == "DUALTREE" ) return( 2 );
#if( param == "LSH" ) return( 3 );
#if( param == "FASTGAUSS" ) return( 4 );
#if( param == "MERGETREE" ) return( 5 );
stop( sprintf("Invalid Algorithm = %s",param) )
}
.kernelEnum <- function( param ) {
param <- toupper(param)
if( param == "NORMAL" ) return(0);
if( param == "EPANECHNIKOV") return(1);
if( param == "BIWEIGHT") return(2);
if( param == "TRIWEIGHT") return(3);
if( param == "TRICUBE") return(4);
stop( sprintf("Invalid Kernel = %s",param) )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.