peterdalle

# Create data.
set.seed(1341)
original <- data.frame(x = rnorm(10), y = rnorm(10))
change <- original
change[5, 1] <- 6
change[7, 2] <- 4

# Function to compare data frames for similarity.
compare_data_frames <- function(df1, df2) {
  if (identical(df1, df2)) {

peterdalle

# Convert a 95% confidence interval to a p-value (two-sided).
# Based on:
# How to obtain the P value from a confidence interval
# BMJ 2011; 343 doi: https://doi.org/10.1136/bmj.d2304 

# From estimate to p-value.
estimate.to.pvalue <- function(estimate, lower, upper) {
  stderror = (upper - lower) / (2 * 1.96)      # Get standard error.
  z = estimate / stderror                      # Get test statistic.
  p.value = exp(-0.717 * z - 0.416 * (z ^ 2))  # Get p-value.

peterdalle

 cd \
 Get-ChildItem . -Attributes Directory+Hidden -ErrorAction SilentlyContinue -Filter ".git" -Recurse

peterdalle

\usepackage{color,soul}

And this is where we \hl{highlight the text} to make it stand out.

peterdalle

library(ggdag)

gin_dag <- dagify(happy ~ gin_tonic,
                  brain_size ~ happy,
                  gin_tonic ~ brain_size,
               labels = c("brain_size" = "Hjärnstorlek", 
                          "gin_tonic" = "Gin & Tonic",
                          "happy" = "Glad"),
               exposure = "gin_tonic",
               outcome = "brain_size") %>% 

peterdalle

`+` <- function(x, y) { 
  val <- sum(x, y)
  if (val > 1000000000) {
    paste0("Don't push it")
  } else if (val > 100000) {
    paste0("So you like big numbers, huh? Well, I give you a big number. How about ", val ,"? Is that good enough for you?")
  } else {
  paste0("That's a fucking ", val)
  }
}

peterdalle

ffmpeg -i "https://example.net/playlist.m3u8" -acodec copy -vcodec copy -absf aac_adtstoasc "output-video.mp4"

peterdalle

git ls-files | grep -P ".*(js|css|html|aspx|ascx|vb)" | xargs cat | wc -l

peterdalle

# Downloaded from http://www.jjcoutts.com/medyad
# Coutts, J., Hayes, A. F., & Jiang, T. (2019). Easy statistical mediation analysis with distinguishable dyadic data. Journal of Communication
# https://doi.org/10.1093/joc/jqz034


# -----------------------------------------------------------------
#MEDYAD for SAS beta version 1.1;
#current as of 18 December 2019;

#Copyright 2019 by Jacob J. Coutts and Andrew F. Hayes;

peterdalle

Copy title and URL to clipboard bookmarklet

A bookmarklet to copy the document title and page URL to the clipboard. If you select/highlight text on the web page, the text is appended to the beginning of the text.

Full version:

javascript: (
function () {
	let selection = "";