Eric R. Scott Aariq

site	ensemble	date_start	date_end	finished	ed_error	ed_error_reason	model2netcdf_error
MANDIFORE-PNW-4538	1	2002-06-01	2012-05-01	TRUE	FALSE	NA	FALSE
MANDIFORE-PNW-4538	2	2002-06-01	2012-05-01	TRUE	FALSE	NA	FALSE
MANDIFORE-PNW-4538	3	2002-06-01	2012-05-01	TRUE	FALSE	NA	FALSE
MANDIFORE-PNW-4538	4	2002-06-01	2012-05-01	FALSE	TRUE	Program received signal SIGABRT: Process abort signal.	FALSE
MANDIFORE-PNW-4538	5	2002-06-01	2012-05-01	FALSE	FALSE	NA	TRUE
MANDIFORE-PNW-4538	6	2002-06-01	2012-05-01	FALSE	FALSE	NA	TRUE
MANDIFORE-PNW-4538	7	2002-06-01	2012-05-01	FALSE	TRUE	Program received signal SIGABRT: Process abort signal.	FALSE
MANDIFORE-PNW-4538	8	2002-06-01	2010-08-01	FALSE	FALSE	NA	FALSE
MANDIFORE-PNW-4538	9	2002-06-01	2012-05-01	TRUE	FALSE	NA	FALSE

	# My janky r-code wrapping commandline tool `exiftool`

	library(stringr)
	library(purrr)
	library(glue)

	pull_hashes <- function(file) {
	xml <- system(glue("exiftool -b -xmp '{file}'"), intern = TRUE)

	doi <-

	# anova() uses type I SS and unless you have only categorical predictors and
	# balanced sample sizes, the order of the formula will change p-values,
	# sometimes drastically!

	m1 <- lm(Volume ~ Height + Girth, data = trees)
	m2 <- lm(Volume ~ Girth + Height, data = trees)

	anova(m1)
	#> Analysis of Variance Table
	#>

	# Read in multiple .csv files with the same structure (same column names, numbers of columns, types of data in each column) and join them into a single data frame:


	library(readr)
	library(purrr)
	root <- "path/to/where/my/data/is/"
	file_paths <- list.files(root, pattern = "*.csv", full.names = TRUE)

	#set the names of the file_paths vector, here I'll just use the file names, but you can use whatever
	names(file_paths) <- list.files(root, pattern = "*.csv")