Bussines Analytics 2

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(openxlsx)

my_data <- read.xlsx("~/Desktop/Tarea. Business an.xlsx")

hist(my_data$Descriptive.Statistics.Lab)

mean(my_data$Descriptive.Statistics.Lab)

## [1] 30.7

sd(my_data$Descriptive.Statistics.Lab)

## [1] 9.102342

var(my_data$Descriptive.Statistics.Lab)

## [1] 82.85263

# there is not a mode function
print(22)

## [1] 22

median(my_data$Descriptive.Statistics.Lab)

## [1] 30

quantile(my_data$Descriptive.Statistics.Lab)

##    0%   25%   50%   75%  100% 
## 21.00 22.75 30.00 34.25 50.00

quantile(my_data$Descriptive.Statistics.Lab, .12)

## 12% 
##  22