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 <[EMAIL PROTECTED]>
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]]
______________________________________________
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.
