处理R中的光谱数据

Question

我正在尝试使用以下公式计算亚氯酸盐光谱成熟度（CSM）和伊利石光谱成熟度（ISM）标量。到目前为止，我已经能够使用下面的R脚本读取单个.asd数据，但我正在努力编写批处理脚本来一次读取所有数据，我不知道如何实现我的公式。拜托，我需要帮助。谢谢。

式：

CSM Scalar

 = (1 − ((2310:2370)) ) + 1.7 ∗ (1 − ((2240:2270)))/(((1810:2140)) − ((1900:2020)))

ISM Scalar

 = ((2136:2296) − ((2140:2270)))/(((1810:2140)) − ((1900:2020)))

R SCRIPT BELOW：

data <- asdreader::get_spectra("data.ASD")
data
asdreader::get_metadata("data.ASD")

print(data)

matplot(t(data), type = 'l')

table = as.data.frame.table(data)