Human Ingenuity and Speed

library(tidyverse)
## ── Attaching packages ─────────────────────────────── tidyverse 1.3.0 ──
## ✓ ggplot2 3.3.0     ✓ purrr   0.3.4
## ✓ tibble  3.0.1     ✓ dplyr   0.8.5
## ✓ tidyr   1.0.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0
## Warning: package 'tibble' was built under R version 3.6.2
## Warning: package 'purrr' was built under R version 3.6.2
## ── Conflicts ────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Data Building

The first thing we need to understand is where we have come and where we are going. There is alot that has been done in the past couple years but we still have more.

type <- c("Sound","Light","Human Travel")
units <- c("mps","mps","mps")
speed <- c(343,299792458,11082.569)
source <- c("","","")
speed_data <- data.frame(type,units, speed,source)
spd <- speed_data$speed
spd %*% (t(spd)) 
##              [,1]         [,2]         [,3]
## [1,]       117649 1.028288e+11 3.801321e+06
## [2,] 102828813094 8.987552e+16 3.322471e+12
## [3,]      3801321 3.322471e+12 1.228233e+08

–TODO: The following

299792458/11082.57
## [1] 27050.81

Human History of Speed

Speed hasn’t been a

comments powered by Disqus