coal_drift: DRIFT-spectrum of hard coal

In omega1x/spectrotest: Manipulate with DRIFT-spectroscopy data

Description

Get the example of DRIFT-spectrum for the given rank of hard coal from internal library as an object of S3-class drift.

Usage

coal_drift(x = c("X", "OC", "KO", "KC", "GXO", "GX"))

Arguments

x	an abbreviation for coal rank.

Details

Latin character abbreviations of coal ranks used as values to argument x imitate those taken from GOST 25543-2013 Brown coals, hard coals and anthracites. Classification according to genetic and technological parameters as close as possible.

The function is a primary constructor of objects of S3-class drift. Other widely used constructor is read.drift.

Objects of S3-class drift can be indexed in the same manner as matrix objects. Though most of mathematical operation methos (see groupGeneric) inherite from matrix class some domain specific operations are rethinked.

Value

An object of S3-class drift.

See Also

Other drift: as.data.frame.drift(), cbind.drift(), channel(), diff.drift(), median.drift(), plot.drift(), read.drift(), slice(), write.drift()

Examples

 s <- coal_drift()
 plot(s)

 # Indexing technique:
 #  - get first measurement cell in channels where CO2
 #    absorbtion is expected:
 s_co2 <- s[c(996:1000, 1064:1070), 1]
 plot(s_co2)  # liner segment is plotted for 1000-1064 1/cm range

 #  - get DRIFT-spectrum meta-data
 stopifnot(
   s[["ftirValidFileName"]] == "X",
   s[["gostAd"]] == 9.3
 )

 #  - set or reset new DRIFT-spectrum meta-data
 s[["ftirValidFileName"]] <- "BituminousBlendComponent"  # provide no spaces!
 plot(s)

 # Arithmetics with DRIFT-spectra:
 sgx <- -median(coal_drift("GX")) + 7.437333
 soc <- -median(coal_drift("OC")) + 7.004013
 wn <- 2920
 ds <- sgx - soc*as.double(slice(sgx, wn)/slice(soc, wn))
 plot(ds); abline(h = 0, v = wn)

omega1x/spectrotest documentation built on Oct. 1, 2020, 4 p.m.