shapiro.test(GAP_bb$Accuracy_Per)
#Test for Normality (GAP):
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
#inspect data
GAP
#Test for Normality (GAP):
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (GAP)
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
#Data sets (import, LF Community):
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
#inspect data
LFcommunity
#Test for Normality (LF Community):
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (LF Community)
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
#Test for Normality (LF Community):
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (LF Community)
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
cor.test(~Radius + LFcommunity_wy$Accuracy_Per, data = LFcommunity_wy, conf.level = 0.95)
#Data sets (import, LF Species):
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
#inspect data
LFspecies
#Test for Normality (LF Species):
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (LF Species)
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95)
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
cor.test(~Radius + LFspecies_wy$Accuracy_Per, data = LFspecies_wy, conf.level = 0.95)
#Data sets (import, GAP):
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv",header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
#Data sets (import, GAP):
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv",header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#inspect data
GAP
#Test for Normality (GAP):
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (GAP)
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
#Data sets (import, LF Community):
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
#inspect data
LFcommunity
#Test for Normality (LF Community):
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
#Test for Normality (LF Community):
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (LF Community)
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
cor.test(~Radius + LFcommunity_wy$Accuracy_Per, data = LFcommunity_wy, conf.level = 0.95)
#Data sets (import, LF Species):
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
#inspect data
LFspecies
#Test for Normality (LF Species):
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (LF Species)
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95)
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
cor.test(~Radius + LFspecies_wy$Accuracy_Per, data = LFspecies_wy, conf.level = 0.95)
setwd("~/Documents/GEM3_Project/Data_Submission_Files/ForbeyLab/MarcellaLandfire/manuscript_correction/Datataset_submission/accuraccy_by_radius")
#Data sets (import, GAP):
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv",header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#inspect data
GAP
#Test for Normality (GAP):
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (GAP)
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
#Data sets (import, LF Community):
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
#inspect data
LFcommunity
#Test for Normality (LF Community):
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
### Import Datasets for GAP ###
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv", header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#### inspect data ###
GAP
### Test for Normality within GAP datasets ###
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy (GAP) ###
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
### Import Datasets for LANDFIRE at the community-level ###
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
### inspect data ###
LFcommunity
#Test for Normality (LF Community):
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
#Test for Correlation between Radius and Accuracy (LF Community)
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
cor.test(~Radius + LFcommunity_wy$Accuracy_Per, data = LFcommunity_wy, conf.level = 0.95)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95)
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
cor.test(~Radius + LFspecies_wy$Accuracy_Per, data = LFspecies_wy, conf.level = 0.95)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
### Import Datasets for LANDFIRE at the species-level ###
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
### inspect data ###
LFspecies
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
### Import Datasets for LANDFIRE at the species-level ###
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
### inspect data ###
LFspecies
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95)
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
cor.test(~Radius + LFspecies_wy$Accuracy_Per, data = LFspecies_wy, conf.level = 0.95)
setwd("~/Documents/GEM3_Project/Data_Submission_Files/ForbeyLab/MarcellaLandfire/manuscript_correction/Datataset_submission/accuraccy_by_radius")
### Import data from GAP ###
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv", header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#### inspect data ###
GAP
### Test for Normality within GAP data ###
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within GAP data ###
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
### Import Data for LANDFIRE at the community-level Analyses ###
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
### inspect data ###
LFcommunity
### Test for Normality within LANDFIRE Community-level data ###
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE community-level data ###
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
cor.test(~Radius + LFcommunity_wy$Accuracy_Per, data = LFcommunity_wy, conf.level = 0.95)
### Import Data for LANDFIRE at the species-level Analyses ###
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
### inspect data ###
LFspecies
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95)
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
cor.test(~Radius + LFspecies_wy$Accuracy_Per, data = LFspecies_wy, conf.level = 0.95)
setwd("~/Documents/GEM3_Project/Data_Submission_Files/ForbeyLab/MarcellaLandfire/manuscript_correction/Datataset_submission/accuraccy_by_radius")
### Import data for GAP Analyses ###
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv", header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#### inspect data ###
GAP
### Test for Normality within GAP data ###
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within GAP data ###
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
### Import Data for LANDFIRE at the community-level Analyses ###
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
### inspect data ###
LFcommunity
### Test for Normality within LANDFIRE Community-level data ###
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE community-level data ###
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
cor.test(~Radius + LFcommunity_wy$Accuracy_Per, data = LFcommunity_wy, conf.level = 0.95)
### Import Data for LANDFIRE at the species-level Analyses ###
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
### inspect data ###
LFspecies
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95)
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
cor.test(~Radius + LFspecies_wy$Accuracy_Per, data = LFspecies_wy, conf.level = 0.95)
setwd("~/Documents/GEM3_Project/Data_Submission_Files/ForbeyLab/MarcellaLandfire/manuscript_correction/Datataset_submission/accuraccy_by_radius")
### Import data for GAP Analyses ###
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv", header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#### inspect data ###
GAP
### Test for Normality within GAP data ###
shapiro.test(GAP_bb$Radius)
setwd("~/Documents/GEM3_Project/Data_Submission_Files/ForbeyLab/MarcellaLandfire/manuscript_correction/Datataset_submission/accuraccy_by_radius")
### Import data for GAP Analyses ###
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv", header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#### inspect data ###
GAP
### Test for Normality within GAP data ###
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within GAP data ###
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
### Import Data for LANDFIRE at the community-level Analyses ###
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
### inspect data ###
LFcommunity
### Test for Normality within LANDFIRE Community-level data ###
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE community-level data ###
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
cor.test(~Radius + LFcommunity_wy$Accuracy_Per, data = LFcommunity_wy, conf.level = 0.95)
### Import Data for LANDFIRE at the species-level Analyses ###
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
### inspect data ###
LFspecies
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95)
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95, method = c("spearman"))
setwd("~/Documents/GEM3_Project/Data_Submission_Files/ForbeyLab/MarcellaLandfire/manuscript_correction/Datataset_submission/accuraccy_by_radius")
### Import Data for LANDFIRE at the species-level Analyses ###
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
### inspect data ###
LFspecies
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
setwd("~/Documents/GEM3_Project/Data_Submission_Files/ForbeyLab/MarcellaLandfire/manuscript_correction/Datataset_submission/accuraccy_by_radius")
### Import data for GAP Analyses ###
GAP<-read.csv("4sites_GAP_es_accuracybyradius.csv", header = TRUE)
GAP_bb <- subset(GAP, StudyArea=="browns_bench")
GAP_craters <- subset(GAP, StudyArea=="craters")
GAP_rr <- subset(GAP, StudyArea=="raft_river")
GAP_wy <- subset(GAP, StudyArea=="wyoming")
#### inspect data ###
GAP
### Test for Normality within GAP data ###
shapiro.test(GAP_bb$Radius)
shapiro.test(GAP_bb$Accuracy_Per)
shapiro.test(GAP_craters$Accuracy_Per)
shapiro.test(GAP_rr$Accuracy_Per)
shapiro.test(GAP_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within GAP data ###
cor.test(~Radius + GAP_bb$Accuracy_Per, data = GAP_bb, conf.level = 0.95)
cor.test(~Radius + GAP_craters$Accuracy_Per, data = GAP_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + GAP_rr$Accuracy_Per, data = GAP_rr, conf.level = 0.95)
cor.test(~Radius + GAP_wy$Accuracy_Per, data = GAP_wy, conf.level = 0.95, method = c("spearman"))
### Import Data for LANDFIRE at the community-level Analyses ###
LFcommunity <- read.csv("4sites_Lfcommunity_accuracybyra.csv")
LFcommunity_bb <- subset(LFcommunity, StudyArea=="browns_bench")
LFcommunity_craters <- subset(LFcommunity, StudyArea=="craters")
LFcommunity_rr <- subset(LFcommunity, StudyArea=="raft_river")
LFcommunity_wy <- subset(LFcommunity, StudyArea=="wyoming")
### inspect data ###
LFcommunity
### Test for Normality within LANDFIRE Community-level data ###
shapiro.test(LFcommunity_bb$Radius)
shapiro.test(LFcommunity_bb$Accuracy_Per)
shapiro.test(LFcommunity_craters$Accuracy_Per)
shapiro.test(LFcommunity_rr$Accuracy_Per)
shapiro.test(LFcommunity_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE community-level data ###
cor.test(~LFcommunity_bb$Radius + LFcommunity_bb$Accuracy_Per, data = LFcommunity_bb, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFcommunity_craters$Accuracy_Per, data = LFcommunity_craters, conf.level = 0.95)
cor.test(~Radius + LFcommunity_rr$Accuracy_Per, data = LFcommunity_rr, conf.level = 0.95)
cor.test(~Radius + LFcommunity_wy$Accuracy_Per, data = LFcommunity_wy, conf.level = 0.95)
### Import Data for LANDFIRE at the species-level Analyses ###
LFspecies <-read.csv("4sites_LFspecies_accuracybyradi.csv")
LFspecies_bb <- subset(LFspecies, StudyArea=="browns_bench")
LFspecies_craters <- subset(LFspecies, StudyArea=="craters")
LFspecies_rr <- subset(LFspecies, StudyArea=="raft_river")
LFspecies_wy <- subset(LFspecies, StudyArea=="wyoming")
### inspect data ###
LFspecies
### Test for Normality within LANDFIRE species-level data ###
shapiro.test(LFspecies_bb$Radius)
shapiro.test(LFspecies_bb$Accuracy_Per)
shapiro.test(LFspecies_craters$Accuracy_Per)
shapiro.test(LFspecies_rr$Accuracy_Per)
shapiro.test(LFspecies_wy$Accuracy_Per)
### Test for Correlation between Radius and Accuracy within LANDFIRE species-level data ###
cor.test(~Radius + LFspecies_bb$Accuracy_Per, data = LFspecies_bb, conf.level = 0.95)
cor.test(~Radius + LFspecies_craters$Accuracy_Per, data = LFspecies_craters, conf.level = 0.95, method = c("spearman"))
cor.test(~Radius + LFspecies_rr$Accuracy_Per, data = LFspecies_rr, conf.level = 0.95)
cor.test(~Radius + LFspecies_wy$Accuracy_Per, data = LFspecies_wy, conf.level = 0.95)
