Distribuciuon Binomial

Universidad de las Fuerzas Armadas “ESPE”

Nombre: Sánchez Quintana Christian David
NRC: 4632                Fecha: 15-05-2021

Laboratorio R.1

CODIGO DE R

library("readxl") #importar archivos de excel

setwd("C:/Users/Lenovo/OneDrive/Escritorio/Base")

x <- read_excel("salaries.xlsx",sheet=1) # importar archivos excel

x

años <- x$yrs.since.phd

años

Media <- mean(años)  # mean calcula la media aritmética

Media

Mediana <- median(años) # median calcula la mediana

Mediana

library(modeest) # Calcula la moda de diversas distribuciones

Moda <- mlv(años)  # mlv calcula la moda de un conjunto de datos

Moda

n = length(años)

n

Desv.Media <- sum(abs(años-Media))/n

Desv.Media

Tabla1<- as.data.frame(table(clases=factor(cut(años,breaks =9))))

Tabla1

transform(Tabla1,

          FreqAC=cumsum(Freq),

          Rel=round(prop.table(Freq),3),

          RelAC=round(cumsum(prop.table(Freq)),3))

Varianza <- var(años) # la varianza de una muestra cálculo con var

Varianza

Desv.Std <- sqrt(Varianza)

Desv.Std

Desv.Std2 <- sd(años) # sd calcula la desviación típica o estándar

Desv.Std2

Coef.Var <- (Desv.Std/Media)*100

Coef.Var

n = length(años)

n

E_Tipico <- Desv.Std/sqrt(n)

E_Tipico

## Medidas de Forma

Coef.Asim <- skewness(años)

Coef.Asim

Curtosis <- kurtosis(años)

Curtosis

## Medidas de Posición

Cuartiles <- quantile(años, c(0.25,0.50,0.75))

Cuartiles

Quintiles <- quantile(años, c(0.20,0.40,0.60,0.80))

Quintiles

Deciles <- quantile(años, c(seq(0.1, 0.9, 0.1)))

Deciles

## Pequeño Resumen

summary(años)

# Creamos un histograma y Diagrama de Cajas y Bigotes

par(mfrow=c(1,2))

histograma <- hist(años,col=rainbow(9),breaks =c(1,7,13,19,25,31,37,43,49,56) ,main = "Histograma", xlab="Años",ylab="Frecuencia")

dx <- density(años)

dx

lines(dx, lwd = 2, col = "black")

boxplot(años,col="tan",horizontal = T,main = "Cajas Y Bigotes")

CAPTURAS

[pic 1][pic 2]

[pic 3]

[pic 4]

[pic 5]

[pic 6]

[pic 7]

...