{
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "view-in-github",
        "colab_type": "text"
      },
      "source": [
        "<a href=\"https://colab.research.google.com/github/Alphabf/CDISC-Implementation/blob/main/Generate_SDTM_Based_Inputs_for_ADSL_Creation.ipynb\" target=\"_parent\"><img src=\"https://colab.research.google.com/assets/colab-badge.svg\" alt=\"Open In Colab\"/></a>"
      ]
    },
    {
      "cell_type": "markdown",
      "id": "97306e04-42d9-49cd-8e8d-ac69d52bc528",
      "metadata": {
        "id": "97306e04-42d9-49cd-8e8d-ac69d52bc528"
      },
      "source": [
        "**Author:** Alpha Traore, Sr Data Scientist, Biostat Consultants Inc.       \n",
        "**📁 Project:** CDISC Dataset Preparation     \n",
        "**📁 Domain:** ADSL (Demographics)    \n",
        "**🎯 Purpose:** Generate SDTM-Based Inputs for ADSL Creation.   \n",
        "  \n",
        "---\n",
        "\n",
        "**📌Overview**\n",
        "\n",
        "This notebook outlines the generation of a mock SDTM dataset to support ADSL domain mapping, conforming to CDISC guidelines and representing realistic subject-level data."
      ]
    },
    {
      "cell_type": "markdown",
      "id": "93eea9c3-0060-408d-a49d-0b616b60212c",
      "metadata": {
        "id": "93eea9c3-0060-408d-a49d-0b616b60212c"
      },
      "source": [
        "**Loading Packages**"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "id": "8eaea2fd-5c60-4a97-a4b0-ae384fce5c27",
      "metadata": {
        "id": "8eaea2fd-5c60-4a97-a4b0-ae384fce5c27"
      },
      "outputs": [],
      "source": [
        "library(glue)\n",
        "library(tidyverse)\n",
        "library(haven)\n",
        "library(assertthat)\n",
        "library(huxtable)\n",
        "library(data.table)\n",
        "library(lubridate)\n",
        "library(pharmaRTF)"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "id": "6a621866-0551-4518-8ed0-4fdaee1fdf37",
      "metadata": {
        "id": "6a621866-0551-4518-8ed0-4fdaee1fdf37"
      },
      "outputs": [],
      "source": [
        "dm<-tribble(\n",
        "~studyid,~domain,~usubjid,~subjid,~rfstdtc,~rfendtc,~rfxstdtc,~rfxendtc,~rficdtc,~rfpendtc,~dthdtc,~dthfl,~siteid,~age,~ageu,~sex,~race,~ethnic,~armcd,~arm,~actarmcd,~actarm,~country,\n",
        "\"CSG001\",\"DM\",\"CSG001-1001\",\"1001\",\"2010-01-01\",\"\",\"\",\"\",\"2010-01-01\",\"2010-01-01\",\"\",\"\",\"10\",35,\"YEARS\",\"M\",\"WHITE\",\"HISPANIC OR LATINO\",\"SCRNFAIL\",\"Screen Failure\",\"SCRNFAIL\",\"Screen Failure\",\"USA\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1002\",\"1002\",\"2010-01-01\",\"2010-01-05\",\"\",\"\",\"2010-01-01\",\"2010-01-05\",\"\",\"\",\"10\",40,\"YEARS\",\"F\",\"MULTIPLE\",\"NOT HISPANIC OR LATINO\",\"NOTASSGN\",\"Not Assigned\",\"NOTASSGN\",\"Not Assigned\",\"USA\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1003\",\"1003\",\"2010-01-03\",\"2010-01-05\",\"\",\"\",\"2010-01-01\",\"2010-01-05\",\"2010-01-05\",\"Y\",\"10\",40,\"YEARS\",\"M\",\"OTHER\",\"HISPANIC OR LATINO\",\"PBO\",\"Placebo\",\"NOTTRT\",\"Not Treated\",\"USA\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1004\",\"1004\",\"2010-01-05\",\"2010-02-28\",\"2010-01-05T08:35\",\"2010-01-25T08:45\",\"2010-01-01\",\"2010-02-28\",\"\",\"\",\"10\",38,\"YEARS\",\"M\",\"WHITE\",\"HISPANIC OR LATINO\",\"ACTIVE\",\"Active\",\"ACTIVE\",\"Active\",\"USA\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1005\",\"1005\",\"2010-02-05\",\"\",\"2010-02-05T08:46\",\"2010-02-12T08:30\",\"2010-01-15\",\"2020-02-20\",\"\",\"\",\"10\",64,\"YEARS\",\"M\",\"AMERICAN INDIAN OR ALASKA NATIVE\",\"NOT HISPANIC OR LATINO\",\"ACTIVE\",\"Active\",\"PBO\",\"Placebo\",\"USA\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1006\",\"1006\",\"2010-03-02\",\"2010-03-25\",\"2010-03-02T08:30\",\"2010-03-10T08:30\",\"2010-02-18\",\"2010-03-25\",\"\",\"\",\"10\",75,\"YEARS\",\"F\",\"NATIVE HAWAIIAN OR OTHER PACIFIC ISLANDER\",\"NOT HISPANIC OR LATINO\",\"PBO\",\"Placebo\",\"PBO\",\"Placebo\",\"USA\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1007\",\"1007\",\"2010-04-15\",\"2010-06-12\",\"2010-04-15T08:23\",\"2010-05-06T08:12\",\"2010-04-04\",\"2010-06-12\",\"\",\"\",\"10\",32,\"YEARS\",\"M\",\"UNKNOWN\",\"NOT HISPANIC OR LATINO\",\"PBO\",\"Placebo\",\"PBO\",\"Placebo\",\"USA\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1008\",\"1008\",\"2010-06-27\",\"2010-08-18\",\"2010-06-27T08:45\",\"2010-07-11T09:20\",\"2010-06-20\",\"2010-08-18\",\"\",\"\",\"10\",83,\"YEARS\",\"F\",\"NOT REPORTED\",\"NOT HISPANIC OR LATINO\",\"ACTIVE\",\"Active\",\"ACTIVE\",\"Active\",\"USA\",\n",
        ")\n",
        "\n",
        "suppdm<-tribble(\n",
        "~studyid,~rdomain,~usubjid,~idvar,~idvarval,~qnam,~qlabel,~qval,\n",
        "\"CSG001\",\"DM\",\"CSG001-1002\",\"\",\"\",\"RACE1\",\"Race 1\",\"ASIAN\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1002\",\"\",\"\",\"RACE2\",\"Race 2\",\"AMERICAN INDIAN OR ALASKA NATIVE\",\n",
        "\"CSG001\",\"DM\",\"CSG001-1003\",\"\",\"\",\"RACESP\",\"Race Other Specify\",\"BRAZILIAN\",\n",
        ")\n",
        "\n",
        "ds<-tribble(\n",
        "~studyid,~domain,~usubjid,~dsseq,~dsrefid,~dsterm,~dsdecod,~dscat,~dsscat,~dsstdtc,~dsstdy,\n",
        "\"CSG001\",\"DS\",\"CSG001-1001\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-01\",1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1002\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-01\",1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1002\",2,\"\",\"ENROLLED\",\"ELIGIBILITY CRITERIA MET\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-04\",4,\n",
        "\"CSG001\",\"DS\",\"CSG001-1002\",3,\"\",\"Withdrawl of consent\",\"WITHDRAWL OF CONSENT\",\"DISPOSITION EVENT\",\"END OF STUDY\",\"2010-01-05\",5,\n",
        "\"CSG001\",\"DS\",\"CSG001-1003\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-01\",-2,\n",
        "\"CSG001\",\"DS\",\"CSG001-1003\",2,\"\",\"ENROLLED\",\"ELIGIBILITY CRITERIA MET\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-03\",1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1003\",3,\"514876\",\"RANDOMIZED\",\"RANDOMIZED\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-03\",1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1003\",4,\"\",\"Death\",\"DEATH\",\"DISPOSITION EVENT\",\"END OF STUDY\",\"2010-01-05\",3,\n",
        "\"CSG001\",\"DS\",\"CSG001-1004\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-01\",-4,\n",
        "\"CSG001\",\"DS\",\"CSG001-1004\",2,\"\",\"ENROLLED\",\"ELIGIBILITY CRITERIA MET\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-04\",-1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1004\",3,\"101415\",\"RANDOMIZED\",\"RANDOMIZED\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-05\",1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1004\",4,\"\",\"Completed\",\"COMPLETED\",\"DISPOSITION EVENT\",\"END OF TREATMENT\",\"2010-01-25\",21,\n",
        "\"CSG001\",\"DS\",\"CSG001-1004\",5,\"\",\"Completed\",\"COMPLETED\",\"DISPOSITION EVENT\",\"END OF STUDY\",\"2010-02-28\",55,\n",
        "\"CSG001\",\"DS\",\"CSG001-1005\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-01-15\",-21,\n",
        "\"CSG001\",\"DS\",\"CSG001-1005\",2,\"\",\"ENROLLED\",\"ELIGIBILITY CRITERIA MET\",\"PROTOCOL MILESTONE\",\"\",\"2010-02-01\",-4,\n",
        "\"CSG001\",\"DS\",\"CSG001-1005\",3,\"306185\",\"RANDOMIZED\",\"RANDOMIZED\",\"PROTOCOL MILESTONE\",\"\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1006\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-02-18\",-12,\n",
        "\"CSG001\",\"DS\",\"CSG001-1006\",2,\"\",\"ENROLLED\",\"ELIGIBILITY CRITERIA MET\",\"PROTOCOL MILESTONE\",\"\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1006\",3,\"987435\",\"RANDOMIZED\",\"RANDOMIZED\",\"PROTOCOL MILESTONE\",\"\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1006\",4,\"\",\"Adverse Event\",\"ADVERSE EVENT\",\"DISPOSITION EVENT\",\"END OF TREATMENT\",\"2010-03-25\",24,\n",
        "\"CSG001\",\"DS\",\"CSG001-1006\",5,\"\",\"Adverse Event\",\"ADVERSE EVENT\",\"DISPOSITION EVENT\",\"END OF STUDY\",\"2010-03-25\",24,\n",
        "\"CSG001\",\"DS\",\"CSG001-1007\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-04-04\",-11,\n",
        "\"CSG001\",\"DS\",\"CSG001-1007\",2,\"\",\"ENROLLED\",\"ELIGIBILITY CRITERIA MET\",\"PROTOCOL MILESTONE\",\"\",\"2010-04-14\",-1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1007\",3,\"098745\",\"RANDOMIZED\",\"RANDOMIZED\",\"PROTOCOL MILESTONE\",\"\",\"2010-04-14\",-1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1007\",4,\"\",\"Completed\",\"COMPLETED\",\"DISPOSITION EVENT\",\"END OF TREATMENT\",\"2010-05-06\",22,\n",
        "\"CSG001\",\"DS\",\"CSG001-1007\",5,\"\",\"Completed\",\"COMPLETED\",\"DISPOSITION EVENT\",\"END OF STUDY\",\"2010-06-12\",59,\n",
        "\"CSG001\",\"DS\",\"CSG001-1008\",1,\"\",\"INFORMED CONSENT OBTAINED\",\"INFORMED CONSENT OBTAINED\",\"PROTOCOL MILESTONE\",\"\",\"2010-06-20\",-7,\n",
        "\"CSG001\",\"DS\",\"CSG001-1008\",2,\"\",\"ENROLLED\",\"ELIGIBILITY CRITERIA MET\",\"PROTOCOL MILESTONE\",\"\",\"2010-06-26\",-1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1008\",3,\"123098\",\"RANDOMIZED\",\"RANDOMIZED\",\"PROTOCOL MILESTONE\",\"\",\"2010-06-27\",1,\n",
        "\"CSG001\",\"DS\",\"CSG001-1008\",4,\"\",\"Subject Request\",\"SUBJECT REQUEST\",\"DISPOSITION EVENT\",\"END OF TREATMENT\",\"2010-07-15\",19,\n",
        "\"CSG001\",\"DS\",\"CSG001-1008\",5,\"\",\"Subject Request\",\"SUBJECT REQUEST\",\"DISPOSITION EVENT\",\"END OF STUDY\",\"2010-08-18\",53,\n",
        ")\n",
        "\n",
        "vs<-tribble(\n",
        "~studyid,~domain,~usubjid,~vsseq,~vstestcd,~vstest,~vscat,~vspos,~vsorres,~vsorresu,~vsstresc,~vsstresn,~vsstresu,~vsstat,~vsloc,~vsblfl,~visitnum,~visit,~epoch,~vsdtc,~vsdy,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",1,\"HEIGHT\",\"Height\",\"PHYSICAL MEASUREMENTS\",\"\",\"177\",\"cm\",\"177\",177,\"cm\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-01-04\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",2,\"WEIGHT\",\"Weight\",\"PHYSICAL MEASUREMENTS\",\"\",\"87.3\",\"kg\",\"87.3\",87.3,\"kg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-01-04\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",3,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SUPINE\",\"72\",\"mmHg\",\"72\",72,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-01-02\",-3,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",4,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SUPINE\",\"82\",\"mmHg\",\"82\",82,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-01-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",5,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"72\",\"beats/min\",\"72\",72,\"beats/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-01-02\",-3,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",6,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"82\",\"beats/min\",\"82\",82,\"beats/min\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-01-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",7,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"24\",\"breaths/min\",\"24\",24,\"breaths/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-01-02\",-3,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",8,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"20\",\"breaths/min\",\"20\",20,\"breaths/min\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-01-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",9,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SUPINE\",\"122\",\"mmHg\",\"122\",122,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-01-02\",-3,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",10,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SUPINE\",\"120\",\"mmHg\",\"120\",120,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-01-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",11,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"34.8\",\"C\",\"34.8\",34.8,\"C\",\"\",\"AXILLA\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-01-02\",-3,\n",
        "\"CSG001\",\"VS\",\"CSG001-1004\",12,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"35.3\",\"C\",\"35.3\",35.3,\"C\",\"\",\"AXILLA\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-01-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",1,\"HEIGHT\",\"Height\",\"PHYSICAL MEASUREMENTS\",\"\",\"66.14\",\"cm\",\"66.14\",66.14,\"cm\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",2,\"WEIGHT\",\"Weight\",\"PHYSICAL MEASUREMENTS\",\"\",\"76.1\",\"kg\",\"76.1\",76.1,\"kg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",3,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"85\",\"mmHg\",\"85\",85,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",4,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"87\",\"mmHg\",\"87\",87,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-02-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",5,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"90\",\"mmHg\",\"90\",90,\"mmHg\",\"\",\"\",\"\",103.01,\"WEEK 3 UNSCHEDULED 01\",\"TREATMENT\",\"2010-02-22\",18,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",6,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"85\",\"beats/min\",\"85\",85,\"beats/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",7,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"87\",\"beats/min\",\"87\",87,\"beats/min\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-02-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",8,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"90\",\"beats/min\",\"90\",90,\"beats/min\",\"\",\"\",\"\",103.01,\"WEEK 3 UNSCHEDULED 01\",\"TREATMENT\",\"2010-02-22\",18,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",9,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"14\",\"breaths/min\",\"14\",14,\"breaths/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",10,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"15\",\"breaths/min\",\"15\",15,\"breaths/min\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-02-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",11,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"18\",\"breaths/min\",\"18\",18,\"breaths/min\",\"\",\"\",\"\",103.01,\"WEEK 3 UNSCHEDULED 01\",\"TREATMENT\",\"2010-02-22\",18,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",12,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"120\",\"mmHg\",\"120\",120,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",13,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"125\",\"mmHg\",\"125\",125,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-02-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",14,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"130\",\"mmHg\",\"130\",130,\"mmHg\",\"\",\"\",\"\",103.01,\"WEEK 3 UNSCHEDULED 01\",\"TREATMENT\",\"2010-02-22\",18,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",15,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"98.06\",\"F\",\"36.7\",36.7,\"C\",\"\",\"AXILLA\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-02-05\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",16,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"36.6\",\"C\",\"36.6\",36.6,\"C\",\"\",\"AXILLA\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-02-12\",8,\n",
        "\"CSG001\",\"VS\",\"CSG001-1005\",17,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"37.0\",\"C\",\"37\",37,\"C\",\"\",\"AXILLA\",\"\",103.01,\"WEEK 3 UNSCHEDULED 01\",\"TREATMENT\",\"2010-02-22\",18,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",1,\"HEIGHT\",\"Height\",\"PHYSICAL MEASUREMENTS\",\"\",\"160\",\"cm\",\"160\",160,\"cm\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",2,\"WEIGHT\",\"Weight\",\"PHYSICAL MEASUREMENTS\",\"\",\"60.9\",\"kg\",\"60.9\",60.9,\"kg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",3,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"87\",\"mmHg\",\"87\",87,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",4,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"68\",\"mmHg\",\"68\",68,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-03-11\",10,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",5,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"87\",\"beats/min\",\"87\",87,\"beats/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",6,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"68\",\"beats/min\",\"68\",68,\"beats/min\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-03-11\",10,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",7,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"20\",\"breaths/min\",\"20\",20,\"breaths/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",8,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"21\",\"breaths/min\",\"21\",21,\"breaths/min\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-03-11\",10,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",9,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"133\",\"mmHg\",\"133\",133,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",10,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"115\",\"mmHg\",\"115\",115,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-03-11\",10,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",11,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"36.2\",\"C\",\"36.2\",36.2,\"C\",\"\",\"EAR\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-03-01\",-1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1006\",12,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"35.1\",\"C\",\"35.1\",35.1,\"C\",\"\",\"EAR\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-03-11\",10,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",1,\"HEIGHT\",\"Height\",\"PHYSICAL MEASUREMENTS\",\"\",\"178\",\"cm\",\"178\",178,\"cm\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-04-13\",-2,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",2,\"WEIGHT\",\"Weight\",\"PHYSICAL MEASUREMENTS\",\"\",\"85.4\",\"kg\",\"85.4\",85.4,\"kg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"SCREENING\",\"2010-04-13\",-2,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",3,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"80\",\"mmHg\",\"80\",80,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-04-15\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",4,\"DIABP\",\"Diastolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"80\",\"mmHg\",\"80\",80,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-04-29\",15,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",5,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"80\",\"beats/min\",\"80\",80,\"beats/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-04-15\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",6,\"HR\",\"Heart Rate\",\"VITAL SIGNS\",\"\",\"80\",\"beats/min\",\"80\",80,\"beats/min\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-04-29\",15,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",7,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"21\",\"breaths/min\",\"21\",21,\"breaths/min\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-04-15\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",8,\"RESP\",\"Respiratory Rate\",\"VITAL SIGNS\",\"\",\"\",\"\",\"\",NA,\"\",\"NOT DONE\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-04-29\",15,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",9,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"120\",\"mmHg\",\"120\",120,\"mmHg\",\"\",\"\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-04-15\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",10,\"SYSBP\",\"Systolic Blood Pressure\",\"VITAL SIGNS\",\"SITTING\",\"140\",\"mmHg\",\"140\",140,\"mmHg\",\"\",\"\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-04-29\",15,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",11,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"36.9\",\"C\",\"36.9\",36.9,\"C\",\"\",\"AXILLA\",\"Y\",1,\"SCREENING\",\"TREATMENT\",\"2010-04-15\",1,\n",
        "\"CSG001\",\"VS\",\"CSG001-1007\",12,\"TEMP\",\"Temperature\",\"VITAL SIGNS\",\"\",\"37.4\",\"C\",\"37.4\",37.4,\"C\",\"\",\"AXILLA\",\"\",102,\"WEEK 2\",\"TREATMENT\",\"2010-04-29\",15,\n",
        ")\n",
        "\n"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "id": "63bce233-aa1d-4d15-91f9-6d20ca2825a3",
      "metadata": {
        "id": "63bce233-aa1d-4d15-91f9-6d20ca2825a3"
      },
      "outputs": [],
      "source": [
        "save(dm, suppdm, ds, vs,\n",
        "     file=\"Data_Need_forADSL.RData\")"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "id": "d3d2a05f-549f-49e5-949c-49417cda9694",
      "metadata": {
        "id": "d3d2a05f-549f-49e5-949c-49417cda9694"
      },
      "outputs": [],
      "source": []
    }
  ],
  "metadata": {
    "kernelspec": {
      "display_name": "R",
      "language": "R",
      "name": "ir"
    },
    "language_info": {
      "codemirror_mode": "r",
      "file_extension": ".r",
      "mimetype": "text/x-r-source",
      "name": "R",
      "pygments_lexer": "r",
      "version": "4.2.1"
    },
    "colab": {
      "provenance": [],
      "include_colab_link": true
    }
  },
  "nbformat": 4,
  "nbformat_minor": 5
}