Answer to question number 1:
gene1 = "ACGTACGT"
gene2 = "CGT"
concatenated_genes = paste(gene1, gene2, sep = "")
substring_gene1 = substr(gene1, 2, 5)
pattern_index = grepl(gene2, gene1)
concatenated_genes
[1] "ACGTACGTCGT"
substring_gene1
[1] "CGTA"
pattern_index
[1] TRUE
Answer to question number 2:
var1 = 10
var2 = 3
result_add = var1 + var2
result_subtract = var1 - var2
result_multiply = var1 * var2
result_divide = var1 / var2
result_power = var1 ^ var2
result_modulo = var1 %% var2
print(result_add)
[1] 13
print(result_subtract)
[1] 7
print(result_multiply)
[1] 30
print(result_divide)
[1] 3.333333
print(result_power)
[1] 1000
print(result_modulo)
[1] 1
LS0tDQp0aXRsZTogIkFzc2lnbm1lbnQgLSAxIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KDQojIyBBbnN3ZXIgdG8gcXVlc3Rpb24gbnVtYmVyIDE6IA0KYGBge3J9DQpnZW5lMSA9ICJBQ0dUQUNHVCINCmdlbmUyID0gIkNHVCINCg0KY29uY2F0ZW5hdGVkX2dlbmVzID0gcGFzdGUoZ2VuZTEsIGdlbmUyLCBzZXAgPSAiIikNCnN1YnN0cmluZ19nZW5lMSA9IHN1YnN0cihnZW5lMSwgMiwgNSkNCnBhdHRlcm5faW5kZXggPSBncmVwbChnZW5lMiwgZ2VuZTEpDQpgYGANCg0KDQoNCmBgYHtyfQ0KY29uY2F0ZW5hdGVkX2dlbmVzDQpzdWJzdHJpbmdfZ2VuZTENCnBhdHRlcm5faW5kZXgNCmBgYA0KDQoNCiMjIEFuc3dlciB0byBxdWVzdGlvbiBudW1iZXIgMjogDQpgYGB7cn0NCnZhcjEgPSAxMA0KdmFyMiA9IDMNCg0KcmVzdWx0X2FkZCA9IHZhcjEgKyB2YXIyDQpyZXN1bHRfc3VidHJhY3QgPSB2YXIxIC0gdmFyMg0KcmVzdWx0X211bHRpcGx5ID0gdmFyMSAqIHZhcjINCnJlc3VsdF9kaXZpZGUgPSB2YXIxIC8gdmFyMg0KcmVzdWx0X3Bvd2VyID0gdmFyMSBeIHZhcjINCnJlc3VsdF9tb2R1bG8gPSB2YXIxICUlIHZhcjINCmBgYA0KDQoNCg0KYGBge3J9DQpwcmludChyZXN1bHRfYWRkKQ0KcHJpbnQocmVzdWx0X3N1YnRyYWN0KQ0KcHJpbnQocmVzdWx0X211bHRpcGx5KQ0KcHJpbnQocmVzdWx0X2RpdmlkZSkNCnByaW50KHJlc3VsdF9wb3dlcikNCnByaW50KHJlc3VsdF9tb2R1bG8pDQpgYGANCg0K