Untitled

we <- c(40,45,50,55)

we2 <- c(150,160,165,170)

mean(we)

## [1] 47.5

median(we)

## [1] 47.5

min(we)

## [1] 40

max(we)

## [1] 55

as.numeric(names(table(we)))[which.max(table(we))] 

## [1] 40

sd(we)

## [1] 6.454972

var(we)

## [1] 41.66667

plot(we,we2,
     pch = 16,
     col = "navyblue",
     main = "Height and weight distribution in class",
     xlab = "weight",
     ylab = "height")

hist(we,
      col = "turquoise",
     main = "Height and weight distribution in class",
     xlab = "weight",
     ylab = "frequency")

data <- c(50,23,35,48)
labels <- c("English department","German department","French department","translation department")

pie(data,labels,main = "students scale", col=heat.colors(length(data)))