aa<-5+3
aa
# [1] 8

vec<-c(2,6,7,8,9,7)
vec[4]

getwd()

?boxplot

install.packages("readxl")
library(readxl)

people<-read_excel("people.xlsx")
people<-read.delim2("clipboard")

people<-as.data.frame(people)

summary(people)

class(people)

quantile(people$height)

males<-people[people$sex=="M", ]

aggregate(people$height, list(people$sex), median)