data-raw/planelithium.R

In Crparedes/transmem: Treatment of Membrane-Transport Data

#### planelithium Data. Original file: 19-05-21-LiNa-Mem10.R
StockNa.1 <- 0.0861 * 22990
StockLi.1.5_3   <- 129.5 * 0.187872 * 0.99 / 0.1200962 * 1.2463 / 50.0083
StockNa.1.200_1 <- StockNa.1 * 5.0087 / 50.0536
CalCurves <- list(
  Lithium.1 = data.frame(Conc = c(0.0000, 0.0615, 0.1223, 0.3027, 0.5948, 1.2023, 2.4034, 2.7270) *
                           StockLi.1.5_3 / c(6.0000, 6.0084, 6.0084, 6.0344, 6.1404, 6.0674, 6.0297, 6.1499),
                         Signal = c(0.000, 0.008, 0.016, 0.039, 0.077, 0.155, 0.306, 0.339),
                         Conc.S = rep(0.000, 8) *
                           StockNa.1.200_1 / c(6.0000, 6.0084, 6.0084, 6.0344, 6.1404, 6.0674, 6.0297, 6.1499)),
  Lithium.2 = data.frame(Conc = c(0.0000, 0.0624, 0.1180, 0.2995, 0.6141, 1.2080, 2.4169, 2.7044) *
                           StockLi.1.5_3 / c(6.0075, 6.1143, 6.0310, 6.0232, 6.0195, 6.0341, 6.0633, 6.0151),
                         Signal = c(0.000, 0.008, 0.016, 0.041, 0.083, 0.164, 0.313, 0.349),
                         Conc.S = c(0.6026, 0.6020, 0.6056, 0.6257, 0.5895, 0.6113, 0.5844, 0.6145) *
                           StockNa.1.200_1 / c(6.0075, 6.1143, 6.0310, 6.0232, 6.0195, 6.0341, 6.0633, 6.0151)),
  Lithium.3 = data.frame(Conc = c(0.0000, 0.0654, 0.1176, 0.2990, 0.6088, 1.2090, 2.4115, 2.6965) *
                           StockLi.1.5_3 / c(6.0843, 6.0435, 6.0321, 6.0317, 6.0415, 6.0085, 6.0777, 6.1473),
                         Signal = c(0.000, 0.008, 0.016, 0.040, 0.082, 0.164, 0.313, 0.346),
                         Conc.S = c(1.2087, 1.2158, 1.2168, 1.1970, 1.2015, 1.2135, 1.2132, 1.2024) *
                           StockNa.1.200_1 / c(6.0843, 6.0435, 6.0321, 6.0317, 6.0415, 6.0085, 6.0777, 6.1473)),
  Lithium.4 = data.frame(Conc = c(0.0000, 0.0649, 0.1172, 0.3176, 0.6101, 1.2036, 2.4131, 2.7617) *
                           StockLi.1.5_3 / c(6.0384, 6.0057, 6.0783, 6.0397, 6.0010, 6.0468, 6.0233, 6.0914),
                         Signal = c(0.000, 0.010, 0.017, 0.045, 0.088, 0.168, 0.327, 0.372),
                         Conc.S = c(0.6048, 0.6042, 0.6082, 0.6089, 0.6139, 0.5998, 0.5944, 0.6085) *
                           StockNa.1 / c(6.0384, 6.0057, 6.0783, 6.0397, 6.0010, 6.0468, 6.0233, 6.0914)),
  Lithium.5 = data.frame(Conc = c(0.0000, 0.0591, 0.1298, 0.3080, 0.6139, 1.2670, 2.4016, 2.7171) *
                           StockLi.1.5_3 / c(6.0586, 6.0102, 6.0702, 6.0508, 6.0309, 6.0551, 6.0384, 6.0498),
                         Signal = c(0.000, 0.008, 0.019, 0.043, 0.088, 0.177, 0.326, 0.367),
                         Conc.S = c(0.7660, 0.7576, 0.7689, 0.7575, 0.7589, 0.7513, 0.7594, 0.7603) *
                           StockNa.1 / c(6.0586, 6.0102, 6.0702, 6.0508, 6.0309, 6.0551, 6.0384, 6.0498))
)
planelithium <- rbind(CalCurves$Lithium.1, CalCurves$Lithium.2, CalCurves$Lithium.3,
                      CalCurves$Lithium.4, CalCurves$Lithium.5)
summary(calibPlane(planelithium)$model)
planelithium[, 1] <- round(planelithium[, 1], 2)
planelithium[, 3] <- round(planelithium[, 3], 1)

#save(planelithium, file = "/home/cris/Dropbox/transmem/data/planelithium.RData")
usethis::use_data(planelithium)