#add Brown reference illuminance to some sample data
testdata <- tibble::tibble(MEDI = c(100, 10, 1, 300),
State.Brown = c("day", "evening", "night", "day"))
Brown2reference(testdata)
Run the code above in your browser using DataLab