knitr::opts_chunk$set(echo = TRUE)
Forest_Change_Results <- read.csv("C:/Users/DrewIvory/OneDrive - University of Florida/Desktop/Lessons/Natural_Resource_Sampling/Spatial_Resolution/Forest_Change_Results.csv")

Data Summary

## mean forest change by type
aggregate(Forest_Change_Results$ForChg_ha ~ Forest_Change_Results$Type, FUN=mean)
##   Forest_Change_Results$Type Forest_Change_Results$ForChg_ha
## 1                    Private                        28.70182
## 2                     Public                         2.26500
## Standard Deviation of forest change by type
aggregate(Forest_Change_Results$ForChg_ha ~ Forest_Change_Results$Type, FUN=sd)
##   Forest_Change_Results$Type Forest_Change_Results$ForChg_ha
## 1                    Private                        54.67634
## 2                     Public                        54.98635
## Count of observations by type
aggregate(Forest_Change_Results$ForChg_ha ~ Forest_Change_Results$Type, FUN=length)
##   Forest_Change_Results$Type Forest_Change_Results$ForChg_ha
## 1                    Private                              11
## 2                     Public                              12

T-test: Forest Change between Private and Public land

# one tailed t-test
t.test(Forest_Change_Results$ForChg_ha ~ Forest_Change_Results$Type, alternative = "greater")
## 
##  Welch Two Sample t-test
## 
## data:  Forest_Change_Results$ForChg_ha by Forest_Change_Results$Type
## t = 1.1552, df = 20.847, p-value = 0.1305
## alternative hypothesis: true difference in means between group Private and group Public is greater than 0
## 95 percent confidence interval:
##  -12.95597       Inf
## sample estimates:
## mean in group Private  mean in group Public 
##              28.70182               2.26500