R/geoprice.R

geoprice <- function(x){
  geoprices <- NULL
  for(i in 1:ncol(x)){
    geoprices[i] <- exp(sum(log(x[,i]))/(nrow(x)))
  }
  return(geoprices)
}
dorianquelle/AdFin documentation built on June 23, 2019, 3:32 a.m.