note 84089 deleted from ref.math by felipe
| From: | felipe@php.net | Date: | Fri, 27 Jun 2008 13:40:14 +0000 |
| Subject: | note 84089 deleted from ref.math by felipe | ||
| References: | 1 | Groups: | php.notes |
| Request: | Send a blank email to php-notes+get-140870@lists.php.net to get a copy of this message | ||
Note Submitter: dadhemir at gmail dot com
Reason: 4
----
Una función estadÃstica que calcula la moda y valor con mayor frecuencia dentro de una muestra
# moda
function moda($arr){
# arreglo final
unset($arrf);
# arreglo de valores unicos
$arru=array_unique($arr);
$num=count($arru);
for ($i=0;$i<=$num;$i++){
$contador=0;
for ($j=0;$j<=count($arr);$j++){
if ($arru[$i]==$arr[$j])
$contador++;
}
$arrf[$arru[$i]]=$contador;
}
arsort($arrf);
reset($arrf);
$k=1;
foreach ($arrf as $clave=>$valor){
if ($k==1)
$moda=$clave;
$k++;
}
# si todos son !=
unset($cesp);
$cesp=array_unique($arrf);
if (count($cesp)==1)
$moda='NoExiste';
#----------------
return $moda;
}