* Encoding: UTF-8.
**Cálculo de V e IC para un grupo de ítems***

*********************************************************************************
***SINTAXIS 1****************************************************************
* Esta sintaxis se aplica cuando se requiere calcular los coeficientes *
* V y sus intervalos en cada grupo, y entonces compararlos              *
* Paso 1:                                                                                       *
* Debajo de BEGIN DATA, y antes de END DATA, ingresar               *
* una matriz de datos en el siguiente orden:                                     *
*.m1 min1 max1 n1 conf1 m2 min2 max2 n2 conf2                           *
*.
* m   = media de las calificaciones en el grupo 1 o 2                         *
* min = valor mínimo posible de las calificaciones en el grupo 1 o 2    *
* max = valor mínimo posible de las calificaciones en el grupo 1 o 2   *
* n   = número de jueces en el grupo 1 o 2                                        *
* conf = nivel de confianza (.90, .95, .99, u otro valor)                        *
*
* Aparece un ejemplo, el cual debe ser reemplazado con la propia      *
* información                                                                                  *
* Paso 2:                                                                                       *
* Seleccionar toda el código, desde "data list free", hasta la               *
* última línea del código. Presionar las teclas CONROL + R, o hacer  *
* clic en el ícono RUN.                                                                    *.
*********************************************************************************

data list free / m1 min1 max1 n1 conf1 m2 min2 max2 n2 conf2.
BEGIN DATA.
4.30	1	6	10	0.9	4.86	1	6	7	0.9
5.20	1	6	10	0.9	5.14	1	6	7	0.9
5.40	1	6	10	0.9	5.57	1	6	7	0.9
5.20	1	6	10	0.9	4.86	1	6	7	0.9
5.00	1	6	10	0.9	4.14	1	6	7	0.9
5.50	1	6	10	0.9	5.71	1	6	7	0.9
5.60	1	6	10	0.9	5.86	1	6	7	0.9
5.30	1	6	10	0.9	5.43	1	6	7	0.9
5.80	1	6	10	0.9	5.43	1	6	7	0.9
5.80	1	6	10	0.9	5.43	1	6	7	0.9
5.40	1	6	10	0.9	5.71	1	6	7	0.9
5.60	1	6	10	0.9	5.71	1	6	7	0.9
5.40	1	6	10	0.9	5.57	1	6	7	0.9
5.70	1	6	10	0.9	5.43	1	6	7	0.9
5.60	1	6	10	0.9	5.29	1	6	7	0.9
4.60	1	6	10	0.9	3.57	1	6	7	0.9
5.00	1	6	10	0.9	4.86	1	6	7	0.9
5.40	1	6	10	0.9	5.14	1	6	7	0.9
5.10	1	6	10	0.9	5.14	1	6	7	0.9
4.50	1	6	10	0.9	3.57	1	6	7	0.9
5.20	1	6	10	0.9	3.83	1	6	6	0.9
end data.

** No modificar el siguiente código**.
compute k1 = max1 - min1.
compute V1 = (m1 - min1)/k1.
compute critz1 = abs(idf.normal((1 - conf1)/2,0,1)).
compute uno1 = 2*n1*k1*V1.
compute dos1 = critz1*SQRT(4*n1*k1*V1*(1-V1)+critz1*critz1).
COMPUTE denom1 = 2*(n1*k1+critz1*critz1).
COMPUTE nume1 = uno1 + critz1*critz1 - dos1.
COMPUTE nume2 = uno1 + critz1*critz1 + dos1.
COMPUTE Inf1= nume1/denom1.
COMPUTE Sup1 = nume2/denom1.
compute k2 = max2 - min2.
compute V2 = (m2 - min2)/k2.
compute critz2 = abs(idf.normal((1 - conf2)/2,0,1)).
compute uno2 = 2*n2*k2*V2.
compute dos2 = critz2*SQRT(4*n1*k1*V1*(1-V1)+critz2*critz2).
COMPUTE denom2 = 2*(n1*k1+critz2*critz2).
COMPUTE nume3 = uno2 + critz2*critz2 - dos2.
COMPUTE nume4 = uno2 + critz2*critz2 + dos2.
COMPUTE Inf2= nume3/denom2.
COMPUTE Sup2 = nume4/denom2.
COMPUTE INFdif = V1-V2-SQRT((V1 - Inf1)**2 + (Sup2 - V2)**2).
COMPUTE SUPdif = V1-V2+SQRT((Sup1 - V1)**2 + (V2 - Inf2)**2).
STRING Diferencia (A15).
COMPUTE Diferencia = "Diferencia".
 if INFdif <= 0 Diferencia = "No diferente".
 if INFdif >= 0 Diferencia = " Diferente".
