Save dataset as tab-delimited text file

Benjamin Chan · Benjamin Chan · commit cb5a122deb1c · 2014-04-14T10:21:45.000-07:00
diff --git a/Project/DatasetHumanActivityRecognitionUsingSmartphones.txt b/Project/DatasetHumanActivityRecognitionUsingSmartphones.txt
diff --git a/Project/README.md b/Project/README.md
@@ -30,5 +30,7 @@ Parameters for the project
 Steps to reproduce this project
 -------------------------------
 
-1. Run R script `run_analysis.r`. It calls the R Markdown file, `run_analysis.Rmd`, which contains the bulk of the code.
-2. Copy the *Codebook* section from the resulting `run_analysis.md` file to a new file, `codebook.md`. This step is not automated.
+1. Open the R script `run_analysis.r` using a text editor.
+2. Change the parameter of the `setwd` function call to the working directory/folder (i.e., the folder where these the R script file is saved).
+3. Run the R script `run_analysis.r`. It calls the R Markdown file, `run_analysis.Rmd`, which contains the bulk of the code.
+4. Copy the *Codebook* section from the resulting `run_analysis.md` file to a new file, `codebook.md`. This step is not automated and must be manually done using a text editor.
diff --git a/Project/project.RData b/Project/project.RData
diff --git a/Project/run_analysis.Rmd b/Project/run_analysis.Rmd
@@ -264,16 +264,6 @@ dtTidy <- dt[, list(count = .N, average = mean(value)), by=key(dt)]
 ```
 
 
-Save to file
-------------
-
-Save data table objects to an RData file.
-
-```{r save}
-f <- file.path(path, "project.RData")
-save(dt, dtTidy, file=f)
-```
-
 --------------------------------------------------------------------------------
 
 Codebook
@@ -331,3 +321,13 @@ List all possible combinations of features
 ```{r}
 dtTidy[, .N, by=c(names(dtTidy)[grep("^feat", names(dtTidy))])]
 ```
+
+Save to file
+------------
+
+Save data table objects to an txt file called `DatasetHumanActivityRecognitionUsingSmartphones.txt`.
+
+```{r save}
+f <- file.path(path, "DatasetHumanActivityRecognitionUsingSmartphones.txt")
+write.table(dtTidy, f, quote=FALSE, sep="\t", row.names=FALSE)
+```
diff --git a/Project/run_analysis.html b/Project/run_analysis.html
@@ -191,7 +191,7 @@
 <body>
 <h1>run_analysis</h1>
 
-<p>Last updated 2014-04-12 11:27:46 using R version 3.0.2 (2013-09-25).</p>
+<p>Last updated 2014-04-14 10:18:19 using R version 3.0.2 (2013-09-25).</p>
 
 <h2>Instructions for project</h2>
 
@@ -239,7 +239,7 @@ <h2>Preliminaries</h2>
 path
 </code></pre>
 
-<pre><code>## [1] &quot;C:/Users/Ben/Documents/GitHub repositories/GettingAndCleaningData/Project&quot;
+<pre><code>## [1] &quot;C:/Users/chanb/Documents/Repositories/Coursera/GettingAndCleaningData/Project&quot;
 </code></pre>
 
 <h2>Get the data</h2>
@@ -299,7 +299,7 @@ <h2>Get the data</h2>
 ## [28] &quot;train/y_train.txt&quot;
 </code></pre>
 
-<p><strong>See the <code>README.txt</code> file in C:/Users/Ben/Documents/GitHub repositories/GettingAndCleaningData/Project for detailed information on the dataset.</strong></p>
+<p><strong>See the <code>README.txt</code> file in C:/Users/chanb/Documents/Repositories/Coursera/GettingAndCleaningData/Project for detailed information on the dataset.</strong></p>
 
 <p>For the purposes of this project, the files in the <code>Inertial Signals</code> folders are not used.</p>
 
@@ -481,19 +481,11 @@ <h2>Create a tidy data set</h2>
 dtTidy &lt;- dt[, list(count = .N, average = mean(value)), by = key(dt)]
 </code></pre>
 
-<h2>Save to file</h2>
-
-<p>Save data table objects to an RData file.</p>
-
-<pre><code class="r">f &lt;- file.path(path, &quot;project.RData&quot;)
-save(dt, dtTidy, file = f)
-</code></pre>
-
 <hr/>
 
 <h1>Codebook</h1>
 
-<p>Codebook was generated on 2014-04-12 11:28:24 during the same process that generated the dataset. See <code>run_analysis.md</code> or <code>run_analysis.html</code> for details on dataset creation.</p>
+<p>Codebook was generated on 2014-04-14 10:18:52 during the same process that generated the dataset. See <code>run_analysis.md</code> or <code>run_analysis.html</code> for details on dataset creation.</p>
 
 <h2>Variable list and descriptions</h2>
 
@@ -782,6 +774,14 @@ <h2>List all possible combinations of features</h2>
 ##     featVariable featAxis   N
 </code></pre>
 
+<h2>Save to file</h2>
+
+<p>Save data table objects to an txt file called <code>DatasetHumanActivityRecognitionUsingSmartphones.txt</code>.</p>
+
+<pre><code class="r">f &lt;- file.path(path, &quot;DatasetHumanActivityRecognitionUsingSmartphones.txt&quot;)
+write.table(dtTidy, f, quote = FALSE, sep = &quot;\t&quot;, row.names = FALSE)
+</code></pre>
+
 </body>
 
 </html>
diff --git a/Project/run_analysis.md b/Project/run_analysis.md
@@ -1,6 +1,6 @@
 run_analysis
 ============
-Last updated 2014-04-12 11:27:46 using R version 3.0.2 (2013-09-25).
+Last updated 2014-04-14 10:18:19 using R version 3.0.2 (2013-09-25).
 
 
 Instructions for project
@@ -55,7 +55,7 @@ path
 ```
 
 ```
-## [1] "C:/Users/Ben/Documents/GitHub repositories/GettingAndCleaningData/Project"
+## [1] "C:/Users/chanb/Documents/Repositories/Coursera/GettingAndCleaningData/Project"
 ```
 
 
