R/HelpFile_Check_B.R

In rebeccakuiper/CTmeta: Continuous-time meta-analysis (CTmeta) on standarized lagged effects taking into account the various time-intervals used in the primary studies

Check_B <- function(B){

  if(is.null(dim(B))){
    if(!is.null(length(B))){
      print(paste0("The argument Drift is not a matrix. It should be a matrix of size q times q."))
      stop()
    }else{
      print(paste0("The argument Drift is not found: The lagged effects matrix Drift is unknown, but should be part of the input."))
      stop()
    }
  }else if(length(dim(B)) < 2){
    print(paste0("The lagged effects matrix Drift should be an q times q matrix."))
    stop()
  }else if(length(dim(B)) > 2){
    print(paste0("The lagged effects matrix Drift should be an q times q matrix. Currently, it is of size ", dim(B)))
    stop()
  }else if(dim(B)[1] == 0 | dim(B)[2] == 0){
    print(paste0("The lagged effects matrix Drift or Phi should be a square matrix of size q times q, with q > 0. Currently, it is of size ", dim(B)[1], " times ", dim(B)[2]))
    stop()
  }else if(dim(B)[1] != dim(B)[2]){
    print(paste0("The lagged effects matrix Drift should be a square matrix of size q times q. Currently, it is of size ", dim(B)[1], " times ", dim(B)[2]))
    stop()
  }

}