Code: Select all
importmat(name=xmat) C:\Users\...\Desktop\xmat.xlsx
matrix ymat = xmat*@inverse(@inner(xmat))*@transpose(xmat)
xopen(m)
xput xmat
xrun "zmat=xmat*inv(xmat'*xmat)*xmat';"
xget zmat
matrix difmat = ymat-zmat
scalar difsum = @sum(difmat)
show difsum