Dados:

DB1 <- data.frame(orderItemID  = 1:10,     
orderDate = c("2013-01-21","2013-03-31","2013-04-12","2013-06-01","2014-01-01", "2014-02-19","2014-02-27","2014-10-02","2014-10-31","2014-11-21"),  
deliveryDate = c("2013-01-23", "2013-03-01", "NA", "2013-06-04", "2014-01-03", "NA", "2014-02-28", "2014-10-04", "2014-11-01", "2014-11-23"))

Resultado esperado:

   DB1 <- data.frame(orderItemID  = 1:10,     
 orderDate= c("2013-01-21","2013-03-31","2013-04-12","2013-06-01","2014-01-01", "2014-02-19","2014-02-27","2014-10-02","2014-10-31","2014-11-21"),  
deliveryDate = c("2013-01-23", "2013-03-01", "2013-04-14", "2013-06-04", "2014-01-03", "2014-02-21", "2014-02-28", "2014-10-04", "2014-11-01", "2014-11-23"))

Ei pessoal, sou eu de novo;) e infelizmente (acho) tenho uma pergunta bastante difícil ... Como você pode ver acima, tenho alguns valores ausentes nas datas de entrega e quero substituí-los por outra data. Essa data deve sera data do pedido do item específico + o tempo médio de entrega, em dias (completos). (No exemplo, são 1,75 dias para arredondar para 2 dias) O tempo médio de entrega é o tempo calculado a partir do valor médio de todas as amostras que não contêm valores ausentes = (2 dias + 1 dia + 3 dias + 2 dias + 1 dia + 2 dias + 1 dia) + 2 dias): 8 = 1,75

portanto, em uma primeira etapa, o tempo médio de entrega precisa ser calculado e, na segunda etapa, a data do pedido + o tempo médio de entrega (em dias inteiros) precisam ser inseridos em vez dos NAs

Eu já tentei um pouco com [is.na (DB1 $ deliveryDate)], mas infelizmente não tenho uma boa idéia de como resolver o problema ...

Espero que alguém tenha uma ideia