123456789101112131415161718192021222324252627282930 |
- ---
- title: "Flight analysis"
- ---
-
- This file creates graphs of recorded flight parameters
-
- ```{r init}
- library(ggplot2)
- library(scales)
- flight <- read.csv("flight.csv", header=T)
- ```
-
- ```{r graph}
- baseg <- ggplot(flight, aes(x=timepoint / 10)) + xlab("Time (seconds)") + theme_classic()
- alt <- baseg + geom_line(aes(y=current_altitude)) + ylab("Altitude (m)") + ggtitle("Altitude")
- vspd <- baseg + geom_line(aes(y=v_speed)) + ylab("Vertical speed (m/s)") + ggtitle("Vertical speed")
- hspd <- baseg + geom_line(aes(y=h_speed)) + ylab("Horizontal speed (m/s)") + ggtitle("Horizontal speed")
- mass <- baseg + geom_line(aes(y=mass)) + ylab("Vessel mass (kg)") + ggtitle("Mass")
- fuel <- baseg + geom_line(aes(y=fuel)) + ylab("Fuel (kg)") + ggtitle("Fuel")
- at <- baseg + geom_line(aes(y=available_thrust)) + ylab("Available thrust (Newtons)") + ggtitle("Available thrust")
- ```
-
- ```{r drawgraphs, echo=FALSE}
- alt
- vspd
- hspd
- mass
- fuel
- at
- ```
|