From 9be66a6f41cc3770c435f98c46077e408df8443a Mon Sep 17 00:00:00 2001
From: fhui28 <fhui28@gmail.com>
Date: Tue, 3 Sep 2013 15:57:46 +1000
Subject: [PATCH] NSW data script altered to comma delimited files to fix #5
---
merge.data.NSW.R | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/merge.data.NSW.R b/merge.data.NSW.R
index 4dc6dc0..76b8009 100644
--- a/merge.data.NSW.R
+++ b/merge.data.NSW.R
@@ -5,17 +5,16 @@ library(reshape)
######################### READ DATA read individuals tree data
data.nswbrc <- read.csv("./data/raw/DataNSW/NSW_data_BRcontrols.csv", header = TRUE,
- stringsAsFactors = FALSE, sep = "\t")
+ stringsAsFactors = FALSE)
data.nswbrc$Date.of.measure <- as.vector(sapply(data.nswbrc$Date.of.measure, function(x) {
unlist(strsplit(x, "/"))[3]
})) ## Extract the years only
data.nswbrt <- read.csv("./data/raw/DataNSW/NSW_data_BRtreatments.csv", header = TRUE,
- stringsAsFactors = FALSE, sep = "\t")
+ stringsAsFactors = FALSE)
data.nswbrt$Date.of.measure <- as.vector(sapply(data.nswbrt$Date.of.measure, function(x) {
unlist(strsplit(x, "/"))[3]
})) ## Extract the years only
-data.nswbs1 <- read.csv("./data/raw/DataNSW/NSW_data_BS1.csv", header = TRUE, stringsAsFactors = FALSE,
- sep = "\t")
+data.nswbs1 <- read.csv("./data/raw/DataNSW/NSW_data_BS1.csv", header = TRUE, stringsAsFactors = FALSE)
data.nswbs1$Date.of.measure <- as.character(format(as.Date(data.nswbs1$Date.of.measure,
format = "%d-%b-%y"), format = "%d/%b/%Y"))
data.nswbs1$Date.of.measure <- as.vector(sapply(data.nswbs1$Date.of.measure, function(x) {
@@ -24,8 +23,7 @@ data.nswbs1$Date.of.measure <- as.vector(sapply(data.nswbs1$Date.of.measure, fun
## data.nswbs2 has a different format to the other datasets, so format to match
## the above
-data.nswbs2 <- read.csv("./data/raw/DataNSW/NSW_data_BS2.csv", header = TRUE, stringsAsFactors = FALSE,
- sep = "\t")
+data.nswbs2 <- read.csv("./data/raw/DataNSW/NSW_data_BS2.csv", header = TRUE, stringsAsFactors = FALSE)
data.nswbs2$Plot <- apply(data.nswbs2[, 1:2], 1, paste, collapse = "")
data.nswbs2$Subplot <- NULL
@@ -40,8 +38,7 @@ data.nswbs22[["DBH.cm..1988."]] <- data.nswbs22[["DBH.cm..2000."]] <- NULL
data.nswbs2 <- data.nswbs22[, c(1:5, 8:9, 7, 6)]
rm(data.nswbs22)
-data.nswtnd <- read.csv("./data/raw/DataNSW/NSW_data_TND.csv", header = TRUE, stringsAsFactors = FALSE,
- sep = "\t")
+data.nswtnd <- read.csv("./data/raw/DataNSW/NSW_data_TND.csv", header = TRUE, stringsAsFactors = FALSE)
data.nswtnd$Date.of.measure <- as.character(format(as.Date(data.nswtnd$Date.of.measure,
format = "%d-%b-%y"), format = "%d/%b/%Y"))
data.nswtnd$Date.of.measure <- as.vector(sapply(data.nswtnd$Date.of.measure, function(x) {
--
GitLab