Car Data Analysis

We are working with a car dataset

Car data load

print(cars)

Car 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  
plot(cars)

Arithmetic operations

x = 10
y = 5

print(x+y)
[1] 15
print(x-y)
[1] 5
print(x*y)
[1] 50
print(x/y)
[1] 2
print(x^y)
[1] 1e+05
print(2^3)
[1] 8
print(x %% y)
[1] 0
print(10 %% 3)
[1] 1
print( ((x+y)*5) - 20 )
[1] 55

String

Concatenation (Combine)

seq1 = "This is a text"
seq2 = " this will be added after"
merge_seq = paste(seq1, seq2, sep="")
print(merge_seq)
[1] "This is a text this will be added after"

Substring

gene_seq = "AGGGAGTTCTTCCAGCTA"
gene_segmenet = substr(gene_seq, 4, 90)
print(gene_segmenet)
[1] "GAGTTCTTCCAGCTA"

Length

gene_seq = "AGGGAGTTCTTCCAGCTA"
length_seq = nchar(gene_seq)
print(length_seq)
[1] 18
gene_seq1 = "AGGGAGTTCTTCCAGC"
gene_seq2 = "AGGGAGTTCTTCCAGCTAqs"
gene_seq3 = "AGGGAGTTCTTCCAGCTAasdasd"

# loop
LS0tCnRpdGxlOiAiQ2xhc3MgMSIKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQKICBwZGZfZG9jdW1lbnQ6IGRlZmF1bHQKLS0tCgoKIyBDYXIgRGF0YSBBbmFseXNpcwoKV2UgYXJlIHdvcmtpbmcgd2l0aCBhIGNhciBkYXRhc2V0CgojIyBDYXIgZGF0YSBsb2FkCgpgYGB7cn0KY2FyX2RhdGEgPSBjYXJzCnByaW50KGNhcnMpCmBgYAojIyBDYXIgc3RhdGlzdGljcwoKYGBge3J9CnN1bW1hcnkoY2FyX2RhdGEpCmBgYAoKCmBgYHtyfQpwbG90KGNhcnMpCmBgYAoKCiMgQXJpdGhtZXRpYyBvcGVyYXRpb25zCgpgYGB7cn0KeCA9IDEwCnkgPSA1CgpwcmludCh4K3kpCnByaW50KHgteSkKcHJpbnQoeCp5KQpwcmludCh4L3kpCnByaW50KHheeSkKcHJpbnQoMl4zKQpwcmludCh4ICUlIHkpCnByaW50KDEwICUlIDMpCnByaW50KCAoKHgreSkqNSkgLSAyMCApCmBgYAoKCgojIFN0cmluZwoKIyMgQ29uY2F0ZW5hdGlvbiAoQ29tYmluZSkKCmBgYHtyfQpzZXExID0gIkFUR0MiCnNlcTIgPSAiR1RBQ0dUQSIKbWVyZ2Vfc2VxID0gcGFzdGUoc2VxMSwgc2VxMiwgc2VwPSIiKQpwcmludChtZXJnZV9zZXEpCmBgYAoKIyMgU3Vic3RyaW5nCmBgYHtyfQpnZW5lX3NlcSA9ICJBR0dHQUdUVENUVENDQUdDVEEiCmdlbmVfc2VnbWVuZXQgPSBzdWJzdHIoZ2VuZV9zZXEsIDQsIDkwKQpwcmludChnZW5lX3NlZ21lbmV0KQpgYGAKCgojIyBMZW5ndGgKYGBge3J9CmdlbmVfc2VxID0gIkFHR0dBR1RUQ1RUQ0NBR0NUQSIKbGVuZ3RoX3NlcSA9IG5jaGFyKGdlbmVfc2VxKQpwcmludChsZW5ndGhfc2VxKQpgYGAKCgpgYGB7cn0KZ2VuZV9zZXExID0gIkFHR0dBR1RUQ1RUQ0NBR0MiCmdlbmVfc2VxMiA9ICJBR0dHQUdUVENUVENDQUdDVEFxcyIKZ2VuZV9zZXEzID0gIkFHR0dBR1RUQ1RUQ0NBR0NUQWFzZGFzZCIKCiMgbG9vcApgYGAKCg==