
<html><head></head><body dir="auto" style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">Hola a todos<br><br>Tengo una duda existencial, como siempre, jejeje<br><br>Quiero resolver una ecuación (F=0) que depende de un parámetro z, pero este viene en función de una suma que depende de un vector de tiempos ti (1:25) y unos valores de un vector x<br><br>Lo he intentado resolver mediante una función para luego utilizar solve, pero me he atrancado.<br><br>La función es esta:<br><br>ti<-1:25<br>x<-sample(1:10, size=25, replace=T) <br>beta<-0.1<br><br>F<-function(z) {<br>suma<-0<br>for(i in 2:n){<br>sum<-sum+exp(1)^(-beta*ti[i])/(z-beta)^2*(log(x[i])-exp(1)^(-beta)*log(x[i-1]))*(exp(1)^(ti[i]*(beta-z))*(1-ti[i]*(beta-z))-exp(1)^(-ti[i-1]*(beta-z))*(1-ti[i-1]*(beta-z)))<br>}<br>} <br><br>Quiero calcular el valor de z para que la suma valga cero. ¿He metido mucho la pata?<br><br>Gracias de antemano<br><br>Saludos</body></html>