, используя cast
вместо recast
(примечание 'Frequency'
теперь 'value'
)
df <- data.frame(Category = c("First","First","First","Second","Third","Third","Second")
, value = c(10,15,5,2,14,20,3))
install.packages("reshape")
result<-cast(df, Category ~ . ,fun.aggregate=sum)
, чтобы получить:
Category (all)
First 30
Second 5
Third 34
Вы могли нормализовать размер галочки и затем использовать обычные методы округления:
100.1 [0.25] -> * (1/0.25) -> 400.4 [1] -> round -> 400 -> / (1/0.25) -> 100
100.2 [0.25] -> * (1/0.25) -> 400.8 [1] -> round -> 401 -> / (1/0.25) -> 100.25
, Таким образом, это должно быть:
Price = Round(Price / Tick) * Tick;
Также примечание, что Вы, кажется, должны установить корректный режим округления для BigDecimals. См. Документы BigDecimal , например. Таким образом, несомненно, необходимо будет установить, это исправляет и пишет некоторые тесты для проверки правильности кода.