Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:wtp_at_to_atp [2016/05/17 12:09] 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); | ||
| Строка 62: | Строка 64: | ||
| rs <- recalc.wtp_at_to_atp(td); | rs <- recalc.wtp_at_to_atp(td); | ||
| - | + | expect_equal(object = rs$As_atp[1], 32.72, tolerance = 0.01); | |
| - | print(rs); | + | expect_equal(object = rs$As_atp[2], 32.72, tolerance = 0.01); |
| - | expect_equal(object = rs$As_pfu[1], 32.72, tolerance = 0.01); | + | |
| - | expect_equal(object = rs$As_pfu[2], 32.72, tolerance = 0.01); | + | |
| } | } | ||