R
PROGRAM 1 csv_data <- read.csv("Y:\\program.csv") print(csv_data) summary(csv_data) csv_data$rowSums <- rowSums (csv_data [, c ("mark1", "mark2", "mark3")], na.rm = TRUE) print (csv_data [, c ("NAME", "subject", "rowSums")]) csv_data$rowMeans <- rowMeans (csv_data [, c ("mark1","mark2", "mark3")], na.rm = TRUE) print (csv_data [, c ("NAME", "subject", "rowMeans")]) csv_data$maxMarks <- apply (csv_data [, c ("mark1", "mark2", "mark3")], 1, max, na.rm = TRUE) print (csv_data [, c ("NAME", "subject", "maxMarks")]) csv_data$minMarks <- apply (csv_data [, c ("mark1", "mark2", "mark3")], 1, min, na.rm = TRUE) print (csv_data [, c ("NAME", "subject”, "minMarks")]) csv_data$meanMarks <- rowMeans (csv_data [, c...