knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
The goal of paleoxrf is to simplify reading data from Acadia's paleoenvironmental X-Ray Fluorescence laboratory.
You can install paleoxrf from GitHub using the following code:
# install.packages("remotes") remotes::install_github("paleolimbot/paleoxrf")
If all is well, you should be able to load the package:
library(paleoxrf)
The examples below use dplyr to manipulate the output of the read functions.
library(dplyr)
The package provides a few functions to read XRF data output from several types of machines, such as the Olympus Vanta. The function reads the raw output of the machines, rather than a "cleaned up" version from other spreadsheet software.
test_file_oly <- system.file( "xrf_files/olympus_vanta_test.csv", package = "paleoxrf" ) read_olympus_vanta(test_file_oly) %>% select(date_time, sample_id, ends_with("_conc"))
test_file_pan <- system.file( "xrf_files/panalytical_test.txt", package = "paleoxrf" ) read_panalytical_txt(test_file_pan) %>% select(date_time, sample_id, ends_with("_conc"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.