Prueba algo así:
##
P1 <- data.frame(
Cantidad = 0:10,
UtilidadA = c(0,15,28,35,40,45,49,53,55,56,56),
UtilidadB = c(0,17,30,37,42,47,51,55,57,58,58)
)
PrecioA <- 12
PrecioB <- 16
L_prep <- 90
out <- expand.grid(cant_a = 0:10, cant_b = 0:10)
out <- merge(out, P1[, c("Cantidad
Hola,
Esto podría simplificar un poco la parte inicial:
# Creamos data_frame de cantidad y utilidad
P1 <- data.frame(
Cantidad= 0:10,
UtilidadA = c(0,15,28,35,40,45,49,53,55,56,56),
UtilidadB = c(0,17,30,37,42,47,51,55,57,58,58)
) # No uses comillas y cárgalos directamente como numéricos