# Basic Stats
1+1

## [1] 2

2-5

## [1] -3

3*6

## [1] 18

4/2

## [1] 2

a=2
b=3
c=a*b

x <- read.csv("E:\\New Volume\\Downloads\\Datasets_BA 2\\mba.csv")


attach(x)

head(x,3)

##   datasrno workex gmat
## 1        1     21  720
## 2        2    107  640
## 3        3     57  740

tail(x,3)

##     datasrno workex gmat
## 771      771     28  610
## 772      772     10  610
## 773      773     52  620

summary(x)

##     datasrno       workex           gmat      
##  Min.   :  1   Min.   :  9.0   Min.   :600.0  
##  1st Qu.:194   1st Qu.: 41.0   1st Qu.:690.0  
##  Median :387   Median : 52.0   Median :710.0  
##  Mean   :387   Mean   : 57.5   Mean   :711.2  
##  3rd Qu.:580   3rd Qu.: 69.0   3rd Qu.:730.0  
##  Max.   :773   Max.   :279.0   Max.   :780.0

mean(gmat)

## [1] 711.1643

median(gmat)

## [1] 710