Shapiro-Wilks

permite probar si los datos provienen de una distribucion normal. Se tienen 2 hipótesis:

Procedimiento: 1. Establecer las hipótesis 2. Seleccionar una muestra aleatoria y 3. Calcular un estadistico de prueba (es aquel que permitirá decidir sise rechacha o no la \(Ho\)) 4. Aplicar un criterio de rechazo 5. Concluir

EJEMPLO Se selecciona al azar una muestra de 12 personas a las cuales se se les pregiunat su edad. Los datos son:

edad <- c(65,61,63,86,70,55,74,35,72,68,45,58)

# Explopar
hist(edad, col = '#A9D0F5')

  1. Establecer las hipótesis
  1. Seleccionar una muestra aleatoria
edad <- c(65,61,63,86,70,55,74,35,72,68,45,58)
  1. Calcular un estadistico de prueba (es aquel que permitirá decidir sise rechacha o no la \(Ho\)) En este caso el estadistico de prueba se indentifica con la letra \(W\).
sort(edad)
 [1] 35 45 55 58 61 63 65 68 70 72 74 86
SS <- var(edad)*11
SS
[1] 2008.667
# Como n=12 es par
m <- 12/2
m
[1] 6

Calcular el numero de comparaciones a comparar.

w <- (44.1641^2)/SS
w
[1] 0.9710261

como el valor p es mayor a 0.05 se dice que la esdades son normales.

  1. Aplicar un criterio de rechazo
shapiro.test(edad)

    Shapiro-Wilk normality test

data:  edad
W = 0.97107, p-value = 0.9216
  1. Concluir

Cómo los dato son normales entonces realizaremos un intervalo sobre la mediana de la concentración

As <- c(1.3, 1.5, 1.8, 2.6, 2.8, 3.5, 4.0, 4.8, 8, 9.5, 12, 14, 19, 23, 41, 80, 100, 110, 120, 190, 240, 250, 300, 340, 580) 

nonparametric interval

No parametricos significa que no asume algun modelo de distribucion de datos

mediana n = tamaño de muestra \(Z_{\alpha / 2}\) = Valor de lña distribucion normal que satiface una confianza establecida. Rl = Es la posicion del limite inferior Ru = Es la posicion del limite superior

n <- length(As)
z <- abs(qnorm(0.025)) #Usar el valor de alfa sobre 2 como argumento
z
[1] 1.959964
#Rl
rl <- (n-z*sqrt(n))/2
rl
[1] 7.60009
#Ru
ru <- ((n+z*sqrt(n))/2) +1

