Skip to content

Instantly share code, notes, and snippets.

#!/bin/bash
WORKSPACE="/home/csie/shell/"
while [ 1 ]
do
read -p "Enter a element: " element
read -p "Enter quantity: " quantity
mkdir $element
cd $element
i=1
while [ $i -le $quantity ]
dt<- read_csv("C:/Users/tonebeta/Desktop/O68_Gastrointestinal_bleeding.csv")
dt$PATIENTID <- NULL
vars = names(dt)
vars = setdiff(vars, c("GROUPNAME","DURATION","STATUS"))
dt[vars] <- lapply(dt[vars],factor)
Cox_model = coxph(Surv(dt$DURATION,dt$STATUS) ~ . ,data=dt)
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="X-UA-Compatible" content="ie=edge">
<title>Document</title>
<style>
.label {