briandk

getFormula <- function(checkboxOutput, variablesThatMustAppearInModel) {
  formula <- "testScores ~"
  variables1 <- paste(variablesThatMustAppearInModel, collapse = " + ")
  variables2 <- paste(checkboxOutput, collapse = " + ")
  fullCall <- paste(variables1, 
                    variables2, 
                    collapse = " + ",
                    sep = " + ")
  return(paste(formula, 
               fullCall))  

briandk

(define (clockpatience cards)
   (let ((hand (deal cards 'K)))
     (play (topcard 'K hand) 'K  hand 1) 
   )
)

briandk

#!/bin/bash

D=`date +%Y%m%d%H%M%S`
branch=`git status|grep -ie 'on branch master'`

if [ -z "$branch" ]; then
  cat DESCRIPTION | sed -e 's/^\(Version: [0-9]*\.[0-9]*\).*/\1.'$D'/' > DESCRIPTION.temp
  rm DESCRIPTION
  mv DESCRIPTION.temp DESCRIPTION
  git add DESCRIPTION

briandk

complement = {0: 1,
              1: 0} # Maps 0 to 1 and vice versa
              
newNumber = [] # Initialize an empty list as a new number

def CantorDiagonal(MatrixOfAllNumbers, newNumber):
    for i in range(len(MatrixOfAllNumbers)):
        """ 
        Remember, the length of the matrix is infinite,
        so this loop runs forever. It scans the diagonal

briandk

---
title: Danielak - Statement of Research Experience
output: rmarkdown::tufte_handout
---

## My experience, knowledge, and interest in PER

I spent five years at the University of Maryland--College Park (UMD) as a National Science Foundation Disciplinary Expert in Science Education Research. While there, I was an active member of UMD's Physics Education Research Group (PERG), presenting at the AAPT 2010 Winter Meeting and attending the 2012 AAPT Summer Meeting and PERC. My core areas of expertise, evidenced in both my dissertation[^1] and my first-authored journal publication[^2], include:

- **6** years of experience conducting clinical interviews with students and engineers to understand their cognition and practices

briandk

# The difference between the `sep` and `collapse` arguments
# in paste can be thought of like this:
# 
# paste can accept multiple *vectors* as input, and will
# concatenate the ith entries of each vector pairwise 
# (or tuplewise), if it can.
# 
# When you pass paste multiple vectors, sep defines what
# separates the entries in those tuple-wise concatenations.
# 

briandk

var transdownNamespace = {
    updatePreviewAfterEachKeypress : function () {
        $('#text-to-transdownify').keyup(this.renderTranscriptPreview);
    },

    transdownify : function (text) {
        return (text);
    },

    renderTranscriptPreview : function () {

briandk

​(define (logicalToBinary listOfZeroesAndOnes powerOfTwo runningSum)
    (if (= (cdr listOfZeroesAndOnes) `()); Not sure if this is right, but it should be "if you've exhausted the list,
                                         ; implemented as "if the remainder of the list equals an empty list"
                                         ; http://stackoverflow.com/questions/9115703/null-value-in-mit-scheme
        runningSum)

    (else return (logicalToBinary (cdr listOfZeroesAndOnes) 
                                  (+ powerOfTwo 1) 
                                  (+ runningSum (* runningSum powerOfTwo)))))

briandk

var myDictionary = {
  rocket: 'Atlas V',
  spaceport: 'Cape Canaveral',
  astronauts: [
    'Brian',
    'Wil'
  ]
};

var getValueFromExternalDictionary = function (currentKey, indexOfCurrentKey) {

briandk

df <-
  df %>%
  select(col1 = str_split(oldcol2, ','), 
         col2, 
         col3 = paste0(oldcol1, 'amber')) %>%
  filter(col1 == "America" | col2 >= 55) %>%
  group_by(col1, col2) %>%
  summerize(count = n())

df <-