At a first guess, because you are missing a right paren in thereturn()
statement of the final else section.
Otherwise, we'd need to know about what "doesn't work" means -
what is x supposed to be? What do you want the function to do?
What error messages are you getting?
You haven't provided any of the information we need to actually
help you. The posting guide describes what you should include,
and is linked at the end of every message.
Sarah
On Tue, Jul 22, 2008 at 2:51 PM, Angelo Scozzarella
<[EMAIL PROTECTED]> wrote:
> Hi,
>
> Why this function doesn't work?
>
> function (x)
> {
> if (is.factor(x)) {
> if (!is.ordered(x)) {
> warning("La mediana non si puo' calcolare!!!")
> return(NA)
> }
> me <- median(unclass(x))
> if (me - floor(me) != 0) {
> warning("Mediana indeterminata")
> return(NA)
> }
> else {
> levels(x)[me]
> }
> }
> else if(class(x)=="histogram"){
> N<-sum(x$counts)
> cl<-min(which(cumsum(x$counts)>=N/2))
> return(x$breaks[cl]+
> (N/2-sum(x$counts[1:(cl-1)]))/(x$densit[cl]*N)
> } else median(x)
> }
>
>
>
> thanks
>
>
> Angelo Scozzarella
>
--
Sarah Goslee
http://www.functionaldiversity.org
______________________________________________
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.
