Manual de r comander
Descargar como PPTX, PDF0 recomendaciones254 vistas
Este documento presenta los resultados de un análisis estadístico que evalúa si la cantidad media de encuestas realizadas por agentes es superior a 53 por semana. Se introducen los datos de una muestra aleatoria de agentes en R y se realiza una prueba t para comparar la media muestral con 53. Los resultados muestran que el valor t calculado no es estadísticamente significativo, por lo que no se rechaza la hipótesis nula de que la media es inferior o igual a 53 encuestas por semana.
![• Ingresamos los datos en el software
Encuestas <- sqlQuery(channel = 2, select * from
[ENCUESTAS$])
names(Encuestas) <- make.names(names(Encuestas))
library(abind, pos=4)
library(e1071, pos=4)
numSummary(Encuestas[,"X..de.encuestas"],
statistics=c("mean",
"sd",
"cv"),
quantiles=c(0,.25,.5,.75,1))](https://image.slidesharecdn.com/manualdercomander-140115213452-phpapp01/85/Manual-de-r-comander-4-320.jpg)
Manual de r comander
- 1. ESCUELA DE TELECOMUNICACIONES Y REDES FACULTAD DE INFORMATICA Y ELLECTRONICA NOMBRE: JOSE ISAIAS MANOBANDA GUAMAN
- 2. • R-Commander es una Interfaz Gráfica de Usuario (GUI en inglés), creada por John Fox, que permite acceder a muchas capacidades del entorno estadístico R sin que el usuario tenga que conocer el lenguaje de comandos propio de este entorno. Al arrancar R-Commander, se nos presentan dos ventanas:
- 3. • Una empresa que se dedica a hacer en cuestas se queja de que un agente realiza en promedio 53 encuestas por semana. Se ha introducido una forma más moderna de realizar las encuetas y la empresa quiere evaluar su efectividad. Los números de encuestas realizadas en una semana por una muestra aleatoria de agentes son:53 57 50 55 58 54 60 52 59 62 60 60 51 59 • En el nivel de significancia 0,05, puede concluirse que la cantidad media de entrevistas realizadas por los agentes es superior a 53 por semana?
- 4. • Ingresamos los datos en el software Encuestas <- sqlQuery(channel = 2, select * from [ENCUESTAS$]) names(Encuestas) <- make.names(names(Encuestas)) library(abind, pos=4) library(e1071, pos=4) numSummary(Encuestas[,"X..de.encuestas"], statistics=c("mean", "sd", "cv"), quantiles=c(0,.25,.5,.75,1))
- 6. • Ho: u⩽53 • H1: U>53 Names(Encuesta)<-make.names(names(Encuesta)) t.test(EncuestaX..de.encuestas,alternative=‘greater’,mu=53 .0,conf.level=.95)
- 7. • plot(.x, dnorm(.x, mean=56.42857, sd=3.877237), xlab="x", ylab="Density", • main=paste("Normal Distribution: Mean=56.42857, Standard • deviation=3.877237"), • type="l") • abline(h=0, col="gray") • remove(.x))
- 8. • plot(.x, pt(.x, df=13), xlab="x", ylab="Cumulative Probability", main=paste("t • Distribution: Degrees of freedom=13"), • type="l") • abline(h=0, col="gray") • remove(.x)
- 9. • Como t calculado igual a 3,31 es mayor a t de tablas igual a 1,77 se acepta la • hipótesis nula y se rechaza la alternativa, se concluye que la cantidad media de las • entrevistas realizadas por los agentes a 53 por semana.