a <- "My name is John"
a <- "myname@comp.com"
b <- strsplit (a, "@")
print(b)


a <- "myname"
b <- "comp.com"
paste(a,b,sep="@")

print(seq(5, 9, by = 0.4))

gender <- factor(c("male","female","male"))

print(gender)

blood <- factor(c("O","A","B"),levels = c("A" , "B" ," AB" , "O"))

print(blood[1:2])
subject_name <- c("John Doe" , "Mark Rob")
Temperature <- c(88.1 , 98.1)

Flu_status <- c(True,False)

list_data <- list(subject_name[1] , Temperature[2] , Flu_status[2] , gender[1] , blood[1])

print(list_data)

subject1 <- list(fullname = )