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

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> day := [
> 3
> ,
> 6
> ,
> 9
> ,
> 11
> ,
> 13
> ,
> 20
> ,
> 23
> ,
> 24
> ,
> 27
> ,
> 34
> ,
> 37
> ,
> 41
> ,
> 44
> ,
> 46
> ,
> 49
> ,
> 50
> ,
> 56
> ,
> 57
> ,
> 61
> ,
> 64
> ,
> 69
> ,
> 82
> ,
> 84
> ,
> 85
> ,
> 88
> ,
> 92
> ,
> 96
> ,
> 106
> ,
> 109
> ,
> 112
> ,
> 116
> ,
> 117
> ,
> 119
> ,
> 124
> ,
> 128
> ,
> 130
> ,
> 134
> ,
> 135
> ,
> 137
> ,
> 139
> ,
> 140
> ,
> 142
> ,
> 143
> ,
> 156
> ,
> 161
> ,
> 162
> ,
> 164
> ,
> 166
> ,
> 170
> ,
> 173
> ,
> 180
> ,
> 187
> ,
> 192
> ,
> 196
> ,
> 199
> ,
> 201
> ,
> 202
> ,
> 203
> ,
> 204
> ,
> 306
> ,
> 313
> ,
> 316
> ,
> 335
> ,
> 337
> ,
> 341
> ,
> 352
> ,
> 354
> ,
> 356
> ,
> 361
> ,
> 362
> ,
> 365
> ,
> 370
> ,
> 372
> ,
> 374
> ,
> 377
> ,
> 382
> ,
> 385
> ,
> 390
> ,
> 396
> ,
> 403
> ,
> 405
> ,
> 406
> ,
> 409
> ,
> 412
> ,
> 414
> ,
> 416
> ,
> 418
> ,
> 420
> ,
> 422
> ,
> 425
> ,
> 430
> ,
> 433
> ,
> 434
> ,
> 438
> ,
> 442
> ,
> 443
> ,
> 446
> ,
> 449
> ,
> 450
> ,
> 454
> ,
> 455
> ,
> 458
> ,
> 461
> ,
> 466
> ,
> 468
> ,
> 472
> ,
> 478
> ,
> 483
> ,
> 484
> ,
> 486
> ,
> 489
> ,
> 496
> ,
> 504
> ,
> 509
> ,
> 511
> ,
> 513
> ,
> 515
> ,
> 517
> ,
> 525
> ,
> 526
> ,
> 533
> ,
> 535
> ,
> 541
> ,
> 545
> ,
> 548
> ,
> 557
> ,
> 560
> ,
> 561
> ,
> 563
> ,
> 566
> ,
> 567
> ];
day := [3, 6, 9, 11, 13, 20, 23, 24, 27, 34, 37, 41, 44, 46, 49, 50, 56, 57, 61,

    64, 69, 82, 84, 85, 88, 92, 96, 106, 109, 112, 116, 117, 119, 124, 128, 130,

    134, 135, 137, 139, 140, 142, 143, 156, 161, 162, 164, 166, 170, 173, 180,

    187, 192, 196, 199, 201, 202, 203, 204, 306, 313, 316, 335, 337, 341, 352,

    354, 356, 361, 362, 365, 370, 372, 374, 377, 382, 385, 390, 396, 403, 405,

    406, 409, 412, 414, 416, 418, 420, 422, 425, 430, 433, 434, 438, 442, 443,

    446, 449, 450, 454, 455, 458, 461, 466, 468, 472, 478, 483, 484, 486, 489,

    496, 504, 509, 511, 513, 515, 517, 525, 526, 533, 535, 541, 545, 548, 557,

    560, 561, 563, 566, 567]

> weight := [
> 191.8
> ,
> 192.4
> ,
> 192.8
> ,
> 191.6
> ,
> 192.8
> ,
> 194.4
> ,
> 194.2
> ,
> 194.2
> ,
> 195.0
> ,
> 194.6
> ,
> 195.4
> ,
> 193.8
> ,
> 193.8
> ,
> 193.6
> ,
> 194.4
> ,
> 194.8
> ,
> 192.8
> ,
> 193.6
> ,
> 193.0
> ,
> 193.2
> ,
> 192.2
> ,
> 193.2
> ,
> 193.8
> ,
> 193.8
> ,
> 193.0
> ,
> 193.8
> ,
> 192.6
> ,
> 192.2
> ,
> 193.2
> ,
> 192.8
> ,
> 191.6
> ,
> 191.6
> ,
> 192.8
> ,
> 191.8
> ,
> 191.6
> ,
> 191.4
> ,
> 191.8
> ,
> 193.4
> ,
> 192.2
> ,
> 193.6
> ,
> 194.2
> ,
> 192.8
> ,
> 194.2
> ,
> 191.0
> ,
> 191.2
> ,
> 191.6
> ,
> 191.0
> ,
> 191.0
> ,
> 191.8
> ,
> 191.0
> ,
> 189.8
> ,
> 190.8
> ,
> 192.2
> ,
> 190.0
> ,
> 191.2
> ,
> 190.6
> ,
> 192.2
> ,
> 192.2
> ,
> 192.6
> ,
> 187.4
> ,
> 186.4
> ,
> 187.8
> ,
> 186.6
> ,
> 187.0
> ,
> 186.2
> ,
> 187.0
> ,
> 187.2
> ,
> 187.8
> ,
> 185.2
> ,
> 185.6
> ,
> 186.2
> ,
> 184.0
> ,
> 184.0
> ,
> 184.4
> ,
> 184.0
> ,
> 183.8
> ,
> 182.8
> ,
> 183.0
> ,
> 183.6
> ,
> 181.4
> ,
> 181.4
> ,
> 181.4
> ,
> 181.0
> ,
> 180.8
> ,
> 179.2
> ,
> 180.0
> ,
> 179.0
> ,
> 179.8
> ,
> 180.8
> ,
> 179.2
> ,
> 178.8
> ,
> 178.8
> ,
> 178.8
> ,
> 179.5
> ,
> 177.6
> ,
> 177.8
> ,
> 179.4
> ,
> 176.6
> ,
> 177.2
> ,
> 175.0
> ,
> 176.2
> ,
> 175.6
> ,
> 176.4
> ,
> 175.6
> ,
> 176.8
> ,
> 177.4
> ,
> 177.2
> ,
> 177.4
> ,
> 178.2
> ,
> 178.4
> ,
> 176.8
> ,
> 178.0
> ,
> 178.0
> ,
> 178.8
> ,
> 178.8
> ,
> 177.8
> ,
> 178.8
> ,
> 179.0
> ,
> 178.8
> ,
> 180.2
> ,
> 179.4
> ,
> 178.8
> ,
> 179.2
> ,
> 180.2
> ,
> 180.2
> ,
> 179.2
> ,
> 179.6
> ,
> 180.2
> ,
> 179.2
> ,
> 180.8
> ,
> 181.2
> ];
weight := [191.8, 192.4, 192.8, 191.6, 192.8, 194.4, 194.2, 194.2, 195.0, 194.6,

    195.4, 193.8, 193.8, 193.6, 194.4, 194.8, 192.8, 193.6, 193.0, 193.2, 192.2,

    193.2, 193.8, 193.8, 193.0, 193.8, 192.6, 192.2, 193.2, 192.8, 191.6, 191.6,

    192.8, 191.8, 191.6, 191.4, 191.8, 193.4, 192.2, 193.6, 194.2, 192.8, 194.2,

    191.0, 191.2, 191.6, 191.0, 191.0, 191.8, 191.0, 189.8, 190.8, 192.2, 190.0,

    191.2, 190.6, 192.2, 192.2, 192.6, 187.4, 186.4, 187.8, 186.6, 187.0, 186.2,

    187.0, 187.2, 187.8, 185.2, 185.6, 186.2, 184.0, 184.0, 184.4, 184.0, 183.8,

    182.8, 183.0, 183.6, 181.4, 181.4, 181.4, 181.0, 180.8, 179.2, 180.0, 179.0,

    179.8, 180.8, 179.2, 178.8, 178.8, 178.8, 179.5, 177.6, 177.8, 179.4, 176.6,

    177.2, 175.0, 176.2, 175.6, 176.4, 175.6, 176.8, 177.4, 177.2, 177.4, 178.2,

    178.4, 176.8, 178.0, 178.0, 178.8, 178.8, 177.8, 178.8, 179.0, 178.8, 180.2,

    179.4, 178.8, 179.2, 180.2, 180.2, 179.2, 179.6, 180.2, 179.2, 180.8, 181.2

    ]

> c := Correlation(day,weight);
                            c := -0.946716232155023

> quit
memory used=0.8MB, alloc=8.3MB, time=0.11
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> calories := [
> 2749
> ,
> 2727
> ,
> 2872
> ,
> 2430
> ,
> 2363
> ,
> 2554
> ,
> 3048
> ,
> 2589
> ,
> 2528
> ,
> 2366
> ,
> 2895
> ,
> 1836
> ,
> 2467
> ,
> 2152
> ,
> 3015
> ,
> 2826
> ,
> 2043
> ,
> 1933
> ,
> 2711
> ,
> 2666
> ,
> 2534
> ,
> 2204
> ,
> 2572
> ,
> 2495
> ,
> 2362
> ,
> 2807
> ,
> 2846
> ,
> 2496
> ,
> 2187
> ,
> 2587
> ,
> 2242
> ,
> 2175
> ,
> 2334
> ,
> 2202
> ,
> 3151
> ,
> 1692
> ,
> 2295
> ,
> 1941
> ,
> 2860
> ,
> 3004
> ,
> 2513
> ,
> 2739
> ,
> 2723
> ,
> 2621
> ,
> 2452
> ,
> 2851
> ,
> 1741
> ,
> 1834
> ,
> 1940
> ,
> 2191
> ,
> 1802
> ,
> 2534
> ,
> 2407
> ,
> 1828
> ,
> 2958
> ,
> 3077
> ,
> 2304
> ,
> 2974
> ,
> 3100
> ,
> 3090
> ,
> 2563
> ,
> 2423
> ,
> 1795
> ,
> 2766
> ,
> 2497
> ,
> 1743
> ,
> 2504
> ,
> 2509
> ,
> 2172
> ,
> 1840
> ,
> 1754
> ,
> 1498
> ,
> 2487
> ,
> 2136
> ,
> 1704
> ,
> 2337
> ,
> 2411
> ,
> 2032
> ,
> 2139
> ,
> 1382
> ,
> 2543
> ,
> 2259
> ,
> 2332
> ,
> 2090
> ,
> 1935
> ,
> 2062
> ,
> 2000
> ,
> 2246
> ,
> 2448
> ,
> 2290
> ,
> 1769
> ,
> 1486
> ,
> 1855
> ,
> 2034
> ,
> 1959
> ,
> 2281
> ,
> 1258
> ,
> 2204
> ,
> 2533
> ,
> 1205
> ,
> 1795
> ,
> 1994
> ,
> 1924
> ,
> 2797
> ,
> 2785
> ,
> 1542
> ,
> 2502
> ,
> 2894
> ,
> 1944
> ,
> 2352
> ,
> 3192
> ,
> 2471
> ,
> 2524
> ,
> 2747
> ,
> 1816
> ,
> 2239
> ,
> 2802
> ,
> 2368
> ,
> 2004
> ,
> 3076
> ,
> 2462
> ,
> 2389
> ,
> 1646
> ,
> 2073
> ,
> 3483
> ,
> 1493
> ,
> 2015
> ,
> 3460
> ,
> 1706
> ,
> 2145
> ,
> 2584
> ];
calories := [2749, 2727, 2872, 2430, 2363, 2554, 3048, 2589, 2528, 2366, 2895,

    1836, 2467, 2152, 3015, 2826, 2043, 1933, 2711, 2666, 2534, 2204, 2572,

    2495, 2362, 2807, 2846, 2496, 2187, 2587, 2242, 2175, 2334, 2202, 3151,

    1692, 2295, 1941, 2860, 3004, 2513, 2739, 2723, 2621, 2452, 2851, 1741,

    1834, 1940, 2191, 1802, 2534, 2407, 1828, 2958, 3077, 2304, 2974, 3100,

    3090, 2563, 2423, 1795, 2766, 2497, 1743, 2504, 2509, 2172, 1840, 1754,

    1498, 2487, 2136, 1704, 2337, 2411, 2032, 2139, 1382, 2543, 2259, 2332,

    2090, 1935, 2062, 2000, 2246, 2448, 2290, 1769, 1486, 1855, 2034, 1959,

    2281, 1258, 2204, 2533, 1205, 1795, 1994, 1924, 2797, 2785, 1542, 2502,

    2894, 1944, 2352, 3192, 2471, 2524, 2747, 1816, 2239, 2802, 2368, 2004,

    3076, 2462, 2389, 1646, 2073, 3483, 1493, 2015, 3460, 1706, 2145, 2584]

> weight := [
> 191.8
> ,
> 192.4
> ,
> 192.8
> ,
> 191.6
> ,
> 192.8
> ,
> 194.4
> ,
> 194.2
> ,
> 194.2
> ,
> 195.0
> ,
> 194.6
> ,
> 195.4
> ,
> 193.8
> ,
> 193.8
> ,
> 193.6
> ,
> 194.4
> ,
> 194.8
> ,
> 192.8
> ,
> 193.6
> ,
> 193.0
> ,
> 193.2
> ,
> 192.2
> ,
> 193.2
> ,
> 193.8
> ,
> 193.8
> ,
> 193.0
> ,
> 193.8
> ,
> 192.6
> ,
> 192.2
> ,
> 193.2
> ,
> 192.8
> ,
> 191.6
> ,
> 191.6
> ,
> 192.8
> ,
> 191.8
> ,
> 191.6
> ,
> 191.4
> ,
> 191.8
> ,
> 193.4
> ,
> 192.2
> ,
> 193.6
> ,
> 194.2
> ,
> 192.8
> ,
> 194.2
> ,
> 191.0
> ,
> 191.2
> ,
> 191.6
> ,
> 191.0
> ,
> 191.0
> ,
> 191.8
> ,
> 191.0
> ,
> 189.8
> ,
> 190.8
> ,
> 192.2
> ,
> 190.0
> ,
> 191.2
> ,
> 190.6
> ,
> 192.2
> ,
> 192.2
> ,
> 192.6
> ,
> 187.4
> ,
> 186.4
> ,
> 187.8
> ,
> 186.6
> ,
> 187.0
> ,
> 186.2
> ,
> 187.0
> ,
> 187.2
> ,
> 187.8
> ,
> 185.2
> ,
> 185.6
> ,
> 186.2
> ,
> 184.0
> ,
> 184.0
> ,
> 184.4
> ,
> 184.0
> ,
> 183.8
> ,
> 182.8
> ,
> 183.0
> ,
> 183.6
> ,
> 181.4
> ,
> 181.4
> ,
> 181.4
> ,
> 181.0
> ,
> 180.8
> ,
> 179.2
> ,
> 180.0
> ,
> 179.0
> ,
> 179.8
> ,
> 180.8
> ,
> 179.2
> ,
> 178.8
> ,
> 178.8
> ,
> 178.8
> ,
> 179.5
> ,
> 177.6
> ,
> 177.8
> ,
> 179.4
> ,
> 176.6
> ,
> 177.2
> ,
> 175.0
> ,
> 176.2
> ,
> 175.6
> ,
> 176.4
> ,
> 175.6
> ,
> 176.8
> ,
> 177.4
> ,
> 177.2
> ,
> 177.4
> ,
> 178.2
> ,
> 178.4
> ,
> 176.8
> ,
> 178.0
> ,
> 178.0
> ,
> 178.8
> ,
> 178.8
> ,
> 177.8
> ,
> 178.8
> ,
> 179.0
> ,
> 178.8
> ,
> 180.2
> ,
> 179.4
> ,
> 178.8
> ,
> 179.2
> ,
> 180.2
> ,
> 180.2
> ,
> 179.2
> ,
> 179.6
> ,
> 180.2
> ,
> 179.2
> ,
> 180.8
> ,
> 181.2
> ];
weight := [191.8, 192.4, 192.8, 191.6, 192.8, 194.4, 194.2, 194.2, 195.0, 194.6,

    195.4, 193.8, 193.8, 193.6, 194.4, 194.8, 192.8, 193.6, 193.0, 193.2, 192.2,

    193.2, 193.8, 193.8, 193.0, 193.8, 192.6, 192.2, 193.2, 192.8, 191.6, 191.6,

    192.8, 191.8, 191.6, 191.4, 191.8, 193.4, 192.2, 193.6, 194.2, 192.8, 194.2,

    191.0, 191.2, 191.6, 191.0, 191.0, 191.8, 191.0, 189.8, 190.8, 192.2, 190.0,

    191.2, 190.6, 192.2, 192.2, 192.6, 187.4, 186.4, 187.8, 186.6, 187.0, 186.2,

    187.0, 187.2, 187.8, 185.2, 185.6, 186.2, 184.0, 184.0, 184.4, 184.0, 183.8,

    182.8, 183.0, 183.6, 181.4, 181.4, 181.4, 181.0, 180.8, 179.2, 180.0, 179.0,

    179.8, 180.8, 179.2, 178.8, 178.8, 178.8, 179.5, 177.6, 177.8, 179.4, 176.6,

    177.2, 175.0, 176.2, 175.6, 176.4, 175.6, 176.8, 177.4, 177.2, 177.4, 178.2,

    178.4, 176.8, 178.0, 178.0, 178.8, 178.8, 177.8, 178.8, 179.0, 178.8, 180.2,

    179.4, 178.8, 179.2, 180.2, 180.2, 179.2, 179.6, 180.2, 179.2, 180.8, 181.2

    ]

> c := Correlation(calories,weight);
                             c := 0.299860882565590

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> fat := [
> 136.0
> ,
> 120.0
> ,
> 121.0
> ,
> 136.0
> ,
> 108.0
> ,
> 133.0
> ,
> 167.0
> ,
> 141.0
> ,
> 113.0
> ,
> 111.0
> ,
> 139.0
> ,
> 96.2
> ,
> 129.0
> ,
> 113.0
> ,
> 176.0
> ,
> 151.0
> ,
> 96.5
> ,
> 105.0
> ,
> 152.0
> ,
> 169.0
> ,
> 146.0
> ,
> 90.8
> ,
> 172.0
> ,
> 146.0
> ,
> 98.0
> ,
> 141.0
> ,
> 174.0
> ,
> 96.9
> ,
> 130.0
> ,
> 113.0
> ,
> 122.0
> ,
> 104.0
> ,
> 155.0
> ,
> 119.0
> ,
> 199.0
> ,
> 73.4
> ,
> 88.8
> ,
> 96.4
> ,
> 171.0
> ,
> 159.0
> ,
> 113.0
> ,
> 160.0
> ,
> 157.0
> ,
> 127.0
> ,
> 134.0
> ,
> 164.0
> ,
> 85.3
> ,
> 68.0
> ,
> 125.0
> ,
> 122.0
> ,
> 105.0
> ,
> 151.0
> ,
> 151.0
> ,
> 91.5
> ,
> 171.0
> ,
> 149.0
> ,
> 131.0
> ,
> 161.0
> ,
> 160.0
> ,
> 163.0
> ,
> 125.0
> ,
> 78.4
> ,
> 112.0
> ,
> 152.0
> ,
> 106.0
> ,
> 98.3
> ,
> 124.0
> ,
> 99.0
> ,
> 100.0
> ,
> 61.1
> ,
> 107.0
> ,
> 67.1
> ,
> 135.0
> ,
> 102.0
> ,
> 73.7
> ,
> 111.0
> ,
> 86.3
> ,
> 89.9
> ,
> 102.0
> ,
> 52.6
> ,
> 117.0
> ,
> 94.5
> ,
> 91.9
> ,
> 82.6
> ,
> 86.7
> ,
> 81.4
> ,
> 93.3
> ,
> 88.1
> ,
> 101.0
> ,
> 85.9
> ,
> 37.0
> ,
> 33.4
> ,
> 105.0
> ,
> 60.4
> ,
> 84.6
> ,
> 94.5
> ,
> 15.8
> ,
> 88.3
> ,
> 80.4
> ,
> 31.0
> ,
> 66.9
> ,
> 78.9
> ,
> 61.0
> ,
> 106.0
> ,
> 133.0
> ,
> 47.2
> ,
> 104.0
> ,
> 155.0
> ,
> 74.2
> ,
> 76.2
> ,
> 113.0
> ,
> 95.5
> ,
> 66.2
> ,
> 146.0
> ,
> 71.4
> ,
> 135.0
> ,
> 96.3
> ,
> 53.3
> ,
> 62.5
> ,
> 121.0
> ,
> 102.0
> ,
> 114.0
> ,
> 37.5
> ,
> 47.9
> ,
> 156.0
> ,
> 61.8
> ,
> 46.9
> ,
> 166.0
> ,
> 77.9
> ,
> 61.4
> ,
> 102.0
> ];
fat := [136.0, 120.0, 121.0, 136.0, 108.0, 133.0, 167.0, 141.0, 113.0, 111.0,

    139.0, 96.2, 129.0, 113.0, 176.0, 151.0, 96.5, 105.0, 152.0, 169.0, 146.0,

    90.8, 172.0, 146.0, 98.0, 141.0, 174.0, 96.9, 130.0, 113.0, 122.0, 104.0,

    155.0, 119.0, 199.0, 73.4, 88.8, 96.4, 171.0, 159.0, 113.0, 160.0, 157.0,

    127.0, 134.0, 164.0, 85.3, 68.0, 125.0, 122.0, 105.0, 151.0, 151.0, 91.5,

    171.0, 149.0, 131.0, 161.0, 160.0, 163.0, 125.0, 78.4, 112.0, 152.0, 106.0,

    98.3, 124.0, 99.0, 100.0, 61.1, 107.0, 67.1, 135.0, 102.0, 73.7, 111.0,

    86.3, 89.9, 102.0, 52.6, 117.0, 94.5, 91.9, 82.6, 86.7, 81.4, 93.3, 88.1,

    101.0, 85.9, 37.0, 33.4, 105.0, 60.4, 84.6, 94.5, 15.8, 88.3, 80.4, 31.0,

    66.9, 78.9, 61.0, 106.0, 133.0, 47.2, 104.0, 155.0, 74.2, 76.2, 113.0, 95.5,

    66.2, 146.0, 71.4, 135.0, 96.3, 53.3, 62.5, 121.0, 102.0, 114.0, 37.5, 47.9,

    156.0, 61.8, 46.9, 166.0, 77.9, 61.4, 102.0]

> weight := [
> 191.8
> ,
> 192.4
> ,
> 192.8
> ,
> 191.6
> ,
> 192.8
> ,
> 194.4
> ,
> 194.2
> ,
> 194.2
> ,
> 195.0
> ,
> 194.6
> ,
> 195.4
> ,
> 193.8
> ,
> 193.8
> ,
> 193.6
> ,
> 194.4
> ,
> 194.8
> ,
> 192.8
> ,
> 193.6
> ,
> 193.0
> ,
> 193.2
> ,
> 192.2
> ,
> 193.2
> ,
> 193.8
> ,
> 193.8
> ,
> 193.0
> ,
> 193.8
> ,
> 192.6
> ,
> 192.2
> ,
> 193.2
> ,
> 192.8
> ,
> 191.6
> ,
> 191.6
> ,
> 192.8
> ,
> 191.8
> ,
> 191.6
> ,
> 191.4
> ,
> 191.8
> ,
> 193.4
> ,
> 192.2
> ,
> 193.6
> ,
> 194.2
> ,
> 192.8
> ,
> 194.2
> ,
> 191.0
> ,
> 191.2
> ,
> 191.6
> ,
> 191.0
> ,
> 191.0
> ,
> 191.8
> ,
> 191.0
> ,
> 189.8
> ,
> 190.8
> ,
> 192.2
> ,
> 190.0
> ,
> 191.2
> ,
> 190.6
> ,
> 192.2
> ,
> 192.2
> ,
> 192.6
> ,
> 187.4
> ,
> 186.4
> ,
> 187.8
> ,
> 186.6
> ,
> 187.0
> ,
> 186.2
> ,
> 187.0
> ,
> 187.2
> ,
> 187.8
> ,
> 185.2
> ,
> 185.6
> ,
> 186.2
> ,
> 184.0
> ,
> 184.0
> ,
> 184.4
> ,
> 184.0
> ,
> 183.8
> ,
> 182.8
> ,
> 183.0
> ,
> 183.6
> ,
> 181.4
> ,
> 181.4
> ,
> 181.4
> ,
> 181.0
> ,
> 180.8
> ,
> 179.2
> ,
> 180.0
> ,
> 179.0
> ,
> 179.8
> ,
> 180.8
> ,
> 179.2
> ,
> 178.8
> ,
> 178.8
> ,
> 178.8
> ,
> 179.5
> ,
> 177.6
> ,
> 177.8
> ,
> 179.4
> ,
> 176.6
> ,
> 177.2
> ,
> 175.0
> ,
> 176.2
> ,
> 175.6
> ,
> 176.4
> ,
> 175.6
> ,
> 176.8
> ,
> 177.4
> ,
> 177.2
> ,
> 177.4
> ,
> 178.2
> ,
> 178.4
> ,
> 176.8
> ,
> 178.0
> ,
> 178.0
> ,
> 178.8
> ,
> 178.8
> ,
> 177.8
> ,
> 178.8
> ,
> 179.0
> ,
> 178.8
> ,
> 180.2
> ,
> 179.4
> ,
> 178.8
> ,
> 179.2
> ,
> 180.2
> ,
> 180.2
> ,
> 179.2
> ,
> 179.6
> ,
> 180.2
> ,
> 179.2
> ,
> 180.8
> ,
> 181.2
> ];
weight := [191.8, 192.4, 192.8, 191.6, 192.8, 194.4, 194.2, 194.2, 195.0, 194.6,

    195.4, 193.8, 193.8, 193.6, 194.4, 194.8, 192.8, 193.6, 193.0, 193.2, 192.2,

    193.2, 193.8, 193.8, 193.0, 193.8, 192.6, 192.2, 193.2, 192.8, 191.6, 191.6,

    192.8, 191.8, 191.6, 191.4, 191.8, 193.4, 192.2, 193.6, 194.2, 192.8, 194.2,

    191.0, 191.2, 191.6, 191.0, 191.0, 191.8, 191.0, 189.8, 190.8, 192.2, 190.0,

    191.2, 190.6, 192.2, 192.2, 192.6, 187.4, 186.4, 187.8, 186.6, 187.0, 186.2,

    187.0, 187.2, 187.8, 185.2, 185.6, 186.2, 184.0, 184.0, 184.4, 184.0, 183.8,

    182.8, 183.0, 183.6, 181.4, 181.4, 181.4, 181.0, 180.8, 179.2, 180.0, 179.0,

    179.8, 180.8, 179.2, 178.8, 178.8, 178.8, 179.5, 177.6, 177.8, 179.4, 176.6,

    177.2, 175.0, 176.2, 175.6, 176.4, 175.6, 176.8, 177.4, 177.2, 177.4, 178.2,

    178.4, 176.8, 178.0, 178.0, 178.8, 178.8, 177.8, 178.8, 179.0, 178.8, 180.2,

    179.4, 178.8, 179.2, 180.2, 180.2, 179.2, 179.6, 180.2, 179.2, 180.8, 181.2

    ]

