From db421da5c3d37c078a0cb5150193da7cf3d91597 Mon Sep 17 00:00:00 2001
From: aaron <aaron@duckpond.ch>
Date: Tue, 12 Mar 2024 12:11:33 +0100
Subject: [PATCH] refactor

---
 ironwood_plots.R | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/ironwood_plots.R b/ironwood_plots.R
index fc7ce87..a444949 100644
--- a/ironwood_plots.R
+++ b/ironwood_plots.R
@@ -5,6 +5,7 @@
 library(readODS)
 library(tidyverse)
 library(dplyr)
+library(leaflet)
 
 ##
 # parse the input data
@@ -13,6 +14,10 @@ library(dplyr)
 # read a data frame from the ods document
 df <- read_ods("ironwood_data_cleaned.ods", sheet = 1)
 
+# Output the results
+print(df)
+
+
 ##
 # 1. asses the tree health
 # - create an overview of the populations health
@@ -60,10 +65,19 @@ if (p_value < 0.05) {
   print("The data is normally distributed (fail to reject the null hypothesis)")
 }
 
+
+##
+# 3. try to fit health and location data in one plot
+##
+
+sites <- data.frame(
+  id = 1:20,
+  lat = 
+)
+
 ##
 # ToDo Tasks:
 ##
 
-# 3. calculate the average DBH and try to correlate it with the health index
-# 4. plot health indices of each site on a map and try to find patterns 
-# 5. try to fit health and location data in one plot
\ No newline at end of file
+# 4. calculate the average DBH and try to correlate it with the health index
+# 5. plot health indices of each site on a map and try to find patterns 
\ No newline at end of file