-
Notifications
You must be signed in to change notification settings - Fork 39
/
planetPositionAggregateUtils.R
34 lines (30 loc) · 1.54 KB
/
planetPositionAggregateUtils.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# Title : Planet position aggregation utilities.
# Objective : Support aggregation of planet position essential energy to research generalization of effects.
# Created by: pablocc
# Created on: 12/02/2021
source("./factorAggregateUtils.R")
#' Aggregate daily planet positions variable count by factor.
#' @param dailyPlanetPositionTable Daily planet positions long data table.
#' @param byFactor The factor to use for count aggregate.
#' @return Planet positions variable count by factor data table.
dailyPlanetVariableByFactorCount <- function(dailyPlanetPositionTable, byFactor) {
# Prevent mutation of original table.
dailyPlanetPositionTableCopy <- copy(dailyPlanetPositionTable)
dailyFactorCountAggregate(dailyPlanetPositionTableCopy, byFactor, byFactor)
}
#' Prepare daily planet in elements count range factors with asset augmented data.
#' @param symbolID Asset symbol ID.
#' @return Planet in elements count factors with asset price data table.
planetElementsCountAssetPricePrepare <- function(symbolID) {
dailyPlanetPositionLoad() %>%
dailyPlanetVariableByFactorCount("ElementID") %>%
factorCountAssetPriceMerge("PlanetElement", symbolID)
}
#' Prepare daily planet in qualities count range factors with asset augmented data.
#' @param symbolID Asset symbol ID.
#' @return Planet in qualities count factors with asset price data table.
planetQualitiesCountAssetPricePrepare <- function(symbolID) {
dailyPlanetPositionLoad() %>%
dailyPlanetVariableByFactorCount("QualityID") %>%
factorCountAssetPriceMerge("PlanetQuality", symbolID)
}