test.data <- Harman74.cor$cov #24 mental variables
#choose 3 of them to regress against another 4 -- arbitrary choice of variables
print(mat.regress(test.data,c(1,2,3),c(4,5,10,12)),digits=2)
#gives this output
#print(mat.regress(test.data,c(1,2,3),c(4,5,10,12)),digits=2)
#$beta
# Flags GeneralInformation Addition CountingDots
#VisualPerception 0.40 0.22 0.16 0.30
#Cubes 0.06 0.18 0.06 0.05
#PaperFormBoard 0.12 0.10 -0.16 0.00
#
#$R
# Flags GeneralInformation Addition CountingDots
# 0.49 0.38 0.18 0.32
#
#$R2
# Flags GeneralInformation Addition CountingDots
# 0.24 0.15 0.03 0.10
#
#
Run the code above in your browser using DataLab