library(flextable)
jeans <- data.frame("Maquinas" = c("A","B","C","total"),
                    "defectuoso"= c(00.3*0.02*1000, 0.45*0.05*1000, 0.25*0.015*1000,NA),
                    "No defectuoso"= c(0.3*0.98*1000, 0.45*0.95*1000, 0.25*0.985*1000,NA),
                    "Total"      = NA)
      
jeans[4,2] <- sum(jeans[1:3,2])
jeans[4,3] <- sum(jeans[1:3,3])
jeans[1:4,4] <- jeans[1:4,2] + jeans[1:4,3]

p_D <- jeans[4,2] / jeans[4,4]
                  p_B_given_D <- jeans[2,2] / jeans[4,2]

cat("La probabilidad de que un jean tenga defectos es de",p_D)
## La probabilidad de que un jean tenga defectos es de 0.03225
cat("La probabilidad de que un jean defectuoso haya sido producido por la máquina B es de", p_B_given_D)
## La probabilidad de que un jean defectuoso haya sido producido por la máquina B es de 0.6976744
ft <- flextable(jeans)

ft <- align(ft, align = "right", part = "all")


ft <- set_table_properties(ft, layout = "autofit", align = "rigth")




flextable(jeans)

Maquinas

defectuoso

No.defectuoso

Total

A

6.00

294.00

300

B

22.50

427.50

450

C

3.75

246.25

250

total

32.25

967.75

1,000