"""
    ozone_data

Returns a vector of length 336 = 14*24 with the hourly ozone levels
at Azusa, California, during the first 14 days of July 2014
(discussed on page 319). 
"""
function ozone_data()
# Hourly Ozone measurements in Azusa 
# Values in parts per million;
# Hourly 12am - 11pm; some measurements missing

k=31;
V = zeros(24, k);
# Tuesday, July 1, 2014 
V[:,1] = [ 0.011;  0.011;  0.012;  NaN;    NaN;    0.011;  0.013;  0.014;  
           0.022;  0.029;  0.037;  0.050;  0.067;  0.076;  0.086;  0.076;  
           NaN;    0.044;  0.035;  0.027;  0.021;  0.018;  0.016;  0.017 ];
# Wednesday, July 2, 2014
V[:,2] = [ 0.018;  0.016;  0.015;  0.016;  NaN;    0.015;  0.013;  0.014;
           NaN;    0.029;  0.042;  0.056;  0.070;  0.083;  0.080;  0.086;
           0.074;  0.067;  0.045;  0.034;  0.024;  0.018;  0.014;  0.012 ];
# Thursday, July 3, 2014
V[:,3] = [ 0.009;  0.009;  0.007;  0.006;  NaN;    0.007;  0.007;  0.014;
           0.018;  0.028;  0.046;  0.069;  0.087;  0.096;  0.105;  0.099;
           0.077;  0.060;  0.046;  0.033;  0.029;  0.018;  0.011;  0.012 ];
# Friday, July 4, 2014
V[:,4] = [ 0.009;  0.008;  0.009;  0.006;  NaN;    0.009;  0.015;  0.020;
           0.028;  0.040;  0.057;  0.073;  0.079;  0.081;  0.070;  0.066;
           0.056;  0.047;  0.040;  0.035;  0.032;  0.026;  0.019;  0.011 ];
# Saturday, July 5, 2014
V[:,5] = [ 0.006;  0.003;  0.004;  0.004;  NaN;    0.004;  0.006;  0.015;   
           0.030;  0.047;  0.056;  0.057;  NaN;    NaN;    NaN;    NaN; 
           NaN;    NaN;    NaN;    NaN;    0.014;  0.010;  0.008;  0.009 ];
# Sunday, July 6, 2014
V[:,6] = [ 0.008;  0.008;  0.005;  0.005;  NaN;    0.008;  0.013;  0.021; 
           0.030;  0.038;  0.050;  NaN;    NaN;    NaN;    NaN;    NaN; 
           NaN;    NaN;    NaN;    NaN;    NaN;    NaN;    0.011;  0.009 ];
# Monday, July 7, 2014
V[:,7] = [ 0.007;  0.008;  0.006;  0.003;  NaN;    0.003;  0.006;  0.011;
           0.018;  0.028;  NaN;    NaN;    NaN;    NaN;    NaN;    NaN; 
           NaN;    NaN;    NaN;    NaN;    NaN;    NaN;    0.009;  0.014 ];
# Tuesday, July 8, 2014
V[:,8] = [ 0.014;  0.012;  0.011;  NaN;    NaN;    0.007;  0.008;  0.015; 
           NaN;    NaN;    NaN;    0.053;  0.070;  NaN;    NaN;    NaN; 
           NaN;    NaN;    NaN;    0.031;  0.026;  0.021;  0.019;  0.017 ];
# Wednesday, July 9, 2014
V[:,9] = [ 0.023;  0.020;  0.019;  0.014;  NaN;    0.013;  0.019;  0.016; 
           0.023;  0.032;  0.045;  0.057;  0.070;  0.078;  0.082;  0.072; 
           0.059;  0.049;  0.039;  0.027;  0.022;  0.019;  0.017;  0.013 ];
# Thursday, July 10, 2014
V[:,10] = [ 0.012;  0.011;  0.011;  NaN;    NaN;    0.013;  0.015;  0.014; 
            0.024;  0.033;  0.048;  0.055;  0.069;  0.074;  0.069;  0.062; 
            0.052;  0.046;  0.037;  0.028;  0.023;  0.016;  0.011;  0.011 ];
