# A tibble: 36 × 4
   `Plant Parts`   TPC   TFC   TAA
   <chr>         <dbl> <dbl> <dbl>
 1 Rhizomes      1365.  125.  466.
 2 Rhizomes      1371.  121.  467.
 3 Rhizomes      1426.  117.  471.
 4 Rhizomes      1529.  128.  494.
 5 Rhizomes      1404.  123.  474.
 6 Rhizomes      1450.  120.  482.
 7 Rhizomes      1402.  124.  505.
 8 Rhizomes      1400.  119.  486.
 9 Rhizomes      1426.  124.  476.
10 Leaves        1400. 1367.  144.
# … with 26 more rows
# A tibble: 36 × 4
   `Plant Parts`   TPC   TFC   TAA
   <chr>         <dbl> <dbl> <dbl>
 1 Rhizomes      1365.  125.  466.
 2 Rhizomes      1371.  121.  467.
 3 Rhizomes      1426.  117.  471.
 4 Rhizomes      1529.  128.  494.
 5 Rhizomes      1404.  123.  474.
 6 Rhizomes      1450.  120.  482.
 7 Rhizomes      1402.  124.  505.
 8 Rhizomes      1400.  119.  486.
 9 Rhizomes      1426.  124.  476.
10 Leaves        1400. 1367.  144.
# … with 26 more rows
# A tibble: 36 × 4
   `Plant Parts`   TPC   TFC   TAA
   <chr>         <dbl> <dbl> <dbl>
 1 Rhizomes      1365.  125.  466.
 2 Rhizomes      1371.  121.  467.
 3 Rhizomes      1426.  117.  471.
 4 Rhizomes      1529.  128.  494.
 5 Rhizomes      1404.  123.  474.
 6 Rhizomes      1450.  120.  482.
 7 Rhizomes      1402.  124.  505.
 8 Rhizomes      1400.  119.  486.
 9 Rhizomes      1426.  124.  476.
10 Leaves        1400. 1367.  144.
# … with 26 more rows
Warning: package 'ggplot2' was built under R version 4.2.2
Warning: package 'gridExtra' was built under R version 4.2.2

Descriptive Statistics on TAA

Warning: package 'dplyr' was built under R version 4.2.2

Attaching package: 'dplyr'
The following object is masked from 'package:gridExtra':

    combine
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
# A tibble: 4 × 4
  `Plant Parts` count  mean    sd
  <chr>         <int> <dbl> <dbl>
1 Leaves            9 145.   6.19
2 Pericarp          9 217.   6.93
3 Rhizomes          9 480.  13.1 
4 Seeds             9  14.9  1.77

Descriptive Statistics on TPC

# A tibble: 4 × 4
  `Plant Parts` count  mean    sd
  <chr>         <int> <dbl> <dbl>
1 Leaves            9 1341.  6.19
2 Pericarp          9 4109.  6.93
3 Rhizomes          9 1419. 13.1 
4 Seeds             9  100.  1.77

Descriptive Statistics on TAA

# A tibble: 4 × 4
  `Plant Parts` count   mean    sd
  <chr>         <int>  <dbl> <dbl>
1 Leaves            9  1343.  6.19
2 Pericarp          9 15038.  6.93
3 Rhizomes          9   122. 13.1 
4 Seeds             9   339.  1.77

Significant Difference Among Plant Parts based on TAA

                      Df  Sum Sq Mean Sq F value Pr(>F)    
Barriga$`Plant Parts`  3 1037450  345817    5319 <2e-16 ***
Residuals             32    2081      65                   
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Post Hoc Test

  Tukey multiple comparisons of means
    95% family-wise confidence level

Fit: aov(formula = Barriga$TAA ~ Barriga$`Plant Parts`)

$`Barriga$`Plant Parts``
                        diff        lwr       upr p adj
Pericarp-Leaves     71.49006   61.19142   81.7887     0
Rhizomes-Leaves    335.00208  324.70344  345.3007     0
Seeds-Leaves      -130.36891 -140.66756 -120.0703     0
Rhizomes-Pericarp  263.51202  253.21338  273.8107     0
Seeds-Pericarp    -201.85897 -212.15762 -191.5603     0
Seeds-Rhizomes    -465.37099 -475.66964 -455.0724     0

Significant Difference Among Plant Parts based on TPC

                      Df   Sum Sq  Mean Sq F value Pr(>F)    
Barriga$`Plant Parts`  3 77061769 25687256    1628 <2e-16 ***
Residuals             32   504984    15781                   
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Post Hoc Test

  Tukey multiple comparisons of means
    95% family-wise confidence level