> c := Correlation(fat,weight);
                             c := 0.583199274424205

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> protein := [
> 120.0
> ,
> 97.1
> ,
> 122.0
> ,
> 81.0
> ,
> 77.1
> ,
> 134.0
> ,
> 107.0
> ,
> 84.6
> ,
> 93.8
> ,
> 109.0
> ,
> 81.1
> ,
> 49.9
> ,
> 71.8
> ,
> 64.6
> ,
> 68.5
> ,
> 107.0
> ,
> 78.4
> ,
> 79.6
> ,
> 93.1
> ,
> 109.0
> ,
> 91.3
> ,
> 76.7
> ,
> 78.9
> ,
> 91.8
> ,
> 96.3
> ,
> 113.0
> ,
> 93.4
> ,
> 79.6
> ,
> 90.9
> ,
> 98.4
> ,
> 78.7
> ,
> 102.7
> ,
> 113.0
> ,
> 73.9
> ,
> 86.5
> ,
> 56.0
> ,
> 67.8
> ,
> 75.1
> ,
> 98.2
> ,
> 97.3
> ,
> 93.2
> ,
> 96.7
> ,
> 92.3
> ,
> 66.7
> ,
> 66.5
> ,
> 105.0
> ,
> 84.8
> ,
> 74.4
> ,
> 51.7
> ,
> 72.8
> ,
> 68.7
> ,
> 86.2
> ,
> 66.5
> ,
> 63.5
> ,
> 75.5
> ,
> 103.0
> ,
> 76.7
> ,
> 93.0
> ,
> 149.0
> ,
> 102.0
> ,
> 110.0
> ,
> 79.9
> ,
> 71.2
> ,
> 99.3
> ,
> 69.1
> ,
> 64.5
> ,
> 92.4
> ,
> 105.0
> ,
> 72.9
> ,
> 60.2
> ,
> 51.0
> ,
> 51.2
> ,
> 120.0
> ,
> 73.3
> ,
> 91.4
> ,
> 132.0
> ,
> 92.9
> ,
> 77.9
> ,
> 67.8
> ,
> 40.2
> ,
> 91.3
> ,
> 97.0
> ,
> 110.0
> ,
> 73.1
> ,
> 74.9
> ,
> 76.3
> ,
> 71.4
> ,
> 79.9
> ,
> 84.4
> ,
> 100.0
> ,
> 53.8
> ,
> 55.0
> ,
> 98.5
> ,
> 73.7
> ,
> 68.3
> ,
> 81.2
> ,
> 59.1
> ,
> 62.2
> ,
> 141.0
> ,
> 62.5
> ,
> 74.9
> ,
> 93.1
> ,
> 69.2
> ,
> 105.0
> ,
> 122.0
> ,
> 77.4
> ,
> 94.5
> ,
> 115.0
> ,
> 80.5
> ,
> 87.8
> ,
> 146.0
> ,
> 92.7
> ,
> 109.0
> ,
> 83.4
> ,
> 55.9
> ,
> 90.9
> ,
> 111.0
> ,
> 77.1
> ,
> 97.0
> ,
> 136.0
> ,
> 91.6
> ,
> 120.0
> ,
> 72.0
> ,
> 85.0
> ,
> 129.0
> ,
> 67.0
> ,
> 90.3
> ,
> 141.0
> ,
> 74.0
> ,
> 77.6
> ,
> 109.0
> ];
protein := [120.0, 97.1, 122.0, 81.0, 77.1, 134.0, 107.0, 84.6, 93.8, 109.0,

    81.1, 49.9, 71.8, 64.6, 68.5, 107.0, 78.4, 79.6, 93.1, 109.0, 91.3, 76.7,

    78.9, 91.8, 96.3, 113.0, 93.4, 79.6, 90.9, 98.4, 78.7, 102.7, 113.0, 73.9,

    86.5, 56.0, 67.8, 75.1, 98.2, 97.3, 93.2, 96.7, 92.3, 66.7, 66.5, 105.0,

    84.8, 74.4, 51.7, 72.8, 68.7, 86.2, 66.5, 63.5, 75.5, 103.0, 76.7, 93.0,

    149.0, 102.0, 110.0, 79.9, 71.2, 99.3, 69.1, 64.5, 92.4, 105.0, 72.9, 60.2,

    51.0, 51.2, 120.0, 73.3, 91.4, 132.0, 92.9, 77.9, 67.8, 40.2, 91.3, 97.0,

    110.0, 73.1, 74.9, 76.3, 71.4, 79.9, 84.4, 100.0, 53.8, 55.0, 98.5, 73.7,

    68.3, 81.2, 59.1, 62.2, 141.0, 62.5, 74.9, 93.1, 69.2, 105.0, 122.0, 77.4,

    94.5, 115.0, 80.5, 87.8, 146.0, 92.7, 109.0, 83.4, 55.9, 90.9, 111.0, 77.1,

    97.0, 136.0, 91.6, 120.0, 72.0, 85.0, 129.0, 67.0, 90.3, 141.0, 74.0, 77.6,

    109.0]

> weight := [
> 191.8
> ,
> 192.4
> ,
> 192.8
> ,
> 191.6
> ,
> 192.8
> ,
> 194.4
> ,
> 194.2
> ,
> 194.2
> ,
> 195.0
> ,
> 194.6
> ,
> 195.4
> ,
> 193.8
> ,
> 193.8
> ,
> 193.6
> ,
> 194.4
> ,
> 194.8
> ,
> 192.8
> ,
> 193.6
> ,
> 193.0
> ,
> 193.2
> ,
> 192.2
> ,
> 193.2
> ,
> 193.8
> ,
> 193.8
> ,
> 193.0
> ,
> 193.8
> ,
> 192.6
> ,
> 192.2
> ,
> 193.2
> ,
> 192.8
> ,
> 191.6
> ,
> 191.6
> ,
> 192.8
> ,
> 191.8
> ,
> 191.6
> ,
> 191.4
> ,
> 191.8
> ,
> 193.4
> ,
> 192.2
> ,
> 193.6
> ,
> 194.2
> ,
> 192.8
> ,
> 194.2
> ,
> 191.0
> ,
> 191.2
> ,
> 191.6
> ,
> 191.0
> ,
> 191.0
> ,
> 191.8
> ,
> 191.0
> ,
> 189.8
> ,
> 190.8
> ,
> 192.2
> ,
> 190.0
> ,
> 191.2
> ,
> 190.6
> ,
> 192.2
> ,
> 192.2
> ,
> 192.6
> ,
> 187.4
> ,
> 186.4
> ,
> 187.8
> ,
> 186.6
> ,
> 187.0
> ,
> 186.2
> ,
> 187.0
> ,
> 187.2
> ,
> 187.8
> ,
> 185.2
> ,
> 185.6
> ,
> 186.2
> ,
> 184.0
> ,
> 184.0
> ,
> 184.4
> ,
> 184.0
> ,
> 183.8
> ,
> 182.8
> ,
> 183.0
> ,
> 183.6
> ,
> 181.4
> ,
> 181.4
> ,
> 181.4
> ,
> 181.0
> ,
> 180.8
> ,
> 179.2
> ,
> 180.0
> ,
> 179.0
> ,
> 179.8
> ,
> 180.8
> ,
> 179.2
> ,
> 178.8
> ,
> 178.8
> ,
> 178.8
> ,
> 179.5
> ,
> 177.6
> ,
> 177.8
> ,
> 179.4
> ,
> 176.6
> ,
> 177.2
> ,
> 175.0
> ,
> 176.2
> ,
> 175.6
> ,
> 176.4
> ,
> 175.6
> ,
> 176.8
> ,
> 177.4
> ,
> 177.2
> ,
> 177.4
> ,
> 178.2
> ,
> 178.4
> ,
> 176.8
> ,
> 178.0
> ,
> 178.0
> ,
> 178.8
> ,
> 178.8
> ,
> 177.8
> ,
> 178.8
> ,
> 179.0
> ,
> 178.8
> ,
> 180.2
> ,
> 179.4
> ,
> 178.8
> ,
> 179.2
> ,
> 180.2
> ,
> 180.2
> ,
> 179.2
> ,
> 179.6
> ,
> 180.2
> ,
> 179.2
> ,
> 180.8
> ,
> 181.2
> ];
weight := [191.8, 192.4, 192.8, 191.6, 192.8, 194.4, 194.2, 194.2, 195.0, 194.6,

    195.4, 193.8, 193.8, 193.6, 194.4, 194.8, 192.8, 193.6, 193.0, 193.2, 192.2,

    193.2, 193.8, 193.8, 193.0, 193.8, 192.6, 192.2, 193.2, 192.8, 191.6, 191.6,

    192.8, 191.8, 191.6, 191.4, 191.8, 193.4, 192.2, 193.6, 194.2, 192.8, 194.2,

    191.0, 191.2, 191.6, 191.0, 191.0, 191.8, 191.0, 189.8, 190.8, 192.2, 190.0,

    191.2, 190.6, 192.2, 192.2, 192.6, 187.4, 186.4, 187.8, 186.6, 187.0, 186.2,

    187.0, 187.2, 187.8, 185.2, 185.6, 186.2, 184.0, 184.0, 184.4, 184.0, 183.8,

    182.8, 183.0, 183.6, 181.4, 181.4, 181.4, 181.0, 180.8, 179.2, 180.0, 179.0,

    179.8, 180.8, 179.2, 178.8, 178.8, 178.8, 179.5, 177.6, 177.8, 179.4, 176.6,

    177.2, 175.0, 176.2, 175.6, 176.4, 175.6, 176.8, 177.4, 177.2, 177.4, 178.2,

    178.4, 176.8, 178.0, 178.0, 178.8, 178.8, 177.8, 178.8, 179.0, 178.8, 180.2,

    179.4, 178.8, 179.2, 180.2, 180.2, 179.2, 179.6, 180.2, 179.2, 180.8, 181.2

    ]

> c := Correlation(protein,weight);
                           c := -0.00627885346055184

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> carb_fib := [
> 260.1
> ,
> 306.7
> ,
> 333.3
> ,
> 199.3
> ,
> 267.3
> ,
> 201.5
> ,
> 269.3
> ,
> 249.4
> ,
> 278.6
> ,
> 209.8
> ,
> 324.7
> ,
> 186.17
> ,
> 253.5
> ,
> 217.7
> ,
> 293.5
> ,
> 263.6
> ,
> 214.4
> ,
> 171.6
> ,
> 237.1
> ,
> 183.9
> ,
> 226.5
> ,
> 273.1
> ,
> 228.3
> ,
> 204.3
> ,
> 264.3
> ,
> 266.4
> ,
> 237.7
> ,
> 302.7
> ,
> 185.3
> ,
> 292.9
> ,
> 199.9
> ,
> 223.3
> ,
> 143.2
> ,
> 214.8
> ,
> 263.5
> ,
> 216.0
> ,
> 287.5
> ,
> 197.3
> ,
> 255.2
> ,
> 311.7
> ,
> 289.7
> ,
> 229.8
> ,
> 264.6
> ,
> 297.8
> ,
> 259.0
> ,
> 257.0
> ,
> 176.0
> ,
> 221.1
> ,
> 169.3
> ,
> 203.1
> ,
> 170.0
> ,
> 242.7
> ,
> 224.9
> ,
> 211.7
> ,
> 278.3
> ,
> 333.1
> ,
> 212.1
> ,
> 304.3
> ,
> 267.4
> ,
> 295.4
> ,
> 254.6
> ,
> 346.4
> ,
> 152.1
> ,
> 242.5
> ,
> 324.9
> ,
> 154.6
> ,
> 247.2
> ,
> 286.3
> ,
> 232.7
> ,
> 255.7
> ,
> 190.5
> ,
> 172.6
> ,
> 212.1
> ,
> 259.1
> ,
> 185.7
> ,
> 202.6
> ,
> 202.7
> ,
> 217.9
> ,
> 227.2
> ,
> 177.5
> ,
> 279.8
> ,
> 278.4
> ,
> 247.3
> ,
> 260.2
> ,
> 191.6
> ,
> 256.7
> ,
> 232.1
> ,
> 276.5
> ,
> 293.4
> ,
> 257.3
> ,
> 287.0
> ,
> 230.4
> ,
> 148.8
> ,
> 295.7
> ,
> 243.0
> ,
> 275.3
> ,
> 208.1
> ,
> 277.5
> ,
> 336.7
> ,
> 163.6
> ,
> 227.1
> ,
> 218.2
> ,
> 276.6
> ,
> 347.4
> ,
> 264.9
> ,
> 200.3
> ,
> 338.1
> ,
> 262.2
> ,
> 231.5
> ,
> 324.0
> ,
> 388.9
> ,
> 284.1
> ,
> 438.4
> ,
> 308.0
> ,
> 252.4
> ,
> 190.1
> ,
> 374.8
> ,
> 405.2
> ,
> 265.4
> ,
> 357.6
> ,
> 321.4
> ,
> 265.6
> ,
> 245.9
> ,
> 323.8
> ,
> 373.2
> ,
> 152.3
> ,
> 306.2
> ,
> 404.3
> ,
> 199.8
> ,
> 309.5
> ,
> 333.3
> ];
carb_fib := [260.1, 306.7, 333.3, 199.3, 267.3, 201.5, 269.3, 249.4, 278.6,

    209.8, 324.7, 186.17, 253.5, 217.7, 293.5, 263.6, 214.4, 171.6, 237.1,

    183.9, 226.5, 273.1, 228.3, 204.3, 264.3, 266.4, 237.7, 302.7, 185.3, 292.9,

    199.9, 223.3, 143.2, 214.8, 263.5, 216.0, 287.5, 197.3, 255.2, 311.7, 289.7,

    229.8, 264.6, 297.8, 259.0, 257.0, 176.0, 221.1, 169.3, 203.1, 170.0, 242.7,

    224.9, 211.7, 278.3, 333.1, 212.1, 304.3, 267.4, 295.4, 254.6, 346.4, 152.1,

    242.5, 324.9, 154.6, 247.2, 286.3, 232.7, 255.7, 190.5, 172.6, 212.1, 259.1,

    185.7, 202.6, 202.7, 217.9, 227.2, 177.5, 279.8, 278.4, 247.3, 260.2, 191.6,

    256.7, 232.1, 276.5, 293.4, 257.3, 287.0, 230.4, 148.8, 295.7, 243.0, 275.3,

    208.1, 277.5, 336.7, 163.6, 227.1, 218.2, 276.6, 347.4, 264.9, 200.3, 338.1,

    262.2, 231.5, 324.0, 388.9, 284.1, 438.4, 308.0, 252.4, 190.1, 374.8, 405.2,

    265.4, 357.6, 321.4, 265.6, 245.9, 323.8, 373.2, 152.3, 306.2, 404.3, 199.8,

    309.5, 333.3]

> weight := [
> 191.8
> ,
> 192.4
> ,
> 192.8
> ,
> 191.6
> ,
> 192.8
> ,
> 194.4
> ,
> 194.2
> ,
> 194.2
> ,
> 195.0
> ,
> 194.6
> ,
> 195.4
> ,
> 193.8
> ,
> 193.8
> ,
> 193.6
> ,
> 194.4
> ,
> 194.8
> ,
> 192.8
> ,
> 193.6
> ,
> 193.0
> ,
> 193.2
> ,
> 192.2
> ,
> 193.2
> ,
> 193.8
> ,
> 193.8
> ,
> 193.0
> ,
> 193.8
> ,
> 192.6
> ,
> 192.2
> ,
> 193.2
> ,
> 192.8
> ,
> 191.6
> ,
> 191.6
> ,
> 192.8
> ,
> 191.8
> ,
> 191.6
> ,
> 191.4
> ,
> 191.8
> ,
> 193.4
> ,
> 192.2
> ,
> 193.6
> ,
> 194.2
> ,
> 192.8
> ,
> 194.2
> ,
> 191.0
> ,
> 191.2
> ,
> 191.6
> ,
> 191.0
> ,
> 191.0
> ,
> 191.8
> ,
> 191.0
> ,
> 189.8
> ,
> 190.8
> ,
> 192.2
> ,
> 190.0
> ,
> 191.2
> ,
> 190.6
> ,
> 192.2
> ,
> 192.2
> ,
> 192.6
> ,
> 187.4
> ,
> 186.4
> ,
> 187.8
> ,
> 186.6
> ,
> 187.0
> ,
> 186.2
> ,
> 187.0
> ,
> 187.2
> ,
> 187.8
> ,
> 185.2
> ,
> 185.6
> ,
> 186.2
> ,
> 184.0
> ,
> 184.0
> ,
> 184.4
> ,
> 184.0
> ,
> 183.8
> ,
> 182.8
> ,
> 183.0
> ,
> 183.6
> ,
> 181.4
> ,
> 181.4
> ,
> 181.4
> ,
> 181.0
> ,
> 180.8
> ,
> 179.2
> ,
> 180.0
> ,
> 179.0
> ,
> 179.8
> ,
> 180.8
> ,
> 179.2
> ,
> 178.8
> ,
> 178.8
> ,
> 178.8
> ,
> 179.5
> ,
> 177.6
> ,
> 177.8
> ,
> 179.4
> ,
> 176.6
> ,
> 177.2
> ,
> 175.0
> ,
> 176.2
> ,
> 175.6
> ,
> 176.4
> ,
> 175.6
> ,
> 176.8
> ,
> 177.4
> ,
> 177.2
> ,
> 177.4
> ,
> 178.2
> ,
> 178.4
> ,
> 176.8
> ,
> 178.0
> ,
> 178.0
> ,
> 178.8
> ,
> 178.8
> ,
> 177.8
> ,
> 178.8
> ,
> 179.0
> ,
> 178.8
> ,
> 180.2
> ,
> 179.4
> ,
> 178.8
> ,
> 179.2
> ,
> 180.2
> ,
> 180.2
> ,
> 179.2
> ,
> 179.6
> ,
> 180.2
> ,
> 179.2
> ,
> 180.8
> ,
> 181.2
> ];
weight := [191.8, 192.4, 192.8, 191.6, 192.8, 194.4, 194.2, 194.2, 195.0, 194.6,

    195.4, 193.8, 193.8, 193.6, 194.4, 194.8, 192.8, 193.6, 193.0, 193.2, 192.2,

    193.2, 193.8, 193.8, 193.0, 193.8, 192.6, 192.2, 193.2, 192.8, 191.6, 191.6,

    192.8, 191.8, 191.6, 191.4, 191.8, 193.4, 192.2, 193.6, 194.2, 192.8, 194.2,

    191.0, 191.2, 191.6, 191.0, 191.0, 191.8, 191.0, 189.8, 190.8, 192.2, 190.0,

    191.2, 190.6, 192.2, 192.2, 192.6, 187.4, 186.4, 187.8, 186.6, 187.0, 186.2,

    187.0, 187.2, 187.8, 185.2, 185.6, 186.2, 184.0, 184.0, 184.4, 184.0, 183.8,

    182.8, 183.0, 183.6, 181.4, 181.4, 181.4, 181.0, 180.8, 179.2, 180.0, 179.0,

    179.8, 180.8, 179.2, 178.8, 178.8, 178.8, 179.5, 177.6, 177.8, 179.4, 176.6,

    177.2, 175.0, 176.2, 175.6, 176.4, 175.6, 176.8, 177.4, 177.2, 177.4, 178.2,

    178.4, 176.8, 178.0, 178.0, 178.8, 178.8, 177.8, 178.8, 179.0, 178.8, 180.2,

    179.4, 178.8, 179.2, 180.2, 180.2, 179.2, 179.6, 180.2, 179.2, 180.8, 181.2

    ]

> c := Correlation(carb_fib,weight);
                            c := -0.222588963891537

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> sugar := [
> 115.0
> ,
> 120.0
> ,
> 212.0
> ,
> 73.7
> ,
> 124.0
> ,
> 93.2
> ,
> 88.4
> ,
> 128.0
> ,
> 124.0
> ,
> 84.7
> ,
> 122.0
> ,
> 26.2
> ,
> 93.4
> ,
> 97.9
> ,
> 93.8
> ,
> 88.2
> ,
> 62.1
> ,
> 79.1
> ,
> 66.4
> ,
> 71.0
> ,
> 61.1
> ,
> 124.0
> ,
> 62.7
> ,
> 75.4
> ,
> 95.4
> ,
> 117.0
> ,
> 72.3
> ,
> 155.0
> ,
> 74.8
> ,
> 143.0
> ,
> 57.1
> ,
> 83.7
> ,
> 85.4
> ,
> 43.6
> ,
> 121.0
> ,
> 87.3
> ,
> 146.0
> ,
> 95.6
> ,
> 84.1
> ,
> 113.0
> ,
> 142.0
> ,
> 92.9
> ,
> 107.0
> ,
> 118.0
> ,
> 132.0
> ,
> 80.6
> ,
> 72.8
> ,
> 57.2
> ,
> 22.3
> ,
> 70.6
> ,
> 66.9
> ,
> 79.8
> ,
> 49.8
> ,
> 61.3
> ,
> 49.9
> ,
> 97.7
> ,
> 60.3
> ,
> 87.7
> ,
> 74.8
> ,
> 85.7
> ,
> 97.4
> ,
> 83.9
> ,
> 45.5
> ,
> 77.4
> ,
> 100.0
> ,
> 50.2
> ,
> 69.8
> ,
> 106.0
> ,
> 60.2
> ,
> 68.3
> ,
> 40.3
> ,
> 63.4
> ,
> 73.3
> ,
> 85.7
> ,
> 91.4
> ,
> 91.2
> ,
> 129.0
> ,
> 83.0
> ,
> 63.5
> ,
> 52.9
> ,
> 108.0
> ,
> 114.0
> ,
> 97.2
> ,
> 86.9
> ,
> 85.4
> ,
> 110.0
> ,
> 75.8
> ,
> 102.0
> ,
> 104.0
> ,
> 86.7
> ,
> 81.0
> ,
> 109.0
> ,
> 57.8
> ,
> 105.0
> ,
> 74.0
> ,
> 81.4
> ,
> 76.1
> ,
> 52.2
> ,
> 129.0
> ,
> 53.1
> ,
> 106.0
> ,
> 69.3
> ,
> 84.0
> ,
> 113.0
> ,
> 88.8
> ,
> 52.7
> ,
> 75.4
> ,
> 78.4
> ,
> 107.0
> ,
> 108.0
> ,
> 130.0
> ,
> 67.9
> ,
> 160.0
> ,
> 107.0
> ,
> 53.0
> ,
> 40.5
> ,
> 137.0
> ,
> 125.0
> ,
> 98.6
> ,
> 125.0
> ,
> 111.0
> ,
> 85.4
> ,
> 69.5
> ,
> 123.0
> ,
> 122.0
> ,
> 54.1
> ,
> 127.0
> ,
> 120.0
> ,
> 57.9
> ,
> 106.0
> ,
> 111.0
> ];
sugar := [115.0, 120.0, 212.0, 73.7, 124.0, 93.2, 88.4, 128.0, 124.0, 84.7,

    122.0, 26.2, 93.4, 97.9, 93.8, 88.2, 62.1, 79.1, 66.4, 71.0, 61.1, 124.0,

    62.7, 75.4, 95.4, 117.0, 72.3, 155.0, 74.8, 143.0, 57.1, 83.7, 85.4, 43.6,

    121.0, 87.3, 146.0, 95.6, 84.1, 113.0, 142.0, 92.9, 107.0, 118.0, 132.0,

    80.6, 72.8, 57.2, 22.3, 70.6, 66.9, 79.8, 49.8, 61.3, 49.9, 97.7, 60.3,

    87.7, 74.8, 85.7, 97.4, 83.9, 45.5, 77.4, 100.0, 50.2, 69.8, 106.0, 60.2,

    68.3, 40.3, 63.4, 73.3, 85.7, 91.4, 91.2, 129.0, 83.0, 63.5, 52.9, 108.0,

    114.0, 97.2, 86.9, 85.4, 110.0, 75.8, 102.0, 104.0, 86.7, 81.0, 109.0, 57.8,

    105.0, 74.0, 81.4, 76.1, 52.2, 129.0, 53.1, 106.0, 69.3, 84.0, 113.0, 88.8,

    52.7, 75.4, 78.4, 107.0, 108.0, 130.0, 67.9, 160.0, 107.0, 53.0, 40.5,

    137.0, 125.0, 98.6, 125.0, 111.0, 85.4, 69.5, 123.0, 122.0, 54.1, 127.0,

    120.0, 57.9, 106.0, 111.0]

> weight := [
> 191.8
> ,
> 192.4
> ,
> 192.8
> ,
> 191.6
> ,
> 192.8
> ,
> 194.4
> ,
> 194.2
> ,
> 194.2
> ,
> 195.0
> ,
> 194.6
> ,
> 195.4
> ,
> 193.8
> ,
> 193.8
> ,
> 193.6
> ,
> 194.4
> ,
> 194.8
> ,
> 192.8
> ,
> 193.6
> ,
> 193.0
> ,
> 193.2
> ,
> 192.2
> ,
> 193.2
> ,
> 193.8
> ,
> 193.8
> ,
> 193.0
> ,
> 193.8
> ,
> 192.6
> ,
> 192.2
> ,
> 193.2
> ,
> 192.8
> ,
> 191.6
> ,
> 191.6
> ,
> 192.8
> ,
> 191.8
> ,
> 191.6
> ,
> 191.4
> ,
> 191.8
> ,
> 193.4
> ,
> 192.2
> ,
> 193.6
> ,
> 194.2
> ,
> 192.8
> ,
> 194.2
> ,
> 191.0
> ,
> 191.2
> ,
> 191.6
> ,
> 191.0
> ,
> 191.0
> ,
> 191.8
> ,
> 191.0
> ,
> 189.8
> ,
> 190.8
> ,
> 192.2
> ,
> 190.0
> ,
> 191.2
> ,
> 190.6
> ,
> 192.2
> ,
> 192.2
> ,
> 192.6
> ,
> 187.4
> ,
> 186.4
> ,
> 187.8
> ,
> 186.6
> ,
> 187.0
> ,
> 186.2
> ,
> 187.0
> ,
> 187.2
> ,
> 187.8
> ,
> 185.2
> ,
> 185.6
> ,
> 186.2
> ,
> 184.0
> ,
> 184.0
> ,
> 184.4
> ,
> 184.0
> ,
> 183.8
> ,
> 182.8
> ,
> 183.0
> ,
> 183.6
> ,
> 181.4
> ,
> 181.4
> ,
> 181.4
> ,
> 181.0
> ,
> 180.8
> ,
> 179.2
> ,
> 180.0
> ,
> 179.0
> ,
> 179.8
> ,
> 180.8
> ,
> 179.2
> ,
> 178.8
> ,
> 178.8
> ,
> 178.8
> ,
> 179.5
> ,
> 177.6
> ,
> 177.8
> ,
> 179.4
> ,
> 176.6
> ,
> 177.2
> ,
> 175.0
> ,
> 176.2
> ,
> 175.6
> ,
> 176.4
> ,
> 175.6
> ,
> 176.8
> ,
> 177.4
> ,
> 177.2
> ,
> 177.4
> ,
> 178.2
> ,
> 178.4
> ,
> 176.8
> ,
> 178.0
> ,
> 178.0
> ,
> 178.8
> ,
> 178.8
> ,
> 177.8
> ,
> 178.8
> ,
> 179.0
> ,
> 178.8
> ,
> 180.2
> ,
> 179.4
> ,
> 178.8
> ,
> 179.2
> ,
> 180.2
> ,
> 180.2
> ,
> 179.2
> ,
> 179.6
> ,
> 180.2
> ,
> 179.2
> ,
> 180.8
> ,
> 181.2
> ];
weight := [191.8, 192.4, 192.8, 191.6, 192.8, 194.4, 194.2, 194.2, 195.0, 194.6,

    195.4, 193.8, 193.8, 193.6, 194.4, 194.8, 192.8, 193.6, 193.0, 193.2, 192.2,

    193.2, 193.8, 193.8, 193.0, 193.8, 192.6, 192.2, 193.2, 192.8, 191.6, 191.6,

    192.8, 191.8, 191.6, 191.4, 191.8, 193.4, 192.2, 193.6, 194.2, 192.8, 194.2,

    191.0, 191.2, 191.6, 191.0, 191.0, 191.8, 191.0, 189.8, 190.8, 192.2, 190.0,

    191.2, 190.6, 192.2, 192.2, 192.6, 187.4, 186.4, 187.8, 186.6, 187.0, 186.2,

    187.0, 187.2, 187.8, 185.2, 185.6, 186.2, 184.0, 184.0, 184.4, 184.0, 183.8,

    182.8, 183.0, 183.6, 181.4, 181.4, 181.4, 181.0, 180.8, 179.2, 180.0, 179.0,

    179.8, 180.8, 179.2, 178.8, 178.8, 178.8, 179.5, 177.6, 177.8, 179.4, 176.6,

    177.2, 175.0, 176.2, 175.6, 176.4, 175.6, 176.8, 177.4, 177.2, 177.4, 178.2,

    178.4, 176.8, 178.0, 178.0, 178.8, 178.8, 177.8, 178.8, 179.0, 178.8, 180.2,

    179.4, 178.8, 179.2, 180.2, 180.2, 179.2, 179.6, 180.2, 179.2, 180.8, 181.2

    ]

> c := Correlation(sugar,weight);
                            c := 0.0125252084568484

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> miles := [
> 2.2
> ,
> 4.4
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 4.4
> ,
> 2.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 1.0
> ,
> 4.3
> ,
> 4.4
> ,
> 0.0
> ,
> 4.4
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 0.0
> ,
> 2.2
> ,
> 2.2
> ,
> 0.0
> ,
> 2.2
> ,
> 1.0
> ,
> 1.0
> ,
> 1.0
> ,
> 3.2
> ,
> 0.0
> ,
> 4.4
> ,
> 1.1
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 4.4
> ,
> 3.3
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.5
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 2.1
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 2.0
> ,
> 2.2
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ];
miles := [2.2, 4.4, 0., 0., 1.0, 0., 0., 1.0, 4.4, 2.0, 0., 1.0, 0., 0., 0., 0.,

    1.0, 1.0, 0., 0., 3.2, 1.0, 1.0, 4.3, 4.4, 0., 4.4, 0., 1.0, 0., 1.0, 0.,

    3.2, 1.0, 0., 2.2, 2.2, 0., 2.2, 1.0, 1.0, 1.0, 3.2, 0., 4.4, 1.1, 1.0, 0.,

    0., 1.1, 1.1, 0., 0., 1.1, 0., 1.1, 0., 0., 0., 0., 4.4, 3.3, 0., 0., 0.,

    0., 0., 0., 1.0, 0., 0., 1.5, 0., 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0.,

    1.0, 0., 1.0, 0., 1.0, 0., 1.0, 0., 1.0, 1.0, 2.1, 1.0, 1.0, 0., 0., 1.0,

    1.0, 0., 1.0, 2.0, 2.2, 1.0, 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0., 0.,

    0., 0., 0., 1.1, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.]

