Human Ingenuity and Speed
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