Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:ms_tindle [2016/03/28 11:27] admin |
recalc:ms_tindle [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 40: | Строка 40: | ||
| step1_data <- rowApply(`/`, data, step1_coeff); | step1_data <- rowApply(`/`, data, step1_coeff); | ||
| + | |||
| step1_sum <- rowSums(step1_data); | step1_sum <- rowSums(step1_data); | ||
| F_Cl_corr <- step1_sum - step1_data$F_wtp - step1_data$Cl_wtp; | F_Cl_corr <- step1_sum - step1_data$F_wtp - step1_data$Cl_wtp; | ||
| Строка 65: | Строка 66: | ||
| Li_ve <- ifelse(Li_ve<0,0,Li_ve); | Li_ve <- ifelse(Li_ve<0,0,Li_ve); | ||
| + | step3_data$Li_pfu <- Li_ve; | ||
| - | return(step3_data[,c('Name',pfu_names,'Al_c4_pfu','Al_c6_pfu')]); | + | step3_data$OH_pfu = 4-(step3_data$Cl_pfu+step3_data$F_pfu) |
| + | |||
| + | return(step3_data[,c('Name',pfu_names,'Al_c4_pfu','Al_c6_pfu', 'Li_pfu', 'OH_pfu')]); | ||
| } | } | ||
| Строка 75: | Строка 79: | ||
| result <- recalc.ms_tindle (src); | result <- recalc.ms_tindle (src); | ||
| - | | + | |
| - | expect_equal(object = result$Al_c4_pfu,2.781, tolerance = 0.005); | + | expect_equal(object = result$Al_c4_pfu,2.761, tolerance = 0.05); |
| - | expect_equal(object = result$Al_c6_pfu,0.732, tolerance = 0.005); | + | expect_equal(object = result$Al_c6_pfu,0.766, tolerance = 0.05); |
| - | expect_equal(object = result$Li_pfu,0.17, tolerance = 0.005); | + | expect_equal(object = result$Li_pfu,0.0, tolerance = 0.05); |
| - | expect_equal(object = result$Mg_pfu,2.115, tolerance = 0.005); | + | expect_equal(object = result$Mg_pfu,2.123, tolerance = 0.05); |
| - | expect_equal(object = result$OH_pfu,3.982, tolerance = 0.005); | + | expect_equal(object = result$OH_pfu,3.982, tolerance = 0.05); |
| } | } | ||
| </Code> | </Code> | ||