getqmean <- function(x, y) {
    
    
    n <- length(x)
    sum <- 0
    for (i in 1: n) {
    
    
        sum <- sum + x[i] * y[i]
    }
    print(sum / sum(y))
}