R/CheckSVDOptions.R

In fdapace: Functional Data Analysis and Empirical Dynamics

### 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'!")
  }
}