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==