> weight := [
> 191.8
> ,
> 192.4
> ,
> 192.8
> ,
> 191.6
> ,
> 192.8
> ,
> 194.4
> ,
> 194.2
> ,
> 194.2
> ,
> 195.0
> ,
> 194.6
> ,
> 195.4
> ,
> 193.8
> ,
> 193.8
> ,
> 193.6
> ,
> 194.4
> ,
> 194.8
> ,
> 192.8
> ,
> 193.6
> ,
> 193.0
> ,
> 193.2
> ,
> 192.2
> ,
> 193.2
> ,
> 193.8
> ,
> 193.8
> ,
> 193.0
> ,
> 193.8
> ,
> 192.6
> ,
> 192.2
> ,
> 193.2
> ,
> 192.8
> ,
> 191.6
> ,
> 191.6
> ,
> 192.8
> ,
> 191.8
> ,
> 191.6
> ,
> 191.4
> ,
> 191.8
> ,
> 193.4
> ,
> 192.2
> ,
> 193.6
> ,
> 194.2
> ,
> 192.8
> ,
> 194.2
> ,
> 191.0
> ,
> 191.2
> ,
> 191.6
> ,
> 191.0
> ,
> 191.0
> ,
> 191.8
> ,
> 191.0
> ,
> 189.8
> ,
> 190.8
> ,
> 192.2
> ,
> 190.0
> ,
> 191.2
> ,
> 190.6
> ,
> 192.2
> ,
> 192.2
> ,
> 192.6
> ,
> 187.4
> ,
> 186.4
> ,
> 187.8
> ,
> 186.6
> ,
> 187.0
> ,
> 186.2
> ,
> 187.0
> ,
> 187.2
> ,
> 187.8
> ,
> 185.2
> ,
> 185.6
> ,
> 186.2
> ,
> 184.0
> ,
> 184.0
> ,
> 184.4
> ,
> 184.0
> ,
> 183.8
> ,
> 182.8
> ,
> 183.0
> ,
> 183.6
> ,
> 181.4
> ,
> 181.4
> ,
> 181.4
> ,
> 181.0
> ,
> 180.8
> ,
> 179.2
> ,
> 180.0
> ,
> 179.0
> ,
> 179.8
> ,
> 180.8
> ,
> 179.2
> ,
> 178.8
> ,
> 178.8
> ,
> 178.8
> ,
> 179.5
> ,
> 177.6
> ,
> 177.8
> ,
> 179.4
> ,
> 176.6
> ,
> 177.2
> ,
> 175.0
> ,
> 176.2
> ,
> 175.6
> ,
> 176.4
> ,
> 175.6
> ,
> 176.8
> ,
> 177.4
> ,
> 177.2
> ,
> 177.4
> ,
> 178.2
> ,
> 178.4
> ,
> 176.8
> ,
> 178.0
> ,
> 178.0
> ,
> 178.8
> ,
> 178.8
> ,
> 177.8
> ,
> 178.8
> ,
> 179.0
> ,
> 178.8
> ,
> 180.2
> ,
> 179.4
> ,
> 178.8
> ,
> 179.2
> ,
> 180.2
> ,
> 180.2
> ,
> 179.2
> ,
> 179.6
> ,
> 180.2
> ,
> 179.2
> ,
> 180.8
> ,
> 181.2
> ];
weight := [191.8, 192.4, 192.8, 191.6, 192.8, 194.4, 194.2, 194.2, 195.0, 194.6,

    195.4, 193.8, 193.8, 193.6, 194.4, 194.8, 192.8, 193.6, 193.0, 193.2, 192.2,

    193.2, 193.8, 193.8, 193.0, 193.8, 192.6, 192.2, 193.2, 192.8, 191.6, 191.6,

    192.8, 191.8, 191.6, 191.4, 191.8, 193.4, 192.2, 193.6, 194.2, 192.8, 194.2,

    191.0, 191.2, 191.6, 191.0, 191.0, 191.8, 191.0, 189.8, 190.8, 192.2, 190.0,

    191.2, 190.6, 192.2, 192.2, 192.6, 187.4, 186.4, 187.8, 186.6, 187.0, 186.2,

    187.0, 187.2, 187.8, 185.2, 185.6, 186.2, 184.0, 184.0, 184.4, 184.0, 183.8,

    182.8, 183.0, 183.6, 181.4, 181.4, 181.4, 181.0, 180.8, 179.2, 180.0, 179.0,

    179.8, 180.8, 179.2, 178.8, 178.8, 178.8, 179.5, 177.6, 177.8, 179.4, 176.6,

    177.2, 175.0, 176.2, 175.6, 176.4, 175.6, 176.8, 177.4, 177.2, 177.4, 178.2,

    178.4, 176.8, 178.0, 178.0, 178.8, 178.8, 177.8, 178.8, 179.0, 178.8, 180.2,

    179.4, 178.8, 179.2, 180.2, 180.2, 179.2, 179.6, 180.2, 179.2, 180.8, 181.2

    ]

> c := Correlation(miles,weight);
                             c := 0.275975362679587

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> day := [
> 3
> ,
> 6
> ,
> 9
> ,
> 11
> ,
> 13
> ,
> 20
> ,
> 23
> ,
> 24
> ,
> 27
> ,
> 34
> ,
> 37
> ,
> 41
> ,
> 44
> ,
> 46
> ,
> 49
> ,
> 50
> ,
> 56
> ,
> 57
> ,
> 61
> ,
> 64
> ,
> 69
> ,
> 82
> ,
> 84
> ,
> 85
> ,
> 88
> ,
> 92
> ,
> 96
> ,
> 106
> ,
> 109
> ,
> 112
> ,
> 116
> ,
> 117
> ,
> 119
> ,
> 124
> ,
> 128
> ,
> 130
> ,
> 134
> ,
> 135
> ,
> 137
> ,
> 139
> ,
> 140
> ,
> 142
> ,
> 143
> ,
> 156
> ,
> 161
> ,
> 162
> ,
> 164
> ,
> 166
> ,
> 170
> ,
> 173
> ,
> 180
> ,
> 187
> ,
> 192
> ,
> 196
> ,
> 199
> ,
> 201
> ,
> 202
> ,
> 203
> ,
> 204
> ,
> 306
> ,
> 313
> ,
> 316
> ,
> 335
> ,
> 337
> ,
> 341
> ,
> 352
> ,
> 354
> ,
> 356
> ,
> 361
> ,
> 362
> ,
> 365
> ,
> 370
> ,
> 372
> ,
> 374
> ,
> 377
> ,
> 382
> ,
> 385
> ,
> 390
> ,
> 396
> ,
> 403
> ,
> 405
> ,
> 406
> ,
> 409
> ,
> 412
> ,
> 414
> ,
> 416
> ,
> 418
> ,
> 420
> ,
> 422
> ,
> 425
> ,
> 430
> ,
> 433
> ,
> 434
> ,
> 438
> ,
> 442
> ,
> 443
> ,
> 446
> ,
> 449
> ,
> 450
> ,
> 454
> ,
> 455
> ,
> 458
> ,
> 461
> ,
> 466
> ,
> 468
> ,
> 472
> ,
> 478
> ,
> 483
> ,
> 484
> ,
> 486
> ,
> 489
> ,
> 496
> ,
> 504
> ,
> 509
> ,
> 511
> ,
> 513
> ,
> 515
> ,
> 517
> ,
> 525
> ,
> 526
> ,
> 533
> ,
> 535
> ,
> 541
> ,
> 545
> ,
> 548
> ,
> 557
> ,
> 560
> ,
> 561
> ,
> 563
> ,
> 566
> ,
> 567
> ];
day := [3, 6, 9, 11, 13, 20, 23, 24, 27, 34, 37, 41, 44, 46, 49, 50, 56, 57, 61,

    64, 69, 82, 84, 85, 88, 92, 96, 106, 109, 112, 116, 117, 119, 124, 128, 130,

    134, 135, 137, 139, 140, 142, 143, 156, 161, 162, 164, 166, 170, 173, 180,

    187, 192, 196, 199, 201, 202, 203, 204, 306, 313, 316, 335, 337, 341, 352,

    354, 356, 361, 362, 365, 370, 372, 374, 377, 382, 385, 390, 396, 403, 405,

    406, 409, 412, 414, 416, 418, 420, 422, 425, 430, 433, 434, 438, 442, 443,

    446, 449, 450, 454, 455, 458, 461, 466, 468, 472, 478, 483, 484, 486, 489,

    496, 504, 509, 511, 513, 515, 517, 525, 526, 533, 535, 541, 545, 548, 557,

    560, 561, 563, 566, 567]

> glucose := [
> 149
> ,
> 118
> ,
> 159
> ,
> 134
> ,
> 123
> ,
> 135
> ,
> 122
> ,
> 126
> ,
> 140
> ,
> 133
> ,
> 128
> ,
> 160
> ,
> 119
> ,
> 123
> ,
> 111
> ,
> 142
> ,
> 114
> ,
> 116
> ,
> 118
> ,
> 128
> ,
> 136
> ,
> 129
> ,
> 121
> ,
> 140
> ,
> 134
> ,
> 133
> ,
> 124
> ,
> 104
> ,
> 121
> ,
> 119
> ,
> 118
> ,
> 118
> ,
> 115
> ,
> 122
> ,
> 110
> ,
> 117
> ,
> 111
> ,
> 118
> ,
> 118
> ,
> 118
> ,
> 119
> ,
> 132
> ,
> 132
> ,
> 124
> ,
> 118
> ,
> 120
> ,
> 112
> ,
> 130
> ,
> 125
> ,
> 119
> ,
> 119
> ,
> 113
> ,
> 150
> ,
> 112
> ,
> 114
> ,
> 113
> ,
> 122
> ,
> 126
> ,
> 135
> ,
> 127
> ,
> 139
> ,
> 134
> ,
> 98
> ,
> 103
> ,
> 124
> ,
> 114
> ,
> 123
> ,
> 109
> ,
> 114
> ,
> 118
> ,
> 112
> ,
> 117
> ,
> 113
> ,
> 116
> ,
> 108
> ,
> 89
> ,
> 121
> ,
> 130
> ,
> 109
> ,
> 109
> ,
> 105
> ,
> 116
> ,
> 105
> ,
> 108
> ,
> 112
> ,
> 114
> ,
> 118
> ,
> 114
> ,
> 120
> ,
> 105
> ,
> 117
> ,
> 109
> ,
> 112
> ,
> 106
> ,
> 101
> ,
> 112
> ,
> 99
> ,
> 110
> ,
> 111
> ,
> 121
> ,
> 125
> ,
> 115
> ,
> 119
> ,
> 109
> ,
> 116
> ,
> 116
> ,
> 114
> ,
> 113
> ,
> 141
> ,
> 116
> ,
> 121
> ,
> 108
> ,
> 109
> ,
> 140
> ,
> 111
> ,
> 133
> ,
> 130
> ,
> 135
> ,
> 111
> ,
> 119
> ,
> 126
> ,
> 122
> ,
> 118
> ,
> 126
> ,
> 119
> ,
> 115
> ,
> 114
> ,
> 117
> ,
> 135
> ,
> 122
> ,
> 133
> ];
glucose := [149, 118, 159, 134, 123, 135, 122, 126, 140, 133, 128, 160, 119,

    123, 111, 142, 114, 116, 118, 128, 136, 129, 121, 140, 134, 133, 124, 104,

    121, 119, 118, 118, 115, 122, 110, 117, 111, 118, 118, 118, 119, 132, 132,

    124, 118, 120, 112, 130, 125, 119, 119, 113, 150, 112, 114, 113, 122, 126,

    135, 127, 139, 134, 98, 103, 124, 114, 123, 109, 114, 118, 112, 117, 113,

    116, 108, 89, 121, 130, 109, 109, 105, 116, 105, 108, 112, 114, 118, 114,

    120, 105, 117, 109, 112, 106, 101, 112, 99, 110, 111, 121, 125, 115, 119,

    109, 116, 116, 114, 113, 141, 116, 121, 108, 109, 140, 111, 133, 130, 135,

    111, 119, 126, 122, 118, 126, 119, 115, 114, 117, 135, 122, 133]

> c := Correlation(day,glucose);
                            c := -0.339587611571153

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> calories := [
> 2749
> ,
> 2727
> ,
> 2872
> ,
> 2430
> ,
> 2363
> ,
> 2554
> ,
> 3048
> ,
> 2589
> ,
> 2528
> ,
> 2366
> ,
> 2895
> ,
> 1836
> ,
> 2467
> ,
> 2152
> ,
> 3015
> ,
> 2826
> ,
> 2043
> ,
> 1933
> ,
> 2711
> ,
> 2666
> ,
> 2534
> ,
> 2204
> ,
> 2572
> ,
> 2495
> ,
> 2362
> ,
> 2807
> ,
> 2846
> ,
> 2496
> ,
> 2187
> ,
> 2587
> ,
> 2242
> ,
> 2175
> ,
> 2334
> ,
> 2202
> ,
> 3151
> ,
> 1692
> ,
> 2295
> ,
> 1941
> ,
> 2860
> ,
> 3004
> ,
> 2513
> ,
> 2739
> ,
> 2723
> ,
> 2621
> ,
> 2452
> ,
> 2851
> ,
> 1741
> ,
> 1834
> ,
> 1940
> ,
> 2191
> ,
> 1802
> ,
> 2534
> ,
> 2407
> ,
> 1828
> ,
> 2958
> ,
> 3077
> ,
> 2304
> ,
> 2974
> ,
> 3100
> ,
> 3090
> ,
> 2563
> ,
> 2423
> ,
> 1795
> ,
> 2766
> ,
> 2497
> ,
> 1743
> ,
> 2504
> ,
> 2509
> ,
> 2172
> ,
> 1840
> ,
> 1754
> ,
> 1498
> ,
> 2487
> ,
> 2136
> ,
> 1704
> ,
> 2337
> ,
> 2411
> ,
> 2032
> ,
> 2139
> ,
> 1382
> ,
> 2543
> ,
> 2259
> ,
> 2332
> ,
> 2090
> ,
> 1935
> ,
> 2062
> ,
> 2000
> ,
> 2246
> ,
> 2448
> ,
> 2290
> ,
> 1769
> ,
> 1486
> ,
> 1855
> ,
> 2034
> ,
> 1959
> ,
> 2281
> ,
> 1258
> ,
> 2204
> ,
> 2533
> ,
> 1205
> ,
> 1795
> ,
> 1994
> ,
> 1924
> ,
> 2797
> ,
> 2785
> ,
> 1542
> ,
> 2502
> ,
> 2894
> ,
> 1944
> ,
> 2352
> ,
> 3192
> ,
> 2471
> ,
> 2524
> ,
> 2747
> ,
> 1816
> ,
> 2239
> ,
> 2802
> ,
> 2368
> ,
> 2004
> ,
> 3076
> ,
> 2462
> ,
> 2389
> ,
> 1646
> ,
> 2073
> ,
> 3483
> ,
> 1493
> ,
> 2015
> ,
> 3460
> ,
> 1706
> ,
> 2145
> ,
> 2584
> ];
calories := [2749, 2727, 2872, 2430, 2363, 2554, 3048, 2589, 2528, 2366, 2895,

    1836, 2467, 2152, 3015, 2826, 2043, 1933, 2711, 2666, 2534, 2204, 2572,

    2495, 2362, 2807, 2846, 2496, 2187, 2587, 2242, 2175, 2334, 2202, 3151,

    1692, 2295, 1941, 2860, 3004, 2513, 2739, 2723, 2621, 2452, 2851, 1741,

    1834, 1940, 2191, 1802, 2534, 2407, 1828, 2958, 3077, 2304, 2974, 3100,

    3090, 2563, 2423, 1795, 2766, 2497, 1743, 2504, 2509, 2172, 1840, 1754,

    1498, 2487, 2136, 1704, 2337, 2411, 2032, 2139, 1382, 2543, 2259, 2332,

    2090, 1935, 2062, 2000, 2246, 2448, 2290, 1769, 1486, 1855, 2034, 1959,

    2281, 1258, 2204, 2533, 1205, 1795, 1994, 1924, 2797, 2785, 1542, 2502,

    2894, 1944, 2352, 3192, 2471, 2524, 2747, 1816, 2239, 2802, 2368, 2004,

    3076, 2462, 2389, 1646, 2073, 3483, 1493, 2015, 3460, 1706, 2145, 2584]

> glucose := [
> 149
> ,
> 118
> ,
> 159
> ,
> 134
> ,
> 123
> ,
> 135
> ,
> 122
> ,
> 126
> ,
> 140
> ,
> 133
> ,
> 128
> ,
> 160
> ,
> 119
> ,
> 123
> ,
> 111
> ,
> 142
> ,
> 114
> ,
> 116
> ,
> 118
> ,
> 128
> ,
> 136
> ,
> 129
> ,
> 121
> ,
> 140
> ,
> 134
> ,
> 133
> ,
> 124
> ,
> 104
> ,
> 121
> ,
> 119
> ,
> 118
> ,
> 118
> ,
> 115
> ,
> 122
> ,
> 110
> ,
> 117
> ,
> 111
> ,
> 118
> ,
> 118
> ,
> 118
> ,
> 119
> ,
> 132
> ,
> 132
> ,
> 124
> ,
> 118
> ,
> 120
> ,
> 112
> ,
> 130
> ,
> 125
> ,
> 119
> ,
> 119
> ,
> 113
> ,
> 150
> ,
> 112
> ,
> 114
> ,
> 113
> ,
> 122
> ,
> 126
> ,
> 135
> ,
> 127
> ,
> 139
> ,
> 134
> ,
> 98
> ,
> 103
> ,
> 124
> ,
> 114
> ,
> 123
> ,
> 109
> ,
> 114
> ,
> 118
> ,
> 112
> ,
> 117
> ,
> 113
> ,
> 116
> ,
> 108
> ,
> 89
> ,
> 121
> ,
> 130
> ,
> 109
> ,
> 109
> ,
> 105
> ,
> 116
> ,
> 105
> ,
> 108
> ,
> 112
> ,
> 114
> ,
> 118
> ,
> 114
> ,
> 120
> ,
> 105
> ,
> 117
> ,
> 109
> ,
> 112
> ,
> 106
> ,
> 101
> ,
> 112
> ,
> 99
> ,
> 110
> ,
> 111
> ,
> 121
> ,
> 125
> ,
> 115
> ,
> 119
> ,
> 109
> ,
> 116
> ,
> 116
> ,
> 114
> ,
> 113
> ,
> 141
> ,
> 116
> ,
> 121
> ,
> 108
> ,
> 109
> ,
> 140
> ,
> 111
> ,
> 133
> ,
> 130
> ,
> 135
> ,
> 111
> ,
> 119
> ,
> 126
> ,
> 122
> ,
> 118
> ,
> 126
> ,
> 119
> ,
> 115
> ,
> 114
> ,
> 117
> ,
> 135
> ,
> 122
> ,
> 133
> ];
glucose := [149, 118, 159, 134, 123, 135, 122, 126, 140, 133, 128, 160, 119,

    123, 111, 142, 114, 116, 118, 128, 136, 129, 121, 140, 134, 133, 124, 104,

    121, 119, 118, 118, 115, 122, 110, 117, 111, 118, 118, 118, 119, 132, 132,

    124, 118, 120, 112, 130, 125, 119, 119, 113, 150, 112, 114, 113, 122, 126,

    135, 127, 139, 134, 98, 103, 124, 114, 123, 109, 114, 118, 112, 117, 113,

    116, 108, 89, 121, 130, 109, 109, 105, 116, 105, 108, 112, 114, 118, 114,

    120, 105, 117, 109, 112, 106, 101, 112, 99, 110, 111, 121, 125, 115, 119,

    109, 116, 116, 114, 113, 141, 116, 121, 108, 109, 140, 111, 133, 130, 135,

    111, 119, 126, 122, 118, 126, 119, 115, 114, 117, 135, 122, 133]

> c := Correlation(calories,glucose);
                             c := 0.223777885023620

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> fat := [
> 136.0
> ,
> 120.0
> ,
> 121.0
> ,
> 136.0
> ,
> 108.0
> ,
> 133.0
> ,
> 167.0
> ,
> 141.0
> ,
> 113.0
> ,
> 111.0
> ,
> 139.0
> ,
> 96.2
> ,
> 129.0
> ,
> 113.0
> ,
> 176.0
> ,
> 151.0
> ,
> 96.5
> ,
> 105.0
> ,
> 152.0
> ,
> 169.0
> ,
> 146.0
> ,
> 90.8
> ,
> 172.0
> ,
> 146.0
> ,
> 98.0
> ,
> 141.0
> ,
> 174.0
> ,
> 96.9
> ,
> 130.0
> ,
> 113.0
> ,
> 122.0
> ,
> 104.0
> ,
> 155.0
> ,
> 119.0
> ,
> 199.0
> ,
> 73.4
> ,
> 88.8
> ,
> 96.4
> ,
> 171.0
> ,
> 159.0
> ,
> 113.0
> ,
> 160.0
> ,
> 157.0
> ,
> 127.0
> ,
> 134.0
> ,
> 164.0
> ,
> 85.3
> ,
> 68.0
> ,
> 125.0
> ,
> 122.0
> ,
> 105.0
> ,
> 151.0
> ,
> 151.0
> ,
> 91.5
> ,
> 171.0
> ,
> 149.0
> ,
> 131.0
> ,
> 161.0
> ,
> 160.0
> ,
> 163.0
> ,
> 125.0
> ,
> 78.4
> ,
> 112.0
> ,
> 152.0
> ,
> 106.0
> ,
> 98.3
> ,
> 124.0
> ,
> 99.0
> ,
> 100.0
> ,
> 61.1
> ,
> 107.0
> ,
> 67.1
> ,
> 135.0
> ,
> 102.0
> ,
> 73.7
> ,
> 111.0
> ,
> 86.3
> ,
> 89.9
> ,
> 102.0
> ,
> 52.6
> ,
> 117.0
> ,
> 94.5
> ,
> 91.9
> ,
> 82.6
> ,
> 86.7
> ,
> 81.4
> ,
> 93.3
> ,
> 88.1
> ,
> 101.0
> ,
> 85.9
> ,
> 37.0
> ,
> 33.4
> ,
> 105.0
> ,
> 60.4
> ,
> 84.6
> ,
> 94.5
> ,
> 15.8
> ,
> 88.3
> ,
> 80.4
> ,
> 31.0
> ,
> 66.9
> ,
> 78.9
> ,
> 61.0
> ,
> 106.0
> ,
> 133.0
> ,
> 47.2
> ,
> 104.0
> ,
> 155.0
> ,
> 74.2
> ,
> 76.2
> ,
> 113.0
> ,
> 95.5
> ,
> 66.2
> ,
> 146.0
> ,
> 71.4
> ,
> 135.0
> ,
> 96.3
> ,
> 53.3
> ,
> 62.5
> ,
> 121.0
> ,
> 102.0
> ,
> 114.0
> ,
> 37.5
> ,
> 47.9
> ,
> 156.0
> ,
> 61.8
> ,
> 46.9
> ,
> 166.0
> ,
> 77.9
> ,
> 61.4
> ,
> 102.0
> ];
fat := [136.0, 120.0, 121.0, 136.0, 108.0, 133.0, 167.0, 141.0, 113.0, 111.0,

    139.0, 96.2, 129.0, 113.0, 176.0, 151.0, 96.5, 105.0, 152.0, 169.0, 146.0,

    90.8, 172.0, 146.0, 98.0, 141.0, 174.0, 96.9, 130.0, 113.0, 122.0, 104.0,

    155.0, 119.0, 199.0, 73.4, 88.8, 96.4, 171.0, 159.0, 113.0, 160.0, 157.0,

    127.0, 134.0, 164.0, 85.3, 68.0, 125.0, 122.0, 105.0, 151.0, 151.0, 91.5,

    171.0, 149.0, 131.0, 161.0, 160.0, 163.0, 125.0, 78.4, 112.0, 152.0, 106.0,

    98.3, 124.0, 99.0, 100.0, 61.1, 107.0, 67.1, 135.0, 102.0, 73.7, 111.0,

    86.3, 89.9, 102.0, 52.6, 117.0, 94.5, 91.9, 82.6, 86.7, 81.4, 93.3, 88.1,

    101.0, 85.9, 37.0, 33.4, 105.0, 60.4, 84.6, 94.5, 15.8, 88.3, 80.4, 31.0,

    66.9, 78.9, 61.0, 106.0, 133.0, 47.2, 104.0, 155.0, 74.2, 76.2, 113.0, 95.5,

    66.2, 146.0, 71.4, 135.0, 96.3, 53.3, 62.5, 121.0, 102.0, 114.0, 37.5, 47.9,

    156.0, 61.8, 46.9, 166.0, 77.9, 61.4, 102.0]

> glucose := [
> 149
> ,
> 118
> ,
> 159
> ,
> 134
> ,
> 123
> ,
> 135
> ,
> 122
> ,
> 126
> ,
> 140
> ,
> 133
> ,
> 128
> ,
> 160
> ,
> 119
> ,
> 123
> ,
> 111
> ,
> 142
> ,
> 114
> ,
> 116
> ,
> 118
> ,
> 128
> ,
> 136
> ,
> 129
> ,
> 121
> ,
> 140
> ,
> 134
> ,
> 133
> ,
> 124
> ,
> 104
> ,
> 121
> ,
> 119
> ,
> 118
> ,
> 118
> ,
> 115
> ,
> 122
> ,
> 110
> ,
> 117
> ,
> 111
> ,
> 118
> ,
> 118
> ,
> 118
> ,
> 119
> ,
> 132
> ,
> 132
> ,
> 124
> ,
> 118
> ,
> 120
> ,
> 112
> ,
> 130
> ,
> 125
> ,
> 119
> ,
> 119
> ,
> 113
> ,
> 150
> ,
> 112
> ,
> 114
> ,
> 113
> ,
> 122
> ,
> 126
> ,
> 135
> ,
> 127
> ,
> 139
> ,
> 134
> ,
> 98
> ,
> 103
> ,
> 124
> ,
> 114
> ,
> 123
> ,
> 109
> ,
> 114
> ,
> 118
> ,
> 112
> ,
> 117
> ,
> 113
> ,
> 116
> ,
> 108
> ,
> 89
> ,
> 121
> ,
> 130
> ,
> 109
> ,
> 109
> ,
> 105
> ,
> 116
> ,
> 105
> ,
> 108
> ,
> 112
> ,
> 114
> ,
> 118
> ,
> 114
> ,
> 120
> ,
> 105
> ,
> 117
> ,
> 109
> ,
> 112
> ,
> 106
> ,
> 101
> ,
> 112
> ,
> 99
> ,
> 110
> ,
> 111
> ,
> 121
> ,
> 125
> ,
> 115
> ,
> 119
> ,
> 109
> ,
> 116
> ,
> 116
> ,
> 114
> ,
> 113
> ,
> 141
> ,
> 116
> ,
> 121
> ,
> 108
> ,
> 109
> ,
> 140
> ,
> 111
> ,
> 133
> ,
> 130
> ,
> 135
> ,
> 111
> ,
> 119
> ,
> 126
> ,
> 122
> ,
> 118
> ,
> 126
> ,
> 119
> ,
> 115
> ,
> 114
> ,
> 117
> ,
> 135
> ,
> 122
> ,
> 133
> ];
glucose := [149, 118, 159, 134, 123, 135, 122, 126, 140, 133, 128, 160, 119,

    123, 111, 142, 114, 116, 118, 128, 136, 129, 121, 140, 134, 133, 124, 104,

    121, 119, 118, 118, 115, 122, 110, 117, 111, 118, 118, 118, 119, 132, 132,

    124, 118, 120, 112, 130, 125, 119, 119, 113, 150, 112, 114, 113, 122, 126,

    135, 127, 139, 134, 98, 103, 124, 114, 123, 109, 114, 118, 112, 117, 113,

    116, 108, 89, 121, 130, 109, 109, 105, 116, 105, 108, 112, 114, 118, 114,

    120, 105, 117, 109, 112, 106, 101, 112, 99, 110, 111, 121, 125, 115, 119,

    109, 116, 116, 114, 113, 141, 116, 121, 108, 109, 140, 111, 133, 130, 135,

    111, 119, 126, 122, 118, 126, 119, 115, 114, 117, 135, 122, 133]

