
Dear all R gurus,

 

I have following syntax:

 

y = c(1:10)
chippy <- function(x) 
        {
         y[5] = x
         sin(cos(t(y)%*%y)*exp(-t(y)%*%y/2))
        }
curve(chippy, 1, 20, n=200)

 

But I am getting error while executing :

 

Error in xy.coords(x, y, xlabel, ylabel, log) : 
        'x' and 'y' lengths differ
In addition: Warning message:
number of items to replace is not a multiple of replacement length 


Can anyone tell me how I can recover?

 

Thanks

Ron



 




Send instant messages to your online friends http://uk.messenger.yahoo.com 
	[[alternative HTML version deleted]]

