# NOT RUN {
library(rgee)
ee_Initialize()
# Sum Operator
ee1 <- ee$Image(1)
ee2 <- ee$Image(2)
ee3 <- ee1 + ee2
ee_extract(ee3, ee$Geometry$Point(0, 0))
v1 <- 1
v2 <- 2
v3 <- v1 + v2
v3
# Multiple Operators
ee4 <- ee1 / 10
ee5 <- ee4 * (ee2 - 1 + ee1^2 / ee2)
ee_extract(ee5, ee$Geometry$Point(0, 0))
v4 <- v1 / 10
v5 <- v4 * (v2 - 1 + v1^2 / v2)
v5
# multi-layer object mutiplication, no recycling
ee6 <- ee1 + c(1, 5, 10)
ee_extract(ee6, ee$Geometry$Point(0, 0))
v6 <- v1 + c(1, 5, 10)
v6
# }
Run the code above in your browser using DataLab