🏠
Working from home
9th employee and former Principal Data Scientist at Zapier.
statwonk.com
- Mobile, AL
- https://statwonk.com
- in/statwonk
Block or Report
Block or report statwonk
Report abuse
Contact GitHub support about this user’s behavior. Learn more about reporting abuse.
Report abusePinned
-
A visualization of the beta distribu...
A visualization of the beta distribution. 1library(tidyverse)
2plot.new()
3par(bg = "black")
4plot(density(rbeta(1e6, 50, 50)), col = "pink3", lwd = 1, ylim = c(0, 8),
5xlab = "", ylab = "", main = "Beta distribution", axes = FALSE,
-
A comparison of std.errors of the tr...
A comparison of std.errors of the treatment effect from an additive DGP experiment where a pre-treatment variable is interacted maximally, only additive no interaction, or unadjusted for. 1library(tidyverse)
2library(lme4)
3library(broom)
45N <- 1e4
-
Time to 10% ending / converting / fa...
Time to 10% ending / converting / failure. 1library(tidyverse)
2library(survival)
34rweibull_cens <- function(n, shape, scale) {
5# http://statwonk.com/weibull.html
-
-
Risk adds up. This code piece answer...
Risk adds up. This code piece answers, "how quickly?" https://twitter.com/statwonk/status/1160542394544267265 1library(tidyverse)
2expand.grid(
3risk = seq(0.001, 0.02, 0.001),
4units_of_exposure = seq_len(24*7)
5) %>% as_tibble() %>%
Something went wrong, please refresh the page to try again.
If the problem persists, check the GitHub status page or contact support.
If the problem persists, check the GitHub status page or contact support.