Created using Colab

Author: jsdhami

R_Programming_Language.ipynb

@@ -3,7 +3,10 @@
   "nbformat_minor": 0,
   "metadata": {
     "colab": {
-      "provenance": []
+      "provenance": [],
+      "toc_visible": true,
+      "authorship_tag": "ABX9TyPtpKv2dvb2tqFiJtCT2hTt",
+      "include_colab_link": true
     },
     "kernelspec": {
       "name": "ir",
@@ -14,6 +17,16 @@
     }
   },
   "cells": [
+    {
+      "cell_type": "markdown",
+      "metadata": {
+        "id": "view-in-github",
+        "colab_type": "text"
+      },
+      "source": [
+        "<a href=\"https://colab.research.google.com/github/jsdhami/R-Programming-for-Beginners/blob/main/R_Programming_Language.ipynb\" target=\"_parent\"><img src=\"https://colab.research.google.com/assets/colab-badge.svg\" alt=\"Open In Colab\"/></a>"
+      ]
+    },
     {
       "cell_type": "markdown",
       "source": [
@@ -10652,6 +10665,57 @@
         }
       ]
     },
+    {
+      "cell_type": "code",
+      "source": [
+        "# Calculator\n",
+        "\n",
+        "a <- as.numeric(readline(prompt = \"Enter First Number: \"))\n",
+        "b <- as.numeric(readline(prompt = \"Enter Second Number: \"))\n",
+        "cat(\"What do you want?\\n\")\n",
+        "cat(\"1. Sum\\n\")\n",
+        "cat(\"2. Subtract\\n\")\n",
+        "cat(\"3. Divide\\n\")\n",
+        "p <- as.numeric(readline(prompt = \"Choose one (1, 2, 3): \"))\n",
+        "\n",
+        "result <- switch(p,\n",
+        "  `1` = a + b,\n",
+        "  `2` = a - b,\n",
+        "  `3` = ifelse(b != 0, a / b, \"Error: Division by zero\"),\n",
+        "  \"Invalid choice\"\n",
+        ")\n",
+        "\n",
+        "if (is.numeric(result)) {\n",
+        "  cat(\"The result is:\", result, \"\\n\")\n",
+        "} else {\n",
+        "  cat(result, \"\\n\")\n",
+        "}\n"
+      ],
+      "metadata": {
+        "colab": {
+          "base_uri": "https://localhost:8080/"
+        },
+        "id": "z7Q7r7J0ePeo",
+        "outputId": "60c1011d-b9ae-4f1b-dc1b-8f14fb183f63"
+      },
+      "execution_count": null,
+      "outputs": [
+        {
+          "output_type": "stream",
+          "name": "stdout",
+          "text": [
+            "Enter First Number: 436\n",
+            "Enter Second Number: 54645\n",
+            "What do you want?\n",
+            "1. Sum\n",
+            "2. Subtract\n",
+            "3. Divide\n",
+            "Choose one (1, 2, 3): 1\n",
+            "The result is: 55081 \n"
+          ]
+        }
+      ]
+    },
     {
       "cell_type": "markdown",
       "source": [