diff --git a/web/4_a b/web/4_a
new file mode 100644
index 0000000000000000000000000000000000000000..9773d7c854a9dbc93e53f8267b101e74388de31e
--- /dev/null
+++ b/web/4_a
@@ -0,0 +1,10 @@
+flights_sml <- select(flights, 
+  year:day, 
+  ends_with("delay"), 
+  distance, 
+  air_time
+)
+mutate(flights_sml,
+  gain = dep_delay - arr_delay,
+  speed = distance / air_time * 60
+)
\ No newline at end of file