John Muschelli muschellij2
muschellij2
/ walk_source.R
Last active
February 20, 2020 21:14
— forked from gadenbuie/walk_source.R
Walk an R source file and run each command in RStudio automatically on a delay
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| walk_source <- function( | |
| file = NULL, | |
| delay = 1.5, | |
| clear_each_cmd = TRUE, | |
| wait_for_press = TRUE, | |
| style = styler::tidyverse_style, | |
| record_screen = TRUE, | |
| ... | |
| ) { | |
| if (record_screen) { |
muschellij2
/ gist:70de5d3b5fc25c0ddcfc0971f50d4c71
Last active
May 22, 2019 17:55
— forked from bcaffo/gist:c12e6ca0d65ca8b02e5d3bdcda61a729
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ## Performs MCMC P-value calculation for 0-1 tables | |
| ## from Darwin's Finch data | |
| set.seed(1) | |
| I = 7; J = 5 | |
| testDat = matrix(sample(0:1, I * J, replace= TRUE), I, J) | |
| A = matrix(c( | |
| 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, |