¿Puedo reconstruir una distribución normal a partir del tamaño de la muestra y los valores mínimo y máximo? Puedo usar el punto medio para representar la media

14

Sé que esto podría ser un poco complicado, estadísticamente, pero este es mi problema.

Tengo muchos datos de rango, es decir, el tamaño mínimo, máximo y de muestra de una variable. Para algunos de estos datos también tengo una media, pero no muchos. Quiero comparar estos rangos entre sí para cuantificar la variabilidad de cada rango, y también para comparar las medias. Tengo una buena razón para suponer que la distribución es simétrica alrededor de la media, y que los datos tendrán una distribución gaussiana. Por esta razón, creo que puedo justificar el uso del punto medio de la distribución como proxy de la media, cuando está ausente.

Lo que quiero hacer es reconstruir una distribución para cada rango, y luego usarla para proporcionar una desviación estándar o un error estándar para esa distribución. La única información que tengo es el máximo y el mínimo observados en una muestra, y el punto medio como proxy de la media.

De esta forma, espero poder calcular las medias ponderadas para cada grupo y también calcular el coeficiente de variación para cada grupo, en función de los datos de rango que tengo y mis supuestos (de una distribución simétrica y normal).

Planeo usar R para hacer esto, por lo que cualquier ayuda de código también sería apreciada.

green_thinlake
fuente
2
Me preguntaba por qué dice que tiene datos para valores mínimos, máximos y máximos; luego, que tiene información sobre el mínimo y máximo esperado. ¿Cuál es - observado o esperado?
Scortchi - Restablece a Monica
Lo siento, ese es mi error. Se observan los datos máximos y mínimos (medidos a partir de objetos de la vida real). He modificado la publicación.
green_thinlake

Respuestas:

11

La función de distribución acumulativa conjunta para el mínimo y el máximo x ( n ) para una muestra de n de una distribución gaussiana con media μ y desviación estándar σ esx(1)x(n)nμσ

