---
title: "Banks"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: sandsto
    storyboard: TRUE
    social : menu
    source_code: embed
---

```{r setup, include=FALSE}
libraries=c("flexdashboard","DT","lattice","MASS")
lapply(libraries,require,character.only=TRUE)
```

Home{.tabset}
===============

### Chart A

```{r}
a=read.csv(file.choose(),header = TRUE)
str(a)
attach(a)
```


 Data Analysis{.tabset}
==============

### chart B-(i) {data-width=150}
```{r}
histogram(Deposits_in_India)
```


### Chart B-(ii){data-width=150}

```{r}
histogram(a$Loans.and.advances..including.bills.purchased...discounted.)

```

# BoxPlot {.tabset}

### Boxplot
---------------------------------------------------------------------------

```{r}
boxplot(Deposits_in_India~Investments,col="cyan",main="bank Data in BoxPlot",xlim=c(0,15),las=1)
```

### Boxplot 2
---------------------------------------------------------------------------

```{r}
boxplot(Investments~Loans.and.advances..including.bills.purchased...discounted., col="wheat",main="plot 2",xlim=c(0,15),las=1)
```

# Download {.tabset}


### Chart C

```{r}
value=sum(a$No..of.banks)
valueBox("count(No. of banks)",value)
```

### chart D
```{r}
datatable(a,extensions='Buttons',options=list(dom="Bfrtip",buttons=c('copy','print','pdf','csv')))
```