Estou trabalhando no seguinte código:
temperatura<-function(t){6/pi*atan(40*t-740)+7}#temperatura em função do tempo
Ratkowski<-function(t){0.04291^2*(temperatura(t)-3.57877)^2*(1-exp(1.13744*(temperatura(t)-41.64632)))^2}#modelo dinâmico
fq<-function(t){0.1*exp(Ratkowski(t))}
funcao<-function(t){integrate(fq,0,t)}
Estou tentando construir uma nova função definida como
funcao02<-function(t){funcao(t)/(funcao(t)+1)}
Está sendo gerado o seguinte erro:
Error in funcao + 1 : argumento não-numérico para operador binário
Acredito que o valor de funcao (resultado da integral)
não está sendo considerado como numérico. É isso mesmo? Como resolver o problema?