Actividad Estadística

DATOS 1

——————

datos1=c(2,10,4,5,6,7,9,3,7,4,7,9,10,2,1,5,6,7,8,8,8,4,9,2,4,7,6,5,7,9)

ANÁLISIS DATOS 1

#Tipo de variable

class(datos1)

## [1] "numeric"

#Media

mean(datos1)

## [1] 6.033333

#Moda

mfv(datos1)

## [1] 7

#Mediana

median(datos1)

## [1] 6.5

#Rango

max(datos1) - min(datos1)

## [1] 9

range(datos1)

## [1]  1 10

#Varianza

var(datos1)

## [1] 6.447126

#Desviación Estándar

sd(datos1)

## [1] 2.539119

#Plot and Boxplot

plot(datos1, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos1,col="paleturquoise")

#Histograma

hist(datos1, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos1, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

DATOS 2

——————

datos2 <- c(8,1,10,3,7,3,5,6,10,9)

ANÁLISIS DATOS 2

#Rango

max(datos2) - min(datos2)

## [1] 9

range(datos2)

## [1]  1 10

#Media

mean(datos2)

## [1] 6.2

#Plot and Boxplot

plot(datos2, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos2,col="paleturquoise")

#Histograma

hist(datos2, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos2, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

DATOS 3

——————

datos3 <- c(1.7, 1.5, 1.7, 1, 1.6, 1.2, 1.6, 1.4, 1.8, 1.8, 1.5, 1.4, 1.6, 1.6, 1.5)

ANÁLISIS DATOS 3

#Media

mean(datos3)

## [1] 1.526667

#Varianza

var(datos3)

## [1] 0.04638095

DATOS 4

——————

datos4 <- c(8, 9, 8, 9, 4, 5, 4, 6, 8, 3)

#Plot and Boxplot

plot(datos3, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos3,col="paleturquoise")

#Histograma

hist(datos3, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos3, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

ANÁLISIS DATOS 4

#Moda

mfv(datos4)

## [1] 8

#Mediana

median(datos4)

## [1] 7

#Plot and Boxplot

plot(datos4, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos4,col="paleturquoise")

#Histograma

hist(datos4, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos4, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

DATOS 5

——————

datos5 <- c(3, 8, 2, 5, 3, 1, 4, 2, 5, 2)

ANÁLISIS DATOS 5

#Moda

mfv(datos5)

## [1] 2

#Mediana

median(datos5)

## [1] 3

#Plot and Boxplot

plot(datos5, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos5,col="paleturquoise")

#Histograma

hist(datos5, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos5, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

DATOS 6

——————

datos6 <- c(4, 7, 8, 5, 2, 2, 3, 5, 3, 5)

ANÁLISIS DATOS 6

#Media

mean(datos6)

## [1] 4.4

#Moda

mfv(datos6)

## [1] 5

#Plot and Boxplot

plot(datos6, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos6,col="paleturquoise")

#Histograma

hist(datos6, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos6, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

DATOS 7

——————

datos7 <- c(9.0, 2.0, 3.0, 8.0, 3.0, 8.0, 3.0, 6.0, 4.0, 5.0)

ANÁLISIS DATOS 7

#Mediana

median(datos7)

## [1] 4.5

#Media

mean(datos7)

## [1] 5.1

#Plot and Boxplot

plot(datos7, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos7,col="paleturquoise")

#Histograma

hist(datos7, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos7, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

DATOS 8

——————

datos8 <- c(9, 2, 8, 2, 7, 4, 5, 4, 4, 5)

ANÁLISIS DATOS 8

#Mediana

median(datos8)

## [1] 4.5

#Moda

mfv(datos8)

## [1] 4

#Plot and Boxplot

plot(datos8, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos8,col="paleturquoise")

#Histograma

hist(datos8, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos8, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

DATOS 9

——————

datos9 <- c(2.5, 2.0, 1.0, 1.3, 1.8, 1.7, 1.6, 1.4, 1.5, 1.5, 2.4, 2.5, 1.7, 1.3, 1.5)

ANÁLISIS DATOS 9

#Media

mean(datos9)

## [1] 1.713333

#Desviación Estándar

sd(datos9)

## [1] 0.4549202

#Plot and Boxplot

plot(datos9, col="skyblue",xlab="Index",ylab="Datos")

boxplot(datos9,col="paleturquoise")

#Histograma

hist(datos9, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(datos9, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

RETO

——————

reto <- c(3, 8, 9, 10, 4, 5, 9, 3, 4, 7, 2, 8, 3, 7, 5, 7)

#Plot and Boxplot

plot(reto,col="skyblue")

boxplot(reto,col="paleturquoise")

#Histograma

hist(reto, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Barplot

barplot(reto, col=c("aliceblue","powderblue","azure","paleturquoise",'lightcyan'))

#Quartiles

summary(reto)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   2.000   3.750   6.000   5.875   8.000  10.000