Dear George,
Perhaps redefining Fn as

Fun2 <- function(x) ifelse(x==0,1,sin(x)/x)

could help. Now, for the symbolic part (I'm not sure if understood
correctly), try ?curve as follows:

curve(Fun2(x),-10,10)

HTH,

Jorge



On Wed, Oct 29, 2008 at 12:21 AM, KARAVASILIS GEORGE <gkaravas@ee.duth.gr>wrote:

> Hello, R subscribers.
> I would like to define a function like this one:
> Fun <- function(x)    sin(x)/x
> with value 1 at x=0. How can I do that?
> Is there a way to plot it "symbolically", without using x as a vector?
> e.g.
> x <- seq(from=-10, to=10, length=100)
> plot(x, Fun(x))
> Thank you in advance.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

	[[alternative HTML version deleted]]

