diff --git a/14_kriging.Rmd b/14_kriging.Rmd
index cc20b9b..a8c6c3a 100644
--- a/14_kriging.Rmd
+++ b/14_kriging.Rmd
@@ -66,9 +66,10 @@ library(sp)
 # Load the air quality data
 data(meuse)
 coordinates(meuse) <- c("x", "y")
-head(meuse)%>%
+meuse%>%
   as_data_frame()%>%
-  select(x,y,zinc)
+  select(x,y,zinc)%>$%
+  head()
 ```
 
 Step 2: Visualize the data.