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


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


v1 <- c(3,8,4,5,0,11)
v2 <- c(4,11,0,8,1,2)

print (v1[1])

gender <- factor(c("MALE", "FEMALE", "MALE"))
gender

symptoms <- factor(c("SEVERE", "MILD", "MODERATE"),
                levels = c("MILD", "MODERATE", "SEVERE"),
                ordered = TRUE)
symptoms