DatosJKL

df<-read.csv("DatosJKL.csv")
df

##   Variedad Proteina Brix   pH Humedad
## 1   CAPURI     3.81 12.0 3.75   80.29
## 2   CAPURI     3.86 13.0 3.85   81.97
## 3   CAPURI     3.47 12.5 4.04   90.97
## 4   PAPAYO     3.00  8.5 3.26   86.38
## 5   PAPAYO     3.47 10.0 3.35   78.60
## 6   PAPAYO     4.08  8.5 3.53   81.18
## 7    BTORO     3.74 12.5 3.71   88.77
## 8    BTORO     3.46  7.0 3.45   89.35
## 9    BTORO     2.46  8.0 3.51   90.77

Proteína

boxplot(Proteina~Variedad,data=df,col=c("orange","red","green"))

modelo<-aov(Proteina~Variedad,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value Pr(>F)
## Variedad     2 0.3701  0.1850   0.702  0.532
## Residuals    6 1.5821  0.2637

De acuerdo al p-valor=0.532 no existe diferencias significativas entre las concentraciones de proteinas de las tres especies

boxplot(Brix~Variedad,data=df,col=c("orange","red","green"))

modelo<-aov(Brix~Variedad,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value Pr(>F)  
## Variedad     2  23.39  11.694   3.661 0.0914 .
## Residuals    6  19.17   3.194                 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

De acuerdo al p-valor=0.0914 no existe diferencias significativas entre las medidas del brix de las tres especies

boxplot(pH~Variedad,data=df,col=c("orange","red","green"))

modelo<-aov(pH~Variedad,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value Pr(>F)  
## Variedad     2 0.3858 0.19288   9.785 0.0129 *
## Residuals    6 0.1183 0.01971                 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

El p-valor=0.0129 indica que existen diferencias significativas entre los valores de pH de las tres especies

boxplot(Humedad~Variedad,data=df,col=c("orange","red","green"))

modelo<-aov(Humedad~Variedad,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value Pr(>F)
## Variedad     2  90.21   45.10    2.72  0.144
## Residuals    6  99.49   16.58

El p-valor=0.144 indica que no existen diferencias significativas entre los valores de humedad de las tres especies

df<-read.csv("Datos3JKL.csv")
df

##    Cenizas Variedad
## 1     1.92   CAPURI
## 2     1.52   CAPURI
## 3     1.91   CAPURI
## 4     1.62   CAPURI
## 5     1.64   CAPURI
## 6     1.60   CAPURI
## 7     2.13   CAPURI
## 8     2.14   CAPURI
## 9     1.80   CAPURI
## 10    1.90   PAPAYO
## 11    1.74   PAPAYO
## 12    1.86   PAPAYO
## 13    1.72   PAPAYO
## 14    2.04   PAPAYO
## 15    1.96   PAPAYO
## 16    1.93   PAPAYO
## 17    2.03   PAPAYO
## 18    2.09   PAPAYO
## 19    3.05    BTORO
## 20    3.21    BTORO
## 21    3.11    BTORO
## 22    2.96    BTORO
## 23    2.99    BTORO
## 24    3.13    BTORO
## 25    3.59    BTORO
## 26    3.69    BTORO
## 27    3.51    BTORO

boxplot(Cenizas~Variedad,data=df,col=c("orange","red","green"))

modelo<-aov(Cenizas~Variedad,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value   Pr(>F)    
## Variedad     2 11.564   5.782   119.2 3.43e-13 ***
## Residuals   24  1.164   0.049                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

El p-valor= $ 3.43x10^{-13} $ indica que no existen diferencias significativas entre los valores de humedad de las tres especies