Inferencia <- function() { cat("\n") opciones = c("Para una muestra.", "Para dos muestras.") menuprincipal = menu(opciones, title="Inferencia estadística") if (menuprincipal == 1) { source("Inferencia1.txt") resultado = UnaMuestra() } if (menuprincipal == 2) { source("Inferencia2.txt") resultado = DosMuestras() } resultado }