2010-09-08 19:46:36 +08:00
|
|
|
"""
|
|
|
|
|
==================================================
|
2010-09-29 22:26:24 +08:00
|
|
|
Automatic Relevance Determination Regression (ARD)
|
2010-09-08 19:46:36 +08:00
|
|
|
==================================================
|
2010-09-29 22:26:24 +08:00
|
|
|
|
2013-07-22 21:48:44 +08:00
|
|
|
Fit regression model with Bayesian Ridge Regression.
|
|
|
|
|
|
|
|
|
|
See :ref:`bayesian_ridge_regression` for more information on the regressor.
|
2011-07-23 20:14:24 +08:00
|
|
|
|
|
|
|
|
Compared to the OLS (ordinary least squares) estimator, the coefficient
|
2013-04-12 02:51:28 +08:00
|
|
|
weights are slightly shifted toward zeros, which stabilises them.
|
2011-07-23 20:14:24 +08:00
|
|
|
|
|
|
|
|
The histogram of the estimated weights is very peaked, as a sparsity-inducing
|
|
|
|
|
prior is implied on the weights.
|
|
|
|
|
|
|
|
|
|
The estimation of the model is done by iteratively maximizing the
|
|
|
|
|
marginal log-likelihood of the observations.
|
2010-09-08 19:46:36 +08:00
|
|
|
"""
|
2013-02-01 22:04:03 +08:00
|
|
|
print(__doc__)
|
2010-09-08 19:46:36 +08:00
|
|
|
|
|
|
|
|
import numpy as np
|
2014-05-15 04:31:03 +08:00
|
|
|
import matplotlib.pyplot as plt
|
2010-09-29 22:26:24 +08:00
|
|
|
from scipy import stats
|
2010-09-08 19:46:36 +08:00
|
|
|
|
2011-09-02 17:00:02 +08:00
|
|
|
from sklearn.linear_model import ARDRegression, LinearRegression
|
2010-09-08 19:46:36 +08:00
|
|
|
|
2011-12-20 22:34:17 +08:00
|
|
|
###############################################################################
|
2014-06-02 04:53:23 +08:00
|
|
|
# Generating simulated data with Gaussian weights
|
2010-09-08 19:46:36 +08:00
|
|
|
|
2011-07-23 20:14:24 +08:00
|
|
|
# Parameters of the example
|
2010-09-29 22:26:24 +08:00
|
|
|
np.random.seed(0)
|
2011-07-23 20:14:24 +08:00
|
|
|
n_samples, n_features = 100, 100
|
2014-06-02 04:53:23 +08:00
|
|
|
# Create Gaussian data
|
2010-09-29 22:26:24 +08:00
|
|
|
X = np.random.randn(n_samples, n_features)
|
2015-12-08 02:13:40 +08:00
|
|
|
# Create weights with a precision lambda_ of 4.
|
2010-09-08 19:46:36 +08:00
|
|
|
lambda_ = 4.
|
|
|
|
|
w = np.zeros(n_features)
|
2011-07-23 20:14:24 +08:00
|
|
|
# Only keep 10 weights of interest
|
2010-09-29 22:26:24 +08:00
|
|
|
relevant_features = np.random.randint(0, n_features, 10)
|
2010-09-08 19:46:36 +08:00
|
|
|
for i in relevant_features:
|
2010-09-29 22:26:24 +08:00
|
|
|
w[i] = stats.norm.rvs(loc=0, scale=1. / np.sqrt(lambda_))
|
2016-06-28 00:13:49 +08:00
|
|
|
# Create noise with a precision alpha of 50.
|
2010-09-08 19:46:36 +08:00
|
|
|
alpha_ = 50.
|
2011-12-20 22:34:17 +08:00
|
|
|
noise = stats.norm.rvs(loc=0, scale=1. / np.sqrt(alpha_), size=n_samples)
|
2011-07-23 20:14:24 +08:00
|
|
|
# Create the target
|
2010-09-29 22:26:24 +08:00
|
|
|
y = np.dot(X, w) + noise
|
2010-09-08 19:46:36 +08:00
|
|
|
|
2011-12-20 22:34:17 +08:00
|
|
|
###############################################################################
|
2011-07-23 20:14:24 +08:00
|
|
|
# Fit the ARD Regression
|
2011-12-20 22:34:17 +08:00
|
|
|
clf = ARDRegression(compute_score=True)
|
2010-09-29 22:26:24 +08:00
|
|
|
clf.fit(X, y)
|
2010-09-08 19:46:36 +08:00
|
|
|
|
2011-07-23 20:14:24 +08:00
|
|
|
ols = LinearRegression()
|
|
|
|
|
ols.fit(X, y)
|
|
|
|
|
|
2011-12-20 22:34:17 +08:00
|
|
|
###############################################################################
|
2011-07-23 20:14:24 +08:00
|
|
|
# Plot the true weights, the estimated weights and the histogram of the
|
|
|
|
|
# weights
|
2014-05-15 04:31:03 +08:00
|
|
|
plt.figure(figsize=(6, 5))
|
|
|
|
|
plt.title("Weights of the model")
|
2015-10-22 20:12:06 +08:00
|
|
|
plt.plot(clf.coef_, color='darkblue', linestyle='-', linewidth=2,
|
|
|
|
|
label="ARD estimate")
|
|
|
|
|
plt.plot(ols.coef_, color='yellowgreen', linestyle=':', linewidth=2,
|
|
|
|
|
label="OLS estimate")
|
|
|
|
|
plt.plot(w, color='orange', linestyle='-', linewidth=2, label="Ground truth")
|
2014-05-15 04:31:03 +08:00
|
|
|
plt.xlabel("Features")
|
|
|
|
|
plt.ylabel("Values of the weights")
|
|
|
|
|
plt.legend(loc=1)
|
2010-09-08 19:46:36 +08:00
|
|
|
|
2014-05-15 04:31:03 +08:00
|
|
|
plt.figure(figsize=(6, 5))
|
|
|
|
|
plt.title("Histogram of the weights")
|
2015-10-22 20:12:06 +08:00
|
|
|
plt.hist(clf.coef_, bins=n_features, color='navy', log=True)
|
|
|
|
|
plt.scatter(clf.coef_[relevant_features], 5 * np.ones(len(relevant_features)),
|
|
|
|
|
color='gold', marker='o', label="Relevant features")
|
2014-05-15 04:31:03 +08:00
|
|
|
plt.ylabel("Features")
|
|
|
|
|
plt.xlabel("Values of the weights")
|
|
|
|
|
plt.legend(loc=1)
|
2010-09-08 19:46:36 +08:00
|
|
|
|
2014-05-15 04:31:03 +08:00
|
|
|
plt.figure(figsize=(6, 5))
|
|
|
|
|
plt.title("Marginal log-likelihood")
|
2015-10-22 20:12:06 +08:00
|
|
|
plt.plot(clf.scores_, color='navy', linewidth=2)
|
2014-05-15 04:31:03 +08:00
|
|
|
plt.ylabel("Score")
|
|
|
|
|
plt.xlabel("Iterations")
|
|
|
|
|
plt.show()
|