En el seminario de contrucción a cargo la Docente Lina Bonilla, en el que abordará el tratamiento estadistico los trabajos de grado, se inició con una actividad que se describirá a continuación.
Con el fin de tener un grupo de datos de diferente tipo, se realizó una encuesta a todos los 24 estudiantes de clase, a ellos se les pregunto por las variables que se presentan a continuación:
M<-read.csv("LibroEjercicio.csv",sep = ";")
names(M)
[1] "NOMBRE" "EDAD"
[3] "ESTATURA" "PESO..Kg."
[5] "PROFESIÓN" "CANT..HIJOS"
[7] "ESTRATO" "CANT..HERMANO"
[9] "MATRICULADO" "ESTADO.CIVIL"
[11] "LUGAR.DE.ORIGEN" "SEXO"
Dicha encuesta se realizó preguntando los datos requeridos. De las 24 personas que componen el grupo muestral se tiene la siguiente frecuencia, donde 1 corresponde al número de hombres y 2 al numero de mujeres:
sexo<-M$SEXO
f<-table(sexo)
Nhombres<-f[1]
Nhombres
1
10
Nmujeres<-f[2]
Nmujeres
2
14
El porcentaje de mujeres corresponde a:
PorcentajeMuj<-(Nmujeres/(Nmujeres+Nhombres))*100
PorcentajeMuj
2
58.33333
El porcentaje de hombres corresponde a:
PorcentajeHom<-(Nhombres/(Nmujeres+Nhombres))*100
PorcentajeHom
1
41.66667
La ditribución de edades de las personas encuestadas se muestra a continuación:
edad<-M$EDAD
hist(edad,xlim = c(20,40),main="Histograma edades", xlab="Frecuencia en Número personas",ylab="Edad en años")

