Eu estou tentando gerar a previsão de intervalos usando a função de prever() para um novo conjunto de dados, mas em mais do que um modelo que eu tenho gerado para um conjunto de dados. Eu sou relativamente inexperiente no uso de lapply, mas a figura deve ser útil neste processo:
#Calling in my libraries:
library(dplyr)
#Creating dataset:
DNase <- DNase
#Generating models, one for each "Run" in DNAse:
model_dna <- DNase %>%
group_by(Run) %>%
do(model_dna_group = lm(log(density) ~ log(conc), data = .)) %>% ungroup()
#Creating a new data set to be used to generate predictions:
new_dna <- as.data.frame(DNase$conc) %>%
mutate(conc = DNase$conc * 2) %>% select(conc)
#Attempting to apply predict to these models for a new data frame:
new_dna_w_predictions <- lapply(
X = model_dna,
FUN = predict,
newdata = new_dna,
interval = "prediction",
level = 0.9
)
No entanto, isso atrai o seguinte erro:
Erro em obter(como.caractere(DIVERSÃO), mode = "função", ambi = ambi) : objeto 'model_dna' do modo de 'função' não foi encontrado
Eu não sou certo como melhor estruturar este lapply função, especialmente, quando estão sendo usados em mais de um modelo. Há geralmente uma maneira mais limpa abordagem?