Lote , R - rextester

Lote

#####Entrada de datos#####

##### Lotes individuales

# Lote 1
lote1 <- c (18.6,19.2,19.5,19.2, 18.9,19.4,19.0, 20.0, 19.3, 20.0, 19.1, 18.6, 19.4, 18.7, 20.0, 19.8, 19.0,18.6, 19.6,19.0,19.6,19.4,19.8,19.1,20.0,20.4,18.8, 19.3,19.1,19.1)

# Lote 2
lote2 <- c (18.6,19.9,18.8,18.4,19.0,20.1,19.7,19.3, 20.7,19.6,19.5,19.1, 18.5, 19.6, 19.4, 19.6, 20.3, 18.8, 19.2, 20.6, 20.0, 18.4, 18.9, 19.7, 17.8, 19.4, 18.9, 18.4, 19.0, 19.7)

# Lote 3

lote3 <- c( 20.1,20.2,21.0,19.7,20.1,20.0,19.1,20.4,19.6,20.6,20.0,19.7,20.8,19.7,19.7,20.4,19.8,20.5,20.0,20.0,20.2,19.7,20.0,19.6,19.7,19.8,19.9,20.3,20.4,20.2)

# Histograma para Lote 1
hist(lote1,probability = TRUE,main = "Histograma para el lote  1",col = " LightGreen",ylab="Frecuencia Relativa")

#Histograma para Lote 2
hist(lote2,probability = TRUE,main = "Histograma para el lote  2",col = "LightSalmon",ylab="Frecuencia Relativa")

#Histograma para Lote 3
hist(lote3,probability = TRUE,main = "Histograma para el lote  3",col = "LightBlue",ylab="Frecuencia Relativa")


run \| edit \| history \| help	0