data(pf_models)
eempf_comp_names(pf4)
eempf_comp_names(pf4) <- c("A","B","C","D","E","F","G")
value <- list(c("A1","B1","C1","D","E","F","G"),
c("A2","B2","C","D","E","F","G"),
c("A3","B3","C","D","E","F","G"),
c("A4","B4","C","D","E","F","G"),
c("A5","B5","C","D","E","F","G5")
)
eempf_comp_names(pf4) <- value
eempf_comp_names(pf4)
ggeem(pf4[[1]])
Run the code above in your browser using DataLab