FORMATS V1 Inf1 Sup1 V2 Inf2 Sup2 INFdif SUPdif (f7.3).
LIST V1 Inf1 Sup1 V2 Inf2 Sup2 INFdif SUPdif Diferencia .
DELETE VARIABLES m1 min1 max1 n1 conf1 m2 min2 max2 n2 conf2 k1 critz1 uno1 dos1 k2 critz2 uno2 dos2 denom1 nume1 nume2 denom2 nume3 nume4.

******************************************************************************************
**SINTAXIS 2**************************************************************************
* Esta sintaxis se aplica cuando únicamente se requiere calcular                  *
* el intervalo de confianza para las diferencias, debido que ya se                    *
* tienen los coeficientes V calculados                                                          *
* Paso 1:                                                                                                  *
* Debajo de BEGIN DATA, y antes de END DATA, ingresar una matriz de      *
* datos en el siguiente orden:                                                                      *
*.v1 inf1 sup1 v2 inf2 sup2                                                                           *
*.
* v1   = coeficiente V del grupo 1 o 2                                                           *
* inf1 = límite inferior del intervalo, en el grupo 1 o 2                                      *
* sup1 = límite inferior del intervalo, en el grupo 1 o 2                                    *
*.
* Aparece un ejemplo, el cual debe ser reemplazado con la propia                 *
* información                                                                                             *
* Paso 2:                                                                                                  *
* Seleccionar todo el código, desde "data list free", hasta la                         *
* última línea del código; luego presionar las teclas CONTROL + R, o           *
* hacer clic en el ícono RUN.                                                                      *
*****************************************************************************************

DATA LIST FREE / v1 inf1 sup1 v2 inf2 sup2.
BEGIN DATA
0.945	0.895	0.97	1.000	0.879	1.000
0.805	0.733	0.861	0.715	0.53	0.848
0.653	0.572	0.725	0.785	0.604	0.897
0.918	0.861	0.952	0.965	0.824	0.994
0.93	0.876	0.961	0.893	0.728	0.963
0.93	0.876	0.961	0.965	0.824	0.994
0.945	0.895	0.972	0.928	0.772	0.98
0.965	0.921	0.985	1.000	0.879	1.000
0.848	0.78	0.897	0.893	0.728	0.963
0.923	0.867	0.956	0.858	0.686	0.943
0.867	0.802	0.913	1.000	0.879	1.000
0.918	0.861	0.952	0.965	0.824	0.994
0.91	0.852	0.947	0.965	0.824	0.994
0.93	0.876	0.961	0.965	0.824	0.994
0.93	0.876	0.961	0.965	0.824	0.994
0.953	0.904	0.977	1.000	0.879	1.000
0.828	0.757	0.88	0.643	0.458	0.793
0.883	0.82	0.925	0.965	0.824	0.994
0.86	0.794	0.907	0.858	0.686	0.943
END DATA.

** No modificar el siguiente código**.
COMPUTE INFdif = V1-V2-SQRT((V1 - INF1)**2 + (SUP2 - V2)**2).
COMPUTE SUPdif = V1-V2+SQRT((SUP1 - V1)**2 + (V2 - INF2)**2).
STRING xxx (A15).
COMPUTE xxx = "Diferente".
 if INFdif <= 0 xxx = "No diferente".
 if INFdif >= 0 xxx = "Diferente".
FORMATS V1 Inf1 Sup1 V2 Inf2 Sup2 INFdif SUPdif (f7.3).
LIST V1 Inf1 Sup1 V2 Inf2 Sup2 INFdif SUPdif xxx.