La til funksjon for utregning av RMSE

src/Ting.jl

@@ -30,6 +30,7 @@ export TRLooCVUpdateNaive
 export TRLooCVUpdateExperimental
 
 # From "variousRegressionFunctions.jl"
+export calculateRMSE
 export oldRegCoeffs
 export PCR
 export PLS

src/variousRegressionFunctions.jl

@@ -1,3 +1,22 @@
+"""
+function rmse, ypred = calculateRMSE(X, y, beta)
+
+Regner ut RMSE for lineær regresjonsmodell med eller uten konstantledd.
+(Konstantledd må være første element i beta hvis med)    
+"""
+
+function calculateRMSE(X, y, beta)
+
+if length(beta) == size(X,2)
+    ypred = X * beta;
+elseif length(beta) == (size(X,2) +  1)
+    ypred = beta[1] .+ X * beta[2:end]
+end
+
+rmsep = sqrt(mean(y - ypred).^2)
+
+return rmse, ypred
+end