This is an App Pitch presentation.The link to my app could be seen from herehttp://rmarkdown.rstudio.com. The main purpose of this App is to leverage the dataset trees and do the linear regression with the picked-out data in the graph.

In the left side, you could see the efficients of the linear regression and also the relative p value to test the statistics significance of the regression.

dta <- sample_n(trees,sample(1:nrow(trees),1))
fit <- lm(log(Volume) ~ log(Girth),trees)
pvalue <- glance(fit)$p.value
head(dta)

   Girth Height Volume
22  14.2     80   31.7
31  20.6     87   77.0
14  11.7     69   21.3
21  14.0     78   34.5
19  13.7     71   25.7
9   11.1     80   22.6

plot(trees$Girth, trees$Volume, xlab = "Girth",
         ylab = "Volume", main = "Tree Measurements",
         cex = 1.5, pch = 16, bty = "n")
abline(fit, col = sample(1:300,1), lwd = 2)