corre

###impoting the data set

library(readr)
drought <- read_csv("~/yield/drought.csv")

## Parsed with column specification:
## cols(
##   rep = col_double(),
##   blk = col_double(),
##   plot = col_double(),
##   entry = col_double(),
##   pedigree = col_character(),
##   year = col_double(),
##   gyd = col_double(),
##   ad = col_double(),
##   asi = col_double(),
##   ph = col_double(),
##   eh = col_double(),
##   epp = col_double(),
##   np = col_double(),
##   canopeo1 = col_double(),
##   canopeo2 = col_double(),
##   canopeo3 = col_double(),
##   sen1 = col_double(),
##   sen2 = col_double()
## )

View(drought)
attach(drought)
names(drought)

##  [1] "rep"      "blk"      "plot"     "entry"    "pedigree" "year"    
##  [7] "gyd"      "ad"       "asi"      "ph"       "eh"       "epp"     
## [13] "np"       "canopeo1" "canopeo2" "canopeo3" "sen1"     "sen2"

``{r} ##loading the required packages library(lme4) library(lmerTest) library(ggplot2) library(psych) library(agricolae) require(MASS) library(Hmisc) library(lubridate) # for working with dates library(scales) # to access breaks/formatting functions library(gridExtra) # for arranging plots library(ggthemes)

```

co<-data.frame(gyd,ad,asi,ph,eh,epp,sen1,sen2) 
library(PerformanceAnalytics)

## Loading required package: xts

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## 
## Attaching package: 'PerformanceAnalytics'

## The following object is masked from 'package:graphics':
## 
##     legend

chart.Correlation(co)

library(psych)
pairs.panels(co)