# NOT RUN {
library("data.table")
Y <- data.table(Y = rchisq(10, 3))
Z <- data.table(Z = rchisq(10, 3))
weights <- rep(2, 10)
data.table(Y, Z, weights,
V1 = lin.ratio(Y, Z, weights, percentratio = 1),
V10 = lin.ratio(Y, Z, weights, percentratio = 10),
V100 = lin.ratio(Y, Z, weights, percentratio = 100))
# }
Run the code above in your browser using DataLab