Hi Angelo,
please read the posting guide, before posting!

Anyway, for general rule, if you want to 
see what's going on in a function at each step, it may be  helpful 
 to  install library("debug")
that has  very useful  functions as "mtrace" that
my resolve your problem.


 Cheers 
Anna





----- Messaggio originale -----
Da: Angelo Scozzarella <angeloscozzarella@tiscali.it>
A: r-help@r-project.org
Inviato: Martedì 22 luglio 2008, 20:51:05
Oggetto: [R] Function Error

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

______________________________________________
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.


Anna Freni Sterrantino
Ph.D Student 
Depatment of Statistics
University of Bologna, Italy
via Belle arti 41, 40124 Bo



      Posta, news, sport, oroscopo: tutto in una sola pagina. 
[[elided Yahoo spam]]
www.yahoo.it/latuapagina
	[[alternative HTML version deleted]]

