Gasto sanitario con clusterMap()

En una reciente conferencia sobre sanidad, se afirmó que el gasto sanitario total está aumentando en todo el mundo.

Estuviste presente y te gustaría obtener algunas estimaciones aproximadas para comprobar esta afirmación. Has obtenido un conjunto de datos que te da el gasto sanitario per cápita y la población del año 2000 en adelante. Tienes dos listas: ls_pop y ls_exp. Contienen el tamaño de la población y el gasto sanitario per cápita, respectivamente, de cada país.

La función total_exp() que toma dos argumentos: pop o población y exp_pc, gasto sanitario por capital. Esta función devuelve el gasto total en miles de millones de dólares US. Quieres aplicar esta función a ls_pop y ls_exp en paralelo. Se ha cargado el paquete parallel.

Este ejercicio forma parte del curso

Programación paralela en R

Ver curso

Instrucciones del ejercicio

Aplica total_exp() en paralelo a cada elemento de ls_pop y ls_exp.
Especifica la lista cuyos elementos se suministrarán al argumento pop de total_exp().
Del mismo modo, especifica la lista que debe suministrarse al argumento exp_pc de total_exp().

ejercicio interactivo práctico

Prueba este ejercicio completando este código de ejemplo.

total_exp <- function (pop, exp_pc) {
 sum(pop * exp_pc)/1e9
}

cl <- makeCluster(4)
# Apply total_exp using cl to multiple arguments
ls_total <- ___(___, ___,
                       # Specify first argument
                       pop = ___,
                       # Specify second argument
                       exp_pc = ___)

stopCluster(cl)

print(paste("Average yearly increase in USD billions:", round(mean(diff(unlist(ls_total))))))

Editar y ejecutar código