Boa tarde, tenho o seguinte codigo em R
funcao<-function(delta) {delta}
Intensity2AccumulationFactor<-function(delta,s,t){
int<-function(s,t) {integrate(funcao,s,t)}
p=int(s,t)
b=c(p)
a=exp(b)
print(a)
}
mas ao testar da me um erro,
Ao testar dá o seguinte erro > Intensity2AccumulationFactor(funcao,0,1) Error in exp(b) : non-numeric argument to mathematical function
Intensity2AccumulationFactor(funcao,0,1) Error in exp(b) : non-numeric argument to mathematical function
alguém me pode ajudar?
O objectivo é calcular 1/(-integral(delta))
entre s
e t
.