Select all bulbs at the nearest time.

A function to standardize the time point selection for all LED bulbs for the LED project in BYUI's MATH 119.

led_time(
  time_bulb = 294,
  number_bulbs = NULL,
  seed = 9012017,
  dat = data4led::led_study,
  columns_keep = c("id", "hours", "intensity", "percent_intensity")
)

Arguments

time_bulb	The bulb time that you would like. The most changed argument to the function.
number_bulbs	The number of bulbs to sample. Defaults to all.
seed	is used to make the random sample reproducible. May change at teacher request.
dat	is the data object from which the sample is taken. Defaults to led_study.
columns_keep	are the columns that should be returned from dat.

Examples

led_time(425, number_bulbs = 10, seed = 1976)
#> # A tibble: 10 x 4
#>       id hours intensity percent_intensity
#>    <int> <dbl>     <dbl>             <dbl>
#>  1   123   403      801.              1.01
#>  2    52   403      811.              1.01
#>  3   120   403      800.              1.01
#>  4    42   403      799.              1.00
#>  5   100   403      796.              1.01
#>  6   160   403      804.              1.00
#>  7   158   403      801.              1.00
#>  8    76   403      797.              1.00
#>  9   181   403      792.              1.02
#> 10   180   403      786.              1.01