Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:wtp_at_to_atp [2016/05/17 12:00] admin |
recalc:wtp_at_to_atp [2018/11/12 15:08] (текущий) |
||
---|---|---|---|
Строка 38: | Строка 38: | ||
{ | { | ||
wtname <- gsub('_wtp', "", wtnamew); | wtname <- gsub('_wtp', "", wtnamew); | ||
+ | | ||
econst = subset(elements,element==wtname) | econst = subset(elements,element==wtname) | ||
mw <- c(mw,c(1/econst$weight)); | mw <- c(mw,c(1/econst$weight)); | ||
Строка 48: | Строка 48: | ||
st2_sum <- rowSums(data_st2); | st2_sum <- rowSums(data_st2); | ||
data_st3 <- (data_st2/st2_sum)*100; | data_st3 <- (data_st2/st2_sum)*100; | ||
+ | |||
+ | names(data_st3) <- gsub("_wtp", "_atp", names(data_st3)); | ||
| | ||
data_atp <- cbind(data_atp, data_st3); | data_atp <- cbind(data_atp, data_st3); | ||
Строка 53: | Строка 55: | ||
return(data_atp); | return(data_atp); | ||
} | } | ||
+ | |||
+ | recalc.wtp_at_to_atp.test <- function () { | ||
+ | td <- data.frame(Name="test", S_wtp=19.87, Fe_wtp=34.32, Co_wtp=0.17, | ||
+ | Ni_wtp=0.16, As_wtp=45.29, Sb_wtp=0.37); | ||
+ | |||
+ | td <- rbind(td,td) | ||
+ | |||
+ | rs <- recalc.wtp_at_to_atp(td); | ||
+ | |||
+ | expect_equal(object = rs$As_atp[1], 32.72, tolerance = 0.01); | ||
+ | expect_equal(object = rs$As_atp[2], 32.72, tolerance = 0.01); | ||
+ | } | ||
+ | |||
</Code> | </Code> | ||
{{tag> order11}} | {{tag> order11}} |