powered by
fuseVec(r_mat, a, wt_a = rep(1, length(a)), output = "vec")
data(dls2007) dat <- dls2007 rxx <- dat[1:4, 2:5] items <- c(1,3) wt_a <- c(2,1) fuseVec(r_mat=rxx, a=items) fuseVec(r_mat=rxx, a=items, wt_a=wt_a, output="mat")
Run the code above in your browser using DataLab