pboesu · December 11, 2018 12:25
diff --git a/20181211_jennis_challenge.R b/20181211_jennis_challenge.R
 library(dplyr)
 system.time(df3 <- left_join(select(df1, lat, lon, id, time_hour),
                             select(df2, lat, lon, var1, var2, time_words),
                             by = c('lat', 'lon', 'time_hour' = 'time_words')
                             )
            )
 #21.37 seconds
	library(dplyr)
	system.time(df3 <- left_join(select(df1, lat, lon, id, time_hour),
	select(df2, lat, lon, var1, var2, time_words),
	by = c('lat', 'lon', 'time_hour' = 'time_words')
	)
	)
	#21.37 seconds
No results found