refactor

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
+# 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