library(readr)
library(dplyr) setwd(“D:/Statik/”)
df= read_csv(“student.csv”)

apply(is.na(df),2, which)

head(df,3)

Cat1 <- table(df$Gender) Cat1

prop.table(table(df$Gender)) Cat2<- df %>% select(Gender, Horoscope) %>%

Cat3 <- df %>%
select(Gender, Horoscope, Subject) %>%
ftable()