# NOT RUN {
set.seed(10)
x <- sample(1:10)
data.frame(
original = x,
perc_change = fv_percent_diff(x)
)
# }
# NOT RUN {
library(dplyr)
CO2 %>%
group_by(Plant) %>%
mutate(
`Percent` = fv_percent(conc),
`Percent Diff` = fv_percent_diff(conc)
) %>%
print(n=Inf)
CO2 %>%
group_by(Type, Treatment) %>%
mutate(
`Percent` = fv_percent(conc),
`Percent Diff` = fv_percent_diff(conc)
) %>%
print(n=Inf)
# }
Run the code above in your browser using DataLab