why its giving error
library(tidyverse)
library(dplyr)
df1 <- data.frame(
entry=1:10,
lat1=runif(10,29,34))
df2 <- data.frame(
entry2=1:10,
lat2=runif(10,29,34))
step1 <- expand_grid(df1, df2)
#> Error in expand_grid(df1, df2): could not find function "expand_grid"
step2 <- mutate(step1, distance_metric = abs(lat1 - lat2))
#> Error in mutate(step1, distance_metric = abs(lat1 - lat2)): object 'step1' not found
step3 <- arrange(step2, entry, distance_metric)
#> Error in arrange(step2, entry, distance_metric): object 'step2' not found
step4 <- group_by(step3, entry) %>% slice(1)
#> Error in group_by(step3, entry): object 'step3' not found
step5 <- ungroup(step4) %>% select(lat1, lat2)
#> Error in ungroup(step4): object 'step4' not found
Created on 2020-02-09 by the reprex package (v0.3.0)