> c := Correlation(fat,glucose);
                             c := 0.240953184235087

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> protein := [
> 120.0
> ,
> 97.1
> ,
> 122.0
> ,
> 81.0
> ,
> 77.1
> ,
> 134.0
> ,
> 107.0
> ,
> 84.6
> ,
> 93.8
> ,
> 109.0
> ,
> 81.1
> ,
> 49.9
> ,
> 71.8
> ,
> 64.6
> ,
> 68.5
> ,
> 107.0
> ,
> 78.4
> ,
> 79.6
> ,
> 93.1
> ,
> 109.0
> ,
> 91.3
> ,
> 76.7
> ,
> 78.9
> ,
> 91.8
> ,
> 96.3
> ,
> 113.0
> ,
> 93.4
> ,
> 79.6
> ,
> 90.9
> ,
> 98.4
> ,
> 78.7
> ,
> 102.7
> ,
> 113.0
> ,
> 73.9
> ,
> 86.5
> ,
> 56.0
> ,
> 67.8
> ,
> 75.1
> ,
> 98.2
> ,
> 97.3
> ,
> 93.2
> ,
> 96.7
> ,
> 92.3
> ,
> 66.7
> ,
> 66.5
> ,
> 105.0
> ,
> 84.8
> ,
> 74.4
> ,
> 51.7
> ,
> 72.8
> ,
> 68.7
> ,
> 86.2
> ,
> 66.5
> ,
> 63.5
> ,
> 75.5
> ,
> 103.0
> ,
> 76.7
> ,
> 93.0
> ,
> 149.0
> ,
> 102.0
> ,
> 110.0
> ,
> 79.9
> ,
> 71.2
> ,
> 99.3
> ,
> 69.1
> ,
> 64.5
> ,
> 92.4
> ,
> 105.0
> ,
> 72.9
> ,
> 60.2
> ,
> 51.0
> ,
> 51.2
> ,
> 120.0
> ,
> 73.3
> ,
> 91.4
> ,
> 132.0
> ,
> 92.9
> ,
> 77.9
> ,
> 67.8
> ,
> 40.2
> ,
> 91.3
> ,
> 97.0
> ,
> 110.0
> ,
> 73.1
> ,
> 74.9
> ,
> 76.3
> ,
> 71.4
> ,
> 79.9
> ,
> 84.4
> ,
> 100.0
> ,
> 53.8
> ,
> 55.0
> ,
> 98.5
> ,
> 73.7
> ,
> 68.3
> ,
> 81.2
> ,
> 59.1
> ,
> 62.2
> ,
> 141.0
> ,
> 62.5
> ,
> 74.9
> ,
> 93.1
> ,
> 69.2
> ,
> 105.0
> ,
> 122.0
> ,
> 77.4
> ,
> 94.5
> ,
> 115.0
> ,
> 80.5
> ,
> 87.8
> ,
> 146.0
> ,
> 92.7
> ,
> 109.0
> ,
> 83.4
> ,
> 55.9
> ,
> 90.9
> ,
> 111.0
> ,
> 77.1
> ,
> 97.0
> ,
> 136.0
> ,
> 91.6
> ,
> 120.0
> ,
> 72.0
> ,
> 85.0
> ,
> 129.0
> ,
> 67.0
> ,
> 90.3
> ,
> 141.0
> ,
> 74.0
> ,
> 77.6
> ,
> 109.0
> ];
protein := [120.0, 97.1, 122.0, 81.0, 77.1, 134.0, 107.0, 84.6, 93.8, 109.0,

    81.1, 49.9, 71.8, 64.6, 68.5, 107.0, 78.4, 79.6, 93.1, 109.0, 91.3, 76.7,

    78.9, 91.8, 96.3, 113.0, 93.4, 79.6, 90.9, 98.4, 78.7, 102.7, 113.0, 73.9,

    86.5, 56.0, 67.8, 75.1, 98.2, 97.3, 93.2, 96.7, 92.3, 66.7, 66.5, 105.0,

    84.8, 74.4, 51.7, 72.8, 68.7, 86.2, 66.5, 63.5, 75.5, 103.0, 76.7, 93.0,

    149.0, 102.0, 110.0, 79.9, 71.2, 99.3, 69.1, 64.5, 92.4, 105.0, 72.9, 60.2,

    51.0, 51.2, 120.0, 73.3, 91.4, 132.0, 92.9, 77.9, 67.8, 40.2, 91.3, 97.0,

    110.0, 73.1, 74.9, 76.3, 71.4, 79.9, 84.4, 100.0, 53.8, 55.0, 98.5, 73.7,

    68.3, 81.2, 59.1, 62.2, 141.0, 62.5, 74.9, 93.1, 69.2, 105.0, 122.0, 77.4,

    94.5, 115.0, 80.5, 87.8, 146.0, 92.7, 109.0, 83.4, 55.9, 90.9, 111.0, 77.1,

    97.0, 136.0, 91.6, 120.0, 72.0, 85.0, 129.0, 67.0, 90.3, 141.0, 74.0, 77.6,

    109.0]

> glucose := [
> 149
> ,
> 118
> ,
> 159
> ,
> 134
> ,
> 123
> ,
> 135
> ,
> 122
> ,
> 126
> ,
> 140
> ,
> 133
> ,
> 128
> ,
> 160
> ,
> 119
> ,
> 123
> ,
> 111
> ,
> 142
> ,
> 114
> ,
> 116
> ,
> 118
> ,
> 128
> ,
> 136
> ,
> 129
> ,
> 121
> ,
> 140
> ,
> 134
> ,
> 133
> ,
> 124
> ,
> 104
> ,
> 121
> ,
> 119
> ,
> 118
> ,
> 118
> ,
> 115
> ,
> 122
> ,
> 110
> ,
> 117
> ,
> 111
> ,
> 118
> ,
> 118
> ,
> 118
> ,
> 119
> ,
> 132
> ,
> 132
> ,
> 124
> ,
> 118
> ,
> 120
> ,
> 112
> ,
> 130
> ,
> 125
> ,
> 119
> ,
> 119
> ,
> 113
> ,
> 150
> ,
> 112
> ,
> 114
> ,
> 113
> ,
> 122
> ,
> 126
> ,
> 135
> ,
> 127
> ,
> 139
> ,
> 134
> ,
> 98
> ,
> 103
> ,
> 124
> ,
> 114
> ,
> 123
> ,
> 109
> ,
> 114
> ,
> 118
> ,
> 112
> ,
> 117
> ,
> 113
> ,
> 116
> ,
> 108
> ,
> 89
> ,
> 121
> ,
> 130
> ,
> 109
> ,
> 109
> ,
> 105
> ,
> 116
> ,
> 105
> ,
> 108
> ,
> 112
> ,
> 114
> ,
> 118
> ,
> 114
> ,
> 120
> ,
> 105
> ,
> 117
> ,
> 109
> ,
> 112
> ,
> 106
> ,
> 101
> ,
> 112
> ,
> 99
> ,
> 110
> ,
> 111
> ,
> 121
> ,
> 125
> ,
> 115
> ,
> 119
> ,
> 109
> ,
> 116
> ,
> 116
> ,
> 114
> ,
> 113
> ,
> 141
> ,
> 116
> ,
> 121
> ,
> 108
> ,
> 109
> ,
> 140
> ,
> 111
> ,
> 133
> ,
> 130
> ,
> 135
> ,
> 111
> ,
> 119
> ,
> 126
> ,
> 122
> ,
> 118
> ,
> 126
> ,
> 119
> ,
> 115
> ,
> 114
> ,
> 117
> ,
> 135
> ,
> 122
> ,
> 133
> ];
glucose := [149, 118, 159, 134, 123, 135, 122, 126, 140, 133, 128, 160, 119,

    123, 111, 142, 114, 116, 118, 128, 136, 129, 121, 140, 134, 133, 124, 104,

    121, 119, 118, 118, 115, 122, 110, 117, 111, 118, 118, 118, 119, 132, 132,

    124, 118, 120, 112, 130, 125, 119, 119, 113, 150, 112, 114, 113, 122, 126,

    135, 127, 139, 134, 98, 103, 124, 114, 123, 109, 114, 118, 112, 117, 113,

    116, 108, 89, 121, 130, 109, 109, 105, 116, 105, 108, 112, 114, 118, 114,

    120, 105, 117, 109, 112, 106, 101, 112, 99, 110, 111, 121, 125, 115, 119,

    109, 116, 116, 114, 113, 141, 116, 121, 108, 109, 140, 111, 133, 130, 135,

    111, 119, 126, 122, 118, 126, 119, 115, 114, 117, 135, 122, 133]

> c := Correlation(protein,glucose);
                             c := 0.122425895110279

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> carb_fib := [
> 260.1
> ,
> 306.7
> ,
> 333.3
> ,
> 199.3
> ,
> 267.3
> ,
> 201.5
> ,
> 269.3
> ,
> 249.4
> ,
> 278.6
> ,
> 209.8
> ,
> 324.7
> ,
> 186.17
> ,
> 253.5
> ,
> 217.7
> ,
> 293.5
> ,
> 263.6
> ,
> 214.4
> ,
> 171.6
> ,
> 237.1
> ,
> 183.9
> ,
> 226.5
> ,
> 273.1
> ,
> 228.3
> ,
> 204.3
> ,
> 264.3
> ,
> 266.4
> ,
> 237.7
> ,
> 302.7
> ,
> 185.3
> ,
> 292.9
> ,
> 199.9
> ,
> 223.3
> ,
> 143.2
> ,
> 214.8
> ,
> 263.5
> ,
> 216.0
> ,
> 287.5
> ,
> 197.3
> ,
> 255.2
> ,
> 311.7
> ,
> 289.7
> ,
> 229.8
> ,
> 264.6
> ,
> 297.8
> ,
> 259.0
> ,
> 257.0
> ,
> 176.0
> ,
> 221.1
> ,
> 169.3
> ,
> 203.1
> ,
> 170.0
> ,
> 242.7
> ,
> 224.9
> ,
> 211.7
> ,
> 278.3
> ,
> 333.1
> ,
> 212.1
> ,
> 304.3
> ,
> 267.4
> ,
> 295.4
> ,
> 254.6
> ,
> 346.4
> ,
> 152.1
> ,
> 242.5
> ,
> 324.9
> ,
> 154.6
> ,
> 247.2
> ,
> 286.3
> ,
> 232.7
> ,
> 255.7
> ,
> 190.5
> ,
> 172.6
> ,
> 212.1
> ,
> 259.1
> ,
> 185.7
> ,
> 202.6
> ,
> 202.7
> ,
> 217.9
> ,
> 227.2
> ,
> 177.5
> ,
> 279.8
> ,
> 278.4
> ,
> 247.3
> ,
> 260.2
> ,
> 191.6
> ,
> 256.7
> ,
> 232.1
> ,
> 276.5
> ,
> 293.4
> ,
> 257.3
> ,
> 287.0
> ,
> 230.4
> ,
> 148.8
> ,
> 295.7
> ,
> 243.0
> ,
> 275.3
> ,
> 208.1
> ,
> 277.5
> ,
> 336.7
> ,
> 163.6
> ,
> 227.1
> ,
> 218.2
> ,
> 276.6
> ,
> 347.4
> ,
> 264.9
> ,
> 200.3
> ,
> 338.1
> ,
> 262.2
> ,
> 231.5
> ,
> 324.0
> ,
> 388.9
> ,
> 284.1
> ,
> 438.4
> ,
> 308.0
> ,
> 252.4
> ,
> 190.1
> ,
> 374.8
> ,
> 405.2
> ,
> 265.4
> ,
> 357.6
> ,
> 321.4
> ,
> 265.6
> ,
> 245.9
> ,
> 323.8
> ,
> 373.2
> ,
> 152.3
> ,
> 306.2
> ,
> 404.3
> ,
> 199.8
> ,
> 309.5
> ,
> 333.3
> ];
carb_fib := [260.1, 306.7, 333.3, 199.3, 267.3, 201.5, 269.3, 249.4, 278.6,

    209.8, 324.7, 186.17, 253.5, 217.7, 293.5, 263.6, 214.4, 171.6, 237.1,

    183.9, 226.5, 273.1, 228.3, 204.3, 264.3, 266.4, 237.7, 302.7, 185.3, 292.9,

    199.9, 223.3, 143.2, 214.8, 263.5, 216.0, 287.5, 197.3, 255.2, 311.7, 289.7,

    229.8, 264.6, 297.8, 259.0, 257.0, 176.0, 221.1, 169.3, 203.1, 170.0, 242.7,

    224.9, 211.7, 278.3, 333.1, 212.1, 304.3, 267.4, 295.4, 254.6, 346.4, 152.1,

    242.5, 324.9, 154.6, 247.2, 286.3, 232.7, 255.7, 190.5, 172.6, 212.1, 259.1,

    185.7, 202.6, 202.7, 217.9, 227.2, 177.5, 279.8, 278.4, 247.3, 260.2, 191.6,

    256.7, 232.1, 276.5, 293.4, 257.3, 287.0, 230.4, 148.8, 295.7, 243.0, 275.3,

    208.1, 277.5, 336.7, 163.6, 227.1, 218.2, 276.6, 347.4, 264.9, 200.3, 338.1,

    262.2, 231.5, 324.0, 388.9, 284.1, 438.4, 308.0, 252.4, 190.1, 374.8, 405.2,

    265.4, 357.6, 321.4, 265.6, 245.9, 323.8, 373.2, 152.3, 306.2, 404.3, 199.8,

    309.5, 333.3]

> glucose := [
> 149
> ,
> 118
> ,
> 159
> ,
> 134
> ,
> 123
> ,
> 135
> ,
> 122
> ,
> 126
> ,
> 140
> ,
> 133
> ,
> 128
> ,
> 160
> ,
> 119
> ,
> 123
> ,
> 111
> ,
> 142
> ,
> 114
> ,
> 116
> ,
> 118
> ,
> 128
> ,
> 136
> ,
> 129
> ,
> 121
> ,
> 140
> ,
> 134
> ,
> 133
> ,
> 124
> ,
> 104
> ,
> 121
> ,
> 119
> ,
> 118
> ,
> 118
> ,
> 115
> ,
> 122
> ,
> 110
> ,
> 117
> ,
> 111
> ,
> 118
> ,
> 118
> ,
> 118
> ,
> 119
> ,
> 132
> ,
> 132
> ,
> 124
> ,
> 118
> ,
> 120
> ,
> 112
> ,
> 130
> ,
> 125
> ,
> 119
> ,
> 119
> ,
> 113
> ,
> 150
> ,
> 112
> ,
> 114
> ,
> 113
> ,
> 122
> ,
> 126
> ,
> 135
> ,
> 127
> ,
> 139
> ,
> 134
> ,
> 98
> ,
> 103
> ,
> 124
> ,
> 114
> ,
> 123
> ,
> 109
> ,
> 114
> ,
> 118
> ,
> 112
> ,
> 117
> ,
> 113
> ,
> 116
> ,
> 108
> ,
> 89
> ,
> 121
> ,
> 130
> ,
> 109
> ,
> 109
> ,
> 105
> ,
> 116
> ,
> 105
> ,
> 108
> ,
> 112
> ,
> 114
> ,
> 118
> ,
> 114
> ,
> 120
> ,
> 105
> ,
> 117
> ,
> 109
> ,
> 112
> ,
> 106
> ,
> 101
> ,
> 112
> ,
> 99
> ,
> 110
> ,
> 111
> ,
> 121
> ,
> 125
> ,
> 115
> ,
> 119
> ,
> 109
> ,
> 116
> ,
> 116
> ,
> 114
> ,
> 113
> ,
> 141
> ,
> 116
> ,
> 121
> ,
> 108
> ,
> 109
> ,
> 140
> ,
> 111
> ,
> 133
> ,
> 130
> ,
> 135
> ,
> 111
> ,
> 119
> ,
> 126
> ,
> 122
> ,
> 118
> ,
> 126
> ,
> 119
> ,
> 115
> ,
> 114
> ,
> 117
> ,
> 135
> ,
> 122
> ,
> 133
> ];
glucose := [149, 118, 159, 134, 123, 135, 122, 126, 140, 133, 128, 160, 119,

    123, 111, 142, 114, 116, 118, 128, 136, 129, 121, 140, 134, 133, 124, 104,

    121, 119, 118, 118, 115, 122, 110, 117, 111, 118, 118, 118, 119, 132, 132,

    124, 118, 120, 112, 130, 125, 119, 119, 113, 150, 112, 114, 113, 122, 126,

    135, 127, 139, 134, 98, 103, 124, 114, 123, 109, 114, 118, 112, 117, 113,

    116, 108, 89, 121, 130, 109, 109, 105, 116, 105, 108, 112, 114, 118, 114,

    120, 105, 117, 109, 112, 106, 101, 112, 99, 110, 111, 121, 125, 115, 119,

    109, 116, 116, 114, 113, 141, 116, 121, 108, 109, 140, 111, 133, 130, 135,

    111, 119, 126, 122, 118, 126, 119, 115, 114, 117, 135, 122, 133]

> c := Correlation(carb_fib,glucose);
                            c := 0.0666604164718839

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> sugar := [
> 115.0
> ,
> 120.0
> ,
> 212.0
> ,
> 73.7
> ,
> 124.0
> ,
> 93.2
> ,
> 88.4
> ,
> 128.0
> ,
> 124.0
> ,
> 84.7
> ,
> 122.0
> ,
> 26.2
> ,
> 93.4
> ,
> 97.9
> ,
> 93.8
> ,
> 88.2
> ,
> 62.1
> ,
> 79.1
> ,
> 66.4
> ,
> 71.0
> ,
> 61.1
> ,
> 124.0
> ,
> 62.7
> ,
> 75.4
> ,
> 95.4
> ,
> 117.0
> ,
> 72.3
> ,
> 155.0
> ,
> 74.8
> ,
> 143.0
> ,
> 57.1
> ,
> 83.7
> ,
> 85.4
> ,
> 43.6
> ,
> 121.0
> ,
> 87.3
> ,
> 146.0
> ,
> 95.6
> ,
> 84.1
> ,
> 113.0
> ,
> 142.0
> ,
> 92.9
> ,
> 107.0
> ,
> 118.0
> ,
> 132.0
> ,
> 80.6
> ,
> 72.8
> ,
> 57.2
> ,
> 22.3
> ,
> 70.6
> ,
> 66.9
> ,
> 79.8
> ,
> 49.8
> ,
> 61.3
> ,
> 49.9
> ,
> 97.7
> ,
> 60.3
> ,
> 87.7
> ,
> 74.8
> ,
> 85.7
> ,
> 97.4
> ,
> 83.9
> ,
> 45.5
> ,
> 77.4
> ,
> 100.0
> ,
> 50.2
> ,
> 69.8
> ,
> 106.0
> ,
> 60.2
> ,
> 68.3
> ,
> 40.3
> ,
> 63.4
> ,
> 73.3
> ,
> 85.7
> ,
> 91.4
> ,
> 91.2
> ,
> 129.0
> ,
> 83.0
> ,
> 63.5
> ,
> 52.9
> ,
> 108.0
> ,
> 114.0
> ,
> 97.2
> ,
> 86.9
> ,
> 85.4
> ,
> 110.0
> ,
> 75.8
> ,
> 102.0
> ,
> 104.0
> ,
> 86.7
> ,
> 81.0
> ,
> 109.0
> ,
> 57.8
> ,
> 105.0
> ,
> 74.0
> ,
> 81.4
> ,
> 76.1
> ,
> 52.2
> ,
> 129.0
> ,
> 53.1
> ,
> 106.0
> ,
> 69.3
> ,
> 84.0
> ,
> 113.0
> ,
> 88.8
> ,
> 52.7
> ,
> 75.4
> ,
> 78.4
> ,
> 107.0
> ,
> 108.0
> ,
> 130.0
> ,
> 67.9
> ,
> 160.0
> ,
> 107.0
> ,
> 53.0
> ,
> 40.5
> ,
> 137.0
> ,
> 125.0
> ,
> 98.6
> ,
> 125.0
> ,
> 111.0
> ,
> 85.4
> ,
> 69.5
> ,
> 123.0
> ,
> 122.0
> ,
> 54.1
> ,
> 127.0
> ,
> 120.0
> ,
> 57.9
> ,
> 106.0
> ,
> 111.0
> ];
sugar := [115.0, 120.0, 212.0, 73.7, 124.0, 93.2, 88.4, 128.0, 124.0, 84.7,

    122.0, 26.2, 93.4, 97.9, 93.8, 88.2, 62.1, 79.1, 66.4, 71.0, 61.1, 124.0,

    62.7, 75.4, 95.4, 117.0, 72.3, 155.0, 74.8, 143.0, 57.1, 83.7, 85.4, 43.6,

    121.0, 87.3, 146.0, 95.6, 84.1, 113.0, 142.0, 92.9, 107.0, 118.0, 132.0,

    80.6, 72.8, 57.2, 22.3, 70.6, 66.9, 79.8, 49.8, 61.3, 49.9, 97.7, 60.3,

    87.7, 74.8, 85.7, 97.4, 83.9, 45.5, 77.4, 100.0, 50.2, 69.8, 106.0, 60.2,

    68.3, 40.3, 63.4, 73.3, 85.7, 91.4, 91.2, 129.0, 83.0, 63.5, 52.9, 108.0,

    114.0, 97.2, 86.9, 85.4, 110.0, 75.8, 102.0, 104.0, 86.7, 81.0, 109.0, 57.8,

    105.0, 74.0, 81.4, 76.1, 52.2, 129.0, 53.1, 106.0, 69.3, 84.0, 113.0, 88.8,

    52.7, 75.4, 78.4, 107.0, 108.0, 130.0, 67.9, 160.0, 107.0, 53.0, 40.5,

    137.0, 125.0, 98.6, 125.0, 111.0, 85.4, 69.5, 123.0, 122.0, 54.1, 127.0,

    120.0, 57.9, 106.0, 111.0]

> glucose := [
> 149
> ,
> 118
> ,
> 159
> ,
> 134
> ,
> 123
> ,
> 135
> ,
> 122
> ,
> 126
> ,
> 140
> ,
> 133
> ,
> 128
> ,
> 160
> ,
> 119
> ,
> 123
> ,
> 111
> ,
> 142
> ,
> 114
> ,
> 116
> ,
> 118
> ,
> 128
> ,
> 136
> ,
> 129
> ,
> 121
> ,
> 140
> ,
> 134
> ,
> 133
> ,
> 124
> ,
> 104
> ,
> 121
> ,
> 119
> ,
> 118
> ,
> 118
> ,
> 115
> ,
> 122
> ,
> 110
> ,
> 117
> ,
> 111
> ,
> 118
> ,
> 118
> ,
> 118
> ,
> 119
> ,
> 132
> ,
> 132
> ,
> 124
> ,
> 118
> ,
> 120
> ,
> 112
> ,
> 130
> ,
> 125
> ,
> 119
> ,
> 119
> ,
> 113
> ,
> 150
> ,
> 112
> ,
> 114
> ,
> 113
> ,
> 122
> ,
> 126
> ,
> 135
> ,
> 127
> ,
> 139
> ,
> 134
> ,
> 98
> ,
> 103
> ,
> 124
> ,
> 114
> ,
> 123
> ,
> 109
> ,
> 114
> ,
> 118
> ,
> 112
> ,
> 117
> ,
> 113
> ,
> 116
> ,
> 108
> ,
> 89
> ,
> 121
> ,
> 130
> ,
> 109
> ,
> 109
> ,
> 105
> ,
> 116
> ,
> 105
> ,
> 108
> ,
> 112
> ,
> 114
> ,
> 118
> ,
> 114
> ,
> 120
> ,
> 105
> ,
> 117
> ,
> 109
> ,
> 112
> ,
> 106
> ,
> 101
> ,
> 112
> ,
> 99
> ,
> 110
> ,
> 111
> ,
> 121
> ,
> 125
> ,
> 115
> ,
> 119
> ,
> 109
> ,
> 116
> ,
> 116
> ,
> 114
> ,
> 113
> ,
> 141
> ,
> 116
> ,
> 121
> ,
> 108
> ,
> 109
> ,
> 140
> ,
> 111
> ,
> 133
> ,
> 130
> ,
> 135
> ,
> 111
> ,
> 119
> ,
> 126
> ,
> 122
> ,
> 118
> ,
> 126
> ,
> 119
> ,
> 115
> ,
> 114
> ,
> 117
> ,
> 135
> ,
> 122
> ,
> 133
> ];
glucose := [149, 118, 159, 134, 123, 135, 122, 126, 140, 133, 128, 160, 119,

    123, 111, 142, 114, 116, 118, 128, 136, 129, 121, 140, 134, 133, 124, 104,

    121, 119, 118, 118, 115, 122, 110, 117, 111, 118, 118, 118, 119, 132, 132,

    124, 118, 120, 112, 130, 125, 119, 119, 113, 150, 112, 114, 113, 122, 126,

    135, 127, 139, 134, 98, 103, 124, 114, 123, 109, 114, 118, 112, 117, 113,

    116, 108, 89, 121, 130, 109, 109, 105, 116, 105, 108, 112, 114, 118, 114,

    120, 105, 117, 109, 112, 106, 101, 112, 99, 110, 111, 121, 125, 115, 119,

    109, 116, 116, 114, 113, 141, 116, 121, 108, 109, 140, 111, 133, 130, 135,

    111, 119, 126, 122, 118, 126, 119, 115, 114, 117, 135, 122, 133]

> c := Correlation(sugar,glucose);
                            c := 0.0963187940753714

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> miles := [
> 2.2
> ,
> 4.4
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 4.4
> ,
> 2.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 1.0
> ,
> 4.3
> ,
> 4.4
> ,
> 0.0
> ,
> 4.4
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 0.0
> ,
> 2.2
> ,
> 2.2
> ,
> 0.0
> ,
> 2.2
> ,
> 1.0
> ,
> 1.0
> ,
> 1.0
> ,
> 3.2
> ,
> 0.0
> ,
> 4.4
> ,
> 1.1
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 4.4
> ,
> 3.3
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.5
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 2.1
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 2.0
> ,
> 2.2
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ];
miles := [2.2, 4.4, 0., 0., 1.0, 0., 0., 1.0, 4.4, 2.0, 0., 1.0, 0., 0., 0., 0.,

    1.0, 1.0, 0., 0., 3.2, 1.0, 1.0, 4.3, 4.4, 0., 4.4, 0., 1.0, 0., 1.0, 0.,

    3.2, 1.0, 0., 2.2, 2.2, 0., 2.2, 1.0, 1.0, 1.0, 3.2, 0., 4.4, 1.1, 1.0, 0.,

    0., 1.1, 1.1, 0., 0., 1.1, 0., 1.1, 0., 0., 0., 0., 4.4, 3.3, 0., 0., 0.,

    0., 0., 0., 1.0, 0., 0., 1.5, 0., 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0.,

    1.0, 0., 1.0, 0., 1.0, 0., 1.0, 0., 1.0, 1.0, 2.1, 1.0, 1.0, 0., 0., 1.0,

    1.0, 0., 1.0, 2.0, 2.2, 1.0, 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0., 0.,

    0., 0., 0., 1.1, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.]

