powered by
.solveWt(wt_vec, rxx, rxy)
library(iopsych) data(dls2007) dat <- dls2007[1:6, 2:7] rxx <- dat[1:4, 1:4] rxy <- dat[1:4, 5] #.solveWt(wt_vec=c(1,1,1,1), rxx=rxx, rxy=rxy) #.solveWt(wt_vec=c(1,2,3,4), rxx=rxx, rxy=rxy)
Run the code above in your browser using DataLab