Fit: aov(formula = Barriga$TPC ~ Barriga$`Plant Parts`)

$`Barriga$`Plant Parts``
                         diff         lwr        upr     p adj
Pericarp-Leaves    2768.19283  2607.74851  2928.6372 0.0000000
Rhizomes-Leaves      78.52684   -81.91748   238.9712 0.5536158
Seeds-Leaves      -1240.34956 -1400.79388 -1079.9052 0.0000000
Rhizomes-Pericarp -2689.66599 -2850.11031 -2529.2217 0.0000000
Seeds-Pericarp    -4008.54239 -4168.98671 -3848.0981 0.0000000
Seeds-Rhizomes    -1318.87640 -1479.32073 -1158.4321 0.0000000

Significant Difference Among Plant Parts based on TFC

                      Df    Sum Sq   Mean Sq F value Pr(>F)    
Barriga$`Plant Parts`  3 1.414e+09 471493445   21363 <2e-16 ***
Residuals             32 7.063e+05     22071                   
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Post Hoc Test

  Tukey multiple comparisons of means
    95% family-wise confidence level

Fit: aov(formula = Barriga$TFC ~ Barriga$`Plant Parts`)

$`Barriga$`Plant Parts``
                         diff          lwr         upr     p adj
Pericarp-Leaves    13695.7195  13505.97515  13885.4639 0.0000000
Rhizomes-Leaves    -1220.2242  -1409.96861  -1030.4798 0.0000000
Seeds-Leaves       -1003.1716  -1192.91603   -813.4272 0.0000000
Rhizomes-Pericarp -14915.9438 -15105.68816 -14726.1994 0.0000000
Seeds-Pericarp    -14698.8912 -14888.63558 -14509.1468 0.0000000
Seeds-Rhizomes       217.0526     27.30819    406.7970 0.0199631

Correlation between TAA and TPC

[1] 0.2759627

    Pearson's product-moment correlation

data:  Barriga$TPC and Barriga$TAA
t = 1.6741, df = 34, p-value = 0.1033
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 -0.05781476  0.55424827
sample estimates:
      cor 
0.2759627 

Correlation between TAA and TFC

[1] -0.02135804

    Pearson's product-moment correlation

data:  Barriga$TAA and Barriga$TFC
t = -0.12457, df = 34, p-value = 0.9016
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 -0.3474557  0.3093484
sample estimates:
        cor 
-0.02135804 

Correlation between TPC and TFC

[1] 0.9356174

    Pearson's product-moment correlation

data:  Barriga$TPC and Barriga$TFC
t = 15.454, df = 34, p-value < 2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.8765051 0.9669335
sample estimates:
      cor 
0.9356174 
# A tibble: 36 × 4
   `Plant Parts`   TPC   TFC   TAA
   <chr>         <dbl> <dbl> <dbl>
 1 Rhizomes      1365.  125.  466.
 2 Rhizomes      1371.  121.  467.
 3 Rhizomes      1426.  117.  471.
 4 Rhizomes      1529.  128.  494.
 5 Rhizomes      1404.  123.  474.
 6 Rhizomes      1450.  120.  482.
 7 Rhizomes      1402.  124.  505.
 8 Rhizomes      1400.  119.  486.
 9 Rhizomes      1426.  124.  476.
10 Leaves        1400. 1367.  144.
# … with 26 more rows

Correlation For Leaves, etc Correlation

For Leaves

# A tibble: 9 × 4
  `Plant Parts`   TPC   TFC   TAA
  <chr>         <dbl> <dbl> <dbl>
1 Leaves        1400. 1367.  144.
2 Leaves        1381. 1317.  138.
3 Leaves        1440. 1289.  138.
4 Leaves        1367. 1377.  149.
5 Leaves        1363. 1394.  147.
6 Leaves        1258. 1387.  150.
7 Leaves        1338. 1339.  157.
8 Leaves        1267. 1306.  145.
9 Leaves        1254. 1306.  140.

Correlation between TAA and TPC

[1] -0.2879499

Margin of Error for Leaves TAA


    One Sample t-test

data:  Barrigaleaves$TAA
t = 70.344, df = 8, p-value = 1.857e-12
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 140.4780 150.0005
sample estimates:
mean of x 
 145.2393 

Margin of Error for Leaves TPC


    One Sample t-test

data:  Barrigaleaves$TPC
t = 59.934, df = 8, p-value = 6.674e-12
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 1289.211 1392.387
sample estimates:
mean of x 
 1340.799 

Margin of Error for Leaves TFC


    One Sample t-test

data:  Barrigaleaves$TFC
t = 101.32, df = 8, p-value = 1.006e-13
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 1311.949 1373.058
sample estimates:
mean of x 
 1342.504 

