read.data.Canada.R

##########################
##########################
### READ the funny format of the data

##  read fiel per lines and remove "------" and leading and trailling "|  " "   |"
texts <- grep("^[^-]",readLines("./data/raw/DataCanada/Canada_data2George.csv"),value=TRUE)
texts <- sub("^[|] +","",texts)
texts <- sub(" +[|]$","",texts)
writeLines(texts,con="./data/raw/DataCanada/Canada_data2George_cleaned.txt")

## read data cleaned
data.Canada <- read.table("./data/raw/DataCanada/Canada_data2George_cleaned.txt",sep="|",header=TRUE,stringsAsFactors =FALSE)
head(data.Canada)
plot(data.Canada[["Lon"]],data.Canada[["Lat"]],cex=0.3)

## plots
length(table(data.Canada[["All_Trees_PlotID"]]))
## plots and subplots
length(table(paste( data.Canada[["All_Trees_PlotID"]],data.Canada[["SubPlotID"]])))