A continuación se muestra el análisis del porcentaje de personas solteras:
estcivil<-M$ESTADO.CIVIL
Mestcivil<-table(Estcivil)
solteros<-Mestcivil[1]
casados<-Mestcivil[2]
Porcsolt<-((solteros)/(solteros+casados))*100
Porcsolt
1
87.5
A continuación se presenta el análisis de porcentaje tendencia de hijos que se deben tener en de donde provienen la mayoria?
nhijos<-M$CANT..HIJOS
estrato<-M$ESTRATO
nsihijos<-nhijos[c(nhijos>0)]
estratosihijos<-estrato[c(9,10,14,19,22,24)]
covarianza<-cov(nsihijos,estratosihijos)
covarianza
[1] -0.2666667
correlacion<-cor(nsihijos,estratosihijos)
correlacion
[1] -0.3321819
#psc<-as.logical(nhijos)
#Nhijos<-table(nhijos)
Los valores de covarianza negativos indican que los valores por encima del promedio de una variable están asociados con los valores por debajo del promedio de la otra variable.
El coeficiente de correlación depende de la covarianza. El coeficiente de correlación es igual a la covarianza dividida entre el producto de las desviaciones estándar de las variables. Por lo tanto, una covarianza positiva siempre producirá una correlación positiva y una covarianza negativa siempre generará una correlación negativa.
Medidas de tendencia central: Son aquellas que pretenden resumir en un solo valor a un conjunto de valores, reprecentan el centro en torno al cual se encuentran ubicados los datos.
A continuacipon medida de tendencia central para 3 variables (edad, estrato, y número de hijos ): media, moda y mediana
La media aritmetica o promedio se define como la tendencia central de una variable, a continuación se presentan las medias para las variables edad, estrato, y número de hijos
mediaedad<-mean(edad)
mediaestrato<-mean(estrato)
medianhijos<-mean(nhijos)
medias<-c(mediaedad,mediaestrato,medianhijos)
medias
[1] 28.7083333 3.1250000 0.4166667
Esto corresponde a que el promedio de edades es 28,7; el estrato promedio de la población es 3; y el numero de hijos esta entre 0-1.
La mediana es el valor de la variable que ocupa la posición central, cuando los datos se disponen en orden de magnitud. Es decir, el 50% de las observaciones tiene valores iguales o inferiores a la mediana y el otro 50% tiene valores iguales o superiores a la mediana.A continuación se presentan las medianas para las variables edad, estrato, y número de hijos:
medianaedad<-median(edad)
medianaestrato<-median(estrato)
mediananhijos<-median(nhijos)
medianas<-c(medianaedad,medianaestrato,mediananhijos)
medianas
[1] 25.5 3.0 0.0
Esto corresponde a que el 50% de la población es menor de 25 años y el 50% es mayor de 25 años; 50% es menor, de la misma manerapertenece al estrato 0 y tienen 0 hijos. _________________________________________________
La moda de una distribución se define como el valor de la variable que más se repite. En un polígono de frecuencia la moda corresponde al valor de la variable que está bajo el punto más alto del gráfico. Una muestra puede tener más de una moda. A continuación se presentan las modas para las variables edad, estrato, y número de hijos:
library(modeest)
modaedad<-mlv(edad)
modaedad
Mode (most frequent value): 23
Bickel's modal skewness: 0.4166667
Call: mlv.integer(x = edad)
modaestrato<-mlv(estrato)
modaestrato
Mode (most frequent value): 3
Bickel's modal skewness: 0.1666667
Call: mlv.integer(x = estrato)
modanhijos<-mlv(nhijos)
modanhijos
Mode (most frequent value): 0
Bickel's modal skewness: 0.25
Call: mlv.integer(x = nhijos)
La moda para la edad corresponde a 23 años, la moda de estrato corresponde al 3, y el número de hijos corresponde a 0. _________________________________________________
Las medidas de dispersión miden el grado de dispersión de los valores de la variable, es decir cuanto difieren los datos entre sí.
La varianza consiste en una medida vinculada a su dispersión. Se trata de la esperanza del cuadrado de la desviación de esa variable considerada frente su media y se mide en una unidad diferente.Se encargan de expresar la variabilidad de una distribución por medio de un número, en los casos en que las diferentes puntuaciones de la variable están muy alejadas de la media. A continuación se presentan la varianza para las variables edad, estrato, y número de hijos:
varedad<-var(edad)
varestrato<-var(estrato)
varnhijos<-var(nhijos)
varianzas<-c(varedad,varestrato,varnhijos)
varianzas
[1] 77.6068841 1.2445652 0.6884058
Por lo cual indica que la variable edad es la que presenta mayor variablidad, mientras que el estrato y el número de hijos, tiene una pequeña variabilidad. ________________________________________________
La desviación estándar también conocida como típica, que representa la magnitud de la dispersión de variables de intervalo y de razón, y resulta muy útil en el campo de la estadística descriptiva. Para obtenerla, simplemente se parte de la varianza y se calcula su raíz cuadrada.A continuación se presentan desviación estándar para las variables edad, estrato, y número de hijos:
deedad<-sd(edad)
deestrato<-sd(estrato)
denhijos<-sd(nhijos)
dest<-c(deedad,deestrato,denhijos)
dest
[1] 8.8094769 1.1156008 0.8297022
Los anteriores Valores correspondes a las desviaciones típicas con respecto a la media, sobre los cuales se mueven los valores de las variables de edad, estrato y número de hijos.
El procedimiento en RStudio que se siguió se presenta a continuación:
sE ABRE EL ARCHIVO SE CARGA EN SESSION, LOAD WORK SPACE Y SE CARGA LA CARPETA QUE SE NECESITA NEW FILE : R NOTEBOOK
SE CARGA EL ARCHIVO CON EL CODIGO M<-read.csv(“LibroEjercicio.csv”)
ctrl enter
PREVIEW USUARIO : bonilla.lina@correounivalle.edu.co Contraseña: seminario
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KIEVuIGVsIHNlbWluYXJpbyBkZSBjb250cnVjY2nzbiBhIGNhcmdvIGxhIERvY2VudGUgTGluYSBCb25pbGxhLCBlbiBlbCBxdWUgYWJvcmRhcuEgZWwgdHJhdGFtaWVudG8gZXN0YWRpc3RpY28gbG9zIHRyYWJham9zIGRlIGdyYWRvLCBzZSBpbmljafMgY29uIHVuYSBhY3RpdmlkYWQgIHF1ZSBzZSBkZXNjcmliaXLhIGEgY29udGludWFjafNuLg0KDQpDb24gZWwgZmluIGRlIHRlbmVyIHVuIGdydXBvIGRlIGRhdG9zIGRlIGRpZmVyZW50ZSB0aXBvLCBzZSByZWFsaXrzIHVuYSBlbmN1ZXN0YSBhIHRvZG9zIGxvcyAyNCBlc3R1ZGlhbnRlcyBkZSBjbGFzZSwgYSBlbGxvcyBzZSBsZXMgcHJlZ3VudG8gcG9yIGxhcyB2YXJpYWJsZXMgcXVlIHNlIHByZXNlbnRhbiBhIGNvbnRpbnVhY2nzbjoNCmBgYHtyfQ0KTTwtcmVhZC5jc3YoIkxpYnJvRWplcmNpY2lvLmNzdiIsc2VwID0gIjsiKQ0KbmFtZXMoTSkNCmBgYA0KRGljaGEgZW5jdWVzdGEgc2UgcmVhbGl68yBwcmVndW50YW5kbyBsb3MgZGF0b3MgcmVxdWVyaWRvcy4gRGUgbGFzIDI0IHBlcnNvbmFzIHF1ZSBjb21wb25lbiBlbCBncnVwbyBtdWVzdHJhbCBzZSB0aWVuZSBsYSBzaWd1aWVudGUgZnJlY3VlbmNpYSwgZG9uZGUgMSBjb3JyZXNwb25kZSBhbCBu+m1lcm8gZGUgaG9tYnJlcyB5IDIgYWwgbnVtZXJvIGRlIG11amVyZXM6DQoNCmBgYHtyfQ0Kc2V4bzwtTSRTRVhPDQpmPC10YWJsZShzZXhvKQ0KTmhvbWJyZXM8LWZbMV0NCk5ob21icmVzDQpgYGANCg0KYGBge3J9DQpObXVqZXJlczwtZlsyXQ0KTm11amVyZXMNCmBgYA0KRWwgcG9yY2VudGFqZSBkZSBtdWplcmVzIGNvcnJlc3BvbmRlIGE6DQpgYGB7cn0NClBvcmNlbnRhamVNdWo8LShObXVqZXJlcy8oTm11amVyZXMrTmhvbWJyZXMpKSoxMDANClBvcmNlbnRhamVNdWoNCmBgYA0KRWwgcG9yY2VudGFqZSBkZSBob21icmVzIGNvcnJlc3BvbmRlIGE6DQpgYGB7cn0NClBvcmNlbnRhamVIb208LShOaG9tYnJlcy8oTm11amVyZXMrTmhvbWJyZXMpKSoxMDANClBvcmNlbnRhamVIb20NCmBgYA0KTGEgZGl0cmlidWNp824gZGUgZWRhZGVzIGRlIGxhcyBwZXJzb25hcyBlbmN1ZXN0YWRhcyBzZSBtdWVzdHJhIGEgY29udGludWFjafNuOiANCg0KYGBge3J9DQplZGFkPC1NJEVEQUQNCmhpc3QoZWRhZCx4bGltID0gYygyMCw0MCksbWFpbj0iSGlzdG9ncmFtYSBlZGFkZXMiLCB4bGFiPSJGcmVjdWVuY2lhIGVuIE76bWVybyBwZXJzb25hcyIseWxhYj0iRWRhZCBlbiBh8W9zIikNCmBgYA0KQSBjb250aW51YWNp824gc2UgbXVlc3RyYSBlbCBhbuFsaXNpcyBkZWwgcG9yY2VudGFqZSBkZSBwZXJzb25hcyBzb2x0ZXJhczoNCmBgYHtyfQ0KZXN0Y2l2aWw8LU0kRVNUQURPLkNJVklMDQpNZXN0Y2l2aWw8LXRhYmxlKEVzdGNpdmlsKQ0Kc29sdGVyb3M8LU1lc3RjaXZpbFsxXQ0KY2FzYWRvczwtTWVzdGNpdmlsWzJdDQpQb3Jjc29sdDwtKChzb2x0ZXJvcykvKHNvbHRlcm9zK2Nhc2Fkb3MpKSoxMDANClBvcmNzb2x0DQpgYGANCkEgY29udGludWFjafNuIHNlIHByZXNlbnRhIGVsIGFu4Wxpc2lzIGRlIHBvcmNlbnRhamUgdGVuZGVuY2lhIGRlIGhpam9zIHF1ZSBzZSBkZWJlbiB0ZW5lciBlbg0KZGUgZG9uZGUgcHJvdmllbmVuIGxhIG1heW9yaWE/DQpgYGB7cn0NCm5oaWpvczwtTSRDQU5ULi5ISUpPUw0KZXN0cmF0bzwtTSRFU1RSQVRPDQpuc2loaWpvczwtbmhpam9zW2Mobmhpam9zPjApXQ0KZXN0cmF0b3NpaGlqb3M8LWVzdHJhdG9bYyg5LDEwLDE0LDE5LDIyLDI0KV0NCmNvdmFyaWFuemE8LWNvdihuc2loaWpvcyxlc3RyYXRvc2loaWpvcykNCmNvdmFyaWFuemENCmNvcnJlbGFjaW9uPC1jb3IobnNpaGlqb3MsZXN0cmF0b3NpaGlqb3MpDQpjb3JyZWxhY2lvbg0KDQojcHNjPC1hcy5sb2dpY2FsKG5oaWpvcykNCiNOaGlqb3M8LXRhYmxlKG5oaWpvcykNCmBgYA0KDQpMb3MgdmFsb3JlcyBkZSBjb3ZhcmlhbnphIG5lZ2F0aXZvcyBpbmRpY2FuIHF1ZSBsb3MgdmFsb3JlcyBwb3IgZW5jaW1hIGRlbCBwcm9tZWRpbyBkZSB1bmEgdmFyaWFibGUgZXN04W4gYXNvY2lhZG9zIGNvbiBsb3MgdmFsb3JlcyBwb3IgZGViYWpvIGRlbCBwcm9tZWRpbyBkZSBsYSBvdHJhIHZhcmlhYmxlLg0KIA0KRWwgY29lZmljaWVudGUgZGUgY29ycmVsYWNp824gZGVwZW5kZSBkZSBsYSBjb3ZhcmlhbnphLiBFbCBjb2VmaWNpZW50ZSBkZSBjb3JyZWxhY2nzbiBlcyBpZ3VhbCBhIGxhIGNvdmFyaWFuemEgZGl2aWRpZGEgZW50cmUgZWwgcHJvZHVjdG8gZGUgbGFzIGRlc3ZpYWNpb25lcyBlc3ThbmRhciBkZSBsYXMgdmFyaWFibGVzLiBQb3IgbG8gdGFudG8sIHVuYSBjb3ZhcmlhbnphIHBvc2l0aXZhIHNpZW1wcmUgcHJvZHVjaXLhIHVuYSBjb3JyZWxhY2nzbiBwb3NpdGl2YSB5IHVuYSBjb3ZhcmlhbnphIG5lZ2F0aXZhIHNpZW1wcmUgZ2VuZXJhcuEgdW5hIGNvcnJlbGFjafNuIG5lZ2F0aXZhLg0KDQpfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fXw0KDQpNZWRpZGFzIGRlIHRlbmRlbmNpYSBjZW50cmFsOiBTb24gYXF1ZWxsYXMgcXVlIHByZXRlbmRlbiAgIHJlc3VtaXIgZW4gdW4gc29sbyB2YWxvciBhIHVuIGNvbmp1bnRvIGRlIHZhbG9yZXMsIHJlcHJlY2VudGFuIGVsIGNlbnRybyBlbiB0b3JubyBhbCBjdWFsIHNlIGVuY3VlbnRyYW4gdWJpY2Fkb3MgbG9zIGRhdG9zLg0KDQpBIGNvbnRpbnVhY2lwb24gbWVkaWRhIGRlIHRlbmRlbmNpYSBjZW50cmFsIHBhcmEgMyB2YXJpYWJsZXMgKGVkYWQsIGVzdHJhdG8sIHkgbvptZXJvIGRlIGhpam9zICk6IG1lZGlhLCBtb2RhIHkgbWVkaWFuYSANCg0KTGEgbWVkaWEgYXJpdG1ldGljYSBvIHByb21lZGlvIHNlIGRlZmluZSBjb21vIGxhIHRlbmRlbmNpYSBjZW50cmFsIGRlIHVuYSB2YXJpYWJsZSwgYSBjb250aW51YWNp824gc2UgcHJlc2VudGFuIGxhcyBtZWRpYXMgcGFyYSBsYXMgdmFyaWFibGVzIGVkYWQsIGVzdHJhdG8sIHkgbvptZXJvIGRlIGhpam9zICANCg0KYGBge3J9DQptZWRpYWVkYWQ8LW1lYW4oZWRhZCkNCm1lZGlhZXN0cmF0bzwtbWVhbihlc3RyYXRvKQ0KbWVkaWFuaGlqb3M8LW1lYW4obmhpam9zKQ0KbWVkaWFzPC1jKG1lZGlhZWRhZCxtZWRpYWVzdHJhdG8sbWVkaWFuaGlqb3MpDQptZWRpYXMNCmBgYA0KRXN0byBjb3JyZXNwb25kZSBhIHF1ZSBlbCBwcm9tZWRpbyBkZSBlZGFkZXMgZXMgMjgsNzsgZWwgZXN0cmF0byBwcm9tZWRpbyBkZSBsYSBwb2JsYWNp824gZXMgMzsgeSBlbCBudW1lcm8gZGUgaGlqb3MgZXN0YSBlbnRyZSAwLTEuDQoNCl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX18NCg0KTGEgbWVkaWFuYSBlcyBlbCB2YWxvciBkZSBsYSB2YXJpYWJsZSBxdWUgb2N1cGEgbGEgcG9zaWNp824gY2VudHJhbCwgY3VhbmRvIGxvcyBkYXRvcyBzZSBkaXNwb25lbiBlbiBvcmRlbiBkZSBtYWduaXR1ZC4gRXMgZGVjaXIsIGVsIDUwJSBkZSBsYXMgb2JzZXJ2YWNpb25lcyB0aWVuZSB2YWxvcmVzIGlndWFsZXMgbyBpbmZlcmlvcmVzIGEgbGEgbWVkaWFuYSB5IGVsIG90cm8gNTAlIHRpZW5lIHZhbG9yZXMgaWd1YWxlcyBvIHN1cGVyaW9yZXMgYSBsYSBtZWRpYW5hLkEgY29udGludWFjafNuIHNlIHByZXNlbnRhbiBsYXMgbWVkaWFuYXMgcGFyYSBsYXMgdmFyaWFibGVzIGVkYWQsIGVzdHJhdG8sIHkgbvptZXJvIGRlIGhpam9zOg0KDQpgYGB7cn0NCm1lZGlhbmFlZGFkPC1tZWRpYW4oZWRhZCkNCm1lZGlhbmFlc3RyYXRvPC1tZWRpYW4oZXN0cmF0bykNCm1lZGlhbmFuaGlqb3M8LW1lZGlhbihuaGlqb3MpDQptZWRpYW5hczwtYyhtZWRpYW5hZWRhZCxtZWRpYW5hZXN0cmF0byxtZWRpYW5hbmhpam9zKQ0KbWVkaWFuYXMNCmBgYA0KRXN0byBjb3JyZXNwb25kZSBhIHF1ZSBlbCA1MCUgZGUgbGEgcG9ibGFjafNuIGVzIG1lbm9yIGRlIDI1IGHxb3MgeSBlbCA1MCUgZXMgbWF5b3IgZGUgMjUgYfFvczsgNTAlIGVzIG1lbm9yLCBkZSBsYSBtaXNtYSBtYW5lcmFwZXJ0ZW5lY2UgYWwgZXN0cmF0byAwIHkgdGllbmVuIDAgaGlqb3MuDQpfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fDQoNCkxhIG1vZGEgZGUgdW5hIGRpc3RyaWJ1Y2nzbiBzZSBkZWZpbmUgY29tbyBlbCB2YWxvciBkZSBsYSB2YXJpYWJsZSBxdWUgbeFzIHNlIHJlcGl0ZS4gRW4gdW4gcG9s7Wdvbm8gZGUgZnJlY3VlbmNpYSBsYSBtb2RhIGNvcnJlc3BvbmRlIGFsIHZhbG9yIGRlIGxhIHZhcmlhYmxlIHF1ZSBlc3ThIGJham8gZWwgcHVudG8gbeFzIGFsdG8gZGVsIGdy4WZpY28uIFVuYSBtdWVzdHJhIHB1ZWRlIHRlbmVyIG3hcyBkZSB1bmEgbW9kYS4gQSBjb250aW51YWNp824gc2UgcHJlc2VudGFuIGxhcyBtb2RhcyBwYXJhIGxhcyB2YXJpYWJsZXMgZWRhZCwgZXN0cmF0bywgeSBu+m1lcm8gZGUgaGlqb3M6DQoNCmBgYHtyfQ0KbGlicmFyeShtb2RlZXN0KQ0KbW9kYWVkYWQ8LW1sdihlZGFkKQ0KbW9kYWVkYWQNCm1vZGFlc3RyYXRvPC1tbHYoZXN0cmF0bykNCm1vZGFlc3RyYXRvDQptb2Rhbmhpam9zPC1tbHYobmhpam9zKQ0KbW9kYW5oaWpvcw0KYGBgDQpMYSBtb2RhIHBhcmEgbGEgZWRhZCBjb3JyZXNwb25kZSBhIDIzIGHxb3MsIGxhIG1vZGEgZGUgZXN0cmF0byBjb3JyZXNwb25kZSBhbCAzLCB5IGVsIG76bWVybyBkZSBoaWpvcyBjb3JyZXNwb25kZSBhIDAuDQpfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fDQoNCkxhcyBtZWRpZGFzIGRlIGRpc3BlcnNp824gbWlkZW4gZWwgZ3JhZG8gZGUgZGlzcGVyc2nzbiBkZSBsb3MgdmFsb3JlcyBkZSBsYSB2YXJpYWJsZSwgZXMgZGVjaXIgY3VhbnRvIGRpZmllcmVuIGxvcyBkYXRvcyBlbnRyZSBz7S4NCg0KTGEgdmFyaWFuemEgIGNvbnNpc3RlIGVuIHVuYSBtZWRpZGEgdmluY3VsYWRhIGEgc3UgZGlzcGVyc2nzbi4gU2UgdHJhdGEgZGUgbGEgZXNwZXJhbnphIGRlbCBjdWFkcmFkbyBkZSBsYSBkZXN2aWFjafNuIGRlIGVzYSB2YXJpYWJsZSBjb25zaWRlcmFkYSBmcmVudGUgc3UgbWVkaWEgeSBzZSBtaWRlIGVuIHVuYSB1bmlkYWQgZGlmZXJlbnRlLlNlIGVuY2FyZ2FuIGRlIGV4cHJlc2FyIGxhIHZhcmlhYmlsaWRhZCBkZSB1bmEgZGlzdHJpYnVjafNuIHBvciBtZWRpbyBkZSB1biBu+m1lcm8sIGVuIGxvcyBjYXNvcyBlbiBxdWUgbGFzIGRpZmVyZW50ZXMgcHVudHVhY2lvbmVzIGRlIGxhIHZhcmlhYmxlIGVzdOFuIG11eSBhbGVqYWRhcyBkZSBsYSBtZWRpYS4gQSBjb250aW51YWNp824gc2UgcHJlc2VudGFuIGxhIHZhcmlhbnphIHBhcmEgbGFzIHZhcmlhYmxlcyBlZGFkLCBlc3RyYXRvLCB5IG76bWVybyBkZSBoaWpvczoNCmBgYHtyfQ0KdmFyZWRhZDwtdmFyKGVkYWQpDQp2YXJlc3RyYXRvPC12YXIoZXN0cmF0bykNCnZhcm5oaWpvczwtdmFyKG5oaWpvcykNCnZhcmlhbnphczwtYyh2YXJlZGFkLHZhcmVzdHJhdG8sdmFybmhpam9zKQ0KdmFyaWFuemFzDQpgYGANClBvciBsbyBjdWFsIGluZGljYSBxdWUgbGEgdmFyaWFibGUgZWRhZCBlcyBsYSBxdWUgcHJlc2VudGEgbWF5b3IgdmFyaWFibGlkYWQsIG1pZW50cmFzIHF1ZSBlbCBlc3RyYXRvIHkgZWwgbvptZXJvIGRlIGhpam9zLCB0aWVuZSB1bmEgcGVxdWXxYSB2YXJpYWJpbGlkYWQuIA0KX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fDQoNCkxhIGRlc3ZpYWNp824gZXN04W5kYXIgdGFtYmnpbiBjb25vY2lkYSBjb21vIHTtcGljYSwgcXVlIHJlcHJlc2VudGEgbGEgbWFnbml0dWQgZGUgbGEgZGlzcGVyc2nzbiBkZSB2YXJpYWJsZXMgZGUgaW50ZXJ2YWxvIHkgZGUgcmF6824sIHkgcmVzdWx0YSBtdXkg+nRpbCBlbiBlbCBjYW1wbyBkZSBsYSBlc3RhZO1zdGljYSBkZXNjcmlwdGl2YS4gUGFyYSBvYnRlbmVybGEsIHNpbXBsZW1lbnRlIHNlIHBhcnRlIGRlIGxhIHZhcmlhbnphIHkgc2UgY2FsY3VsYSBzdSByYe16IGN1YWRyYWRhLkEgY29udGludWFjafNuIHNlIHByZXNlbnRhbiBkZXN2aWFjafNuIGVzdOFuZGFyIHBhcmEgbGFzIHZhcmlhYmxlcyBlZGFkLCBlc3RyYXRvLCB5IG76bWVybyBkZSBoaWpvczoNCmBgYHtyfQ0KZGVlZGFkPC1zZChlZGFkKQ0KZGVlc3RyYXRvPC1zZChlc3RyYXRvKQ0KZGVuaGlqb3M8LXNkKG5oaWpvcykNCmRlc3Q8LWMoZGVlZGFkLGRlZXN0cmF0byxkZW5oaWpvcykNCmRlc3QNCmBgYA0KTG9zIGFudGVyaW9yZXMgVmFsb3JlcyBjb3JyZXNwb25kZXMgYSBsYXMgZGVzdmlhY2lvbmVzIHTtcGljYXMgY29uIHJlc3BlY3RvIGEgbGEgbWVkaWEsIHNvYnJlIGxvcyBjdWFsZXMgc2UgbXVldmVuIGxvcyB2YWxvcmVzIGRlIGxhcyB2YXJpYWJsZXMgZGUgZWRhZCwgZXN0cmF0byB5IG76bWVybyBkZSBoaWpvcy4NCg0KRWwgcHJvY2VkaW1pZW50byBlbiBSU3R1ZGlvIHF1ZSBzZSBzaWd1afMgc2UgcHJlc2VudGEgYSBjb250aW51YWNp8246IA0KDQpzRSBBQlJFIEVMIEFSQ0hJVk8gDQpTRSBDQVJHQSBFTiBTRVNTSU9OLCBMT0FEIFdPUksgU1BBQ0UgWSBTRSBDQVJHQSBMQSBDQVJQRVRBIFFVRSBTRSBORUNFU0lUQQ0KTkVXIEZJTEUgOiBSIE5PVEVCT09LDQoNClNFIENBUkdBIEVMIEFSQ0hJVk8gQ09OIEVMIENPRElHTw0KTTwtcmVhZC5jc3YoIkxpYnJvRWplcmNpY2lvLmNzdiIpDQoNCmN0cmwgZW50ZXINCg0KUFJFVklFVyANClVTVUFSSU8gOiBib25pbGxhLmxpbmFAY29ycmVvdW5pdmFsbGUuZWR1LmNvDQpDb250cmFzZfFhOiBzZW1pbmFyaW8=