K = 10000
ref = c('01','02','03','04')
A = c(100, 100, 100,100)
U = c(5.0,5.0,5.0,5.0)
K = c(1000,1000,1000,1000)

df <- data.frame(ref, A, U, K)

sum(df$A*U)