Simulacion montecarlo

servidor windows costo $ 100,000 hasta $ 200,000 actualizacion de software $ 275,000 a $ 500,000. capacitacion $9,000 a $10,000

Windows min $384000 max $710,000 estimado 435,000

servidor linux costo $ 80,000 hasta $ 210,000. actualizacion de software $ 250,000 a $ 525,000. capacitacion $ 8,000 a $ 17,500

Linux min 338000 max 752500 estimado 410000

get_montecarloest <- function(vmin,vmax,vest){
    mn <- (vmin + 4*vest + vmax)/6
  s <- abs((vmax - vmin)/6)
  
  valmontecarlo <- rnorm(1, mean=mn, sd=s)
  
  return(valmontecarlo)
}

get_sim<-function(x,vmin,vmax,vest){
    
    times <- get_montecarloest(vmin,vmax,vest)
    return (times)
}

hacemos test de la funcion de montecarlo

get_montecarloest(384000,710000,410000)

aplicamos la funcion para windows y linux con 10000 iteraciones

simulacion<-10000
sim_win<-sapply(1:simulacion, get_sim,vmin=384000,vmax=710000,vest=435000)
sim_lin<-sapply(1:simulacion, get_sim,vmin=338000,vmax=752500,vest=410000)
print(paste("windows: ",mean(sim_win)," Linux:", mean(sim_lin)))

[1] "windows:  471830.746806248  Linux: 455568.007223083"

La mejor opcion es linux