library(tidyverse)

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))

–TODO: The following

299792458/11082.57

Human History of Speed

Speed hasn’t been a

Human History of Speed#

Human History of Speed