diff --git a/FinalProject/.Rbuildignore b/FinalProject/.Rbuildignore
new file mode 100644
index 0000000000000000000000000000000000000000..91114bf2f2bba5e0c5252e75018da19b869776f1
--- /dev/null
+++ b/FinalProject/.Rbuildignore
@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$
diff --git a/FinalProject/DESCRIPTION b/FinalProject/DESCRIPTION
new file mode 100644
index 0000000000000000000000000000000000000000..ce9425b48c16c399cda622466046489bb9fef079
--- /dev/null
+++ b/FinalProject/DESCRIPTION
@@ -0,0 +1,10 @@
+Package: FinalProject
+Type: Package
+Title: What the Package Does (Title Case)
+Version: 0.1
+Date: 2015-11-24
+Author: Who wrote it
+Maintainer: Who to complain to <yourfault@somewhere.net>
+Description: More about what it does (maybe more than one line)
+License: What license is it under?
+LazyData: TRUE
\ No newline at end of file
diff --git a/FinalProject/FinalProject.Rproj b/FinalProject/FinalProject.Rproj
new file mode 100644
index 0000000000000000000000000000000000000000..497f8bfcfb9d13ad61d14d79963641e9aeab41b0
--- /dev/null
+++ b/FinalProject/FinalProject.Rproj
@@ -0,0 +1,20 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
diff --git a/FinalProject/NAMESPACE b/FinalProject/NAMESPACE
new file mode 100644
index 0000000000000000000000000000000000000000..d75f824ec6278db24891505b14ab3d915514dba7
--- /dev/null
+++ b/FinalProject/NAMESPACE
@@ -0,0 +1 @@
+exportPattern("^[[:alpha:]]+")
diff --git a/FinalProject/report.Rmd b/FinalProject/report.Rmd
new file mode 100644
index 0000000000000000000000000000000000000000..41cbcd3d09db3b2c48b54c61e2bb31b3ba1b34b7
--- /dev/null
+++ b/FinalProject/report.Rmd
@@ -0,0 +1,24 @@
+----
+title: "Linear Regression Report - Generated in the Shiny App, authored by Bruna Wundervald."
+-----
+
+*Here is my regression model:
+```{r, echo=TRUE}
+m1 <- fc()$m
+summary(m1)
+```
+
+*Here is the ANOVA generated by this model:*
+```{r, echo=TRUE}
+anova(m1)
+```
+
+
+*And here are the plots to check for departures from homocedasticity and normality of the model.*
+```{r, echo=TRUE}
+par(mfrow=c(2,2)); plot(m1); layout(1)
+```
+
+
+
+_______________________________________