Displaying 1 result from an estimated 1 matches for "indeterminata".
Did you mean:
indeterminate
2008 Jul 22
4
Function Error
...39;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 me...