[R-es] Codificar ecuación no lineal

[Luis Eduardo]

Hola a todos, ¿cómo puedo codificar correctamente esta ecuación en R?

y <- Σi=3 ((1+sing(t-ti)) /2) *Bi*{1-exp[-ai*((t-ti) / ∆ti) ^(mi+1)]}
n=3
donde para t> ti; sign(t-ti) = 1, de lo contrario; sign(t-ti) = - 1;
limitar el parámetro (ai) entre 2,3 y 6,9;
B1 + B2 + B3 = 1

Cualquier ayuda es muy apreciada

	[[alternative HTML version deleted]]