> glucose := [
> 149
> ,
> 118
> ,
> 159
> ,
> 134
> ,
> 123
> ,
> 135
> ,
> 122
> ,
> 126
> ,
> 140
> ,
> 133
> ,
> 128
> ,
> 160
> ,
> 119
> ,
> 123
> ,
> 111
> ,
> 142
> ,
> 114
> ,
> 116
> ,
> 118
> ,
> 128
> ,
> 136
> ,
> 129
> ,
> 121
> ,
> 140
> ,
> 134
> ,
> 133
> ,
> 124
> ,
> 104
> ,
> 121
> ,
> 119
> ,
> 118
> ,
> 118
> ,
> 115
> ,
> 122
> ,
> 110
> ,
> 117
> ,
> 111
> ,
> 118
> ,
> 118
> ,
> 118
> ,
> 119
> ,
> 132
> ,
> 132
> ,
> 124
> ,
> 118
> ,
> 120
> ,
> 112
> ,
> 130
> ,
> 125
> ,
> 119
> ,
> 119
> ,
> 113
> ,
> 150
> ,
> 112
> ,
> 114
> ,
> 113
> ,
> 122
> ,
> 126
> ,
> 135
> ,
> 127
> ,
> 139
> ,
> 134
> ,
> 98
> ,
> 103
> ,
> 124
> ,
> 114
> ,
> 123
> ,
> 109
> ,
> 114
> ,
> 118
> ,
> 112
> ,
> 117
> ,
> 113
> ,
> 116
> ,
> 108
> ,
> 89
> ,
> 121
> ,
> 130
> ,
> 109
> ,
> 109
> ,
> 105
> ,
> 116
> ,
> 105
> ,
> 108
> ,
> 112
> ,
> 114
> ,
> 118
> ,
> 114
> ,
> 120
> ,
> 105
> ,
> 117
> ,
> 109
> ,
> 112
> ,
> 106
> ,
> 101
> ,
> 112
> ,
> 99
> ,
> 110
> ,
> 111
> ,
> 121
> ,
> 125
> ,
> 115
> ,
> 119
> ,
> 109
> ,
> 116
> ,
> 116
> ,
> 114
> ,
> 113
> ,
> 141
> ,
> 116
> ,
> 121
> ,
> 108
> ,
> 109
> ,
> 140
> ,
> 111
> ,
> 133
> ,
> 130
> ,
> 135
> ,
> 111
> ,
> 119
> ,
> 126
> ,
> 122
> ,
> 118
> ,
> 126
> ,
> 119
> ,
> 115
> ,
> 114
> ,
> 117
> ,
> 135
> ,
> 122
> ,
> 133
> ];
glucose := [149, 118, 159, 134, 123, 135, 122, 126, 140, 133, 128, 160, 119,

    123, 111, 142, 114, 116, 118, 128, 136, 129, 121, 140, 134, 133, 124, 104,

    121, 119, 118, 118, 115, 122, 110, 117, 111, 118, 118, 118, 119, 132, 132,

    124, 118, 120, 112, 130, 125, 119, 119, 113, 150, 112, 114, 113, 122, 126,

    135, 127, 139, 134, 98, 103, 124, 114, 123, 109, 114, 118, 112, 117, 113,

    116, 108, 89, 121, 130, 109, 109, 105, 116, 105, 108, 112, 114, 118, 114,

    120, 105, 117, 109, 112, 106, 101, 112, 99, 110, 111, 121, 125, 115, 119,

    109, 116, 116, 114, 113, 141, 116, 121, 108, 109, 140, 111, 133, 130, 135,

    111, 119, 126, 122, 118, 126, 119, 115, 114, 117, 135, 122, 133]

> c := Correlation(miles,glucose);
                             c := 0.195782573550118

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> day := [
> 3
> ,
> 6
> ,
> 9
> ,
> 11
> ,
> 13
> ,
> 20
> ,
> 23
> ,
> 24
> ,
> 27
> ,
> 34
> ,
> 37
> ,
> 41
> ,
> 44
> ,
> 46
> ,
> 49
> ,
> 50
> ,
> 56
> ,
> 57
> ,
> 61
> ,
> 64
> ,
> 69
> ,
> 82
> ,
> 84
> ,
> 85
> ,
> 88
> ,
> 92
> ,
> 96
> ,
> 106
> ,
> 109
> ,
> 112
> ,
> 116
> ,
> 117
> ,
> 119
> ,
> 124
> ,
> 128
> ,
> 130
> ,
> 134
> ,
> 135
> ,
> 137
> ,
> 139
> ,
> 140
> ,
> 142
> ,
> 143
> ,
> 156
> ,
> 161
> ,
> 162
> ,
> 164
> ,
> 166
> ,
> 170
> ,
> 173
> ,
> 180
> ,
> 187
> ,
> 192
> ,
> 196
> ,
> 199
> ,
> 201
> ,
> 202
> ,
> 203
> ,
> 204
> ,
> 306
> ,
> 313
> ,
> 316
> ,
> 335
> ,
> 337
> ,
> 341
> ,
> 352
> ,
> 354
> ,
> 356
> ,
> 361
> ,
> 362
> ,
> 365
> ,
> 370
> ,
> 372
> ,
> 374
> ,
> 377
> ,
> 382
> ,
> 385
> ,
> 390
> ,
> 396
> ,
> 403
> ,
> 405
> ,
> 406
> ,
> 409
> ,
> 412
> ,
> 414
> ,
> 416
> ,
> 418
> ,
> 420
> ,
> 422
> ,
> 425
> ,
> 430
> ,
> 433
> ,
> 434
> ,
> 438
> ,
> 442
> ,
> 443
> ,
> 446
> ,
> 449
> ,
> 450
> ,
> 454
> ,
> 455
> ,
> 458
> ,
> 461
> ,
> 466
> ,
> 468
> ,
> 472
> ,
> 478
> ,
> 483
> ,
> 484
> ,
> 486
> ,
> 489
> ,
> 496
> ,
> 504
> ,
> 509
> ,
> 511
> ,
> 513
> ,
> 515
> ,
> 517
> ,
> 525
> ,
> 526
> ,
> 533
> ,
> 535
> ,
> 541
> ,
> 545
> ,
> 548
> ,
> 557
> ,
> 560
> ,
> 561
> ,
> 563
> ,
> 566
> ,
> 567
> ];
day := [3, 6, 9, 11, 13, 20, 23, 24, 27, 34, 37, 41, 44, 46, 49, 50, 56, 57, 61,

    64, 69, 82, 84, 85, 88, 92, 96, 106, 109, 112, 116, 117, 119, 124, 128, 130,

    134, 135, 137, 139, 140, 142, 143, 156, 161, 162, 164, 166, 170, 173, 180,

    187, 192, 196, 199, 201, 202, 203, 204, 306, 313, 316, 335, 337, 341, 352,

    354, 356, 361, 362, 365, 370, 372, 374, 377, 382, 385, 390, 396, 403, 405,

    406, 409, 412, 414, 416, 418, 420, 422, 425, 430, 433, 434, 438, 442, 443,

    446, 449, 450, 454, 455, 458, 461, 466, 468, 472, 478, 483, 484, 486, 489,

    496, 504, 509, 511, 513, 515, 517, 525, 526, 533, 535, 541, 545, 548, 557,

    560, 561, 563, 566, 567]

> delta_weight := [
> 1.
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 3.
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 1.60000000000002
> ,
> 0.799999999999983
> ,
> 0.
> ,
> 0.
> ,
> 0.
> ,
> 1.
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 2.60000000000002
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.400000000000006
> ,
> 0.199999999999989
> ,
> 0.599999999999994
> ,
> 0.200000000000017
> ,
> 1.59999999999999
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.600000000000023
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 1.
> ,
> 1.20000000000002
> ,
> 0.400000000000006
> ,
> 1.80000000000001
> ,
> 1.80000000000001
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 2.20000000000002
> ,
> 0.200000000000017
> ,
> 1.80000000000001
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.
> ,
> 2.19999999999999
> ,
> 1.19999999999999
> ,
> 0.
> ,
> 0.399999999999977
> ,
> 0.400000000000006
> ,
> 1.79999999999998
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 0.800000000000011
> ,
> 0.600000000000023
> ,
> 1.20000000000002
> ,
> 1.19999999999999
> ,
> 1.
> ,
> 1.60000000000002
> ,
> 0.
> ,
> 1.5
> ,
> 0.199999999999989
> ,
> 0.200000000000017
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.800000000000011
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 0.799999999999983
> ,
> 1.59999999999999
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 0.
> ,
> 1.
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 0.
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 1.79999999999998
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.599999999999994
> ,
> 0.
> ,
> 2.
> ,
> 0.399999999999977
> ];
delta_weight := [1., 0.400000000000006, 1.40000000000001, 0.400000000000006, 2.,

    3., 0.199999999999989, 0., 0.800000000000011, 0.199999999999989, 0.,

    0.800000000000011, 0.400000000000006, 0.599999999999994, 0.599999999999994,

    0.400000000000006, 1.60000000000002, 0.799999999999983, 0., 0., 0., 1.,

    0.400000000000006, 0., 0.800000000000011, 2.60000000000002,

    1.19999999999999, 0.199999999999989, 1.59999999999999, 1.40000000000001,

    0.400000000000006, 0., 1.80000000000001, 0.400000000000006,

    0.199999999999989, 0.599999999999994, 0.200000000000017, 1.59999999999999,

    1.59999999999999, 0., 0.599999999999994, 0.600000000000023,

    1.39999999999998, 0., 2., 0.400000000000006, 0.599999999999994, 1.,

    1.20000000000002, 0.400000000000006, 1.80000000000001, 1.80000000000001, 2.,

    0.400000000000006, 0.599999999999994, 0.199999999999989, 1.59999999999999,

    0., 0.400000000000006, 2.20000000000002, 0.200000000000017,

    1.80000000000001, 0., 0.800000000000011, 0., 2.19999999999999,

    1.19999999999999, 0., 0.399999999999977, 0.400000000000006,

    1.79999999999998, 0., 0.400000000000006, 0.400000000000006,

    1.40000000000001, 0.400000000000006, 0.200000000000017, 0.400000000000006,

    0., 0.599999999999994, 1.40000000000001, 0., 0., 1.80000000000001,

    0.599999999999994, 0.199999999999989, 0.800000000000011, 0.600000000000023,

    1.20000000000002, 1.19999999999999, 1., 1.60000000000002, 0., 1.5,

    0.199999999999989, 0.200000000000017, 1.40000000000001, 0.,

    0.599999999999994, 0.199999999999989, 1.19999999999999, 0.199999999999989,

    0., 0.799999999999983, 2., 0.800000000000011, 0.599999999999994,

    0.400000000000006, 0.799999999999983, 1.59999999999999, 0.400000000000006,

    2., 0., 1., 0., 0.800000000000011, 0.200000000000017, 0.400000000000006,

    0.200000000000017, 1.39999999999998, 0., 0., 1.39999999999998, 0.,

    1.79999999999998, 0.799999999999983, 2., 0.599999999999994, 0., 2.,

    0.399999999999977]

> c := Correlation(day,delta_weight);
                            c := -0.0384535181632659

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> calories := [
> 2749
> ,
> 2727
> ,
> 2872
> ,
> 2430
> ,
> 2363
> ,
> 2554
> ,
> 3048
> ,
> 2589
> ,
> 2528
> ,
> 2366
> ,
> 2895
> ,
> 1836
> ,
> 2467
> ,
> 2152
> ,
> 3015
> ,
> 2826
> ,
> 2043
> ,
> 1933
> ,
> 2711
> ,
> 2666
> ,
> 2534
> ,
> 2204
> ,
> 2572
> ,
> 2495
> ,
> 2362
> ,
> 2807
> ,
> 2846
> ,
> 2496
> ,
> 2187
> ,
> 2587
> ,
> 2242
> ,
> 2175
> ,
> 2334
> ,
> 2202
> ,
> 3151
> ,
> 1692
> ,
> 2295
> ,
> 1941
> ,
> 2860
> ,
> 3004
> ,
> 2513
> ,
> 2739
> ,
> 2723
> ,
> 2621
> ,
> 2452
> ,
> 2851
> ,
> 1741
> ,
> 1834
> ,
> 1940
> ,
> 2191
> ,
> 1802
> ,
> 2534
> ,
> 2407
> ,
> 1828
> ,
> 2958
> ,
> 3077
> ,
> 2304
> ,
> 2974
> ,
> 3100
> ,
> 3090
> ,
> 2563
> ,
> 2423
> ,
> 1795
> ,
> 2766
> ,
> 2497
> ,
> 1743
> ,
> 2504
> ,
> 2509
> ,
> 2172
> ,
> 1840
> ,
> 1754
> ,
> 1498
> ,
> 2487
> ,
> 2136
> ,
> 1704
> ,
> 2337
> ,
> 2411
> ,
> 2032
> ,
> 2139
> ,
> 1382
> ,
> 2543
> ,
> 2259
> ,
> 2332
> ,
> 2090
> ,
> 1935
> ,
> 2062
> ,
> 2000
> ,
> 2246
> ,
> 2448
> ,
> 2290
> ,
> 1769
> ,
> 1486
> ,
> 1855
> ,
> 2034
> ,
> 1959
> ,
> 2281
> ,
> 1258
> ,
> 2204
> ,
> 2533
> ,
> 1205
> ,
> 1795
> ,
> 1994
> ,
> 1924
> ,
> 2797
> ,
> 2785
> ,
> 1542
> ,
> 2502
> ,
> 2894
> ,
> 1944
> ,
> 2352
> ,
> 3192
> ,
> 2471
> ,
> 2524
> ,
> 2747
> ,
> 1816
> ,
> 2239
> ,
> 2802
> ,
> 2368
> ,
> 2004
> ,
> 3076
> ,
> 2462
> ,
> 2389
> ,
> 1646
> ,
> 2073
> ,
> 3483
> ,
> 1493
> ,
> 2015
> ,
> 3460
> ,
> 1706
> ,
> 2145
> ,
> 2584
> ];
calories := [2749, 2727, 2872, 2430, 2363, 2554, 3048, 2589, 2528, 2366, 2895,

    1836, 2467, 2152, 3015, 2826, 2043, 1933, 2711, 2666, 2534, 2204, 2572,

    2495, 2362, 2807, 2846, 2496, 2187, 2587, 2242, 2175, 2334, 2202, 3151,

    1692, 2295, 1941, 2860, 3004, 2513, 2739, 2723, 2621, 2452, 2851, 1741,

    1834, 1940, 2191, 1802, 2534, 2407, 1828, 2958, 3077, 2304, 2974, 3100,

    3090, 2563, 2423, 1795, 2766, 2497, 1743, 2504, 2509, 2172, 1840, 1754,

    1498, 2487, 2136, 1704, 2337, 2411, 2032, 2139, 1382, 2543, 2259, 2332,

    2090, 1935, 2062, 2000, 2246, 2448, 2290, 1769, 1486, 1855, 2034, 1959,

    2281, 1258, 2204, 2533, 1205, 1795, 1994, 1924, 2797, 2785, 1542, 2502,

    2894, 1944, 2352, 3192, 2471, 2524, 2747, 1816, 2239, 2802, 2368, 2004,

    3076, 2462, 2389, 1646, 2073, 3483, 1493, 2015, 3460, 1706, 2145, 2584]

> delta_weight := [
> 1.
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 3.
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 1.60000000000002
> ,
> 0.799999999999983
> ,
> 0.
> ,
> 0.
> ,
> 0.
> ,
> 1.
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 2.60000000000002
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.400000000000006
> ,
> 0.199999999999989
> ,
> 0.599999999999994
> ,
> 0.200000000000017
> ,
> 1.59999999999999
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.600000000000023
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 1.
> ,
> 1.20000000000002
> ,
> 0.400000000000006
> ,
> 1.80000000000001
> ,
> 1.80000000000001
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 2.20000000000002
> ,
> 0.200000000000017
> ,
> 1.80000000000001
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.
> ,
> 2.19999999999999
> ,
> 1.19999999999999
> ,
> 0.
> ,
> 0.399999999999977
> ,
> 0.400000000000006
> ,
> 1.79999999999998
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 0.800000000000011
> ,
> 0.600000000000023
> ,
> 1.20000000000002
> ,
> 1.19999999999999
> ,
> 1.
> ,
> 1.60000000000002
> ,
> 0.
> ,
> 1.5
> ,
> 0.199999999999989
> ,
> 0.200000000000017
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.800000000000011
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 0.799999999999983
> ,
> 1.59999999999999
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 0.
> ,
> 1.
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 0.
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 1.79999999999998
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.599999999999994
> ,
> 0.
> ,
> 2.
> ,
> 0.399999999999977
> ];
delta_weight := [1., 0.400000000000006, 1.40000000000001, 0.400000000000006, 2.,

    3., 0.199999999999989, 0., 0.800000000000011, 0.199999999999989, 0.,

    0.800000000000011, 0.400000000000006, 0.599999999999994, 0.599999999999994,

    0.400000000000006, 1.60000000000002, 0.799999999999983, 0., 0., 0., 1.,

    0.400000000000006, 0., 0.800000000000011, 2.60000000000002,

    1.19999999999999, 0.199999999999989, 1.59999999999999, 1.40000000000001,

    0.400000000000006, 0., 1.80000000000001, 0.400000000000006,

    0.199999999999989, 0.599999999999994, 0.200000000000017, 1.59999999999999,

    1.59999999999999, 0., 0.599999999999994, 0.600000000000023,

    1.39999999999998, 0., 2., 0.400000000000006, 0.599999999999994, 1.,

    1.20000000000002, 0.400000000000006, 1.80000000000001, 1.80000000000001, 2.,

    0.400000000000006, 0.599999999999994, 0.199999999999989, 1.59999999999999,

    0., 0.400000000000006, 2.20000000000002, 0.200000000000017,

    1.80000000000001, 0., 0.800000000000011, 0., 2.19999999999999,

    1.19999999999999, 0., 0.399999999999977, 0.400000000000006,

    1.79999999999998, 0., 0.400000000000006, 0.400000000000006,

    1.40000000000001, 0.400000000000006, 0.200000000000017, 0.400000000000006,

    0., 0.599999999999994, 1.40000000000001, 0., 0., 1.80000000000001,

    0.599999999999994, 0.199999999999989, 0.800000000000011, 0.600000000000023,

    1.20000000000002, 1.19999999999999, 1., 1.60000000000002, 0., 1.5,

    0.199999999999989, 0.200000000000017, 1.40000000000001, 0.,

    0.599999999999994, 0.199999999999989, 1.19999999999999, 0.199999999999989,

    0., 0.799999999999983, 2., 0.800000000000011, 0.599999999999994,

    0.400000000000006, 0.799999999999983, 1.59999999999999, 0.400000000000006,

    2., 0., 1., 0., 0.800000000000011, 0.200000000000017, 0.400000000000006,

    0.200000000000017, 1.39999999999998, 0., 0., 1.39999999999998, 0.,

    1.79999999999998, 0.799999999999983, 2., 0.599999999999994, 0., 2.,

    0.399999999999977]

> c := Correlation(calories,delta_weight);
                            c := -0.0217147137953350

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> fat := [
> 136.0
> ,
> 120.0
> ,
> 121.0
> ,
> 136.0
> ,
> 108.0
> ,
> 133.0
> ,
> 167.0
> ,
> 141.0
> ,
> 113.0
> ,
> 111.0
> ,
> 139.0
> ,
> 96.2
> ,
> 129.0
> ,
> 113.0
> ,
> 176.0
> ,
> 151.0
> ,
> 96.5
> ,
> 105.0
> ,
> 152.0
> ,
> 169.0
> ,
> 146.0
> ,
> 90.8
> ,
> 172.0
> ,
> 146.0
> ,
> 98.0
> ,
> 141.0
> ,
> 174.0
> ,
> 96.9
> ,
> 130.0
> ,
> 113.0
> ,
> 122.0
> ,
> 104.0
> ,
> 155.0
> ,
> 119.0
> ,
> 199.0
> ,
> 73.4
> ,
> 88.8
> ,
> 96.4
> ,
> 171.0
> ,
> 159.0
> ,
> 113.0
> ,
> 160.0
> ,
> 157.0
> ,
> 127.0
> ,
> 134.0
> ,
> 164.0
> ,
> 85.3
> ,
> 68.0
> ,
> 125.0
> ,
> 122.0
> ,
> 105.0
> ,
> 151.0
> ,
> 151.0
> ,
> 91.5
> ,
> 171.0
> ,
> 149.0
> ,
> 131.0
> ,
> 161.0
> ,
> 160.0
> ,
> 163.0
> ,
> 125.0
> ,
> 78.4
> ,
> 112.0
> ,
> 152.0
> ,
> 106.0
> ,
> 98.3
> ,
> 124.0
> ,
> 99.0
> ,
> 100.0
> ,
> 61.1
> ,
> 107.0
> ,
> 67.1
> ,
> 135.0
> ,
> 102.0
> ,
> 73.7
> ,
> 111.0
> ,
> 86.3
> ,
> 89.9
> ,
> 102.0
> ,
> 52.6
> ,
> 117.0
> ,
> 94.5
> ,
> 91.9
> ,
> 82.6
> ,
> 86.7
> ,
> 81.4
> ,
> 93.3
> ,
> 88.1
> ,
> 101.0
> ,
> 85.9
> ,
> 37.0
> ,
> 33.4
> ,
> 105.0
> ,
> 60.4
> ,
> 84.6
> ,
> 94.5
> ,
> 15.8
> ,
> 88.3
> ,
> 80.4
> ,
> 31.0
> ,
> 66.9
> ,
> 78.9
> ,
> 61.0
> ,
> 106.0
> ,
> 133.0
> ,
> 47.2
> ,
> 104.0
> ,
> 155.0
> ,
> 74.2
> ,
> 76.2
> ,
> 113.0
> ,
> 95.5
> ,
> 66.2
> ,
> 146.0
> ,
> 71.4
> ,
> 135.0
> ,
> 96.3
> ,
> 53.3
> ,
> 62.5
> ,
> 121.0
> ,
> 102.0
> ,
> 114.0
> ,
> 37.5
> ,
> 47.9
> ,
> 156.0
> ,
> 61.8
> ,
> 46.9
> ,
> 166.0
> ,
> 77.9
> ,
> 61.4
> ,
> 102.0
> ];
fat := [136.0, 120.0, 121.0, 136.0, 108.0, 133.0, 167.0, 141.0, 113.0, 111.0,

    139.0, 96.2, 129.0, 113.0, 176.0, 151.0, 96.5, 105.0, 152.0, 169.0, 146.0,

    90.8, 172.0, 146.0, 98.0, 141.0, 174.0, 96.9, 130.0, 113.0, 122.0, 104.0,

    155.0, 119.0, 199.0, 73.4, 88.8, 96.4, 171.0, 159.0, 113.0, 160.0, 157.0,

    127.0, 134.0, 164.0, 85.3, 68.0, 125.0, 122.0, 105.0, 151.0, 151.0, 91.5,

    171.0, 149.0, 131.0, 161.0, 160.0, 163.0, 125.0, 78.4, 112.0, 152.0, 106.0,

    98.3, 124.0, 99.0, 100.0, 61.1, 107.0, 67.1, 135.0, 102.0, 73.7, 111.0,

    86.3, 89.9, 102.0, 52.6, 117.0, 94.5, 91.9, 82.6, 86.7, 81.4, 93.3, 88.1,

    101.0, 85.9, 37.0, 33.4, 105.0, 60.4, 84.6, 94.5, 15.8, 88.3, 80.4, 31.0,

    66.9, 78.9, 61.0, 106.0, 133.0, 47.2, 104.0, 155.0, 74.2, 76.2, 113.0, 95.5,

    66.2, 146.0, 71.4, 135.0, 96.3, 53.3, 62.5, 121.0, 102.0, 114.0, 37.5, 47.9,

    156.0, 61.8, 46.9, 166.0, 77.9, 61.4, 102.0]

> delta_weight := [
> 1.
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 3.
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 1.60000000000002
> ,
> 0.799999999999983
> ,
> 0.
> ,
> 0.
> ,
> 0.
> ,
> 1.
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 2.60000000000002
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.400000000000006
> ,
> 0.199999999999989
> ,
> 0.599999999999994
> ,
> 0.200000000000017
> ,
> 1.59999999999999
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.600000000000023
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 1.
> ,
> 1.20000000000002
> ,
> 0.400000000000006
> ,
> 1.80000000000001
> ,
> 1.80000000000001
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 2.20000000000002
> ,
> 0.200000000000017
> ,
> 1.80000000000001
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.
> ,
> 2.19999999999999
> ,
> 1.19999999999999
> ,
> 0.
> ,
> 0.399999999999977
> ,
> 0.400000000000006
> ,
> 1.79999999999998
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 0.800000000000011
> ,
> 0.600000000000023
> ,
> 1.20000000000002
> ,
> 1.19999999999999
> ,
> 1.
> ,
> 1.60000000000002
> ,
> 0.
> ,
> 1.5
> ,
> 0.199999999999989
> ,
> 0.200000000000017
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.800000000000011
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 0.799999999999983
> ,
> 1.59999999999999
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 0.
> ,
> 1.
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 0.
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 1.79999999999998
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.599999999999994
> ,
> 0.
> ,
> 2.
> ,
> 0.399999999999977
> ];
delta_weight := [1., 0.400000000000006, 1.40000000000001, 0.400000000000006, 2.,

    3., 0.199999999999989, 0., 0.800000000000011, 0.199999999999989, 0.,

    0.800000000000011, 0.400000000000006, 0.599999999999994, 0.599999999999994,

    0.400000000000006, 1.60000000000002, 0.799999999999983, 0., 0., 0., 1.,

    0.400000000000006, 0., 0.800000000000011, 2.60000000000002,

    1.19999999999999, 0.199999999999989, 1.59999999999999, 1.40000000000001,

    0.400000000000006, 0., 1.80000000000001, 0.400000000000006,

    0.199999999999989, 0.599999999999994, 0.200000000000017, 1.59999999999999,

    1.59999999999999, 0., 0.599999999999994, 0.600000000000023,

    1.39999999999998, 0., 2., 0.400000000000006, 0.599999999999994, 1.,

    1.20000000000002, 0.400000000000006, 1.80000000000001, 1.80000000000001, 2.,

    0.400000000000006, 0.599999999999994, 0.199999999999989, 1.59999999999999,

    0., 0.400000000000006, 2.20000000000002, 0.200000000000017,

    1.80000000000001, 0., 0.800000000000011, 0., 2.19999999999999,

    1.19999999999999, 0., 0.399999999999977, 0.400000000000006,

    1.79999999999998, 0., 0.400000000000006, 0.400000000000006,

    1.40000000000001, 0.400000000000006, 0.200000000000017, 0.400000000000006,

    0., 0.599999999999994, 1.40000000000001, 0., 0., 1.80000000000001,

    0.599999999999994, 0.199999999999989, 0.800000000000011, 0.600000000000023,

    1.20000000000002, 1.19999999999999, 1., 1.60000000000002, 0., 1.5,

    0.199999999999989, 0.200000000000017, 1.40000000000001, 0.,

    0.599999999999994, 0.199999999999989, 1.19999999999999, 0.199999999999989,

    0., 0.799999999999983, 2., 0.800000000000011, 0.599999999999994,

    0.400000000000006, 0.799999999999983, 1.59999999999999, 0.400000000000006,

    2., 0., 1., 0., 0.800000000000011, 0.200000000000017, 0.400000000000006,

    0.200000000000017, 1.39999999999998, 0., 0., 1.39999999999998, 0.,

    1.79999999999998, 0.799999999999983, 2., 0.599999999999994, 0., 2.,

    0.399999999999977]

