Nothing
## File Name: tam_wle_print_general.R
## File Version: 0.06
#**********************************************************************
tam_wle_print_general <- function( ndim, nobs, CALL )
{
#*** print output with general information
cat("Object of class 'tam.wle'\nCall: ")
print( CALL )
if (ndim==1){
D0 <- ""
} else {
D0 <- "s"
}
v1 <- paste0("\n WLEs for ", nobs, " observations and ",
ndim, " dimension", D0, "\n")
cat(v1)
}
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.