Práctica Bioinformática R-Commander
Enviado por bkblac • 5 de Mayo de 2019 • Apuntes • 1.267 Palabras (6 Páginas) • 210 Visitas
Práctica Bioinformática R-Commander
APELLIDOS, NOMBRE: OVIEDO MADRID, AITOR DNI: 72828262G
Una empresa informática quiere reorganizar el personal de su servicio de atención al cliente, para lo cual realiza un estudio sobre 64 empleados de dicho servicio. En el fichero de datos “Practica_Rcmdr.sav” se recogen los datos que se obtuvieron para el estudio. Escribir la sintaxis utilizada en R y responder a cada uno de los apartados siguientes:
Sintaxis para abrir el fichero:
library(Rcmdr)
load("C:/Users/Maite/Desktop/Practica_Rcmdr.sav")
Practica_Rcmdr <- readSPSS("C:/Users/Maite/Desktop/Practica_Rcmdr.sav",
Rcmdr+ rownames=FALSE, stringsAsFactors=TRUE, tolower=FALSE)
1.- Realizar un análisis descriptivo de las variables numéricas del fichero comprobando cuáles son normales.
Sintaxis:
numSummary(Practica_Rcmdr[,c("antiguedad", "dias", "edad", "salari06",
"salari08", "salari10"), drop=FALSE], statistics=c("mean", "sd", "IQR",
"quantiles", "skewness", "kurtosis"), quantiles=c(0,.05,.25,.5,.75,.95,1),
type="2")
normalityTest(~antiguedad, test="lillie.test", data=Practica_Rcmdr)
normalityTest(~dias, test="lillie.test", data=Practica_Rcmdr)
normalityTest(~edad, test="lillie.test", data=Practica_Rcmdr)
normalityTest(~salari06, test="lillie.test", data=Practica_Rcmdr)
normalityTest(~salari08, test="lillie.test", data=Practica_Rcmdr)
normalityTest(~salari10, test="lillie.test", data=Practica_Rcmdr)
normalityTest(~salari10, test="lillie.test", data=Practica_Rcmdr)
Variable | Media | Me | sd | Q1 | Q3 | Perc5 | Perc95 |
edad | 34.89 | 33 | 6.85 | 30 | 36 | 27 | 46.85 |
antiguedad | 8.797 | 9 | 6.47 | 3 | 11 | 1 | 22.70 |
salari06 | 20444.8 | 20257 | 2161.9 | 18700.49 | 21286.47 | 17641.21 | 24913.05 |
salari08 | 20949.92 | 20743.26 | 2256.25 | 19281.37 | 22303.72 | 17834.27 | 25855.00 |
salari10 | 21995.62 | 21819.12 | 2279.33 | 20159.68 | 23321.45 | 18842.91 | 26833.22 |
dias | 111.73437 | 115.00 | 9.943080 | 105.50 | 119.00 | 95.00 | 122.00 |
Variable | Asim. | Apunt | Estadístico de S-W | ¿Normal? |
edad | 1.17 | 0.97 | No | |
antiguedad | 0.997 | 0.934 | No | |
salari06 | 0.6491993 | 0.1526426 | No | |
salari08 | 0.5666707 | 0.1197066 | Sí | |
salari10 | 0.5608620 | 0.2498237 | Sí | |
dias | -0.9461202 | 0.1413104 | No |
a) El 25% del personal tiene una edad superior a 36.
b) El 95% del personal tiene una antigüedad en la empresa inferior a 22.7
c) El 50% del personal tuvo un salario en 2010 inferior a 21819.12
d) ¿Qué variable es asimétrica por la izquierda? Los días.
2.- Realizar las correspondientes tablas de contingencia y responder a las siguientes cuestiones:
Sintaxis:
local({
.Table <- xtabs(~ecivil+evalua, data=Practica_Rcmdr)
cat("\nFrequency table:\n")
print(.Table)
cat("\nRow percentages:\n")
print(rowPercents(.Table))
.Test <- chisq.test(.Table, correct=FALSE)
print(.Test)
})
local({
.Table <- xtabs(~ecivil+estudios, data=Practica_Rcmdr)
cat("\nFrequency table:\n")
print(.Table)
cat("\nRow percentages:\n")
print(rowPercents(.Table))
.Test <- chisq.test(.Table, correct=FALSE)
print(.Test)
})
local({
.Table <- xtabs(~ecivil+zona, data=Practica_Rcmdr)
cat("\nFrequency table:\n")
print(.Table)
cat("\nRow percentages:\n")
print(rowPercents(.Table))
.Test <- chisq.test(.Table, correct=FALSE)
print(.Test)
})
local({
.Table <- xtabs(~ecivil+Satisfaccion, data=Practica_Rcmdr)
...