> c := Correlation(fat,delta_weight);
                            c := 0.00308667798882065

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> protein := [
> 120.0
> ,
> 97.1
> ,
> 122.0
> ,
> 81.0
> ,
> 77.1
> ,
> 134.0
> ,
> 107.0
> ,
> 84.6
> ,
> 93.8
> ,
> 109.0
> ,
> 81.1
> ,
> 49.9
> ,
> 71.8
> ,
> 64.6
> ,
> 68.5
> ,
> 107.0
> ,
> 78.4
> ,
> 79.6
> ,
> 93.1
> ,
> 109.0
> ,
> 91.3
> ,
> 76.7
> ,
> 78.9
> ,
> 91.8
> ,
> 96.3
> ,
> 113.0
> ,
> 93.4
> ,
> 79.6
> ,
> 90.9
> ,
> 98.4
> ,
> 78.7
> ,
> 102.7
> ,
> 113.0
> ,
> 73.9
> ,
> 86.5
> ,
> 56.0
> ,
> 67.8
> ,
> 75.1
> ,
> 98.2
> ,
> 97.3
> ,
> 93.2
> ,
> 96.7
> ,
> 92.3
> ,
> 66.7
> ,
> 66.5
> ,
> 105.0
> ,
> 84.8
> ,
> 74.4
> ,
> 51.7
> ,
> 72.8
> ,
> 68.7
> ,
> 86.2
> ,
> 66.5
> ,
> 63.5
> ,
> 75.5
> ,
> 103.0
> ,
> 76.7
> ,
> 93.0
> ,
> 149.0
> ,
> 102.0
> ,
> 110.0
> ,
> 79.9
> ,
> 71.2
> ,
> 99.3
> ,
> 69.1
> ,
> 64.5
> ,
> 92.4
> ,
> 105.0
> ,
> 72.9
> ,
> 60.2
> ,
> 51.0
> ,
> 51.2
> ,
> 120.0
> ,
> 73.3
> ,
> 91.4
> ,
> 132.0
> ,
> 92.9
> ,
> 77.9
> ,
> 67.8
> ,
> 40.2
> ,
> 91.3
> ,
> 97.0
> ,
> 110.0
> ,
> 73.1
> ,
> 74.9
> ,
> 76.3
> ,
> 71.4
> ,
> 79.9
> ,
> 84.4
> ,
> 100.0
> ,
> 53.8
> ,
> 55.0
> ,
> 98.5
> ,
> 73.7
> ,
> 68.3
> ,
> 81.2
> ,
> 59.1
> ,
> 62.2
> ,
> 141.0
> ,
> 62.5
> ,
> 74.9
> ,
> 93.1
> ,
> 69.2
> ,
> 105.0
> ,
> 122.0
> ,
> 77.4
> ,
> 94.5
> ,
> 115.0
> ,
> 80.5
> ,
> 87.8
> ,
> 146.0
> ,
> 92.7
> ,
> 109.0
> ,
> 83.4
> ,
> 55.9
> ,
> 90.9
> ,
> 111.0
> ,
> 77.1
> ,
> 97.0
> ,
> 136.0
> ,
> 91.6
> ,
> 120.0
> ,
> 72.0
> ,
> 85.0
> ,
> 129.0
> ,
> 67.0
> ,
> 90.3
> ,
> 141.0
> ,
> 74.0
> ,
> 77.6
> ,
> 109.0
> ];
protein := [120.0, 97.1, 122.0, 81.0, 77.1, 134.0, 107.0, 84.6, 93.8, 109.0,

    81.1, 49.9, 71.8, 64.6, 68.5, 107.0, 78.4, 79.6, 93.1, 109.0, 91.3, 76.7,

    78.9, 91.8, 96.3, 113.0, 93.4, 79.6, 90.9, 98.4, 78.7, 102.7, 113.0, 73.9,

    86.5, 56.0, 67.8, 75.1, 98.2, 97.3, 93.2, 96.7, 92.3, 66.7, 66.5, 105.0,

    84.8, 74.4, 51.7, 72.8, 68.7, 86.2, 66.5, 63.5, 75.5, 103.0, 76.7, 93.0,

    149.0, 102.0, 110.0, 79.9, 71.2, 99.3, 69.1, 64.5, 92.4, 105.0, 72.9, 60.2,

    51.0, 51.2, 120.0, 73.3, 91.4, 132.0, 92.9, 77.9, 67.8, 40.2, 91.3, 97.0,

    110.0, 73.1, 74.9, 76.3, 71.4, 79.9, 84.4, 100.0, 53.8, 55.0, 98.5, 73.7,

    68.3, 81.2, 59.1, 62.2, 141.0, 62.5, 74.9, 93.1, 69.2, 105.0, 122.0, 77.4,

    94.5, 115.0, 80.5, 87.8, 146.0, 92.7, 109.0, 83.4, 55.9, 90.9, 111.0, 77.1,

    97.0, 136.0, 91.6, 120.0, 72.0, 85.0, 129.0, 67.0, 90.3, 141.0, 74.0, 77.6,

    109.0]

> delta_weight := [
> 1.
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 3.
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 1.60000000000002
> ,
> 0.799999999999983
> ,
> 0.
> ,
> 0.
> ,
> 0.
> ,
> 1.
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 2.60000000000002
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.400000000000006
> ,
> 0.199999999999989
> ,
> 0.599999999999994
> ,
> 0.200000000000017
> ,
> 1.59999999999999
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.600000000000023
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 1.
> ,
> 1.20000000000002
> ,
> 0.400000000000006
> ,
> 1.80000000000001
> ,
> 1.80000000000001
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 2.20000000000002
> ,
> 0.200000000000017
> ,
> 1.80000000000001
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.
> ,
> 2.19999999999999
> ,
> 1.19999999999999
> ,
> 0.
> ,
> 0.399999999999977
> ,
> 0.400000000000006
> ,
> 1.79999999999998
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 0.800000000000011
> ,
> 0.600000000000023
> ,
> 1.20000000000002
> ,
> 1.19999999999999
> ,
> 1.
> ,
> 1.60000000000002
> ,
> 0.
> ,
> 1.5
> ,
> 0.199999999999989
> ,
> 0.200000000000017
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.800000000000011
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 0.799999999999983
> ,
> 1.59999999999999
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 0.
> ,
> 1.
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 0.
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 1.79999999999998
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.599999999999994
> ,
> 0.
> ,
> 2.
> ,
> 0.399999999999977
> ];
delta_weight := [1., 0.400000000000006, 1.40000000000001, 0.400000000000006, 2.,

    3., 0.199999999999989, 0., 0.800000000000011, 0.199999999999989, 0.,

    0.800000000000011, 0.400000000000006, 0.599999999999994, 0.599999999999994,

    0.400000000000006, 1.60000000000002, 0.799999999999983, 0., 0., 0., 1.,

    0.400000000000006, 0., 0.800000000000011, 2.60000000000002,

    1.19999999999999, 0.199999999999989, 1.59999999999999, 1.40000000000001,

    0.400000000000006, 0., 1.80000000000001, 0.400000000000006,

    0.199999999999989, 0.599999999999994, 0.200000000000017, 1.59999999999999,

    1.59999999999999, 0., 0.599999999999994, 0.600000000000023,

    1.39999999999998, 0., 2., 0.400000000000006, 0.599999999999994, 1.,

    1.20000000000002, 0.400000000000006, 1.80000000000001, 1.80000000000001, 2.,

    0.400000000000006, 0.599999999999994, 0.199999999999989, 1.59999999999999,

    0., 0.400000000000006, 2.20000000000002, 0.200000000000017,

    1.80000000000001, 0., 0.800000000000011, 0., 2.19999999999999,

    1.19999999999999, 0., 0.399999999999977, 0.400000000000006,

    1.79999999999998, 0., 0.400000000000006, 0.400000000000006,

    1.40000000000001, 0.400000000000006, 0.200000000000017, 0.400000000000006,

    0., 0.599999999999994, 1.40000000000001, 0., 0., 1.80000000000001,

    0.599999999999994, 0.199999999999989, 0.800000000000011, 0.600000000000023,

    1.20000000000002, 1.19999999999999, 1., 1.60000000000002, 0., 1.5,

    0.199999999999989, 0.200000000000017, 1.40000000000001, 0.,

    0.599999999999994, 0.199999999999989, 1.19999999999999, 0.199999999999989,

    0., 0.799999999999983, 2., 0.800000000000011, 0.599999999999994,

    0.400000000000006, 0.799999999999983, 1.59999999999999, 0.400000000000006,

    2., 0., 1., 0., 0.800000000000011, 0.200000000000017, 0.400000000000006,

    0.200000000000017, 1.39999999999998, 0., 0., 1.39999999999998, 0.,

    1.79999999999998, 0.799999999999983, 2., 0.599999999999994, 0., 2.,

    0.399999999999977]

> c := Correlation(protein,delta_weight);
                            c := 0.0152214425251325

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> carb_fib := [
> 260.1
> ,
> 306.7
> ,
> 333.3
> ,
> 199.3
> ,
> 267.3
> ,
> 201.5
> ,
> 269.3
> ,
> 249.4
> ,
> 278.6
> ,
> 209.8
> ,
> 324.7
> ,
> 186.17
> ,
> 253.5
> ,
> 217.7
> ,
> 293.5
> ,
> 263.6
> ,
> 214.4
> ,
> 171.6
> ,
> 237.1
> ,
> 183.9
> ,
> 226.5
> ,
> 273.1
> ,
> 228.3
> ,
> 204.3
> ,
> 264.3
> ,
> 266.4
> ,
> 237.7
> ,
> 302.7
> ,
> 185.3
> ,
> 292.9
> ,
> 199.9
> ,
> 223.3
> ,
> 143.2
> ,
> 214.8
> ,
> 263.5
> ,
> 216.0
> ,
> 287.5
> ,
> 197.3
> ,
> 255.2
> ,
> 311.7
> ,
> 289.7
> ,
> 229.8
> ,
> 264.6
> ,
> 297.8
> ,
> 259.0
> ,
> 257.0
> ,
> 176.0
> ,
> 221.1
> ,
> 169.3
> ,
> 203.1
> ,
> 170.0
> ,
> 242.7
> ,
> 224.9
> ,
> 211.7
> ,
> 278.3
> ,
> 333.1
> ,
> 212.1
> ,
> 304.3
> ,
> 267.4
> ,
> 295.4
> ,
> 254.6
> ,
> 346.4
> ,
> 152.1
> ,
> 242.5
> ,
> 324.9
> ,
> 154.6
> ,
> 247.2
> ,
> 286.3
> ,
> 232.7
> ,
> 255.7
> ,
> 190.5
> ,
> 172.6
> ,
> 212.1
> ,
> 259.1
> ,
> 185.7
> ,
> 202.6
> ,
> 202.7
> ,
> 217.9
> ,
> 227.2
> ,
> 177.5
> ,
> 279.8
> ,
> 278.4
> ,
> 247.3
> ,
> 260.2
> ,
> 191.6
> ,
> 256.7
> ,
> 232.1
> ,
> 276.5
> ,
> 293.4
> ,
> 257.3
> ,
> 287.0
> ,
> 230.4
> ,
> 148.8
> ,
> 295.7
> ,
> 243.0
> ,
> 275.3
> ,
> 208.1
> ,
> 277.5
> ,
> 336.7
> ,
> 163.6
> ,
> 227.1
> ,
> 218.2
> ,
> 276.6
> ,
> 347.4
> ,
> 264.9
> ,
> 200.3
> ,
> 338.1
> ,
> 262.2
> ,
> 231.5
> ,
> 324.0
> ,
> 388.9
> ,
> 284.1
> ,
> 438.4
> ,
> 308.0
> ,
> 252.4
> ,
> 190.1
> ,
> 374.8
> ,
> 405.2
> ,
> 265.4
> ,
> 357.6
> ,
> 321.4
> ,
> 265.6
> ,
> 245.9
> ,
> 323.8
> ,
> 373.2
> ,
> 152.3
> ,
> 306.2
> ,
> 404.3
> ,
> 199.8
> ,
> 309.5
> ,
> 333.3
> ];
carb_fib := [260.1, 306.7, 333.3, 199.3, 267.3, 201.5, 269.3, 249.4, 278.6,

    209.8, 324.7, 186.17, 253.5, 217.7, 293.5, 263.6, 214.4, 171.6, 237.1,

    183.9, 226.5, 273.1, 228.3, 204.3, 264.3, 266.4, 237.7, 302.7, 185.3, 292.9,

    199.9, 223.3, 143.2, 214.8, 263.5, 216.0, 287.5, 197.3, 255.2, 311.7, 289.7,

    229.8, 264.6, 297.8, 259.0, 257.0, 176.0, 221.1, 169.3, 203.1, 170.0, 242.7,

    224.9, 211.7, 278.3, 333.1, 212.1, 304.3, 267.4, 295.4, 254.6, 346.4, 152.1,

    242.5, 324.9, 154.6, 247.2, 286.3, 232.7, 255.7, 190.5, 172.6, 212.1, 259.1,

    185.7, 202.6, 202.7, 217.9, 227.2, 177.5, 279.8, 278.4, 247.3, 260.2, 191.6,

    256.7, 232.1, 276.5, 293.4, 257.3, 287.0, 230.4, 148.8, 295.7, 243.0, 275.3,

    208.1, 277.5, 336.7, 163.6, 227.1, 218.2, 276.6, 347.4, 264.9, 200.3, 338.1,

    262.2, 231.5, 324.0, 388.9, 284.1, 438.4, 308.0, 252.4, 190.1, 374.8, 405.2,

    265.4, 357.6, 321.4, 265.6, 245.9, 323.8, 373.2, 152.3, 306.2, 404.3, 199.8,

    309.5, 333.3]

> delta_weight := [
> 1.
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 3.
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 1.60000000000002
> ,
> 0.799999999999983
> ,
> 0.
> ,
> 0.
> ,
> 0.
> ,
> 1.
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 2.60000000000002
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.400000000000006
> ,
> 0.199999999999989
> ,
> 0.599999999999994
> ,
> 0.200000000000017
> ,
> 1.59999999999999
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.600000000000023
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 1.
> ,
> 1.20000000000002
> ,
> 0.400000000000006
> ,
> 1.80000000000001
> ,
> 1.80000000000001
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 2.20000000000002
> ,
> 0.200000000000017
> ,
> 1.80000000000001
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.
> ,
> 2.19999999999999
> ,
> 1.19999999999999
> ,
> 0.
> ,
> 0.399999999999977
> ,
> 0.400000000000006
> ,
> 1.79999999999998
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 0.800000000000011
> ,
> 0.600000000000023
> ,
> 1.20000000000002
> ,
> 1.19999999999999
> ,
> 1.
> ,
> 1.60000000000002
> ,
> 0.
> ,
> 1.5
> ,
> 0.199999999999989
> ,
> 0.200000000000017
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.800000000000011
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 0.799999999999983
> ,
> 1.59999999999999
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 0.
> ,
> 1.
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 0.
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 1.79999999999998
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.599999999999994
> ,
> 0.
> ,
> 2.
> ,
> 0.399999999999977
> ];
delta_weight := [1., 0.400000000000006, 1.40000000000001, 0.400000000000006, 2.,

    3., 0.199999999999989, 0., 0.800000000000011, 0.199999999999989, 0.,

    0.800000000000011, 0.400000000000006, 0.599999999999994, 0.599999999999994,

    0.400000000000006, 1.60000000000002, 0.799999999999983, 0., 0., 0., 1.,

    0.400000000000006, 0., 0.800000000000011, 2.60000000000002,

    1.19999999999999, 0.199999999999989, 1.59999999999999, 1.40000000000001,

    0.400000000000006, 0., 1.80000000000001, 0.400000000000006,

    0.199999999999989, 0.599999999999994, 0.200000000000017, 1.59999999999999,

    1.59999999999999, 0., 0.599999999999994, 0.600000000000023,

    1.39999999999998, 0., 2., 0.400000000000006, 0.599999999999994, 1.,

    1.20000000000002, 0.400000000000006, 1.80000000000001, 1.80000000000001, 2.,

    0.400000000000006, 0.599999999999994, 0.199999999999989, 1.59999999999999,

    0., 0.400000000000006, 2.20000000000002, 0.200000000000017,

    1.80000000000001, 0., 0.800000000000011, 0., 2.19999999999999,

    1.19999999999999, 0., 0.399999999999977, 0.400000000000006,

    1.79999999999998, 0., 0.400000000000006, 0.400000000000006,

    1.40000000000001, 0.400000000000006, 0.200000000000017, 0.400000000000006,

    0., 0.599999999999994, 1.40000000000001, 0., 0., 1.80000000000001,

    0.599999999999994, 0.199999999999989, 0.800000000000011, 0.600000000000023,

    1.20000000000002, 1.19999999999999, 1., 1.60000000000002, 0., 1.5,

    0.199999999999989, 0.200000000000017, 1.40000000000001, 0.,

    0.599999999999994, 0.199999999999989, 1.19999999999999, 0.199999999999989,

    0., 0.799999999999983, 2., 0.800000000000011, 0.599999999999994,

    0.400000000000006, 0.799999999999983, 1.59999999999999, 0.400000000000006,

    2., 0., 1., 0., 0.800000000000011, 0.200000000000017, 0.400000000000006,

    0.200000000000017, 1.39999999999998, 0., 0., 1.39999999999998, 0.,

    1.79999999999998, 0.799999999999983, 2., 0.599999999999994, 0., 2.,

    0.399999999999977]

> c := Correlation(carb_fib,delta_weight);
                            c := -0.0609298186418054

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> sugar := [
> 115.0
> ,
> 120.0
> ,
> 212.0
> ,
> 73.7
> ,
> 124.0
> ,
> 93.2
> ,
> 88.4
> ,
> 128.0
> ,
> 124.0
> ,
> 84.7
> ,
> 122.0
> ,
> 26.2
> ,
> 93.4
> ,
> 97.9
> ,
> 93.8
> ,
> 88.2
> ,
> 62.1
> ,
> 79.1
> ,
> 66.4
> ,
> 71.0
> ,
> 61.1
> ,
> 124.0
> ,
> 62.7
> ,
> 75.4
> ,
> 95.4
> ,
> 117.0
> ,
> 72.3
> ,
> 155.0
> ,
> 74.8
> ,
> 143.0
> ,
> 57.1
> ,
> 83.7
> ,
> 85.4
> ,
> 43.6
> ,
> 121.0
> ,
> 87.3
> ,
> 146.0
> ,
> 95.6
> ,
> 84.1
> ,
> 113.0
> ,
> 142.0
> ,
> 92.9
> ,
> 107.0
> ,
> 118.0
> ,
> 132.0
> ,
> 80.6
> ,
> 72.8
> ,
> 57.2
> ,
> 22.3
> ,
> 70.6
> ,
> 66.9
> ,
> 79.8
> ,
> 49.8
> ,
> 61.3
> ,
> 49.9
> ,
> 97.7
> ,
> 60.3
> ,
> 87.7
> ,
> 74.8
> ,
> 85.7
> ,
> 97.4
> ,
> 83.9
> ,
> 45.5
> ,
> 77.4
> ,
> 100.0
> ,
> 50.2
> ,
> 69.8
> ,
> 106.0
> ,
> 60.2
> ,
> 68.3
> ,
> 40.3
> ,
> 63.4
> ,
> 73.3
> ,
> 85.7
> ,
> 91.4
> ,
> 91.2
> ,
> 129.0
> ,
> 83.0
> ,
> 63.5
> ,
> 52.9
> ,
> 108.0
> ,
> 114.0
> ,
> 97.2
> ,
> 86.9
> ,
> 85.4
> ,
> 110.0
> ,
> 75.8
> ,
> 102.0
> ,
> 104.0
> ,
> 86.7
> ,
> 81.0
> ,
> 109.0
> ,
> 57.8
> ,
> 105.0
> ,
> 74.0
> ,
> 81.4
> ,
> 76.1
> ,
> 52.2
> ,
> 129.0
> ,
> 53.1
> ,
> 106.0
> ,
> 69.3
> ,
> 84.0
> ,
> 113.0
> ,
> 88.8
> ,
> 52.7
> ,
> 75.4
> ,
> 78.4
> ,
> 107.0
> ,
> 108.0
> ,
> 130.0
> ,
> 67.9
> ,
> 160.0
> ,
> 107.0
> ,
> 53.0
> ,
> 40.5
> ,
> 137.0
> ,
> 125.0
> ,
> 98.6
> ,
> 125.0
> ,
> 111.0
> ,
> 85.4
> ,
> 69.5
> ,
> 123.0
> ,
> 122.0
> ,
> 54.1
> ,
> 127.0
> ,
> 120.0
> ,
> 57.9
> ,
> 106.0
> ,
> 111.0
> ];
sugar := [115.0, 120.0, 212.0, 73.7, 124.0, 93.2, 88.4, 128.0, 124.0, 84.7,

    122.0, 26.2, 93.4, 97.9, 93.8, 88.2, 62.1, 79.1, 66.4, 71.0, 61.1, 124.0,

    62.7, 75.4, 95.4, 117.0, 72.3, 155.0, 74.8, 143.0, 57.1, 83.7, 85.4, 43.6,

    121.0, 87.3, 146.0, 95.6, 84.1, 113.0, 142.0, 92.9, 107.0, 118.0, 132.0,

    80.6, 72.8, 57.2, 22.3, 70.6, 66.9, 79.8, 49.8, 61.3, 49.9, 97.7, 60.3,

    87.7, 74.8, 85.7, 97.4, 83.9, 45.5, 77.4, 100.0, 50.2, 69.8, 106.0, 60.2,

    68.3, 40.3, 63.4, 73.3, 85.7, 91.4, 91.2, 129.0, 83.0, 63.5, 52.9, 108.0,

    114.0, 97.2, 86.9, 85.4, 110.0, 75.8, 102.0, 104.0, 86.7, 81.0, 109.0, 57.8,

    105.0, 74.0, 81.4, 76.1, 52.2, 129.0, 53.1, 106.0, 69.3, 84.0, 113.0, 88.8,

    52.7, 75.4, 78.4, 107.0, 108.0, 130.0, 67.9, 160.0, 107.0, 53.0, 40.5,

    137.0, 125.0, 98.6, 125.0, 111.0, 85.4, 69.5, 123.0, 122.0, 54.1, 127.0,

    120.0, 57.9, 106.0, 111.0]

> delta_weight := [
> 1.
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 3.
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 1.60000000000002
> ,
> 0.799999999999983
> ,
> 0.
> ,
> 0.
> ,
> 0.
> ,
> 1.
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 2.60000000000002
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.400000000000006
> ,
> 0.199999999999989
> ,
> 0.599999999999994
> ,
> 0.200000000000017
> ,
> 1.59999999999999
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.600000000000023
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 1.
> ,
> 1.20000000000002
> ,
> 0.400000000000006
> ,
> 1.80000000000001
> ,
> 1.80000000000001
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 2.20000000000002
> ,
> 0.200000000000017
> ,
> 1.80000000000001
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.
> ,
> 2.19999999999999
> ,
> 1.19999999999999
> ,
> 0.
> ,
> 0.399999999999977
> ,
> 0.400000000000006
> ,
> 1.79999999999998
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 0.800000000000011
> ,
> 0.600000000000023
> ,
> 1.20000000000002
> ,
> 1.19999999999999
> ,
> 1.
> ,
> 1.60000000000002
> ,
> 0.
> ,
> 1.5
> ,
> 0.199999999999989
> ,
> 0.200000000000017
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.800000000000011
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 0.799999999999983
> ,
> 1.59999999999999
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 0.
> ,
> 1.
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 0.
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 1.79999999999998
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.599999999999994
> ,
> 0.
> ,
> 2.
> ,
> 0.399999999999977
> ];
delta_weight := [1., 0.400000000000006, 1.40000000000001, 0.400000000000006, 2.,

    3., 0.199999999999989, 0., 0.800000000000011, 0.199999999999989, 0.,

    0.800000000000011, 0.400000000000006, 0.599999999999994, 0.599999999999994,

    0.400000000000006, 1.60000000000002, 0.799999999999983, 0., 0., 0., 1.,

    0.400000000000006, 0., 0.800000000000011, 2.60000000000002,

    1.19999999999999, 0.199999999999989, 1.59999999999999, 1.40000000000001,

    0.400000000000006, 0., 1.80000000000001, 0.400000000000006,

    0.199999999999989, 0.599999999999994, 0.200000000000017, 1.59999999999999,

    1.59999999999999, 0., 0.599999999999994, 0.600000000000023,

    1.39999999999998, 0., 2., 0.400000000000006, 0.599999999999994, 1.,

    1.20000000000002, 0.400000000000006, 1.80000000000001, 1.80000000000001, 2.,

    0.400000000000006, 0.599999999999994, 0.199999999999989, 1.59999999999999,

    0., 0.400000000000006, 2.20000000000002, 0.200000000000017,

    1.80000000000001, 0., 0.800000000000011, 0., 2.19999999999999,

    1.19999999999999, 0., 0.399999999999977, 0.400000000000006,

    1.79999999999998, 0., 0.400000000000006, 0.400000000000006,

    1.40000000000001, 0.400000000000006, 0.200000000000017, 0.400000000000006,

    0., 0.599999999999994, 1.40000000000001, 0., 0., 1.80000000000001,

    0.599999999999994, 0.199999999999989, 0.800000000000011, 0.600000000000023,

    1.20000000000002, 1.19999999999999, 1., 1.60000000000002, 0., 1.5,

    0.199999999999989, 0.200000000000017, 1.40000000000001, 0.,

    0.599999999999994, 0.199999999999989, 1.19999999999999, 0.199999999999989,

    0., 0.799999999999983, 2., 0.800000000000011, 0.599999999999994,

    0.400000000000006, 0.799999999999983, 1.59999999999999, 0.400000000000006,

    2., 0., 1., 0., 0.800000000000011, 0.200000000000017, 0.400000000000006,

    0.200000000000017, 1.39999999999998, 0., 0., 1.39999999999998, 0.,

    1.79999999999998, 0.799999999999983, 2., 0.599999999999994, 0., 2.,

    0.399999999999977]

> c := Correlation(sugar,delta_weight);
                            c := 0.0242614085371778

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> miles := [
> 2.2
> ,
> 4.4
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 4.4
> ,
> 2.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 1.0
> ,
> 4.3
> ,
> 4.4
> ,
> 0.0
> ,
> 4.4
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 0.0
> ,
> 2.2
> ,
> 2.2
> ,
> 0.0
> ,
> 2.2
> ,
> 1.0
> ,
> 1.0
> ,
> 1.0
> ,
> 3.2
> ,
> 0.0
> ,
> 4.4
> ,
> 1.1
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 4.4
> ,
> 3.3
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.5
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 2.1
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 2.0
> ,
> 2.2
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ];
miles := [2.2, 4.4, 0., 0., 1.0, 0., 0., 1.0, 4.4, 2.0, 0., 1.0, 0., 0., 0., 0.,

    1.0, 1.0, 0., 0., 3.2, 1.0, 1.0, 4.3, 4.4, 0., 4.4, 0., 1.0, 0., 1.0, 0.,

    3.2, 1.0, 0., 2.2, 2.2, 0., 2.2, 1.0, 1.0, 1.0, 3.2, 0., 4.4, 1.1, 1.0, 0.,

    0., 1.1, 1.1, 0., 0., 1.1, 0., 1.1, 0., 0., 0., 0., 4.4, 3.3, 0., 0., 0.,

    0., 0., 0., 1.0, 0., 0., 1.5, 0., 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0.,

    1.0, 0., 1.0, 0., 1.0, 0., 1.0, 0., 1.0, 1.0, 2.1, 1.0, 1.0, 0., 0., 1.0,

    1.0, 0., 1.0, 2.0, 2.2, 1.0, 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0., 0.,

    0., 0., 0., 1.1, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.]

> delta_weight := [
> 1.
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 3.
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 1.60000000000002
> ,
> 0.799999999999983
> ,
> 0.
> ,
> 0.
> ,
> 0.
> ,
> 1.
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 2.60000000000002
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.400000000000006
> ,
> 0.199999999999989
> ,
> 0.599999999999994
> ,
> 0.200000000000017
> ,
> 1.59999999999999
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.600000000000023
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 1.
> ,
> 1.20000000000002
> ,
> 0.400000000000006
> ,
> 1.80000000000001
> ,
> 1.80000000000001
> ,
> 2.
> ,
> 0.400000000000006
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.59999999999999
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 2.20000000000002
> ,
> 0.200000000000017
> ,
> 1.80000000000001
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.
> ,
> 2.19999999999999
> ,
> 1.19999999999999
> ,
> 0.
> ,
> 0.399999999999977
> ,
> 0.400000000000006
> ,
> 1.79999999999998
> ,
> 0.
> ,
> 0.400000000000006
> ,
> 0.400000000000006
> ,
> 1.40000000000001
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.
> ,
> 1.80000000000001
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 0.800000000000011
> ,
> 0.600000000000023
> ,
> 1.20000000000002
> ,
> 1.19999999999999
> ,
> 1.
> ,
> 1.60000000000002
> ,
> 0.
> ,
> 1.5
> ,
> 0.199999999999989
> ,
> 0.200000000000017
> ,
> 1.40000000000001
> ,
> 0.
> ,
> 0.599999999999994
> ,
> 0.199999999999989
> ,
> 1.19999999999999
> ,
> 0.199999999999989
> ,
> 0.
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.800000000000011
> ,
> 0.599999999999994
> ,
> 0.400000000000006
> ,
> 0.799999999999983
> ,
> 1.59999999999999
> ,
> 0.400000000000006
> ,
> 2.
> ,
> 0.
> ,
> 1.
> ,
> 0.
> ,
> 0.800000000000011
> ,
> 0.200000000000017
> ,
> 0.400000000000006
> ,
> 0.200000000000017
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 0.
> ,
> 1.39999999999998
> ,
> 0.
> ,
> 1.79999999999998
> ,
> 0.799999999999983
> ,
> 2.
> ,
> 0.599999999999994
> ,
> 0.
> ,
> 2.
> ,
> 0.399999999999977
> ];
delta_weight := [1., 0.400000000000006, 1.40000000000001, 0.400000000000006, 2.,

    3., 0.199999999999989, 0., 0.800000000000011, 0.199999999999989, 0.,

    0.800000000000011, 0.400000000000006, 0.599999999999994, 0.599999999999994,

    0.400000000000006, 1.60000000000002, 0.799999999999983, 0., 0., 0., 1.,

    0.400000000000006, 0., 0.800000000000011, 2.60000000000002,

    1.19999999999999, 0.199999999999989, 1.59999999999999, 1.40000000000001,

    0.400000000000006, 0., 1.80000000000001, 0.400000000000006,

    0.199999999999989, 0.599999999999994, 0.200000000000017, 1.59999999999999,

    1.59999999999999, 0., 0.599999999999994, 0.600000000000023,

    1.39999999999998, 0., 2., 0.400000000000006, 0.599999999999994, 1.,

    1.20000000000002, 0.400000000000006, 1.80000000000001, 1.80000000000001, 2.,

    0.400000000000006, 0.599999999999994, 0.199999999999989, 1.59999999999999,

    0., 0.400000000000006, 2.20000000000002, 0.200000000000017,

    1.80000000000001, 0., 0.800000000000011, 0., 2.19999999999999,

    1.19999999999999, 0., 0.399999999999977, 0.400000000000006,

    1.79999999999998, 0., 0.400000000000006, 0.400000000000006,

    1.40000000000001, 0.400000000000006, 0.200000000000017, 0.400000000000006,

    0., 0.599999999999994, 1.40000000000001, 0., 0., 1.80000000000001,

    0.599999999999994, 0.199999999999989, 0.800000000000011, 0.600000000000023,

    1.20000000000002, 1.19999999999999, 1., 1.60000000000002, 0., 1.5,

    0.199999999999989, 0.200000000000017, 1.40000000000001, 0.,

    0.599999999999994, 0.199999999999989, 1.19999999999999, 0.199999999999989,

    0., 0.799999999999983, 2., 0.800000000000011, 0.599999999999994,

    0.400000000000006, 0.799999999999983, 1.59999999999999, 0.400000000000006,

    2., 0., 1., 0., 0.800000000000011, 0.200000000000017, 0.400000000000006,

    0.200000000000017, 1.39999999999998, 0., 0., 1.39999999999998, 0.,

    1.79999999999998, 0.799999999999983, 2., 0.599999999999994, 0., 2.,

    0.399999999999977]

