Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:ms_tindle [2016/05/12 11:18] admin |
recalc:ms_tindle [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 46: | Строка 46: | ||
| step2_data <- rowApply(`*`, step1_data, Ox_Num); | step2_data <- rowApply(`*`, step1_data, Ox_Num); | ||
| - | |||
| - | return(step2_data); | ||
| pfu_names <- c('Si_pfu','Ti_pfu','Al_pfu','Fe_pfu','Mn_pfu','Mg_pfu','Ca_pfu','Na_pfu','K_pfu', | pfu_names <- c('Si_pfu','Ti_pfu','Al_pfu','Fe_pfu','Mn_pfu','Mg_pfu','Ca_pfu','Na_pfu','K_pfu', | ||
| Строка 70: | Строка 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')]); | ||
| } | } | ||
| Строка 79: | Строка 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); | ||