benjamin-chan

clear
use "C:\Users\chanb\Box Sync\Share\BDPDropIn\Hinson\Simple_GCS.dta" 

bysort recordid : egen meanGCS = mean(gcs)
bysort recordid : egen sdGCS = sd(gcs)
bysort recordid : egen countNonMissingGCS = count(gcs)
gen group1 = 0
replace group1 = 1 if sdGCS == 0  /* Assign to group1 if all GCS values are the same */

bysort recordid : egen minGCS = min(gcs)  /* Calculate minimum GCS */

benjamin-chan

library(magrittr)
library(dplyr)
library(knitr)

ratio <- 1 / 25.4  # in to mm conversion ratio
df <- 
  expand.grid(edge = c("Short", "Long"),
              film = c("35mm", "6X6", "6X7", "4X5"),
              dpiScan = 800 * (2 ^ seq(0, 3)),

benjamin-chan

Developing BW film

• Paterson tank
• 10 oz (300 ml) per roll

1. Developer

• Varying times; see Massive Dev Chart
• Agitate for 30 sec
• Put tank down sharply to pop bubbles
• Agitate 10 sec every 60 sec

benjamin-chan

cart2sph <- function (x, y, z, x0 = 0, y0 = 0, z0 = 0, units = "rad") {
  # See http://mathworld.wolfram.com/SphericalCoordinates.html and https://en.wikipedia.org/wiki/Spherical_coordinate_system
  # Use ISO convention
  # rho = radial distance
  # theta = polar angle (inclination); default units is radians
  # phi = azimuthal angle; default units is radians
  x <- x - x0
  y <- y - y0
  z <- z - z0
  rho <- sqrt(x^2 + y^2 + z^2)

benjamin-chan

clearscreen
forever [
  repeat 50 [setpencolor "blue left 1 forward 3]
  repeat 50 [setpencolor "red left 1 forward 3]
  left 122
]


cs setpencolor
 forever [forward 90 left 225 forward 90 right] 

benjamin-chan

My results [Marquam + Flicker trail](https://www.strava.com/segments/6786353?filter=my_results).
Only use data from 2015-2016.
2016 is after altitude room training at [Evolution Healthcare and Fitness](http://www.evolutionhealthcareandfitness.com/altitude-room/).

Load data.

```{r, warning = FALSE, message = FALSE}
library(dplyr)
library(magrittr)
library(ggplot2)

benjamin-chan

Checklist of tasks to initialize a project

1. Initialize Git repo
2. Populate README
3. Make project folder/directory tree

• Bash
• Windows

3. Update .gitignore

benjamin-chan

#!/bin/bash
# Do this after initializing the Git repo
mkdir background
mkdir data
mkdir data/raw
mkdir data/processed
mkdir docs
mkdir figures
mkdir lib
mkdir scripts

benjamin-chan

rem Do this after initializing the Git repo
mkdir background
mkdir data
mkdir data\raw
mkdir data\processed
mkdir docs
mkdir figures
mkdir lib
mkdir lib\R
mkdir lib\tests

benjamin-chan

setwd("H:/Projects")  # Set project directory

Sys.time0 <- Sys.time()

sink("make.log")

files <- c("file1.Rmd",  # File 1
           "file2.Rmd",  # File 2
           "file3.Rmd")  # File 3