|\^/|     Maple 18 (X86 64 WINDOWS)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2014
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Bootstrap, BoxPlot, BubblePlot, CDF, CGF, CentralMoment,

    CharacteristicFunction, ChiSquareGoodnessOfFitTest,

    ChiSquareIndependenceTest, ChiSquareSuitableModelTest, ColumnGraph,

    Correlation, CorrelationMatrix, Count, CountMissing, Covariance,

    CovarianceMatrix, CrossCorrelation, Cumulant, CumulantGeneratingFunction,

    CumulativeDistributionFunction, CumulativeProduct, CumulativeSum,

    CumulativeSumChart, DataSummary, Decile, DensityPlot, DiscreteValueMap,

    Discretize, Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean,

    HarmonicMean, HazardRate, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate, Mean,

    MeanDeviation, Median, MedianDeviation, MillsRatio, Mode, Moment,

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PDF, Percentile,

    PieChart, PointPlot, PolynomialFit, PowerFit, PredictiveLeastSquares,

    Probability, ProbabilityDensityFunction, ProbabilityFunction,

    ProbabilityPlot, ProfileLikelihood, ProfileLogLikelihood, QuadraticMean,

    Quantile, QuantilePlot, Quartile, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RousseeuwCrouxQn, RousseeuwCrouxSn, Sample,

    ScatterPlot, ScatterPlot3D, Score, Select, SelectInRange, SelectNonNumeric,

    ShapiroWilkWTest, Shuffle, Skewness, Sort, Specialize, SplitByColumn,

    StandardDeviation, StandardError, StandardizedMoment, SunflowerPlot,

    Support, SurfacePlot, SurvivalFunction, SymmetryPlot, Tally, TallyInto,

    Trim, TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> sugar := ([136,
> 129,
> 131,
> 110,
> 123,
> 116,
> 131,
> 123,
> 124,
> 137,
> 106,
> 107,
> 127,
> 139,
> 118,
> 105,
> 114,
> 130,
> 125,
> 118,
> 113,
> 126,
> 117,
> 125,
> 118,
> 118,
> 139,
> 126,
> 125,
> 92.9,
> 114,
> 102,
> 72.7,
> 69.3,
> 71.2,
> 59.5,
> 81.8,
> 88.1,
> 89,
> 84.1,
> 97.6,
> 84.9,
> 86,
> 103,
> 91.8,
> 92.3,
> 89.8,
> 93.9,
> 102,
> 83.4,
> 99.5,
> 87.2,
> 88.3,
> 92.4,
> 111,
> 77.6,
> 63.5,
> 80.9,
> 91.5,
> 112,
> 84.7,
> 94.3,
> 106,
> 105,
> 92.6,
> 97.9,
> 92.4,
> 115,
> 101,
> 116,
> 110,
> 105,
> 103,
> 95.1,
> 98.3,
> 101,
> 103,
> 103]);
sugar := [136, 129, 131, 110, 123, 116, 131, 123, 124, 137, 106, 107, 127, 139,

    118, 105, 114, 130, 125, 118, 113, 126, 117, 125, 118, 118, 139, 126, 125,

    92.9, 114, 102, 72.7, 69.3, 71.2, 59.5, 81.8, 88.1, 89, 84.1, 97.6, 84.9,

    86, 103, 91.8, 92.3, 89.8, 93.9, 102, 83.4, 99.5, 87.2, 88.3, 92.4, 111,

    77.6, 63.5, 80.9, 91.5, 112, 84.7, 94.3, 106, 105, 92.6, 97.9, 92.4, 115,

    101, 116, 110, 105, 103, 95.1, 98.3, 101, 103, 103]

> glu_avg := ([137.4,
> 129.8,
> 141.1,
> 141.5,
> 129.5,
> 172.0,
> 132.1,
> 118.3,
> 132.7,
> 127.8,
> 118.7,
> 125.0,
> 138.0,
> 119.9,
> 113.0,
> 125.5,
> 114.3,
> 121.5,
> 135.0,
> 121.7,
> 125.0,
> 125.4,
> 141.4,
> 131.3,
> 127.5,
> 131.0,
> 126.2,
> 135.6,
> 138.0,
> 131.3,
> 140.1,
> 134.2,
> 129.1,
> 119.6,
> 119.1,
> 122.0,
> 121.5,
> 128.2,
> 130.9,
> 131.3,
> 117.3,
> 120.4,
> 125.7,
> 131.4,
> 136.9,
> 134.2,
> 132.1,
> 125.3,
> 124.9,
> 123.0,
> 121.2,
> 119.9,
> 124.4,
> 126.2,
> 122.7,
> 117.6,
> 109.9,
> 107.6,
> 119.8,
> 116.6,
> 113.9,
> 109.1,
> 113.8,
> 116.4,
> 114.8,
> 115.3,
> 112.6,
> 113.0,
> 105.5,
> 113.8,
> 113.5,
> 114.1,
> 117.9,
> 111.5,
> 116.8,
> 113.0,
> 119.9,
> 122.5]);
glu_avg := [137.4, 129.8, 141.1, 141.5, 129.5, 172.0, 132.1, 118.3, 132.7,

    127.8, 118.7, 125.0, 138.0, 119.9, 113.0, 125.5, 114.3, 121.5, 135.0, 121.7,

    125.0, 125.4, 141.4, 131.3, 127.5, 131.0, 126.2, 135.6, 138.0, 131.3, 140.1,

    134.2, 129.1, 119.6, 119.1, 122.0, 121.5, 128.2, 130.9, 131.3, 117.3, 120.4,

    125.7, 131.4, 136.9, 134.2, 132.1, 125.3, 124.9, 123.0, 121.2, 119.9, 124.4,

    126.2, 122.7, 117.6, 109.9, 107.6, 119.8, 116.6, 113.9, 109.1, 113.8, 116.4,

    114.8, 115.3, 112.6, 113.0, 105.5, 113.8, 113.5, 114.1, 117.9, 111.5, 116.8,

    113.0, 119.9, 122.5]

> 
> sugar_mean := Mean(sugar);
                         sugar_mean := 104.262820512821

> glu_avg_mean := Mean(glu_avg);
                        glu_avg_mean := 124.333333333333

> std_sugar := StandardDeviation(sugar);
                         std_sugar := 18.4463005052775

> std_glu_avg := StandardDeviation(glu_avg);
                        std_glu_avg := 10.3775315067293

> corr := Correlation(sugar,glu_avg);
                           corr := 0.331895194920420

> quit
memory used=1.0MB, alloc=8.3MB, time=0.05