R/print_sig.R

Defines functions print_sig

print_sig = function(xs){
  ifelse(xs > 0.1,' ',
  ifelse(xs < 0.001,'***',
  ifelse(xs < 0.010,' **',
  ifelse(xs < 0.050,'  *',
  ifelse(xs < 0.100,'  .',
                    '   ')))))
}
haberdashPI/wright.lab.util documentation built on Nov. 4, 2019, 1:25 p.m.