### CheckSVDOptions
CheckSVDOptions <- function(Ly1, Lt1, Ly2, Lt2, SVDoptns){
if( (SVDoptns[['dataType1']]=='Sparse' && is.null(SVDoptns[['userMu1']])) ||
(SVDoptns[['dataType2']]=='Sparse' && is.null(SVDoptns[['userMu2']])) ){
stop('User specified mean function required for sparse functional data for cross covariance estimation.')
}
if(is.numeric(SVDoptns$methodSelectK)){
if(SVDoptns$methodSelectK != round(SVDoptns$methodSelectK) ||
SVDoptns$methodSelectK <= 0){
stop("FSVD is aborted: 'methodSelectK' is invalid!\n")
}
}
if( !(SVDoptns$regulRS %in% c('sigma2','rho') ) ){
stop("FSVD is aborted: Unknown regularization option. The argument 'regulRS' should be 'rho' or 'sigma2'!")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.