Nothing
## ----initial, echo = FALSE, cache = FALSE, results = 'hide'-------------------
knitr::opts_chunk$set(
warning = FALSE, message = FALSE, echo = TRUE, collapse = TRUE,
fig.width = 7, fig.height = 6, fig.align = 'centre',
comment = "#>"
)
options(tibble.print_min = 5)
## ----ped----------------------------------------------------------------------
library(dplyr)
library(tsibble)
pedestrian
## ----has-gaps-----------------------------------------------------------------
has_gaps(pedestrian, .full = TRUE)
## ----count-gaps---------------------------------------------------------------
ped_gaps <- pedestrian %>%
count_gaps(.full = TRUE)
ped_gaps
## ----ggplot-gaps, fig.height = 3----------------------------------------------
library(ggplot2)
ggplot(ped_gaps, aes(x = Sensor, colour = Sensor)) +
geom_linerange(aes(ymin = .from, ymax = .to)) +
geom_point(aes(y = .from)) +
geom_point(aes(y = .to)) +
coord_flip() +
theme(legend.position = "bottom")
## ----fill-na-default----------------------------------------------------------
ped_full <- pedestrian %>%
fill_gaps(.full = TRUE)
ped_full
## ----fill-na, eval = FALSE----------------------------------------------------
# pedestrian %>%
# fill_gaps(Count = 0L, .full = TRUE)
# pedestrian %>%
# group_by_key() %>%
# fill_gaps(Count = mean(Count), .full = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.