HW

# install required packages
install.packages("boot")
install.packages("dplyr")
# Load required packages
library(boot)
library(dplyr)
# Imoprt data from "act.txt"
ACT <- read.table('act.txt',header = TRUE,sep = ' ',stringsAsFactors = FALSE)
# print top Six records
head(ACT)
# filtering data as "class1" & "class2"
ACT_class1 <- ACT %>%...