> c := Correlation(miles,delta_weight);
                            c := 0.0431959540174600

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> day := [
> 3
> ,
> 6
> ,
> 9
> ,
> 11
> ,
> 13
> ,
> 20
> ,
> 23
> ,
> 24
> ,
> 27
> ,
> 34
> ,
> 37
> ,
> 41
> ,
> 44
> ,
> 46
> ,
> 49
> ,
> 50
> ,
> 56
> ,
> 57
> ,
> 61
> ,
> 64
> ,
> 69
> ,
> 82
> ,
> 84
> ,
> 85
> ,
> 88
> ,
> 92
> ,
> 96
> ,
> 106
> ,
> 109
> ,
> 112
> ,
> 116
> ,
> 117
> ,
> 119
> ,
> 124
> ,
> 128
> ,
> 130
> ,
> 134
> ,
> 135
> ,
> 137
> ,
> 139
> ,
> 140
> ,
> 142
> ,
> 143
> ,
> 156
> ,
> 161
> ,
> 162
> ,
> 164
> ,
> 166
> ,
> 170
> ,
> 173
> ,
> 180
> ,
> 187
> ,
> 192
> ,
> 196
> ,
> 199
> ,
> 201
> ,
> 202
> ,
> 203
> ,
> 204
> ,
> 306
> ,
> 313
> ,
> 316
> ,
> 335
> ,
> 337
> ,
> 341
> ,
> 352
> ,
> 354
> ,
> 356
> ,
> 361
> ,
> 362
> ,
> 365
> ,
> 370
> ,
> 372
> ,
> 374
> ,
> 377
> ,
> 382
> ,
> 385
> ,
> 390
> ,
> 396
> ,
> 403
> ,
> 405
> ,
> 406
> ,
> 409
> ,
> 412
> ,
> 414
> ,
> 416
> ,
> 418
> ,
> 420
> ,
> 422
> ,
> 425
> ,
> 430
> ,
> 433
> ,
> 434
> ,
> 438
> ,
> 442
> ,
> 443
> ,
> 446
> ,
> 449
> ,
> 450
> ,
> 454
> ,
> 455
> ,
> 458
> ,
> 461
> ,
> 466
> ,
> 468
> ,
> 472
> ,
> 478
> ,
> 483
> ,
> 484
> ,
> 486
> ,
> 489
> ,
> 496
> ,
> 504
> ,
> 509
> ,
> 511
> ,
> 513
> ,
> 515
> ,
> 517
> ,
> 525
> ,
> 526
> ,
> 533
> ,
> 535
> ,
> 541
> ,
> 545
> ,
> 548
> ,
> 557
> ,
> 560
> ,
> 561
> ,
> 563
> ,
> 566
> ,
> 567
> ];
day := [3, 6, 9, 11, 13, 20, 23, 24, 27, 34, 37, 41, 44, 46, 49, 50, 56, 57, 61,

    64, 69, 82, 84, 85, 88, 92, 96, 106, 109, 112, 116, 117, 119, 124, 128, 130,

    134, 135, 137, 139, 140, 142, 143, 156, 161, 162, 164, 166, 170, 173, 180,

    187, 192, 196, 199, 201, 202, 203, 204, 306, 313, 316, 335, 337, 341, 352,

    354, 356, 361, 362, 365, 370, 372, 374, 377, 382, 385, 390, 396, 403, 405,

    406, 409, 412, 414, 416, 418, 420, 422, 425, 430, 433, 434, 438, 442, 443,

    446, 449, 450, 454, 455, 458, 461, 466, 468, 472, 478, 483, 484, 486, 489,

    496, 504, 509, 511, 513, 515, 517, 525, 526, 533, 535, 541, 545, 548, 557,

    560, 561, 563, 566, 567]

> delta_glucose := [
> 21
> ,
> 5
> ,
> 37
> ,
> 16
> ,
> 1
> ,
> 14
> ,
> 0
> ,
> 4
> ,
> 20
> ,
> 6
> ,
> 6
> ,
> 36
> ,
> 15
> ,
> 10
> ,
> 4
> ,
> 31
> ,
> 4
> ,
> 2
> ,
> 9
> ,
> 19
> ,
> 21
> ,
> 8
> ,
> 12
> ,
> 19
> ,
> 45
> ,
> 16
> ,
> 45
> ,
> 4
> ,
> 22
> ,
> 1
> ,
> 16
> ,
> 0
> ,
> 9
> ,
> 24
> ,
> 4
> ,
> 24
> ,
> 7
> ,
> 7
> ,
> 13
> ,
> 12
> ,
> 1
> ,
> 19
> ,
> 0
> ,
> 16
> ,
> 27
> ,
> 2
> ,
> 11
> ,
> 23
> ,
> 15
> ,
> 14
> ,
> 7
> ,
> 0
> ,
> 34
> ,
> 2
> ,
> 17
> ,
> 31
> ,
> 9
> ,
> 4
> ,
> 9
> ,
> 23
> ,
> 14
> ,
> 16
> ,
> 0
> ,
> 0
> ,
> 27
> ,
> 3
> ,
> 7
> ,
> 18
> ,
> 21
> ,
> 4
> ,
> 2
> ,
> 3
> ,
> 1
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 17
> ,
> 18
> ,
> 13
> ,
> 4
> ,
> 12
> ,
> 11
> ,
> 0
> ,
> 1
> ,
> 7
> ,
> 17
> ,
> 4
> ,
> 10
> ,
> 5
> ,
> 1
> ,
> 20
> ,
> 20
> ,
> 3
> ,
> 0
> ,
> 5
> ,
> 11
> ,
> 10
> ,
> 7
> ,
> 1
> ,
> 16
> ,
> 4
> ,
> 11
> ,
> 13
> ,
> 7
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 8
> ,
> 28
> ,
> 10
> ,
> 20
> ,
> 27
> ,
> 3
> ,
> 38
> ,
> 7
> ,
> 11
> ,
> 13
> ,
> 21
> ,
> 5
> ,
> 8
> ,
> 32
> ,
> 12
> ,
> 24
> ,
> 26
> ,
> 13
> ,
> 0
> ,
> 2
> ,
> 3
> ,
> 4
> ,
> 22
> ,
> 11
> ];
delta_glucose := [21, 5, 37, 16, 1, 14, 0, 4, 20, 6, 6, 36, 15, 10, 4, 31, 4, 2,

    9, 19, 21, 8, 12, 19, 45, 16, 45, 4, 22, 1, 16, 0, 9, 24, 4, 24, 7, 7, 13,

    12, 1, 19, 0, 16, 27, 2, 11, 23, 15, 14, 7, 0, 34, 2, 17, 31, 9, 4, 9, 23,

    14, 16, 0, 0, 27, 3, 7, 18, 21, 4, 2, 3, 1, 8, 18, 2, 17, 18, 13, 4, 12, 11,

    0, 1, 7, 17, 4, 10, 5, 1, 20, 20, 3, 0, 5, 11, 10, 7, 1, 16, 4, 11, 13, 7,

    8, 18, 2, 8, 28, 10, 20, 27, 3, 38, 7, 11, 13, 21, 5, 8, 32, 12, 24, 26, 13,

    0, 2, 3, 4, 22, 11]

> c := Correlation(day,delta_glucose);
                            c := -0.108924528029324

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> calories := [
> 2749
> ,
> 2727
> ,
> 2872
> ,
> 2430
> ,
> 2363
> ,
> 2554
> ,
> 3048
> ,
> 2589
> ,
> 2528
> ,
> 2366
> ,
> 2895
> ,
> 1836
> ,
> 2467
> ,
> 2152
> ,
> 3015
> ,
> 2826
> ,
> 2043
> ,
> 1933
> ,
> 2711
> ,
> 2666
> ,
> 2534
> ,
> 2204
> ,
> 2572
> ,
> 2495
> ,
> 2362
> ,
> 2807
> ,
> 2846
> ,
> 2496
> ,
> 2187
> ,
> 2587
> ,
> 2242
> ,
> 2175
> ,
> 2334
> ,
> 2202
> ,
> 3151
> ,
> 1692
> ,
> 2295
> ,
> 1941
> ,
> 2860
> ,
> 3004
> ,
> 2513
> ,
> 2739
> ,
> 2723
> ,
> 2621
> ,
> 2452
> ,
> 2851
> ,
> 1741
> ,
> 1834
> ,
> 1940
> ,
> 2191
> ,
> 1802
> ,
> 2534
> ,
> 2407
> ,
> 1828
> ,
> 2958
> ,
> 3077
> ,
> 2304
> ,
> 2974
> ,
> 3100
> ,
> 3090
> ,
> 2563
> ,
> 2423
> ,
> 1795
> ,
> 2766
> ,
> 2497
> ,
> 1743
> ,
> 2504
> ,
> 2509
> ,
> 2172
> ,
> 1840
> ,
> 1754
> ,
> 1498
> ,
> 2487
> ,
> 2136
> ,
> 1704
> ,
> 2337
> ,
> 2411
> ,
> 2032
> ,
> 2139
> ,
> 1382
> ,
> 2543
> ,
> 2259
> ,
> 2332
> ,
> 2090
> ,
> 1935
> ,
> 2062
> ,
> 2000
> ,
> 2246
> ,
> 2448
> ,
> 2290
> ,
> 1769
> ,
> 1486
> ,
> 1855
> ,
> 2034
> ,
> 1959
> ,
> 2281
> ,
> 1258
> ,
> 2204
> ,
> 2533
> ,
> 1205
> ,
> 1795
> ,
> 1994
> ,
> 1924
> ,
> 2797
> ,
> 2785
> ,
> 1542
> ,
> 2502
> ,
> 2894
> ,
> 1944
> ,
> 2352
> ,
> 3192
> ,
> 2471
> ,
> 2524
> ,
> 2747
> ,
> 1816
> ,
> 2239
> ,
> 2802
> ,
> 2368
> ,
> 2004
> ,
> 3076
> ,
> 2462
> ,
> 2389
> ,
> 1646
> ,
> 2073
> ,
> 3483
> ,
> 1493
> ,
> 2015
> ,
> 3460
> ,
> 1706
> ,
> 2145
> ,
> 2584
> ];
calories := [2749, 2727, 2872, 2430, 2363, 2554, 3048, 2589, 2528, 2366, 2895,

    1836, 2467, 2152, 3015, 2826, 2043, 1933, 2711, 2666, 2534, 2204, 2572,

    2495, 2362, 2807, 2846, 2496, 2187, 2587, 2242, 2175, 2334, 2202, 3151,

    1692, 2295, 1941, 2860, 3004, 2513, 2739, 2723, 2621, 2452, 2851, 1741,

    1834, 1940, 2191, 1802, 2534, 2407, 1828, 2958, 3077, 2304, 2974, 3100,

    3090, 2563, 2423, 1795, 2766, 2497, 1743, 2504, 2509, 2172, 1840, 1754,

    1498, 2487, 2136, 1704, 2337, 2411, 2032, 2139, 1382, 2543, 2259, 2332,

    2090, 1935, 2062, 2000, 2246, 2448, 2290, 1769, 1486, 1855, 2034, 1959,

    2281, 1258, 2204, 2533, 1205, 1795, 1994, 1924, 2797, 2785, 1542, 2502,

    2894, 1944, 2352, 3192, 2471, 2524, 2747, 1816, 2239, 2802, 2368, 2004,

    3076, 2462, 2389, 1646, 2073, 3483, 1493, 2015, 3460, 1706, 2145, 2584]

> delta_glucose := [
> 21
> ,
> 5
> ,
> 37
> ,
> 16
> ,
> 1
> ,
> 14
> ,
> 0
> ,
> 4
> ,
> 20
> ,
> 6
> ,
> 6
> ,
> 36
> ,
> 15
> ,
> 10
> ,
> 4
> ,
> 31
> ,
> 4
> ,
> 2
> ,
> 9
> ,
> 19
> ,
> 21
> ,
> 8
> ,
> 12
> ,
> 19
> ,
> 45
> ,
> 16
> ,
> 45
> ,
> 4
> ,
> 22
> ,
> 1
> ,
> 16
> ,
> 0
> ,
> 9
> ,
> 24
> ,
> 4
> ,
> 24
> ,
> 7
> ,
> 7
> ,
> 13
> ,
> 12
> ,
> 1
> ,
> 19
> ,
> 0
> ,
> 16
> ,
> 27
> ,
> 2
> ,
> 11
> ,
> 23
> ,
> 15
> ,
> 14
> ,
> 7
> ,
> 0
> ,
> 34
> ,
> 2
> ,
> 17
> ,
> 31
> ,
> 9
> ,
> 4
> ,
> 9
> ,
> 23
> ,
> 14
> ,
> 16
> ,
> 0
> ,
> 0
> ,
> 27
> ,
> 3
> ,
> 7
> ,
> 18
> ,
> 21
> ,
> 4
> ,
> 2
> ,
> 3
> ,
> 1
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 17
> ,
> 18
> ,
> 13
> ,
> 4
> ,
> 12
> ,
> 11
> ,
> 0
> ,
> 1
> ,
> 7
> ,
> 17
> ,
> 4
> ,
> 10
> ,
> 5
> ,
> 1
> ,
> 20
> ,
> 20
> ,
> 3
> ,
> 0
> ,
> 5
> ,
> 11
> ,
> 10
> ,
> 7
> ,
> 1
> ,
> 16
> ,
> 4
> ,
> 11
> ,
> 13
> ,
> 7
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 8
> ,
> 28
> ,
> 10
> ,
> 20
> ,
> 27
> ,
> 3
> ,
> 38
> ,
> 7
> ,
> 11
> ,
> 13
> ,
> 21
> ,
> 5
> ,
> 8
> ,
> 32
> ,
> 12
> ,
> 24
> ,
> 26
> ,
> 13
> ,
> 0
> ,
> 2
> ,
> 3
> ,
> 4
> ,
> 22
> ,
> 11
> ];
delta_glucose := [21, 5, 37, 16, 1, 14, 0, 4, 20, 6, 6, 36, 15, 10, 4, 31, 4, 2,

    9, 19, 21, 8, 12, 19, 45, 16, 45, 4, 22, 1, 16, 0, 9, 24, 4, 24, 7, 7, 13,

    12, 1, 19, 0, 16, 27, 2, 11, 23, 15, 14, 7, 0, 34, 2, 17, 31, 9, 4, 9, 23,

    14, 16, 0, 0, 27, 3, 7, 18, 21, 4, 2, 3, 1, 8, 18, 2, 17, 18, 13, 4, 12, 11,

    0, 1, 7, 17, 4, 10, 5, 1, 20, 20, 3, 0, 5, 11, 10, 7, 1, 16, 4, 11, 13, 7,

    8, 18, 2, 8, 28, 10, 20, 27, 3, 38, 7, 11, 13, 21, 5, 8, 32, 12, 24, 26, 13,

    0, 2, 3, 4, 22, 11]

> c := Correlation(calories,delta_glucose);
                            c := 0.0886720065043814

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> fat := [
> 136.0
> ,
> 120.0
> ,
> 121.0
> ,
> 136.0
> ,
> 108.0
> ,
> 133.0
> ,
> 167.0
> ,
> 141.0
> ,
> 113.0
> ,
> 111.0
> ,
> 139.0
> ,
> 96.2
> ,
> 129.0
> ,
> 113.0
> ,
> 176.0
> ,
> 151.0
> ,
> 96.5
> ,
> 105.0
> ,
> 152.0
> ,
> 169.0
> ,
> 146.0
> ,
> 90.8
> ,
> 172.0
> ,
> 146.0
> ,
> 98.0
> ,
> 141.0
> ,
> 174.0
> ,
> 96.9
> ,
> 130.0
> ,
> 113.0
> ,
> 122.0
> ,
> 104.0
> ,
> 155.0
> ,
> 119.0
> ,
> 199.0
> ,
> 73.4
> ,
> 88.8
> ,
> 96.4
> ,
> 171.0
> ,
> 159.0
> ,
> 113.0
> ,
> 160.0
> ,
> 157.0
> ,
> 127.0
> ,
> 134.0
> ,
> 164.0
> ,
> 85.3
> ,
> 68.0
> ,
> 125.0
> ,
> 122.0
> ,
> 105.0
> ,
> 151.0
> ,
> 151.0
> ,
> 91.5
> ,
> 171.0
> ,
> 149.0
> ,
> 131.0
> ,
> 161.0
> ,
> 160.0
> ,
> 163.0
> ,
> 125.0
> ,
> 78.4
> ,
> 112.0
> ,
> 152.0
> ,
> 106.0
> ,
> 98.3
> ,
> 124.0
> ,
> 99.0
> ,
> 100.0
> ,
> 61.1
> ,
> 107.0
> ,
> 67.1
> ,
> 135.0
> ,
> 102.0
> ,
> 73.7
> ,
> 111.0
> ,
> 86.3
> ,
> 89.9
> ,
> 102.0
> ,
> 52.6
> ,
> 117.0
> ,
> 94.5
> ,
> 91.9
> ,
> 82.6
> ,
> 86.7
> ,
> 81.4
> ,
> 93.3
> ,
> 88.1
> ,
> 101.0
> ,
> 85.9
> ,
> 37.0
> ,
> 33.4
> ,
> 105.0
> ,
> 60.4
> ,
> 84.6
> ,
> 94.5
> ,
> 15.8
> ,
> 88.3
> ,
> 80.4
> ,
> 31.0
> ,
> 66.9
> ,
> 78.9
> ,
> 61.0
> ,
> 106.0
> ,
> 133.0
> ,
> 47.2
> ,
> 104.0
> ,
> 155.0
> ,
> 74.2
> ,
> 76.2
> ,
> 113.0
> ,
> 95.5
> ,
> 66.2
> ,
> 146.0
> ,
> 71.4
> ,
> 135.0
> ,
> 96.3
> ,
> 53.3
> ,
> 62.5
> ,
> 121.0
> ,
> 102.0
> ,
> 114.0
> ,
> 37.5
> ,
> 47.9
> ,
> 156.0
> ,
> 61.8
> ,
> 46.9
> ,
> 166.0
> ,
> 77.9
> ,
> 61.4
> ,
> 102.0
> ];
fat := [136.0, 120.0, 121.0, 136.0, 108.0, 133.0, 167.0, 141.0, 113.0, 111.0,

    139.0, 96.2, 129.0, 113.0, 176.0, 151.0, 96.5, 105.0, 152.0, 169.0, 146.0,

    90.8, 172.0, 146.0, 98.0, 141.0, 174.0, 96.9, 130.0, 113.0, 122.0, 104.0,

    155.0, 119.0, 199.0, 73.4, 88.8, 96.4, 171.0, 159.0, 113.0, 160.0, 157.0,

    127.0, 134.0, 164.0, 85.3, 68.0, 125.0, 122.0, 105.0, 151.0, 151.0, 91.5,

    171.0, 149.0, 131.0, 161.0, 160.0, 163.0, 125.0, 78.4, 112.0, 152.0, 106.0,

    98.3, 124.0, 99.0, 100.0, 61.1, 107.0, 67.1, 135.0, 102.0, 73.7, 111.0,

    86.3, 89.9, 102.0, 52.6, 117.0, 94.5, 91.9, 82.6, 86.7, 81.4, 93.3, 88.1,

    101.0, 85.9, 37.0, 33.4, 105.0, 60.4, 84.6, 94.5, 15.8, 88.3, 80.4, 31.0,

    66.9, 78.9, 61.0, 106.0, 133.0, 47.2, 104.0, 155.0, 74.2, 76.2, 113.0, 95.5,

    66.2, 146.0, 71.4, 135.0, 96.3, 53.3, 62.5, 121.0, 102.0, 114.0, 37.5, 47.9,

    156.0, 61.8, 46.9, 166.0, 77.9, 61.4, 102.0]

> delta_glucose := [
> 21
> ,
> 5
> ,
> 37
> ,
> 16
> ,
> 1
> ,
> 14
> ,
> 0
> ,
> 4
> ,
> 20
> ,
> 6
> ,
> 6
> ,
> 36
> ,
> 15
> ,
> 10
> ,
> 4
> ,
> 31
> ,
> 4
> ,
> 2
> ,
> 9
> ,
> 19
> ,
> 21
> ,
> 8
> ,
> 12
> ,
> 19
> ,
> 45
> ,
> 16
> ,
> 45
> ,
> 4
> ,
> 22
> ,
> 1
> ,
> 16
> ,
> 0
> ,
> 9
> ,
> 24
> ,
> 4
> ,
> 24
> ,
> 7
> ,
> 7
> ,
> 13
> ,
> 12
> ,
> 1
> ,
> 19
> ,
> 0
> ,
> 16
> ,
> 27
> ,
> 2
> ,
> 11
> ,
> 23
> ,
> 15
> ,
> 14
> ,
> 7
> ,
> 0
> ,
> 34
> ,
> 2
> ,
> 17
> ,
> 31
> ,
> 9
> ,
> 4
> ,
> 9
> ,
> 23
> ,
> 14
> ,
> 16
> ,
> 0
> ,
> 0
> ,
> 27
> ,
> 3
> ,
> 7
> ,
> 18
> ,
> 21
> ,
> 4
> ,
> 2
> ,
> 3
> ,
> 1
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 17
> ,
> 18
> ,
> 13
> ,
> 4
> ,
> 12
> ,
> 11
> ,
> 0
> ,
> 1
> ,
> 7
> ,
> 17
> ,
> 4
> ,
> 10
> ,
> 5
> ,
> 1
> ,
> 20
> ,
> 20
> ,
> 3
> ,
> 0
> ,
> 5
> ,
> 11
> ,
> 10
> ,
> 7
> ,
> 1
> ,
> 16
> ,
> 4
> ,
> 11
> ,
> 13
> ,
> 7
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 8
> ,
> 28
> ,
> 10
> ,
> 20
> ,
> 27
> ,
> 3
> ,
> 38
> ,
> 7
> ,
> 11
> ,
> 13
> ,
> 21
> ,
> 5
> ,
> 8
> ,
> 32
> ,
> 12
> ,
> 24
> ,
> 26
> ,
> 13
> ,
> 0
> ,
> 2
> ,
> 3
> ,
> 4
> ,
> 22
> ,
> 11
> ];
delta_glucose := [21, 5, 37, 16, 1, 14, 0, 4, 20, 6, 6, 36, 15, 10, 4, 31, 4, 2,

    9, 19, 21, 8, 12, 19, 45, 16, 45, 4, 22, 1, 16, 0, 9, 24, 4, 24, 7, 7, 13,

    12, 1, 19, 0, 16, 27, 2, 11, 23, 15, 14, 7, 0, 34, 2, 17, 31, 9, 4, 9, 23,

    14, 16, 0, 0, 27, 3, 7, 18, 21, 4, 2, 3, 1, 8, 18, 2, 17, 18, 13, 4, 12, 11,

    0, 1, 7, 17, 4, 10, 5, 1, 20, 20, 3, 0, 5, 11, 10, 7, 1, 16, 4, 11, 13, 7,

    8, 18, 2, 8, 28, 10, 20, 27, 3, 38, 7, 11, 13, 21, 5, 8, 32, 12, 24, 26, 13,

    0, 2, 3, 4, 22, 11]

> c := Correlation(fat,delta_glucose);
                            c := 0.0507429646999246

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> protein := [
> 120.0
> ,
> 97.1
> ,
> 122.0
> ,
> 81.0
> ,
> 77.1
> ,
> 134.0
> ,
> 107.0
> ,
> 84.6
> ,
> 93.8
> ,
> 109.0
> ,
> 81.1
> ,
> 49.9
> ,
> 71.8
> ,
> 64.6
> ,
> 68.5
> ,
> 107.0
> ,
> 78.4
> ,
> 79.6
> ,
> 93.1
> ,
> 109.0
> ,
> 91.3
> ,
> 76.7
> ,
> 78.9
> ,
> 91.8
> ,
> 96.3
> ,
> 113.0
> ,
> 93.4
> ,
> 79.6
> ,
> 90.9
> ,
> 98.4
> ,
> 78.7
> ,
> 102.7
> ,
> 113.0
> ,
> 73.9
> ,
> 86.5
> ,
> 56.0
> ,
> 67.8
> ,
> 75.1
> ,
> 98.2
> ,
> 97.3
> ,
> 93.2
> ,
> 96.7
> ,
> 92.3
> ,
> 66.7
> ,
> 66.5
> ,
> 105.0
> ,
> 84.8
> ,
> 74.4
> ,
> 51.7
> ,
> 72.8
> ,
> 68.7
> ,
> 86.2
> ,
> 66.5
> ,
> 63.5
> ,
> 75.5
> ,
> 103.0
> ,
> 76.7
> ,
> 93.0
> ,
> 149.0
> ,
> 102.0
> ,
> 110.0
> ,
> 79.9
> ,
> 71.2
> ,
> 99.3
> ,
> 69.1
> ,
> 64.5
> ,
> 92.4
> ,
> 105.0
> ,
> 72.9
> ,
> 60.2
> ,
> 51.0
> ,
> 51.2
> ,
> 120.0
> ,
> 73.3
> ,
> 91.4
> ,
> 132.0
> ,
> 92.9
> ,
> 77.9
> ,
> 67.8
> ,
> 40.2
> ,
> 91.3
> ,
> 97.0
> ,
> 110.0
> ,
> 73.1
> ,
> 74.9
> ,
> 76.3
> ,
> 71.4
> ,
> 79.9
> ,
> 84.4
> ,
> 100.0
> ,
> 53.8
> ,
> 55.0
> ,
> 98.5
> ,
> 73.7
> ,
> 68.3
> ,
> 81.2
> ,
> 59.1
> ,
> 62.2
> ,
> 141.0
> ,
> 62.5
> ,
> 74.9
> ,
> 93.1
> ,
> 69.2
> ,
> 105.0
> ,
> 122.0
> ,
> 77.4
> ,
> 94.5
> ,
> 115.0
> ,
> 80.5
> ,
> 87.8
> ,
> 146.0
> ,
> 92.7
> ,
> 109.0
> ,
> 83.4
> ,
> 55.9
> ,
> 90.9
> ,
> 111.0
> ,
> 77.1
> ,
> 97.0
> ,
> 136.0
> ,
> 91.6
> ,
> 120.0
> ,
> 72.0
> ,
> 85.0
> ,
> 129.0
> ,
> 67.0
> ,
> 90.3
> ,
> 141.0
> ,
> 74.0
> ,
> 77.6
> ,
> 109.0
> ];
protein := [120.0, 97.1, 122.0, 81.0, 77.1, 134.0, 107.0, 84.6, 93.8, 109.0,

    81.1, 49.9, 71.8, 64.6, 68.5, 107.0, 78.4, 79.6, 93.1, 109.0, 91.3, 76.7,

    78.9, 91.8, 96.3, 113.0, 93.4, 79.6, 90.9, 98.4, 78.7, 102.7, 113.0, 73.9,

    86.5, 56.0, 67.8, 75.1, 98.2, 97.3, 93.2, 96.7, 92.3, 66.7, 66.5, 105.0,

    84.8, 74.4, 51.7, 72.8, 68.7, 86.2, 66.5, 63.5, 75.5, 103.0, 76.7, 93.0,

    149.0, 102.0, 110.0, 79.9, 71.2, 99.3, 69.1, 64.5, 92.4, 105.0, 72.9, 60.2,

    51.0, 51.2, 120.0, 73.3, 91.4, 132.0, 92.9, 77.9, 67.8, 40.2, 91.3, 97.0,

    110.0, 73.1, 74.9, 76.3, 71.4, 79.9, 84.4, 100.0, 53.8, 55.0, 98.5, 73.7,

    68.3, 81.2, 59.1, 62.2, 141.0, 62.5, 74.9, 93.1, 69.2, 105.0, 122.0, 77.4,

    94.5, 115.0, 80.5, 87.8, 146.0, 92.7, 109.0, 83.4, 55.9, 90.9, 111.0, 77.1,

    97.0, 136.0, 91.6, 120.0, 72.0, 85.0, 129.0, 67.0, 90.3, 141.0, 74.0, 77.6,

    109.0]

