Datos:

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"))

Gastos esperados:

   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"))

Hola chicos, soy yo otra vez;) y desafortunadamente (creo) tengo una pregunta bastante difícil ... Como pueden ver arriba, tengo algunos valores faltantes en las fechas de entrega y quiero reemplazarlos por otra fecha. Esa fecha debería serla fecha de pedido del artículo específico + el tiempo de entrega promedio, en días (completos). (En el ejemplo, son 1.75 días, de modo que se redondea a 2 días) El tiempo promedio de entrega es el tiempo calculado a partir del valor promedio de todas las muestras que no contienen valores faltantes = (2 días + 1 día + 3 días + 2 días + 1 día + 2 días + 1 día + 2 días): 8 = 1,75

por lo tanto, en un primer paso, se debe calcular el tiempo de entrega promedio y en el segundo paso se debe ingresar la fecha del pedido + el tiempo de entrega promedio (en días completos) en lugar de los NA

Ya intenté un poco con [is.na (DB1 $ deliveryDate)] pero desafortunadamente no tengo una buena idea de cómo resolver el problema ...

Espero que alguien tenga una idea