#Confianza = 95% =  1/alfa
# alfa = 0.05
# alfa/2 = 0.05/2
LS0tDQp0aXRsZTogInNoYXBpcm8td2lsayINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCiMgU2hhcGlyby1XaWxrcw0KcGVybWl0ZSBwcm9iYXIgc2kgbG9zIGRhdG9zIHByb3ZpZW5lbiBkZSB1bmEgZGlzdHJpYnVjaW9uIG5vcm1hbC4NClNlIHRpZW5lbiAyIGhpcMOzdGVzaXM6DQoNCi0gSGlwLiBOdWxhOiAgICAgICAgICAqJEhvJCo6IERhdG9zIG5vcm1hbGVzDQotIEhpcC4gQWx0ZXJuYTogICAgICAqJEgxJCo6IERhdG9zIE5PIG5vcm1hbGVzDQoNClByb2NlZGltaWVudG86DQoxLiBFc3RhYmxlY2VyIGxhcyBoaXDDs3Rlc2lzDQoyLiBTZWxlY2Npb25hciB1bmEgbXVlc3RyYSBhbGVhdG9yaWEgeSANCjMuIENhbGN1bGFyIHVuIGVzdGFkaXN0aWNvIGRlIHBydWViYSAoZXMgYXF1ZWwgcXVlIHBlcm1pdGlyw6EgZGVjaWRpciBzaXNlIHJlY2hhY2hhIG8gbm8gbGEgKiRIbyQqKQ0KNC4gQXBsaWNhciB1biBjcml0ZXJpbyBkZSByZWNoYXpvDQo1LiBDb25jbHVpcg0KDQoNCipFSkVNUExPKg0KU2Ugc2VsZWNjaW9uYSBhbCBhemFyIHVuYSBtdWVzdHJhIGRlIDEyIHBlcnNvbmFzIGEgbGFzIGN1YWxlcyBzZSBzZSBsZXMgcHJlZ2l1bmF0IHN1IGVkYWQuIExvcyBkYXRvcyBzb246DQoNCg0KYGBge3J9DQplZGFkIDwtIGMoNjUsNjEsNjMsODYsNzAsNTUsNzQsMzUsNzIsNjgsNDUsNTgpDQoNCiMgRXhwbG9wYXINCmhpc3QoZWRhZCwgY29sID0gJyNBOUQwRjUnKQ0KYGBgDQoNCjEuIEVzdGFibGVjZXIgbGFzIGhpcMOzdGVzaXMNCi0gKkhvOiogbGFzIGVkYWRlcyBzb24gbm9ybWFsZXMNCi0gKkgxOiogbGFzIGVkYWRlcyBObyBzb24gbm9ybWxhZXMNCg0KMi4gU2VsZWNjaW9uYXIgdW5hIG11ZXN0cmEgYWxlYXRvcmlhIA0KYGBge3J9DQplZGFkIDwtIGMoNjUsNjEsNjMsODYsNzAsNTUsNzQsMzUsNzIsNjgsNDUsNTgpDQpgYGANCg0KMy4gQ2FsY3VsYXIgdW4gZXN0YWRpc3RpY28gZGUgcHJ1ZWJhIChlcyBhcXVlbCBxdWUgcGVybWl0aXLDoSBkZWNpZGlyIHNpc2UgcmVjaGFjaGEgbyBubyBsYSAqJEhvJCopDQpFbiBlc3RlIGNhc28gZWwgZXN0YWRpc3RpY28gZGUgcHJ1ZWJhIHNlIGluZGVudGlmaWNhIGNvbiBsYSBsZXRyYSAqJFckKi4NCiogT3JkZW5hciBhc2NlbmRlbnRlbWVudGUgbG9zIGRhdG9zICR4X3sxfSDiiaQg4oCmIOKJpCB4X3tufSQNCmBgYHtyfQ0Kc29ydChlZGFkKQ0KYGBgDQoNCiogQ2FsY3VsYXMgbGEgc3VtYSBkZSBjdWFkcmFkb3MgKFNTIGVuIGluZ2xlcykNCiRTUz1cc3VtICh4LVxiYXJ7eH0pXjIkDQoqTk9UQTogbGEgdmFyaWFuemEgZXMgJFNeMiA9IHNzLyhuLTEpJCBwb3IgbG8gdGFudG8gc2UgZGVzcGVqYSBTUw0KJFNTID0gU14yICogKG4tMSkkDQoNCmBgYHtyfQ0KU1MgPC0gdmFyKGVkYWQpKjExDQpTUw0KYGBgDQoNCiogU2kgIm4iIGVzIHBhciAsbSA9IG4vMiwgeSBzaSAibiIgZXMgaW1wYXIsIG0gPSAobi0xKS8yDQpgYGB7cn0NCiMgQ29tbyBuPTEyIGVzIHBhcg0KbSA8LSAxMi8yDQptDQpgYGANCkNhbGN1bGFyIGVsIG51bWVybyBkZSBjb21wYXJhY2lvbmVzIGEgY29tcGFyYXIuDQoNCiogY2FsY3VsYXIgYiBlbiBleGNlbA0KIVtDYWxjdWxhciBCIGVuIEV4Y2VsXShjYWxjdWxhcl9iLlBORykNCg0KKiBDYWxjdWxhciBlbCBlc3RhZGlzcmljbyBkZSBwcnVlYmEgJCBXID0gYl4yIC8gU1MkDQpgYGB7cn0NCncgPC0gKDQ0LjE2NDFeMikvU1MNCncNCmBgYA0KDQoqIEVuY29udHJhciBlbCB2YWxvciBkZSBXIGVuIGxhIHRhYmxhIDIgZGUgU2hhcGlyby1XaWxrLCBwYXJhIHBvc3Rlcmlvcm1lbnRlIGVuY29udHJhciBlbCAgdmFsb3IgcC4gRGUgc2VyIG5lY2VzYXJpbyBoYWJyw6EgcXVlIGludGVycG9sYXJsbyANCg0KY29tbyBlbCB2YWxvciBwIGVzIG1heW9yIGEgMC4wNSBzZSBkaWNlIHF1ZSBsYSBlc2RhZGVzIHNvbiBub3JtYWxlcy4NCg0KNC4gQXBsaWNhciB1biBjcml0ZXJpbyBkZSByZWNoYXpvDQoqIHNpIGVsIHZhbG9yIGRlIHANCmBgYHtyfQ0Kc2hhcGlyby50ZXN0KGVkYWQpDQpgYGANCg0KDQoNCjUuIENvbmNsdWlyDQoNCg0KQ8OzbW8gbG9zIGRhdG8gc29uIG5vcm1hbGVzIGVudG9uY2VzIHJlYWxpemFyZW1vcyB1biBpbnRlcnZhbG8gc29icmUgbGEgbWVkaWFuYSBkZSBsYSBjb25jZW50cmFjacOzbg0KYGBge3J9DQpBcyA8LSBjKDEuMywgMS41LCAxLjgsIDIuNiwgMi44LCAzLjUsIDQuMCwgNC44LCA4LCA5LjUsIDEyLCAxNCwgMTksIDIzLCA0MSwgODAsIDEwMCwgMTEwLCAxMjAsIDE5MCwgMjQwLCAyNTAsIDMwMCwgMzQwLCA1ODApIA0KYGBgDQohW10oQ3VhbmRvX3VzYXJfc2hhcGlyby5QTkcpDQoNCiMjIG5vbnBhcmFtZXRyaWMgaW50ZXJ2YWwgDQpObyBwYXJhbWV0cmljb3Mgc2lnbmlmaWNhIHF1ZSBubyBhc3VtZSBhbGd1biBtb2RlbG8gZGUgZGlzdHJpYnVjaW9uIGRlIGRhdG9zDQoNCiFbbWVkaWFuYV0oTWVkaWFuYS5QTkcpDQpuID0gdGFtYcOxbyBkZSBtdWVzdHJhDQokWl97XGFscGhhIC8gMn0kID0gVmFsb3IgZGUgbMOxYSBkaXN0cmlidWNpb24gbm9ybWFsIHF1ZSBzYXRpZmFjZSB1bmEgY29uZmlhbnphIGVzdGFibGVjaWRhLg0KUmwgPSBFcyBsYSBwb3NpY2lvbiBkZWwgbGltaXRlIGluZmVyaW9yDQpSdSA9IEVzIGxhIHBvc2ljaW9uIGRlbCBsaW1pdGUgc3VwZXJpb3INCmBgYHtyfQ0KbiA8LSBsZW5ndGgoQXMpDQp6IDwtIGFicyhxbm9ybSgwLjAyNSkpICNVc2FyIGVsIHZhbG9yIGRlIGFsZmEgc29icmUgMiBjb21vIGFyZ3VtZW50bw0Keg0KI1JsDQpybCA8LSAobi16KnNxcnQobikpLzINCnJsDQojUnUNCnJ1IDwtICgobit6KnNxcnQobikpLzIpICsxDQoNCiNDb25maWFuemEgPSA5NSUgPSAgMS9hbGZhDQojIGFsZmEgPSAwLjA1DQojIGFsZmEvMiA9IDAuMDUvMg0KYGBgDQoNCg0KDQoNCg0KDQoNCg0K