derekpowell

javascript:(function(){ var d=document.getElementsByClassName("docos-accept-suggestion"); d = Array.prototype.slice.call(d); var i=1; d.forEach(function(n){console.log("accepting"); var e = document.createEvent("MouseEvents"); e.initEvent("click", true, false); n.dispatchEvent(e,true); e = document.createEvent("MouseEvents"); e.initEvent("mousedown", true, false); n.dispatchEvent(e,true); e = document.createEvent("MouseEvents"); e.initEvent("mouseup", true, false); i++; i++; setTimeout( function(){ n.dispatchEvent(e,true); } , (i * 1000)); }); })();

derekpowell

# standard error function
stderr <- function(x) {
          sqrt(var(x[!is.na(x)]) / length(x[!is.na(x)]))
}

# Then create a wrapper to *stderr* to make it compatible with *stat_summary*
my.stderr <- function(x) {
             meany <- mean(x)
             ymin  <- mean(x) - stderr(x)
             ymax  <- mean(x) + stderr(x)

derekpowell

result <- rawToChar(as.raw(sample(c(48:57,65:90,97:122),16,replace=T)))

derekpowell

dfPlot <- (ggplot_build(plt))$data

derekpowell

def stat_summary(x, quantiles=False):
    
    import numpy as np

    print "mean:", np.mean(x)
    print "sd:", np.std(x)
    print "max:", np.max(x)
    print "min:", np.min(x)
    print "count:", len(x)
    

derekpowell

# author: Derek Powell
# created: 11-02-2017
# last updated: 1/11/18, 5:19 PM
# Also available as gist:
# devtools::source_gist("8838d867daa4185c9c09187a6b02f96b", filename="crossValidate.R")

library(tidyverse)
library(multidplyr)
library(modelr)
library(purrr)

derekpowell

model_name <- brm(
  DV ~ formula,
  data = d,
  family = normal(), # student(), #cumulative(), #bernoulli(), etc
  control = list(adapt_delta = .80),
  cores = parallel::detectCores(),
  iter = 2000)

derekpowell

rescale_beta <- function(x, lower, upper) {
  # rescales onto the open interval (0,1)
  # rescales over theoretical bounds of measurement, specified by "upper" and "lower"

  N <- length(x)
  res <- (x - lower) / (upper - lower)
  res <- (res * (N - 1) + .5) / N

  return(as.vector(res))
}

derekpowell

gg_marginal_effects <- function(model, effects, probs=c(0.25, 0.75)) {
  me <- brms::marginal_effects(model, effects=effects, probs=probs)
  plt.me <- plot(me, 
                  effects=effects,
                  plot=FALSE,
                  rug=TRUE,
                  theme=ggplot2::theme_get()
                  )[[1]]
} 

derekpowell

# Author: Derek Powell
# Date: 8/30/18, 4:49 PM
# ---
# Script to redact workerIds and ip addresses from qualtrics files.
# Script looks for "date_private/" directory, saves resulting data in "data" directory.
# Personal info is replaced with a "hash" using xxhash64,
# a super fast hash algo w/ short resulting hashes (confirmed appropriate for this use)

suppressMessages(library(tidyverse))
suppressMessages(library(digest))