Я рассчитываю эволюцию диаметра частиц с течением времени и пытаюсь сделать условие, что когда диаметр частицы меньше или равен минимальному диаметру, диаметр равен минимальному фиксированному значению.
Я пробовал с условием, если, но оно не работает (код показан здесь ниже). Поэтому я хотел бы сделать так, чтобы с первого раза, когда минимальный диаметр был достигнут, чем когда-либо равны другие значения,им присвоено минимальное значение диаметра.
#p is my data frame and dp is diameter values
a <-p$diameter <- p$dp*((Te - p$t)/Te)^0.5
p$vol <- pi*(p$dp*1e-6)^3/6
#diam_min_ma is minimum diameter calculation
b <- diam_min_ma=(0.03*p$vol*6/pi)^(1/3)*1000000
c = if (a >= b)
{p$diameter=a}
else
{p$diameter=b}
p$diameter <- c
Это пример ожидаемой таблицы (DP1, .... изменение диаметра Dp7 с течением времени и Dp min - минимальный диаметр, который может быть достигнут)
DpT1 DpT2 DpT3 DpT4 DpT5 DpT6 DpT7
150 100 75 50 36 36 36 Dp min= 36µm
100 60 45 30 28 28 28 Dp min= 28µm
60 40 20 20 20 20 20 Dp min= 28µm