#Un hospital cuenta con un quirofano con 5 salas para cirugías, estas fueron utilizadas en un periodo de 30 días. Cinco de estos 30 días sólo se usó una sala, siete de los 30 días se usaron dos salas, diez de los 30 días se usaron tres salas, seis de los 30 días se usaron cuatro salas de cirugias y dos días de los 30 se usaron 5 salas de cirugías.

########################################################
#             DISTRIBUCIÓN DE PROBABILIDAD             #
#                  MCAA - Grupo: 9004                  #
#             NIDIA VIANEY CHAVEZ VELAZQUEZ.           #


library(probs)
## 
## Attaching package: 'probs'
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, union
library(ggplot2)


#Un hospital cuenta con un quirofano con 5 salas para cirugías, 
#estas fueron utilizadas en un periodo de 30 días. Cinco de estos 30 días 
#sólo se usó una sala, siete de los 30 días se usaron dos salas, diez de 
#los 30 días se usaron tres salas, seis de los 30 días se usaron cuatro 
#salas de cirugias y dos días de los 30 se usaron 5 salas de cirugías. 

sala <- c("1","2","3","4","5")
días <- c(5,7,10,6,2)

hospital <- data.frame(sala,
                       días)

#mostrar dataframe
hospital
##   sala días
## 1    1    5
## 2    2    7
## 3    3   10
## 4    4    6
## 5    5    2
#ELABORAR UNA DISTRIBUCIÓN DE PROBABILIDAD PARA EL NÚMERO DE SALAS DE 
#OPERACIONES USADAS EN UN DÍA.

(total <- sum(días))
## [1] 30
hospital$probabilidad <- días/total

#ELABORAR UNA GRAFICA A PARTIR DE LA DISTRIBUCIÓN DE PROBABILIDAD
attach(hospital)
## The following objects are masked _by_ .GlobalEnv:
## 
##     días, sala
plot(sala,probabilidad, type="h", main="DISTRIBUCIÓN DE PROBABILIDAD")

#NORMAL ESTANDAR
probabilidad >= 0
## [1] TRUE TRUE TRUE TRUE TRUE
sum(probabilidad)
## [1] 1