aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Multiple-regression/Mathematica/multiple-regression.mathematica → Task/Multiple-regression/Mathematica/multiple-regression.math
View file

4
Task/Multiple-regression/PARI-GP/multiple-regression.pari Normal file
View file

@ -0,0 +1,4 @@
pseudoinv(M)=my(sz=matsize(M),T=conj(M))~;if(sz[1]<sz[2],T/(M*T),(T*M)^-1*T)
addhelp(pseudoinv, "pseudoinv(M): Moore pseudoinverse of the matrix M.");
y*pseudoinv(X)

1
Task/Multiple-regression/Ursala/multiple-regression-1.ursala Normal file
View file

@ -0,0 +1 @@
regression_coefficients = lapack..dgelsd

12
Task/Multiple-regression/Ursala/multiple-regression-2.ursala Normal file
View file

@ -0,0 +1,12 @@
x =
<
<7.589183e+00,1.703609e+00,-4.477162e+00>,
<-4.597851e+00,9.434889e+00,-6.543450e+00>,
<4.588202e-01,-6.115153e+00,1.331191e+00>>
y = <1.745005e+00,-4.448092e+00,-4.160842e+00>
#cast %eL
example = regression_coefficients(x,y)