F(x(1),x(n);μ,σ)=Pr(X(1)<x(1),X(n)<x(n))=Pr(X(n)<x(n))Pr(X(1)>x(1),X(n)<x(n)=Φ(x(n)μσ)n[Φ(x(n)μσ)Φ(x(1)μσ)]n

donde es el CDF gaussiano estándar. La diferenciación con respecto a x ( 1 ) y x ( n ) da la función de densidad de probabilidad conjuntaΦ()x(1)x(n)

F(X(1),X(norte);μ,σ)=norte(norte-1)[Φ(X(norte)-μσ)-Φ(X(1)-μσ)]norte-2ϕ(X(norte)-μσ)ϕ(X(1)-μσ)1σ2

donde es el PDF gaussiano estándar. Tomar los términos de registro y descarte que no contienen parámetros proporciona la función de probabilidad de registroϕ()

(μ,σ;x(1),x(n))=(n2)log[Φ(x(n)μσ)Φ(x(1)μσ)]+logϕ(x(n)μσ)+logϕ(x(1)μσ)2logσ

Esto no se ve muy tratable pero es fácil ver que se maximiza cualquiera que sea el valor de por el ajuste μ = μ = x ( n ) + x ( 1 )σ , es decir, el punto medio: el primer término se maximiza cuando el argumento de un CDF es negativo del argumento del otro; los términos segundo y tercero representan la probabilidad conjunta de dos variables normales independientes.μ=μ^=x(n)+x(1)2

Sustituyendo μ en el diario de probabilidad y escribir r = x ( n ) - x ( 1 ) da ( σ ; x ( 1 ) , x ( n ) , μ ) = ( n - 2 ) log [ 1 - 2 Φ ( - rμ^r=x(n)x(1)

(σ;x(1),x(n),μ^)=(n2)log[12Φ(r2σ)]r24σ22logσ

Esta expresión tiene que ser maximizado numéricamente (por ejemplo, con el optimizede la R statpaquete) para encontrar σ . (Resulta que σ = k ( n ) r , donde k es una constante que sólo depende de n -tal vez a alguien más matemáticamente hábil de lo que podía demostrar por qué.)σ^σ^=k(n)rkn

Las estimaciones no sirven sin una medida de precisión que lo acompañe. La información de Fisher observada puede evaluarse numéricamente (por ejemplo, con hessianel numDerivpaquete de R ) y usarse para calcular errores estándar aproximados:

I(σ)=-2(σ; μ )

I(μ)=2(μ;σ^)(μ)2|μ=μ^
I(σ)=2(σ;μ^)(σ)2|σ=σ^

Sería interesante comparar las estimaciones de probabilidad y método de momentos para en términos de sesgo (¿es el MLE consistente?), La varianza y el error cuadrático medio. También está el problema de la estimación para aquellos grupos donde se conoce la media de la muestra además del mínimo y el máximo.σ

Scortchi - Restablece a Monica
fuente
1
+1. Agregar la constante a la probabilidad de log no cambiará la ubicación de su máximo, pero la convierte en una función de σ / r y n , de donde el valor de σ / r que lo maximiza es alguna función n k ( n ) . De manera equivalente, σ = k ( n ) r como usted demanda. En otras palabras, la cantidad relevante para trabajar es la relación de la desviación estándar al rango (observado), o igualmente bien su recíproco, que está estrechamente relacionado con el2log(r)σ/rnσ/rnk(n)σ^=k(n)rRango estudiado .
whuber
@whuber: ¡Gracias! Parece obvio en retrospectiva. Incorporaré eso en la respuesta.
Scortchi - Restablece a Monica
1

μσR=x(n)x(1)99.7

μ+3σx(n)

μ3σx(1)

Restando el segundo del primero obtenemos

6σx(n)x(1)=R
σ^=16(x¯(n)x¯(1))

Tener un valor para la media y para la desviación estándar caracteriza completamente la distribución normal.

Alecos Papadopoulos
fuente
3
That's neither a close approximation for small n nor an asymptotic result for large n.
Scortchi - Reinstate Monica
1
@Stortchi Bueno, no dije que es una buena estimación, pero creo que siempre es bueno tener soluciones fáciles de implementar, incluso muy difíciles, para tener una idea cuantitativa del problema en cuestión, junto con más enfoques sofisticados y eficientes como, por ejemplo, el descrito en la otra respuesta a esta pregunta.
Alecos Papadopoulos
Yo no haría carpas en "la expectativa del rango de la muestra resulta ser aproximadamente 6 veces la desviación estándar para los valores de norteentre 200 y 1.000" Pero me estoy perdiendo algo sutil en su derivación, o ¿no funcionar igual de bien para justificar la división del rango por cualquier número.?
Scortchi - Restablecer Mónica
@Scortchi Bueno, el espíritu del enfoque es "si esperamos que casi todas las realizaciones caigan dentro de 6 sigmas, entonces es razonable esperar que las realizaciones extremas estén cerca de la frontera", eso es todo, realmente. Quizás estoy demasiado acostumbrado a operar bajo información extremadamente incompleta, y me veo obligado a decir algo cuantitativo al respecto ... :)
Alecos Papadopoulos
44
I could reply that even more observations would fall within 10σ of the mean, giving a better estimate σ^=R10. I shan't because it's nonsense. Any number over 1.13 will be a rough estimate for some value of n.
Scortchi - Reinstate Monica
1

Es sencillo obtener la función de distribución del máximo de la distribución normal (ver "P.max.norm" en el código). De él (con algunos cálculos) puede obtener la función cuantil (ver "Q.max.norm").

Usando "Q.max.norm" y "Q.min.norm" puede obtener la mediana del rango que está relacionado con N. Usando la idea presentada por Alecos Papadopoulos (en respuesta anterior) puede calcular sd.

Prueba esto:

N = 100000    # the size of the sample

# Probability function given q and N
P.max.norm <- function(q, N=1, mean=0, sd=1){
    pnorm(q,mean,sd)^N
} 
# Quantile functions given p and N
Q.max.norm <- function(p, N=1, mean=0, sd=1){
    qnorm(p^(1/N),mean,sd)
} 
Q.min.norm <- function(p, N=1, mean=0, sd=1){
    mean-(Q.max.norm(p, N=N, mean=mean, sd=sd)-mean)
} 

### lets test it (takes some time)
Q.max.norm(0.5, N=N)  # The median on the maximum
Q.min.norm(0.5, N=N)  # The median on the minimum

iter = 100
median(replicate(iter, max(rnorm(N))))
median(replicate(iter, min(rnorm(N))))
# it is quite OK

### Lets try to get estimations
true_mean = -3
true_sd = 2
N = 100000

x = rnorm(N, true_mean, true_sd)  # simulation
x.vec = range(x)                  # observations

# estimation
est_mean = mean(x.vec)
est_sd = diff(x.vec)/(Q.max.norm(0.5, N=N)-Q.min.norm(0.5, N=N))

c(true_mean, true_sd)
c(est_mean, est_sd)

# Quite good, but only for large N
# -3  2
# -3.252606  1.981593
Vyga
fuente
2
Continuando con este enfoque, mi(R)=σ-1-(1-Φ(X))norte-Φ(X)nortereX=σre2(norte), dónde R es el rango y Φ()La función de distribución acumulativa normal estándar. Puede encontrar valores tabulados dere2 Para pequeños norte en la literatura de control de procesos estadísticos, evalúe numéricamente la integral o simule para su norte.
Scortchi - Restablece a Monica