library(dplyr)
## Extract a vector with no repeats
model_df_to_vector(iris, Petal.Length)
## Extract a vector and summarise
df <- bind_rows(iris %>% mutate(sim = 1, id = 1:length(sim)),
iris %>% mutate(sim = 2 , id = 1:length(sim)))
model_df_to_vector(df, Petal.Length, "id", sum_fn = mean)
Run the code above in your browser using DataLab