> delta_glucose := [
> 21
> ,
> 5
> ,
> 37
> ,
> 16
> ,
> 1
> ,
> 14
> ,
> 0
> ,
> 4
> ,
> 20
> ,
> 6
> ,
> 6
> ,
> 36
> ,
> 15
> ,
> 10
> ,
> 4
> ,
> 31
> ,
> 4
> ,
> 2
> ,
> 9
> ,
> 19
> ,
> 21
> ,
> 8
> ,
> 12
> ,
> 19
> ,
> 45
> ,
> 16
> ,
> 45
> ,
> 4
> ,
> 22
> ,
> 1
> ,
> 16
> ,
> 0
> ,
> 9
> ,
> 24
> ,
> 4
> ,
> 24
> ,
> 7
> ,
> 7
> ,
> 13
> ,
> 12
> ,
> 1
> ,
> 19
> ,
> 0
> ,
> 16
> ,
> 27
> ,
> 2
> ,
> 11
> ,
> 23
> ,
> 15
> ,
> 14
> ,
> 7
> ,
> 0
> ,
> 34
> ,
> 2
> ,
> 17
> ,
> 31
> ,
> 9
> ,
> 4
> ,
> 9
> ,
> 23
> ,
> 14
> ,
> 16
> ,
> 0
> ,
> 0
> ,
> 27
> ,
> 3
> ,
> 7
> ,
> 18
> ,
> 21
> ,
> 4
> ,
> 2
> ,
> 3
> ,
> 1
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 17
> ,
> 18
> ,
> 13
> ,
> 4
> ,
> 12
> ,
> 11
> ,
> 0
> ,
> 1
> ,
> 7
> ,
> 17
> ,
> 4
> ,
> 10
> ,
> 5
> ,
> 1
> ,
> 20
> ,
> 20
> ,
> 3
> ,
> 0
> ,
> 5
> ,
> 11
> ,
> 10
> ,
> 7
> ,
> 1
> ,
> 16
> ,
> 4
> ,
> 11
> ,
> 13
> ,
> 7
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 8
> ,
> 28
> ,
> 10
> ,
> 20
> ,
> 27
> ,
> 3
> ,
> 38
> ,
> 7
> ,
> 11
> ,
> 13
> ,
> 21
> ,
> 5
> ,
> 8
> ,
> 32
> ,
> 12
> ,
> 24
> ,
> 26
> ,
> 13
> ,
> 0
> ,
> 2
> ,
> 3
> ,
> 4
> ,
> 22
> ,
> 11
> ];
delta_glucose := [21, 5, 37, 16, 1, 14, 0, 4, 20, 6, 6, 36, 15, 10, 4, 31, 4, 2,

    9, 19, 21, 8, 12, 19, 45, 16, 45, 4, 22, 1, 16, 0, 9, 24, 4, 24, 7, 7, 13,

    12, 1, 19, 0, 16, 27, 2, 11, 23, 15, 14, 7, 0, 34, 2, 17, 31, 9, 4, 9, 23,

    14, 16, 0, 0, 27, 3, 7, 18, 21, 4, 2, 3, 1, 8, 18, 2, 17, 18, 13, 4, 12, 11,

    0, 1, 7, 17, 4, 10, 5, 1, 20, 20, 3, 0, 5, 11, 10, 7, 1, 16, 4, 11, 13, 7,

    8, 18, 2, 8, 28, 10, 20, 27, 3, 38, 7, 11, 13, 21, 5, 8, 32, 12, 24, 26, 13,

    0, 2, 3, 4, 22, 11]

> c := Correlation(protein,delta_glucose);
                            c := -0.0400151167745132

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> carb_fib := [
> 260.1
> ,
> 306.7
> ,
> 333.3
> ,
> 199.3
> ,
> 267.3
> ,
> 201.5
> ,
> 269.3
> ,
> 249.4
> ,
> 278.6
> ,
> 209.8
> ,
> 324.7
> ,
> 186.17
> ,
> 253.5
> ,
> 217.7
> ,
> 293.5
> ,
> 263.6
> ,
> 214.4
> ,
> 171.6
> ,
> 237.1
> ,
> 183.9
> ,
> 226.5
> ,
> 273.1
> ,
> 228.3
> ,
> 204.3
> ,
> 264.3
> ,
> 266.4
> ,
> 237.7
> ,
> 302.7
> ,
> 185.3
> ,
> 292.9
> ,
> 199.9
> ,
> 223.3
> ,
> 143.2
> ,
> 214.8
> ,
> 263.5
> ,
> 216.0
> ,
> 287.5
> ,
> 197.3
> ,
> 255.2
> ,
> 311.7
> ,
> 289.7
> ,
> 229.8
> ,
> 264.6
> ,
> 297.8
> ,
> 259.0
> ,
> 257.0
> ,
> 176.0
> ,
> 221.1
> ,
> 169.3
> ,
> 203.1
> ,
> 170.0
> ,
> 242.7
> ,
> 224.9
> ,
> 211.7
> ,
> 278.3
> ,
> 333.1
> ,
> 212.1
> ,
> 304.3
> ,
> 267.4
> ,
> 295.4
> ,
> 254.6
> ,
> 346.4
> ,
> 152.1
> ,
> 242.5
> ,
> 324.9
> ,
> 154.6
> ,
> 247.2
> ,
> 286.3
> ,
> 232.7
> ,
> 255.7
> ,
> 190.5
> ,
> 172.6
> ,
> 212.1
> ,
> 259.1
> ,
> 185.7
> ,
> 202.6
> ,
> 202.7
> ,
> 217.9
> ,
> 227.2
> ,
> 177.5
> ,
> 279.8
> ,
> 278.4
> ,
> 247.3
> ,
> 260.2
> ,
> 191.6
> ,
> 256.7
> ,
> 232.1
> ,
> 276.5
> ,
> 293.4
> ,
> 257.3
> ,
> 287.0
> ,
> 230.4
> ,
> 148.8
> ,
> 295.7
> ,
> 243.0
> ,
> 275.3
> ,
> 208.1
> ,
> 277.5
> ,
> 336.7
> ,
> 163.6
> ,
> 227.1
> ,
> 218.2
> ,
> 276.6
> ,
> 347.4
> ,
> 264.9
> ,
> 200.3
> ,
> 338.1
> ,
> 262.2
> ,
> 231.5
> ,
> 324.0
> ,
> 388.9
> ,
> 284.1
> ,
> 438.4
> ,
> 308.0
> ,
> 252.4
> ,
> 190.1
> ,
> 374.8
> ,
> 405.2
> ,
> 265.4
> ,
> 357.6
> ,
> 321.4
> ,
> 265.6
> ,
> 245.9
> ,
> 323.8
> ,
> 373.2
> ,
> 152.3
> ,
> 306.2
> ,
> 404.3
> ,
> 199.8
> ,
> 309.5
> ,
> 333.3
> ];
carb_fib := [260.1, 306.7, 333.3, 199.3, 267.3, 201.5, 269.3, 249.4, 278.6,

    209.8, 324.7, 186.17, 253.5, 217.7, 293.5, 263.6, 214.4, 171.6, 237.1,

    183.9, 226.5, 273.1, 228.3, 204.3, 264.3, 266.4, 237.7, 302.7, 185.3, 292.9,

    199.9, 223.3, 143.2, 214.8, 263.5, 216.0, 287.5, 197.3, 255.2, 311.7, 289.7,

    229.8, 264.6, 297.8, 259.0, 257.0, 176.0, 221.1, 169.3, 203.1, 170.0, 242.7,

    224.9, 211.7, 278.3, 333.1, 212.1, 304.3, 267.4, 295.4, 254.6, 346.4, 152.1,

    242.5, 324.9, 154.6, 247.2, 286.3, 232.7, 255.7, 190.5, 172.6, 212.1, 259.1,

    185.7, 202.6, 202.7, 217.9, 227.2, 177.5, 279.8, 278.4, 247.3, 260.2, 191.6,

    256.7, 232.1, 276.5, 293.4, 257.3, 287.0, 230.4, 148.8, 295.7, 243.0, 275.3,

    208.1, 277.5, 336.7, 163.6, 227.1, 218.2, 276.6, 347.4, 264.9, 200.3, 338.1,

    262.2, 231.5, 324.0, 388.9, 284.1, 438.4, 308.0, 252.4, 190.1, 374.8, 405.2,

    265.4, 357.6, 321.4, 265.6, 245.9, 323.8, 373.2, 152.3, 306.2, 404.3, 199.8,

    309.5, 333.3]

> delta_glucose := [
> 21
> ,
> 5
> ,
> 37
> ,
> 16
> ,
> 1
> ,
> 14
> ,
> 0
> ,
> 4
> ,
> 20
> ,
> 6
> ,
> 6
> ,
> 36
> ,
> 15
> ,
> 10
> ,
> 4
> ,
> 31
> ,
> 4
> ,
> 2
> ,
> 9
> ,
> 19
> ,
> 21
> ,
> 8
> ,
> 12
> ,
> 19
> ,
> 45
> ,
> 16
> ,
> 45
> ,
> 4
> ,
> 22
> ,
> 1
> ,
> 16
> ,
> 0
> ,
> 9
> ,
> 24
> ,
> 4
> ,
> 24
> ,
> 7
> ,
> 7
> ,
> 13
> ,
> 12
> ,
> 1
> ,
> 19
> ,
> 0
> ,
> 16
> ,
> 27
> ,
> 2
> ,
> 11
> ,
> 23
> ,
> 15
> ,
> 14
> ,
> 7
> ,
> 0
> ,
> 34
> ,
> 2
> ,
> 17
> ,
> 31
> ,
> 9
> ,
> 4
> ,
> 9
> ,
> 23
> ,
> 14
> ,
> 16
> ,
> 0
> ,
> 0
> ,
> 27
> ,
> 3
> ,
> 7
> ,
> 18
> ,
> 21
> ,
> 4
> ,
> 2
> ,
> 3
> ,
> 1
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 17
> ,
> 18
> ,
> 13
> ,
> 4
> ,
> 12
> ,
> 11
> ,
> 0
> ,
> 1
> ,
> 7
> ,
> 17
> ,
> 4
> ,
> 10
> ,
> 5
> ,
> 1
> ,
> 20
> ,
> 20
> ,
> 3
> ,
> 0
> ,
> 5
> ,
> 11
> ,
> 10
> ,
> 7
> ,
> 1
> ,
> 16
> ,
> 4
> ,
> 11
> ,
> 13
> ,
> 7
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 8
> ,
> 28
> ,
> 10
> ,
> 20
> ,
> 27
> ,
> 3
> ,
> 38
> ,
> 7
> ,
> 11
> ,
> 13
> ,
> 21
> ,
> 5
> ,
> 8
> ,
> 32
> ,
> 12
> ,
> 24
> ,
> 26
> ,
> 13
> ,
> 0
> ,
> 2
> ,
> 3
> ,
> 4
> ,
> 22
> ,
> 11
> ];
delta_glucose := [21, 5, 37, 16, 1, 14, 0, 4, 20, 6, 6, 36, 15, 10, 4, 31, 4, 2,

    9, 19, 21, 8, 12, 19, 45, 16, 45, 4, 22, 1, 16, 0, 9, 24, 4, 24, 7, 7, 13,

    12, 1, 19, 0, 16, 27, 2, 11, 23, 15, 14, 7, 0, 34, 2, 17, 31, 9, 4, 9, 23,

    14, 16, 0, 0, 27, 3, 7, 18, 21, 4, 2, 3, 1, 8, 18, 2, 17, 18, 13, 4, 12, 11,

    0, 1, 7, 17, 4, 10, 5, 1, 20, 20, 3, 0, 5, 11, 10, 7, 1, 16, 4, 11, 13, 7,

    8, 18, 2, 8, 28, 10, 20, 27, 3, 38, 7, 11, 13, 21, 5, 8, 32, 12, 24, 26, 13,

    0, 2, 3, 4, 22, 11]

> c := Correlation(carb_fib,delta_glucose);
                            c := 0.0847812315338891

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> sugar := [
> 115.0
> ,
> 120.0
> ,
> 212.0
> ,
> 73.7
> ,
> 124.0
> ,
> 93.2
> ,
> 88.4
> ,
> 128.0
> ,
> 124.0
> ,
> 84.7
> ,
> 122.0
> ,
> 26.2
> ,
> 93.4
> ,
> 97.9
> ,
> 93.8
> ,
> 88.2
> ,
> 62.1
> ,
> 79.1
> ,
> 66.4
> ,
> 71.0
> ,
> 61.1
> ,
> 124.0
> ,
> 62.7
> ,
> 75.4
> ,
> 95.4
> ,
> 117.0
> ,
> 72.3
> ,
> 155.0
> ,
> 74.8
> ,
> 143.0
> ,
> 57.1
> ,
> 83.7
> ,
> 85.4
> ,
> 43.6
> ,
> 121.0
> ,
> 87.3
> ,
> 146.0
> ,
> 95.6
> ,
> 84.1
> ,
> 113.0
> ,
> 142.0
> ,
> 92.9
> ,
> 107.0
> ,
> 118.0
> ,
> 132.0
> ,
> 80.6
> ,
> 72.8
> ,
> 57.2
> ,
> 22.3
> ,
> 70.6
> ,
> 66.9
> ,
> 79.8
> ,
> 49.8
> ,
> 61.3
> ,
> 49.9
> ,
> 97.7
> ,
> 60.3
> ,
> 87.7
> ,
> 74.8
> ,
> 85.7
> ,
> 97.4
> ,
> 83.9
> ,
> 45.5
> ,
> 77.4
> ,
> 100.0
> ,
> 50.2
> ,
> 69.8
> ,
> 106.0
> ,
> 60.2
> ,
> 68.3
> ,
> 40.3
> ,
> 63.4
> ,
> 73.3
> ,
> 85.7
> ,
> 91.4
> ,
> 91.2
> ,
> 129.0
> ,
> 83.0
> ,
> 63.5
> ,
> 52.9
> ,
> 108.0
> ,
> 114.0
> ,
> 97.2
> ,
> 86.9
> ,
> 85.4
> ,
> 110.0
> ,
> 75.8
> ,
> 102.0
> ,
> 104.0
> ,
> 86.7
> ,
> 81.0
> ,
> 109.0
> ,
> 57.8
> ,
> 105.0
> ,
> 74.0
> ,
> 81.4
> ,
> 76.1
> ,
> 52.2
> ,
> 129.0
> ,
> 53.1
> ,
> 106.0
> ,
> 69.3
> ,
> 84.0
> ,
> 113.0
> ,
> 88.8
> ,
> 52.7
> ,
> 75.4
> ,
> 78.4
> ,
> 107.0
> ,
> 108.0
> ,
> 130.0
> ,
> 67.9
> ,
> 160.0
> ,
> 107.0
> ,
> 53.0
> ,
> 40.5
> ,
> 137.0
> ,
> 125.0
> ,
> 98.6
> ,
> 125.0
> ,
> 111.0
> ,
> 85.4
> ,
> 69.5
> ,
> 123.0
> ,
> 122.0
> ,
> 54.1
> ,
> 127.0
> ,
> 120.0
> ,
> 57.9
> ,
> 106.0
> ,
> 111.0
> ];
sugar := [115.0, 120.0, 212.0, 73.7, 124.0, 93.2, 88.4, 128.0, 124.0, 84.7,

    122.0, 26.2, 93.4, 97.9, 93.8, 88.2, 62.1, 79.1, 66.4, 71.0, 61.1, 124.0,

    62.7, 75.4, 95.4, 117.0, 72.3, 155.0, 74.8, 143.0, 57.1, 83.7, 85.4, 43.6,

    121.0, 87.3, 146.0, 95.6, 84.1, 113.0, 142.0, 92.9, 107.0, 118.0, 132.0,

    80.6, 72.8, 57.2, 22.3, 70.6, 66.9, 79.8, 49.8, 61.3, 49.9, 97.7, 60.3,

    87.7, 74.8, 85.7, 97.4, 83.9, 45.5, 77.4, 100.0, 50.2, 69.8, 106.0, 60.2,

    68.3, 40.3, 63.4, 73.3, 85.7, 91.4, 91.2, 129.0, 83.0, 63.5, 52.9, 108.0,

    114.0, 97.2, 86.9, 85.4, 110.0, 75.8, 102.0, 104.0, 86.7, 81.0, 109.0, 57.8,

    105.0, 74.0, 81.4, 76.1, 52.2, 129.0, 53.1, 106.0, 69.3, 84.0, 113.0, 88.8,

    52.7, 75.4, 78.4, 107.0, 108.0, 130.0, 67.9, 160.0, 107.0, 53.0, 40.5,

    137.0, 125.0, 98.6, 125.0, 111.0, 85.4, 69.5, 123.0, 122.0, 54.1, 127.0,

    120.0, 57.9, 106.0, 111.0]

> delta_glucose := [
> 21
> ,
> 5
> ,
> 37
> ,
> 16
> ,
> 1
> ,
> 14
> ,
> 0
> ,
> 4
> ,
> 20
> ,
> 6
> ,
> 6
> ,
> 36
> ,
> 15
> ,
> 10
> ,
> 4
> ,
> 31
> ,
> 4
> ,
> 2
> ,
> 9
> ,
> 19
> ,
> 21
> ,
> 8
> ,
> 12
> ,
> 19
> ,
> 45
> ,
> 16
> ,
> 45
> ,
> 4
> ,
> 22
> ,
> 1
> ,
> 16
> ,
> 0
> ,
> 9
> ,
> 24
> ,
> 4
> ,
> 24
> ,
> 7
> ,
> 7
> ,
> 13
> ,
> 12
> ,
> 1
> ,
> 19
> ,
> 0
> ,
> 16
> ,
> 27
> ,
> 2
> ,
> 11
> ,
> 23
> ,
> 15
> ,
> 14
> ,
> 7
> ,
> 0
> ,
> 34
> ,
> 2
> ,
> 17
> ,
> 31
> ,
> 9
> ,
> 4
> ,
> 9
> ,
> 23
> ,
> 14
> ,
> 16
> ,
> 0
> ,
> 0
> ,
> 27
> ,
> 3
> ,
> 7
> ,
> 18
> ,
> 21
> ,
> 4
> ,
> 2
> ,
> 3
> ,
> 1
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 17
> ,
> 18
> ,
> 13
> ,
> 4
> ,
> 12
> ,
> 11
> ,
> 0
> ,
> 1
> ,
> 7
> ,
> 17
> ,
> 4
> ,
> 10
> ,
> 5
> ,
> 1
> ,
> 20
> ,
> 20
> ,
> 3
> ,
> 0
> ,
> 5
> ,
> 11
> ,
> 10
> ,
> 7
> ,
> 1
> ,
> 16
> ,
> 4
> ,
> 11
> ,
> 13
> ,
> 7
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 8
> ,
> 28
> ,
> 10
> ,
> 20
> ,
> 27
> ,
> 3
> ,
> 38
> ,
> 7
> ,
> 11
> ,
> 13
> ,
> 21
> ,
> 5
> ,
> 8
> ,
> 32
> ,
> 12
> ,
> 24
> ,
> 26
> ,
> 13
> ,
> 0
> ,
> 2
> ,
> 3
> ,
> 4
> ,
> 22
> ,
> 11
> ];
delta_glucose := [21, 5, 37, 16, 1, 14, 0, 4, 20, 6, 6, 36, 15, 10, 4, 31, 4, 2,

    9, 19, 21, 8, 12, 19, 45, 16, 45, 4, 22, 1, 16, 0, 9, 24, 4, 24, 7, 7, 13,

    12, 1, 19, 0, 16, 27, 2, 11, 23, 15, 14, 7, 0, 34, 2, 17, 31, 9, 4, 9, 23,

    14, 16, 0, 0, 27, 3, 7, 18, 21, 4, 2, 3, 1, 8, 18, 2, 17, 18, 13, 4, 12, 11,

    0, 1, 7, 17, 4, 10, 5, 1, 20, 20, 3, 0, 5, 11, 10, 7, 1, 16, 4, 11, 13, 7,

    8, 18, 2, 8, 28, 10, 20, 27, 3, 38, 7, 11, 13, 21, 5, 8, 32, 12, 24, 26, 13,

    0, 2, 3, 4, 22, 11]

> c := Correlation(sugar,delta_glucose);
                            c := 0.0197406886393250

> quit
memory used=0.8MB, alloc=8.3MB, time=0.05
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> with(Statistics);
[AbsoluteDeviation, AgglomeratedPlot, AreaChart, AutoCorrelation, BarChart,

    Biplot, 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,

    Distribution, ErrorPlot, EvaluateToFloat, Excise, ExpectedValue,

    ExponentialFit, ExponentialSmoothing, FailureRate, FisherInformation, Fit,

    FivePointSummary, FrequencyPlot, FrequencyTable, GeometricMean, GridPlot,

    HarmonicMean, HazardRate, HeatMap, Histogram, HodgesLehmann, Information,

    InteractiveDataAnalysis, InterquartileRange, InverseSurvivalFunction, Join,

    KernelDensity, KernelDensityPlot, KernelDensitySample, Kurtosis, Likelihood,

    LikelihoodRatioStatistic, LineChart, LinearFilter, LinearFit, LogLikelihood,

    LogarithmicFit, Lowess, MGF, MLE, MakeProcedure, MaximumLikelihoodEstimate,

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

    MomentGeneratingFunction, MovingAverage, MovingMedian, MovingStatistic,

    NonlinearFit, NormalPlot, OneSampleChiSquareTest, OneSampleTTest,

    OneSampleZTest, OneWayANOVA, OrderByRank, OrderStatistic, PCA, PDF,

    Percentile, PieChart, PointPlot, PolynomialFit, PowerFit,

    PredictiveLeastSquares, PrincipalComponentAnalysis, Probability,

    ProbabilityDensityFunction, ProbabilityFunction, ProbabilityPlot,

    ProfileLikelihood, ProfileLogLikelihood, QuadraticMean, Quantile,

    QuantilePlot, Quartile, RadarChart, RandomVariable, Range, Rank, Remove,

    RemoveInRange, RemoveNonNumeric, RepeatedMedianEstimator, RousseeuwCrouxQn,

    RousseeuwCrouxSn, Sample, Scale, ScatterPlot, ScatterPlot3D, Score,

    ScreePlot, Select, SelectInRange, SelectNonNumeric, ShapiroWilkWTest,

    Shuffle, Skewness, Sort, Specialize, SplitByColumn, StandardDeviation,

    StandardError, StandardizedMoment, SunflowerPlot, Support, SurfacePlot,

    SurvivalFunction, SymmetryPlot, Tally, TallyInto, TreeMap, Trim,

    TrimmedMean, TwoSampleFTest, TwoSamplePairedTTest, TwoSampleTTest,

    TwoSampleZTest, Variance, Variation, WeightedMovingAverage, Winsorize,

    WinsorizedMean]

> miles := [
> 2.2
> ,
> 4.4
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 4.4
> ,
> 2.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 1.0
> ,
> 4.3
> ,
> 4.4
> ,
> 0.0
> ,
> 4.4
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 3.2
> ,
> 1.0
> ,
> 0.0
> ,
> 2.2
> ,
> 2.2
> ,
> 0.0
> ,
> 2.2
> ,
> 1.0
> ,
> 1.0
> ,
> 1.0
> ,
> 3.2
> ,
> 0.0
> ,
> 4.4
> ,
> 1.1
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 4.4
> ,
> 3.3
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.5
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 2.1
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 1.0
> ,
> 0.0
> ,
> 1.0
> ,
> 2.0
> ,
> 2.2
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 1.1
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ,
> 0.0
> ];
miles := [2.2, 4.4, 0., 0., 1.0, 0., 0., 1.0, 4.4, 2.0, 0., 1.0, 0., 0., 0., 0.,

    1.0, 1.0, 0., 0., 3.2, 1.0, 1.0, 4.3, 4.4, 0., 4.4, 0., 1.0, 0., 1.0, 0.,

    3.2, 1.0, 0., 2.2, 2.2, 0., 2.2, 1.0, 1.0, 1.0, 3.2, 0., 4.4, 1.1, 1.0, 0.,

    0., 1.1, 1.1, 0., 0., 1.1, 0., 1.1, 0., 0., 0., 0., 4.4, 3.3, 0., 0., 0.,

    0., 0., 0., 1.0, 0., 0., 1.5, 0., 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0.,

    1.0, 0., 1.0, 0., 1.0, 0., 1.0, 0., 1.0, 1.0, 2.1, 1.0, 1.0, 0., 0., 1.0,

    1.0, 0., 1.0, 2.0, 2.2, 1.0, 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0., 0.,

    0., 0., 0., 1.1, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.]

> delta_glucose := [
> 21
> ,
> 5
> ,
> 37
> ,
> 16
> ,
> 1
> ,
> 14
> ,
> 0
> ,
> 4
> ,
> 20
> ,
> 6
> ,
> 6
> ,
> 36
> ,
> 15
> ,
> 10
> ,
> 4
> ,
> 31
> ,
> 4
> ,
> 2
> ,
> 9
> ,
> 19
> ,
> 21
> ,
> 8
> ,
> 12
> ,
> 19
> ,
> 45
> ,
> 16
> ,
> 45
> ,
> 4
> ,
> 22
> ,
> 1
> ,
> 16
> ,
> 0
> ,
> 9
> ,
> 24
> ,
> 4
> ,
> 24
> ,
> 7
> ,
> 7
> ,
> 13
> ,
> 12
> ,
> 1
> ,
> 19
> ,
> 0
> ,
> 16
> ,
> 27
> ,
> 2
> ,
> 11
> ,
> 23
> ,
> 15
> ,
> 14
> ,
> 7
> ,
> 0
> ,
> 34
> ,
> 2
> ,
> 17
> ,
> 31
> ,
> 9
> ,
> 4
> ,
> 9
> ,
> 23
> ,
> 14
> ,
> 16
> ,
> 0
> ,
> 0
> ,
> 27
> ,
> 3
> ,
> 7
> ,
> 18
> ,
> 21
> ,
> 4
> ,
> 2
> ,
> 3
> ,
> 1
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 17
> ,
> 18
> ,
> 13
> ,
> 4
> ,
> 12
> ,
> 11
> ,
> 0
> ,
> 1
> ,
> 7
> ,
> 17
> ,
> 4
> ,
> 10
> ,
> 5
> ,
> 1
> ,
> 20
> ,
> 20
> ,
> 3
> ,
> 0
> ,
> 5
> ,
> 11
> ,
> 10
> ,
> 7
> ,
> 1
> ,
> 16
> ,
> 4
> ,
> 11
> ,
> 13
> ,
> 7
> ,
> 8
> ,
> 18
> ,
> 2
> ,
> 8
> ,
> 28
> ,
> 10
> ,
> 20
> ,
> 27
> ,
> 3
> ,
> 38
> ,
> 7
> ,
> 11
> ,
> 13
> ,
> 21
> ,
> 5
> ,
> 8
> ,
> 32
> ,
> 12
> ,
> 24
> ,
> 26
> ,
> 13
> ,
> 0
> ,
> 2
> ,
> 3
> ,
> 4
> ,
> 22
> ,
> 11
> ];
delta_glucose := [21, 5, 37, 16, 1, 14, 0, 4, 20, 6, 6, 36, 15, 10, 4, 31, 4, 2,

    9, 19, 21, 8, 12, 19, 45, 16, 45, 4, 22, 1, 16, 0, 9, 24, 4, 24, 7, 7, 13,

    12, 1, 19, 0, 16, 27, 2, 11, 23, 15, 14, 7, 0, 34, 2, 17, 31, 9, 4, 9, 23,

    14, 16, 0, 0, 27, 3, 7, 18, 21, 4, 2, 3, 1, 8, 18, 2, 17, 18, 13, 4, 12, 11,

    0, 1, 7, 17, 4, 10, 5, 1, 20, 20, 3, 0, 5, 11, 10, 7, 1, 16, 4, 11, 13, 7,

    8, 18, 2, 8, 28, 10, 20, 27, 3, 38, 7, 11, 13, 21, 5, 8, 32, 12, 24, 26, 13,

    0, 2, 3, 4, 22, 11]

> c := Correlation(miles,delta_glucose);
                             c := 0.206504898381970

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