R Notebook

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

plot(cars)

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.

summary(cars)

     speed           dist       
 Min.   : 4.0   Min.   :  2.00  
 1st Qu.:12.0   1st Qu.: 26.00  
 Median :15.0   Median : 36.00  
 Mean   :15.4   Mean   : 42.98  
 3rd Qu.:19.0   3rd Qu.: 56.00  
 Max.   :25.0   Max.   :120.00  

Section

Subsection

Subsubsection

Car data analysis

car_data=cars
print(car_data)

Car data statistics

summary(car_data)

     speed           dist       
 Min.   : 4.0   Min.   :  2.00  
 1st Qu.:12.0   1st Qu.: 26.00  
 Median :15.0   Median : 36.00  
 Mean   :15.4   Mean   : 42.98  
 3rd Qu.:19.0   3rd Qu.: 56.00  
 Max.   :25.0   Max.   :120.00  

print(car_data)

arithmetic operations

print(x+y)

[1] 11

print(x%%y)

[1] 1

print(x+y/y)

[1] 2

String

Concatenation (Combine two or more strings)

s1= DNA1
s2= DNA2
s3= "TTGCC"
s4="ATGC"

merge_sequence= paste(s1, s2, s3, s4, sep="")
print(merge_sequence)

[1] "AGTTCTTTTTTTTTGCCATGC"

Substring (to extract a portion from a long string)

print(merge_sequence)

[1] "AGTTCTTTTTTTTTGCCATGC"

gene_segment= substr(merge_sequence, 2, 9)
print(gene_segment)

[1] "GTTCTTTT"

Length of a string

print(merge_sequence)

[1] "AGTTCTTTTTTTTTGCCATGC"

length_sequence= nchar(merge_sequence)
print(length_sequence)

[1] 21

length_seq= length(merge_sequence)
print(length_seq)

[1] 1