Add recording of pipeline

edgararuiz-zz · Mar 12, 2018 · 5d651b3 · 5d651b3
1 parent 93412c6
commit 5d651b3
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -5,3 +5,4 @@
 logs
 derby.log
 sense.txt
+tuberia
diff --git a/sparklyr.Rmd b/sparklyr.Rmd
@@ -217,6 +217,27 @@ modelo_nuevo <- ml_fit(
 modelo_nuevo
 ```
 
+```{r}
+predicciones <- ml_transform(
+  x = modelo_nuevo,
+  dataset = muestra_vuelos$examinar
+)
+
+predicciones
+```
+
+```{r}
+predicciones%>%
+  group_by(tarde, prediction) %>%
+  tally()
+```
+
+```{r}
+ml_save(tuberia_vuelos, "tuberia", overwrite = TRUE)
+
+dir("tuberia")
+```
+
 
 # Analysis de texto