describe

```{r, echo=FALSE}

knitr::include_app()

shinyApp(

library(ggplot2) library(rmarkdown)

df <- read.csv(‘tb6.csv’) x=df[ ,1] y=df[ ,3] #plot(x,y,pch=17,col=‘green’,ylim=c(20,40),xlim=c(4,60)) plot(df[ ,c(3,6)],ylim=c(20,30),xlim=c(10,50),pch=19,col=‘red’,cex=2))

```