DistriName <- readline(prompt = "Enter Distribution: ")
DistriName <- as.numeric(DistriName)
function(DistriName) {
  if(DistriName = 1) {
    print("You have selected the binomial distribution")
  } else {
    print("I am not familiar with the distribution. Sorry.")
  }
}

Error: unexpected '}' in "  }"
Error: unexpected '}' in "}"

if (DistriName == 1)