res <- prot1 %>% group_by(Protein.Name) %>%
 do(fitLM = lmer(log2Area ~ Condition + (Condition|Peptide.Sequence/precursor ),  data = .),
 fitLM1 = lmer(log2Area ~ (Condition|Peptide.Sequence/precursor ),  data = .))


> res %>%  mutate(anova = map2(fitLM1, fitLM, ~anova(.x,.y)))
    Error in mutate_impl(.data, dots) :
    Evaluation error: `.x` is not a vector (S4).