dewittpe

#!/bin/bash
# requires imagemagick

#########################################################
# Unzip a large set of NEF, JEPG, and other image files #
# resize and convert to pdf for easy printing           #
#########################################################

# unzip the compressed zip achieves
for i in *.zip;

dewittpe

# objective - plot circles and polygons such that
# 0. A circle
# 1. An equilateral triangle such that the edges are tangent to the circle
# 2. A circle such that the vertices of the triangle are on the circumference
# 3. A square with edges tangent to the circle drown in step 2.
# 4. A circle with the vertices of the square on the circumference
# 5. A regular pentagon....
#
# A vertex of the regular polygons will all be co-linear.  That is, with the
# initial circle centered at the Cartesian point (0, 0), then on vertex for each

dewittpe

library(ggplot2)
library(magrittr)
library(parallel)

# Padovan Sequence
# 1, 1, 1, 2, 2, 3, 4, ...

padovan <- function(n) {
  n <- floor(n)
  if (n <= 3) stop("n needs to be an integer greater than 3")

dewittpe

#!/bin/bash

HOST=git.neptuneinc.org
REMOTEUSER=pdewitt
KEY=/home/$USER/.ssh/id_rsa.pub

ssh -l $REMOTEUSER $HOST mkdir -p .ssh
cat $KEY | ssh -l $REMOTEUSER $HOST 'cat >> .ssh/authorized_keys'
ssh -l $REMOTEUSER $HOST "chmod 700 .ssh; chmod 640 .ssh/authorized_keys"

dewittpe

# my_extractor.R
# 
# Given an M dimensional array, extract the last index based on prescribed
# values of the first M-1 values.
#
# For example, for a 3D array with indices [x, y, z] write a function that will
# extract z as function of x and y.

set.seed(42)

dewittpe

dewittpe

ICD Exploration

Exploring the ICD codes between the icd package and the pccc package.

In general there are R scripts which are used to produce .md files via knitr::spin()

dewittpe

library(rmarkdown)
library(knitr)
render("eqn-numbering.Rmd")

dewittpe

# Example using regular expressions and setting col_types for use with
# readr::read_delim

# function select_cols
# args:
#   clnms  a character vector of column names
#   rexprs a character vector of regular expressions to search clnms for.  These
#          rexprs select the columns form the .csv
#   types  a character vector of "l", "i", "d", "c" for logical, integer,
#          double, and character.  see documentation for readr for more detail

dewittpe

# ---------------------------------------------------------------------------- #
# file: random-number-images.R
# author: Peter DeWitt
#
# inspired by the work presented at http://boallen.com/random-numbers.html
# this file generates several images based on random number generators in R
# ---------------------------------------------------------------------------- #
# ---------------------------------------------------------------------------- #
# libraries
# ---------------------------------------------------------------------------- #