#variable type

num_var = 10
num_var2 = 20.5

#char variable -> letter,sentence 
char_var= "This is a char variable"
char_var2= "এটা একটা char variable"
char_var3= "character variable should be in quotation"
char_var4= "For qutation out from character use print.noquote"
#logical variable 
logic1 = TRUE
logic2 = FALSE

#vector
num_vec = c( 1,5,10,50,65 )
fish_vec = c("Hilsha","Rohu","Tilapia")
apple= 100
kkk=980
print(char_var2)
## [1] "এটা একটা char variable"
print.noquote(char_var2)
## [1] এটা একটা char variable
kkk
## [1] 980
apple
## [1] 100
num_vec
## [1]  1  5 10 50 65
all_type_Vec = c("char",19,10,57,FALSE,"jkjska")
all_type_Vec
## [1] "char"   "19"     "10"     "57"     "FALSE"  "jkjska"
all_type_Vec=100

#Arithmetic Operation

a = 10
b = 5

# Add
add = a+b

# Minus 
sub = a-b

# Division
div = a/b

# Multiplication
mult =a*b

# power
p = a^2

# modulo
m = a %% b
m2 = a %% 3
cat(add, sub, div, mult, p, m, m2)
## 15 5 2 50 100 0 1

##combined calculation

c=(10+(5-2)*20+(20-10))*10
c
## [1] 800

#string

?paste
## starting httpd help server ... done

#concatenation or merge

var1 = "This is a variable."
var2 = "I am another variable."

 combined = paste(var1,var2,sep =" ")
 combined
## [1] "This is a variable. I am another variable."
var1= "GTAC"
var2= "ATGCA"
paste(var1,var2,sep = "")
## [1] "GTACATGCA"

##segment

var= "GTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCA"

x1= substr(var,start=12, stop=16)
x2=substr(var,start=10, stop=20)
x3=substr(var,start=12, stop=25)

x= c(x1,x2,x3)

##length

nchar(var)
## [1] 63
nchar(x)
## [1]  5 11 14

##pattern Exists(?)

gene_seq= "GTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCA"
pattern1= "ATGCCCCCCA"
pattern2="TGCAG"

grepl(pattern1,gene_seq)
## [1] FALSE
grepl(pattern2,gene_seq)
## [1] TRUE

##pattern matching

gene_seq= "GTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCAGTACATGCA"
pattern1= "ATGCCCCCCA"
pattern2="TGCAG"

matches= gregexpr(pattern2,gene_seq)
matches=unlist(matches)
matches
## [1]  6 15 24 33 42 51
matches= gregexpr(pattern1,gene_seq)
matches=unlist(matches)
matches
## [1] -1

##split

gene_seq= "GTACATG,CAGTACATGC,AGTACAT,GCAGTACAT,GCAGTAC,ATGCAGT,ACATGCA,GTACA,TGCA"
gene_vec= strsplit(gene_seq,split = ",")
gene_vec
## [[1]]
## [1] "GTACATG"    "CAGTACATGC" "AGTACAT"    "GCAGTACAT"  "GCAGTAC"   
## [6] "ATGCAGT"    "ACATGCA"    "GTACA"      "TGCA"
gene_seq= "GTACATG CAGTACATGC AGTACAT GCAGTACAT GCAGTAC ATGCAGT ACATGCA GTACA TGCA"
gene_vec= strsplit(gene_seq,split = " ")
gene_vec
## [[1]]
## [1] "GTACATG"    "CAGTACATGC" "AGTACAT"    "GCAGTACAT"  "GCAGTAC"   
## [6] "ATGCAGT"    "ACATGCA"    "GTACA"      "TGCA"

##Reverse

library(stringi)
gene_seq = "GTACATGCAGTACATG"

rev_gene_seq= stri_reverse(gene_seq)
rev_gene_seq
## [1] "GTACATGACGTACATG"

#Vector

ages <- c(25, 45, 24, 67, 50, 40)
score = c(100, 70, 90, 50, 55, 79)

##index

ages[4]
## [1] 67
score[1]
## [1] 100
ages[-4]
## [1] 25 45 24 50 40
ages = ages[-4]
ages
## [1] 25 45 24 50 40