Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:ms_tindle [2016/05/12 11:19] admin |
recalc:ms_tindle [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 68: | Строка 68: | ||
| step3_data$Li_pfu <- Li_ve; | step3_data$Li_pfu <- Li_ve; | ||
| - | return(step3_data[,c('Name',pfu_names,'Al_c4_pfu','Al_c6_pfu', 'Li_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')]); | ||
| } | } | ||
| Строка 77: | Строка 79: | ||
| result <- recalc.ms_tindle (src); | result <- recalc.ms_tindle (src); | ||
| - | print(result); | + | |
| expect_equal(object = result$Al_c4_pfu,2.761, tolerance = 0.05); | expect_equal(object = result$Al_c4_pfu,2.761, tolerance = 0.05); | ||
| expect_equal(object = result$Al_c6_pfu,0.766, tolerance = 0.05); | expect_equal(object = result$Al_c6_pfu,0.766, tolerance = 0.05); | ||