Defines functions my.format.pval pure_all.equal

my.format.pval <- function(p, digits){
  gsub("^0\\.", ".", format.pval(pv = round(p, digits), digits = digits, scientific = 7L))

pure_all.equal <- function(tgt, cur){
  return(isTRUE(all.equal.numeric(tgt, cur, check.attributes = FALSE)))

Try the REdaS package in your browser

Any scripts or data that you put into this service are public.

REdaS documentation built on May 2, 2019, 2:48 p.m.