https://download1.rstudio.org/RStudio-1.1.423.exe  

install.packages("reticulate")

#Python
x = np.array([10,20,14,17,18])

#R
y<- array(1:4,c(2,2))
x <- numpy$array(y)

A = c(rep("w",4), rep("b",5))
B = C = c(rep("w",6), rep("b",3))
box = rbind(A, B, C)

#developed by R_Experts Team

#number of simiulation

nsim = 100000 ;m=0
for (j in 1:nsim) {
  #choose randome box
  i = sample(1:3, 1)

  #choose 4 sample from box
  sam4 = sample(box[i,], 4)
  tw =  sum(sam4 == "w")
  if(tw == 2 ) {m = m+1}
}
#prob calculate
cat("two white probability is = ", m/nsim, "\n #developed by R_Experts Team")