# Friday, July 11, 2014
V[:,11] = [ 0.011;  0.010;  0.011;  0.010;  NaN;    0.004;  0.010;  0.012; 
            0.017;  0.022;  0.031;  0.046;  0.051;  0.057;  0.056;  0.041; 
            0.034;  0.028;  0.024;  0.020;  0.018;  0.017;  0.017;  0.014 ];
# Saturday, July 12, 2014
V[:,12] = [ 0.011;  0.008;  0.011;  0.009;  NaN;    0.003;  0.007;  0.016; 
            0.027;  0.033;  0.039;  0.054;  0.062;  0.070;  0.065;  0.064; 
            0.058;  0.046;  0.038;  0.024;  0.023;  0.022;  0.018;  0.014 ];
# Sunday, July 13, 2014
V[:,13] = [ 0.013;  0.009;  0.009;  NaN;    NaN;    0.007;  0.012;  0.021; 
            0.033;  0.049;  0.065;  0.079;  0.084;  0.078;  0.077;  0.068; 
            0.059;  0.050;  0.038;  0.030;  0.030;  0.032;  0.024;  0.021 ];
# Monday, July 14, 2014
V[:,14] = [ 0.020;  0.017;  0.016;  NaN;    NaN;    0.008;  0.010;  0.013;  
            0.013;  0.014;  0.014;  0.019;  0.026;  0.032;  0.038;  0.038; 
            0.040;  0.031;  0.030;  0.026;  0.026;  0.023;  0.016;  0.014 ];
# Tuesday, July 15, 2014
V[:,15] = [ 0.013;  0.013;  0.010;  NaN;    NaN;    0.006;  0.010;  0.014; 
            0.018;  0.024;  0.030;  0.038;  0.048;  0.052;  0.048;  0.043;
            0.036;  0.026;  0.019;  0.016;  0.015;  0.014;  0.015;  NaN ];
# Wednesday, July 16, 2014
V[:,16] = [ 0.017;  0.015;  0.019;  NaN;    NaN;    0.012;  0.012;  0.012; 
            0.014;  0.018;  0.028;  0.036;  0.044;  0.052;  0.058;  NaN;
            NaN;    0.038;  0.028;  0.022;  0.019;  0.016;  0.018;  0.017 ];
# Thursday, July 17, 2014
V[:,17] = [ 0.016;  0.018;  0.017;  0.014;  NaN;    0.017;  0.019;  NaN;
            NaN;    0.015;  0.020;  0.027;  0.037;  0.047;  0.053;  0.038; 
            0.035;  0.031;  0.025;  0.020;  0.016;  0.014;  0.013;  0.015 ];
# Friday, July 18, 2014
V[:,18] = [ 0.015;  0.013;  0.012;  NaN;    NaN;    0.008;  0.009;  NaN; 
            NaN;    NaN;    NaN;    NaN;    0.044;  NaN;    NaN;    NaN; 
            0.037;  0.030;  0.020;  0.013;  0.012;  0.010;  0.008;  0.009 ];
# Saturday, July 19, 2014
V[:,19] = [ 0.010;  0.010;  0.008;  NaN;    NaN;    0.006;  0.007;  0.010; 
            0.013;  0.014;  0.016;  0.023;  0.026;  0.031;  0.040;  0.037; 
            0.027;  0.024;  0.021;  0.018;  0.015;  0.011;  0.008;  0.007 ];
# Sunday, July 20, 2014
V[:,20] = [ 0.007;  0.005;  0.007;  0.007;  NaN;    0.010;  0.012;  0.016; 
            0.019;  0.024;  0.030;  0.040;  0.053;  0.061;  0.068;  0.063; 
            0.060;  0.048;  0.028;  0.023;  0.021;  0.018;  0.015;  0.012 ];
