R/assert_known_symmetric.R

Defines functions assert_known_symmetric

assert_known_symmetric <- function(adj){
  assert_known_standard(adj)
  if(!attr(adj, "known_symmetric")){
    stop(deparse(substitute(adj)), " must be known to be symmetric")
  }
  invisible(NULL)
}
drostlab/edgynode documentation built on March 29, 2024, 10:36 a.m.