Module #3

Module3.R




AirportData <- read.csv("C:/Users/Justin/Documents/AdvStat/AirportData.csv")

cor(AirportData)



##                                ï..Case
pre.boarding.screeners

## ï..Case                      1.0000000              0.3217697

## pre.boarding.screeners       0.3217697              1.0000000

## security.violations.detected 0.1796350              0.8375321

##                             
security.violations.detected

## ï..Case                                        
0.1796350

## pre.boarding.screeners                          0.8375321

## security.violations.detected                    1.0000000



cor(AirportData, method = "spearman")



##                                Ã¯..Case pre.boarding.screeners

## ï..Case                      1.0000000              0.4144698

## pre.boarding.screeners       0.4144698              1.0000000

## security.violations.detected 0.1527465              0.7575423

##                              security.violations.detected

## ï..Case                                        
0.1527465

## pre.boarding.screeners                          0.7575423

## security.violations.detected                    1.0000000



plot(AirportData$pre.boarding.screeners, AirportData$security.violations.detected)