# BASIC STATS
a <- read.csv("C:\\Users\\Admin\\Desktop\\SARLAKG\\mba.csv")

dim(a)

## [1] 773   3

colnames(cars)

## [1] "speed" "dist"

head(a,10)

##    data.srno workex gmat
## 1          1     21  720
## 2          2    107  640
## 3          3     57  740
## 4          4     99  690
## 5          5    208  710
## 6          6    136  660
## 7          7     70  660
## 8          8    103  710
## 9          9     79  700
## 10        10     22  730

tail(cars,2)

##    speed dist
## 49    24  120
## 50    25   85

attach(a)
attach(cars)

mean(gmat)

## [1] 711.1643

median(gmat)

## [1] 710

min(gmat)

## [1] 600

max(gmat)

## [1] 780

var(gmat)

## [1] 860.8188

sd(gmat)

## [1] 29.33971

summary(a)

##    data.srno       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

library(moments)
windows()

barplot(gmat)

hist(workex)

skewness(workex)

## [1] 2.603472

kurtosis(gmat)

## [1] 4.151876

getwd()

## [1] "C:/Users/Admin/Downloads"

setwd("C:\\Users\\Admin\\Desktop\\SARLAKG")