PLSmodel/dummy_model_testing.R at main · ranawg/PLSmodel · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

library(ftirsr)
# new introplated file
gl_dummy_data <- read_ftirs("~/Desktop/PLSmodel/Samples/greenland_csv",
                         "~/Desktop/PLSmodel/csvFiles/wet-chem-data.csv", format = "wide")
ak_dummy_data <-  read_ftirs("~/Desktop/PLSmodel/Samples/alaska_csv",
                             "~/Desktop/PLSmodel/csvFiles/AlaskaWetChem.csv", format = "wide")

combined_data <- rbind(gl_dummy_data, ak_dummy_data)

dummy_model <- plsr(bsi~., ncomp = 5, data=combined_data, validation = "CV", segments = 10)


read_ftirs("~/Desktop/PLSmodel/Samples/greenland_csv",
            format = "wide")


test1_wave <- read_csv("Samples/alaska_csv/AS-01 (8_24_16).0.csv")

introp <- interpolate_ftirs(as.numeric(test1_wave$wavenumber), as.numeric(test1_wave$absorbance))

pred <- predict(gl_dummy_data, ncomp = 4)