Correlation between TAA and TFC

[1] 0.5754173

Correlation between TPC and TFC

[1] -0.02764104

For Rhizomes

# A tibble: 9 × 4
  `Plant Parts`   TPC   TFC   TAA
  <chr>         <dbl> <dbl> <dbl>
1 Rhizomes      1365.  125.  466.
2 Rhizomes      1371.  121.  467.
3 Rhizomes      1426.  117.  471.
4 Rhizomes      1529.  128.  494.
5 Rhizomes      1404.  123.  474.
6 Rhizomes      1450.  120.  482.
7 Rhizomes      1402.  124.  505.
8 Rhizomes      1400.  119.  486.
9 Rhizomes      1426.  124.  476.

Margin of Error for Rhizomes TAA


    One Sample t-test

data:  Barrigaleaves$TAA
t = 110.33, df = 8, p-value = 5.09e-14
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 470.2037 490.2790
sample estimates:
mean of x 
 480.2414 

Margin of Error for Rhizomes TPC


    One Sample t-test

data:  Barrigaleaves$TPC
t = 86.746, df = 8, p-value = 3.48e-13
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 1381.595 1457.057
sample estimates:
mean of x 
 1419.326 

Margin of Error for Rhizomes TFC


    One Sample t-test

data:  Barrigaleaves$TFC
t = 105.02, df = 8, p-value = 7.552e-14
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 119.5943 124.9645
sample estimates:
mean of x 
 122.2794 

Correlation between TAA and TPC

[1] 0.480656

Correlation between TAA and TFC

[1] 0.3232221

Correlation between TPC and TFC

[1] 0.3491988

For Seeds

# A tibble: 9 × 4
  `Plant Parts`   TPC   TFC   TAA
  <chr>         <dbl> <dbl> <dbl>
1 Seeds         102.   348.  13.0
2 Seeds          95.4  327.  12.6
3 Seeds          99.6  338.  12.6
4 Seeds         102.   343.  14.8
5 Seeds         100.   337.  16.0
6 Seeds         101.   344.  17.1
7 Seeds          97.6  351.  15.1
8 Seeds         104.   329.  16.9
9 Seeds         102.   336.  15.7

Margin of Error for Seeds TAA


    One Sample t-test

data:  Barrigaleaves$TAA
t = 25.171, df = 8, p-value = 6.644e-09
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 13.50803 16.23272
sample estimates:
mean of x 
 14.87037 

Margin of Error for Seeds TPC


    One Sample t-test

data:  Barrigaleaves$TPC
t = 116.45, df = 8, p-value = 3.306e-14
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
  98.46024 102.43864
sample estimates:
mean of x 
 100.4494 

Margin of Error for Seeds TFC


    One Sample t-test

data:  Barrigaleaves$TFC
t = 124.74, df = 8, p-value = 1.907e-14
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 333.0591 345.6048
sample estimates:
mean of x 
  339.332 

Correlation between TAA and TPC

[1] 0.5376003

Correlation between TAA and TFC

[1] 0.02218679

Correlation between TPC and TFC

[1] 0.1125879

For Pericarp

# A tibble: 9 × 4
  `Plant Parts`   TPC    TFC   TAA
  <chr>         <dbl>  <dbl> <dbl>
1 Pericarp      3883. 15446.  221.
2 Pericarp      3629. 15183.  215.
3 Pericarp      4302. 15493.  208.
4 Pericarp      4309. 15152.  219.
5 Pericarp      4031. 14749.  213.
6 Pericarp      4287. 14873.  231.
7 Pericarp      4027. 14811.  213.
8 Pericarp      4290. 14935.  211.
9 Pericarp      4223. 14702.  219.

Margin of Error for Pericarp TAA


    One Sample t-test

data:  Barrigaleaves$TAA
t = 93.806, df = 8, p-value = 1.862e-13
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 211.4015 222.0571
sample estimates:
mean of x 
 216.7293 

Margin of Error for Pericarp TPC


    One Sample t-test

data:  Barrigaleaves$TPC
t = 51.997, df = 8, p-value = 2.074e-11
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 3926.763 4291.221
sample estimates:
mean of x 
 4108.992 

Margin of Error for Pericarp TFC


    One Sample t-test

data:  Barrigaleaves$TFC
t = 153.28, df = 8, p-value = 3.67e-15
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 14811.99 15264.46
sample estimates:
mean of x 
 15038.22 

Correlation between TAA and TPC

[1] 0.1015215

Correlation between TAA and TFC

[1] -0.1818465

Correlation between TPC and TFC

[1] -0.1723348