powered by
sapply(pv, function(p) format.pval(p, digits = if (p<10*eps) 1="" else="" 2,="" eps="eps)
formatPval(pv, eps = 1e-4)
format.pval
formatPval(c(0.13567, 0.0432, 0.000546, 1e-8))
Run the code above in your browser using DataLab