tjmahr · November 28, 2015 01:39
diff --git a/pvalue_stars.R b/pvalue_stars.R
 get_p_stars <- function(ps) {
  symnum(ps, na = FALSE, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),
         symbols = c("***", "**", "*", ".", " "), legend = FALSE)
 }

 #> get_p_stars(c(.00001, .001, .002, .01, .02, .05, .06, .1, .2))
 #> [1] *** *** **  **  *   *   .   .
	get_p_stars <- function(ps) {
	symnum(ps, na = FALSE, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),
	symbols = c("*", "", "*", ".", " "), legend = FALSE)
	}

	#> get_p_stars(c(.00001, .001, .002, .01, .02, .05, .06, .1, .2))
	#> [1] * * * * . .