<div dir="auto">Any suggestion plz. What could be missing that I donot get function root to be zero at some points?</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Tue, 24 Dec 2019, 1:45 PM Shaami, <<a href="mailto:nzshaam@gmail.com">nzshaam@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Dear Friends</div><div><br></div><div>Could you please help with the following example? I do not get function value at zero using uniroot() in R. Could you suggest something? I want function value zero at any point like 2.4, 2.5, 2.6, 4.5, 5.9 etc.</div><div><br></div><div>Thank You</div><div><br></div><div>x = c(-100, -20, 100, 230, 500, 920, 1000)<br>a = c(1000, 12, 300, 0, 100, 300, 750)<br>Fn = function(t, x, a){<br>  sum = 0<br>  for(i in 1:length(x)){<br>    sum = sum + punif(t, min=x[i]-a[i], max=x[i]+a[i])<br>  }<br>  return(sum)<br>}uniroot(function(t){Fn(t, x, a) - 2.4}, interval=c(min(x-a), max(x+a)))<br>uniroot(function(t){Fn(t, x, a) - 2.5}, interval=c(min(x-a), max(x+a)))<br>uniroot(function(t){Fn(t, x, a) - 2.8}, interval=c(min(x-a), max(x+a)))<br></div><div><br></div></div>
</blockquote></div>