# Monday, July 21, 2014
V[:,21] = [ 0.013;  0.011;  0.011;  0.008;  NaN;    0.007;  0.011;  0.012; 
            0.016;  0.024;  0.031;  0.038;  0.047;  0.053;  0.048;  0.043; 
            0.036;  0.033;  0.027;  0.020;  0.016;  0.012;  0.008;  0.007 ];
# Tuesday, July 22, 2014
V[:,22] = [ 0.008;  0.007;  0.005;  NaN;    NaN;    0.004;  0.006;  NaN; 
            NaN;    NaN;    NaN;    0.047;  0.056;  0.058;  0.050;  0.042; 
            0.036;  0.031;  0.026;  0.015;  0.010;  0.008;  0.006;  0.007 ];
# Wednesday, July 23, 2014
V[:,23] = [ 0.010;  0.003;  0.003;  NaN;    NaN;    0.004;  0.005;  NaN; 
            NaN;    NaN;    NaN;    NaN;    NaN;    NaN;    NaN;    NaN; 
            0.042;  0.038;  0.026;  0.019;  0.014;  0.009;  0.005;  0.006 ];
# Thursday, July 24, 2014
V[:,24] = [ 0.004;  0.006;  0.006;  NaN;    NaN;    0.003;  0.005;  0.010; 
            0.020;  0.026;  0.045;  0.070;  0.078;  0.094;  0.081;  0.082; 
            0.064;  0.056;  0.044;  0.035;  0.024;  0.031;  0.016;  0.006 ];
# Friday, July 25, 2014
V[:,25] = [ 0.009;  0.009;  0.014;  0.018;  NaN;    0.007;  0.008;  0.014; 
            0.020;  0.032;  0.041;  0.061;  0.075;  0.081;  0.080;  0.065; 
            0.053;  0.046;  0.037;  0.028;  0.027;  0.028;  0.023;  0.020 ];
# Saturday, July 26, 2014
V[:,26] = [ 0.023;  0.021;  0.013;  0.011;  NaN;    0.004;  0.008;  0.014;  
            0.023;  0.035;  0.048;  0.062;  0.073;  0.079;  0.074;  0.070; 
            0.063;  0.049;  0.041;  0.026;  0.029;  0.025;  0.022;  0.020 ];
# Sunday, July 27, 2014
V[:,27] = [ 0.015;  0.010;  0.013;  NaN;    NaN;    0.008;  0.011;  0.016; 
            0.025;  0.033;  0.038;  0.042;  0.058;  0.077;  0.090;  0.086; 
            0.064;  0.062;  0.044;  0.039;  0.033;  0.028;  0.030;  0.021 ];
# Monday, July 28, 2014
V[:,28] = [ 0.028;  0.024;  0.017;  NaN;    NaN;    0.012;  0.014;  0.010;
            0.013;  0.024;  0.032;  0.043;  0.051;  0.063;  0.070;  0.064; 
            0.055;  0.043;  0.037;  0.033;  0.024;  0.018;  0.013;  0.012 ];
# Tuesday, July 29, 2014
V[:,29] = [ 0.011;  0.013;  0.018;  NaN;    NaN;    0.004;  0.005;  0.009; 
            0.017;  0.031;  0.037;  0.044;  0.052;  0.060;  0.057;  0.058; 
            0.055;  0.045;  0.037;  0.029;  0.020;  0.013;  0.009;  NaN ];
# Wednesday, July 30, 2014
V[:,30] = [ NaN;    0.006;  0.004;  0.003;  NaN;    0.004;  0.005;  0.008;
            0.019;  0.034;  0.045;  0.064;  0.082;  0.093;  0.081;  0.079; 
            0.071;  0.056;  0.035;  0.029;  0.026;  0.014;  0.006;  0.005 ];
# Thursday, July 31, 2014
V[:,31] = [ 0.007;  0.004;  0.004;  0.003;  NaN;    0.003;  0.005;  0.011; 
            0.019;  0.032;  0.045;  0.056;  0.069;  0.079;  0.076;  0.075;
            0.063;  0.055;  0.041;  0.026;  0.021;  0.012;  0.008;  0.011 ];
k =14;
return reshape(V[:,1:k], k*24, 1) 
end
