[R] Function not returning a vector?

[rkevinburton at charter.net]

Why does:

(shape/scale) * (1:365/scale)^(shape - 1)

return a vector of numbers but calling a function

hasard(1:365,shape,scale)

defined like:

hazard <- function(x,shape,scale)
{
   return (shape/scale) * (x/scale)^(shape - 1)
}

Only return a single value? It is like x becomes a single value passed as an argument.

Thank you.

Kevin