School of Mathematics and Statistics

MAST90083: Computational Statistics and Data Science

Assignment 2

Weight: 15%

Some details about Question 1 and 2

For both questions, use library ”HRW” that contains the ”WarsawApts” dataset. The sym-

bol n represents length of the variables for the given dataset (WarsawApts), and a bold 1

represents vector of ones. The mean squared error (MSE) is a normalized version of residual

sum of squares (RSS) and is given as MSE=RSS/n.

Notations

Throughout this assignment, small letter represents a value, small letter attached with a

subscript represents an entry of a vector, small bold letter represents a vector, and capital

bold letter represents a matrix.

Question 1: Splines

The aim of this question is to learn how to code linear spline basis in order to approximate a

non-linear dataset via penalized spline regression (PSR). For PSR, a Cholesky decomposition

(CD) and singular value decomposition (SVD) approach can be used, but for this task the

regression based approach will be adopted, and any solution based on CD and SVD will not

be accepted. All the questions here are connected and must be attempted sequentially.

1. Store construction.date variable from WarsawApts in x and areaPerMzloty in y.

Generate 20 different location of knots and store them in vector k (ki corresponds

to i-th value of k, i = 1, ..., 20) using quantile (ref: Tutorial 5 Question 2) function.

To accomplish this task, you need a numeric vector of probabilities of length 22 that

can be generated using seq(0,1,length=22), however extreme values of 0 and 1 should

be excluded from this function in order to match the knots and the samples in x (x-

intercepts).

2. Using these knot locations now generate a Z matrix containing 20 linear spline basis

functions constructed using (x ? ki)+. Also plot this matrix by limiting the range of

y-axis between -1 and 2 as shown in Figure 1a.

3. Using the vector of ones, x, and Z, construct a C matrix of size n × 22 (ref: lecture

slide 18 of the spline regression). Also, generate a D matrix of size 22× 22 consisting

of ones on the diagonal entries and zeros elsewhere except the first two entries (ref:

lecture slide 30 of the spline regression). Then, 100 values of tuning parameter (λ)

1

Figure 1: Spline basis and fitted curve

selected from 0 to 50 as seq(0,50,length=100) are used to estimate the fitted curves

using penalized spline regression.

4. Now, compute the RSS errors, degrees of freedom, and generalized cross validation

(GCV) associated with 100 tuning parameters.

5. For λ corresponding to minimum GCV, overlay the true plot with a fit of y as shown

in Figure 1b. As you can see from the plot that with 20 linear spline basis the fitted

curve looks a bit too linear and might not be a good fit. Lets increase the number

of basis to 60 and obtain Figure 1c (similar to 1a) and 1d (similar to 1b). Were the

results improved by increasing the number of basis? Compute the MSE to justify the

improvement/deterioration.

Question 2: Non-parametric Regression

The aim of this question is to learn how to code kernel regression using different kernels. Here,

question 2.1 and 2.2 are connected and must be attempted sequentially, whereas question

2.3, 2.4, and 2.5 are connected and must be attempted sequentially

1. Using 6 values of k selected from 3 to 23, write an R code for k-nearest-neighbor (NN)

averaging. You can do this by firstly estimating the absolute difference between the

current sample xi and the vector x as d = |xi1?x|, and secondly using d to find those

indices that correspond to its k smallest values. These indices are the indices of the k

NNs to the current xi. Use these indices to select the corresponding entries from the

data vector y and take their mean as your i-th estimate y?i.

2. For each case of k, generate a figure illustrating a fitted vector y? on the true vector y (6

sub-figures in total, must be plotted in a single figure using 3×2 subplots), and compute

the MSE. For which case did you find the minimum MSE? In terms of MSE, what can

be said regarding the fitting comparison between k-NN and linear spline basis?

3. Using slide 13 of the kernel regression lecture, write a single function to accommodate

all 6 kernels. This function must be capable of returning 6 values, where each value

corresponds to the output value of a single kernel.

2

Figure 2: Cameraman picture and its density plot

4. Keeping the bandwidth fixed at h = 2 and using formula f?(xi) =

∑n

j=1Kh(xi,xj)yj∑n

j=1Kh(xi,xj)

,

(where {j = 1, ..., n}) code 6 kernel regression based fits for y by using 6 kernels from

the previous question ( To elaborate, for each sample xi and xj, six different kernel

values must be obtained in a single go to eventually generate six estimated values of

the i-th fit f?(xi), where f?(xi) is a vector and has 6 entries).

5. For each of the six kernels, generate a figure illustrating a fitted vector f?(x) on the true

vector y (6 sub-figures in total, must be plotted in a single figure using 3× 2 subplots).

Also, for each kernel estimate the MSE. For which kernel, the MSE is found to be

minimum?

Question 3: Expectation-Maximization

For this question, you are not allowed to use R’s built in function for the expectation-

maximization (EM) algorithm. You have already learnt how to code EM algorithm for

a gaussian mixture consisting of two probability density functions (pdfs), where both had

same standard deviation. Here, you will extend that algorithm to three cases, where all three

having different standard deviations.

1. In order to load relevant libraries and the provided image that is needed for the subse-

quent questions, use the following code

l i b r a r y (” p l o t . matrix ”)

l i b r a r y (”png”)

l i b r a r y (” f i e l d s ”)

I <= readPNG(”D:/ Code f i l e s /CM. png”)

I=I [ , , 1 ]

I=t ( apply ( I , 2 , rev ) )

par (mfrow=c (2 , 1 ) )

image ( I , c o l = gray ( ( 0 : 2 5 5 ) /255 ) )

p l o t ( dens i ty ( I ) )

2. The above code will generate figure 2 and as you can see from the density plot of the

cameraman picture (Figure 2b) that it is a mixture of three Gaussian distributions with

different standard deviations for each. Therefore, extend the EM algorithm so that it

can estimate parameters for these three pdfs. You may consider reshaping the image

data matrix I to one dimensional vector before applying your algorithm.

3

Figure 3: Cameraman picture labeling

3. You must terminate the algorithm when the stopping criteria (ej ? ej?1) becomes less

than 10?6, where ej =

∑3

i=1(mi ?m?i ) +

∑

(ci ? c?i ). Here, ej and ej?1 correspond to

the values from the current and previous iteration, respectively. Furthermore, mi and

ci represent i-th mean and standard deviation from the current iteration, respectively,

whereas m?i and c

?

i represent i-th mean and standard deviation from the previous it-

eration. Also, use command ”print(round(c(m, c, p),4))” to print all 9 values in each

iteration, where pi (the i-th entry of vector p) is a mixing probability for the i-th distri-

bution and denoted as π? in the lecture slide 24 of the missing data and EM algorithm.

4. Using the results of EM algorithm, label the image pixels by using i) each pixel’s pdf

estimation (you must be able to read the assignment value from figure 3a, you may

want to use ”dnorm” function for this part), and ii) posterior pdfs multiplied with their

mean.

5. Plot both images obtained from the last question, and compare the results with Figure

3. You must obtain an exact match. You may want to use function ”image.plot” for

better visualization.

版权所有：留学生编程辅导网 2020,All Rights Reserved 联系方式：QQ:99515681 电子信箱：99515681@qq.com

免责声明：本站部分内容从网络整理而来，只供参考！如有版权问题可联系本站删除。