@@ -128,7 +128,7 @@ list.files(pathIn, recursive = TRUE)
 ```
 
 
-**See the `README.txt` file in C:/Users/Ben/Documents/GitHub repositories/GettingAndCleaningData/Project for detailed information on the dataset.**
+**See the `README.txt` file in C:/Users/chanb/Documents/Repositories/Coursera/GettingAndCleaningData/Project for detailed information on the dataset.**
 
 For the purposes of this project, the files in the `Inertial Signals` folders are not used.
 
@@ -385,23 +385,11 @@ dtTidy <- dt[, list(count = .N, average = mean(value)), by = key(dt)]
 
 
 
-Save to file
-------------
-
-Save data table objects to an RData file.
-
-
-```r
-f <- file.path(path, "project.RData")
-save(dt, dtTidy, file = f)
-```
-
-
 --------------------------------------------------------------------------------
 
 Codebook
 ========
-Codebook was generated on 2014-04-12 11:28:24 during the same process that generated the dataset. See `run_analysis.md` or `run_analysis.html` for details on dataset creation.
+Codebook was generated on 2014-04-14 10:18:52 during the same process that generated the dataset. See `run_analysis.md` or `run_analysis.html` for details on dataset creation.
 
 Variable list and descriptions
 ------------------------------
@@ -677,3 +665,15 @@ dtTidy[, .N, by = c(names(dtTidy)[grep("^feat", names(dtTidy))])]
 ##     featVariable featAxis   N
 ```
 
+
+Save to file
+------------
+
+Save data table objects to an txt file called `DatasetHumanActivityRecognitionUsingSmartphones.txt`.
+
+
+```r
+f <- file.path(path, "DatasetHumanActivityRecognitionUsingSmartphones.txt")
+write.table(dtTidy, f, quote = FALSE, sep = "\t", row.names = FALSE)
+```
+
diff --git a/Project/run_analysis.r b/Project/run_analysis.r
@@ -1,4 +1,5 @@
 require(knitr)
 require(markdown)
+setwd("~/Repositories/Coursera/GettingAndCleaningData/Project")
 knit("run_analysis.Rmd", encoding="ISO8859-1")
 markdownToHTML("run_analysis.md", "run_analysis.html")
