exam_score1 = data.frame(
ID = c(1, 2, 3, 4, 5),
Names = c("Alice","Bob","Devi", "John", "Bibi"),
Age = c(20, 25, 30, 22, 23),
Score = c(10, 20, 30, 40, 50)
)
print(exam_score1)
#vector[location]
#data[row, colm]
exam_score1[2:4, ]
exam_score1[ ,3:4]
exam_score1[2:4,3:4]
#if we want to select specific row or column
#by forming dataset

exam_score1$Names
[1] "Alice" "Bob"   "Devi"  "John"  "Bibi" 
exam_score1$Age
[1] 20 25 30 22 23
selected_segment = data.frame(
  name = exam_score1$Names,
  age = exam_score1$Age
)
print(selected_segment)
#another way if we want to select specific row or column
#vector can be used
exam_score1[c(2, 3, 4), c(3, 4)]
#condition selection in dataset
exam_score1[exam_score1$Score >30, ]
#condition selection in dataset
exam_score1[exam_score1$Score > 30 & exam_score1$Score < 50, ]
selected_id = c(1, 3, 4)
exam_score1[exam_score1$ID %in% selected_id, ]
#to add new row
new_row = c(10, 20, 30, 40)
exam_score2= rbind(exam_score1, new_row)
exam_score2
#add new column
Location = c("cc", "dd", "ee", "ff", "gg", "jj")
exam_score2 = cbind(exam_score2, Location)
exam_score2
LS0tDQp0aXRsZTogIkRhdGFzZXQiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KYGBge3J9DQoNCmV4YW1fc2NvcmUxID0gZGF0YS5mcmFtZSgNCklEID0gYygxLCAyLCAzLCA0LCA1KSwNCk5hbWVzID0gYygiQWxpY2UiLCJCb2IiLCJEZXZpIiwgIkpvaG4iLCAiQmliaSIpLA0KQWdlID0gYygyMCwgMjUsIDMwLCAyMiwgMjMpLA0KU2NvcmUgPSBjKDEwLCAyMCwgMzAsIDQwLCA1MCkNCikNCnByaW50KGV4YW1fc2NvcmUxKQ0KYGBgDQpgYGB7cn0NCiN2ZWN0b3JbbG9jYXRpb25dDQojZGF0YVtyb3csIGNvbG1dDQpleGFtX3Njb3JlMVsyOjQsIF0NCmBgYA0KDQoNCmBgYHtyfQ0KZXhhbV9zY29yZTFbICwzOjRdDQpgYGANCg0KYGBge3J9DQpleGFtX3Njb3JlMVsyOjQsMzo0XQ0KYGBgDQpgYGB7cn0NCiNpZiB3ZSB3YW50IHRvIHNlbGVjdCBzcGVjaWZpYyByb3cgb3IgY29sdW1uDQojYnkgZm9ybWluZyBkYXRhc2V0DQoNCmV4YW1fc2NvcmUxJE5hbWVzDQpleGFtX3Njb3JlMSRBZ2UNCg0Kc2VsZWN0ZWRfc2VnbWVudCA9IGRhdGEuZnJhbWUoDQogIG5hbWUgPSBleGFtX3Njb3JlMSROYW1lcywNCiAgYWdlID0gZXhhbV9zY29yZTEkQWdlDQopDQpwcmludChzZWxlY3RlZF9zZWdtZW50KQ0KYGBgDQpgYGB7cn0NCiNhbm90aGVyIHdheSBpZiB3ZSB3YW50IHRvIHNlbGVjdCBzcGVjaWZpYyByb3cgb3IgY29sdW1uDQojdmVjdG9yIGNhbiBiZSB1c2VkDQpleGFtX3Njb3JlMVtjKDIsIDMsIDQpLCBjKDMsIDQpXQ0KYGBgDQpgYGB7cn0NCiNjb25kaXRpb24gc2VsZWN0aW9uIGluIGRhdGFzZXQNCmV4YW1fc2NvcmUxW2V4YW1fc2NvcmUxJFNjb3JlID4zMCwgXQ0KYGBgDQpgYGB7cn0NCiNjb25kaXRpb24gc2VsZWN0aW9uIGluIGRhdGFzZXQNCmV4YW1fc2NvcmUxW2V4YW1fc2NvcmUxJFNjb3JlID4gMzAgJiBleGFtX3Njb3JlMSRTY29yZSA8IDUwLCBdDQpgYGANCmBgYHtyfQ0Kc2VsZWN0ZWRfaWQgPSBjKDEsIDMsIDQpDQpleGFtX3Njb3JlMVtleGFtX3Njb3JlMSRJRCAlaW4lIHNlbGVjdGVkX2lkLCBdDQpgYGANCmBgYHtyfQ0KI3RvIGFkZCBuZXcgcm93DQpuZXdfcm93ID0gYygxMCwgMjAsIDMwLCA0MCkNCmV4YW1fc2NvcmUyPSByYmluZChleGFtX3Njb3JlMSwgbmV3X3JvdykNCmV4YW1fc2NvcmUyDQpgYGANCmBgYHtyfQ0KI2FkZCBuZXcgY29sdW1uDQpMb2NhdGlvbiA9IGMoImNjIiwgImRkIiwgImVlIiwgImZmIiwgImdnIiwgImpqIikNCmV4YW1fc2NvcmUyID0gY2JpbmQoZXhhbV9zY29yZTIsIExvY2F0aW9uKQ0KZXhhbV9zY29yZTINCmBgYA0KDQo=