В Ops.factor (number_of_pizza, pizzasize_table [size,] $ pizza_price): '*' не имеет значения для факторов
Это предупреждение, которое я получаю, и не знаю, как его решить. Я создал ниже функцию
gen_profit <- функция (no_of_recs) + {+ loc <- образец (location_table $ store_location, no_of_recs, replace = T, prob = c (2,2,1,1), 4,1)) + size <- образец (pizzasize_table $ pizza_type, no_of_recs, replace = T) + cheese <-sample (cheese_table $ cheese_type, no_of_recs, replace = T) + тесто <- sample (dough_table $ dough_type, no_of_recs,replace = T, prob = c (2,2,1)) + topping <- sample (toppings_table $ topping_type, no_of_recs, replace = T, prob = c (1,3,2,2)) + order_id <-sample (order_table $ order_type, no_of_recs, replace = T, prob = c (2,3)) + number_of_pizza <- образец (c (1,2), no_of_recs, replace = T, prob = c (10,4)) + количество <- number_of_pizza * pizzasize_table [размер,] $ pizza_price + прибыль <- data.frame (pizza_size = размер, сыр = сыр, тесто_тип = тесто, начинки = начинка, order_type = order_id, количество = число_of_pizza, количество = количество) + row.names(прибыль) <- NULL + доход (прибыль) +} прибыль_факт <- gen_profit (100) </p>