Untitled

library(faux)

## 
## ************
## Welcome to faux. For support and examples visit:
## https://scienceverse.github.io/faux/
## - Get and set global package options with: faux_options()
## ************

set.seed(1073) # Semilla de aleatorización

peach = rnorm_multi( n = 120,                     # Número de datos
                     vars = 2,                    # Número de variables
                     mu = c(4, 4.5),              # Medias de las vars.
                     sd = c (0.4, 0.5),           # Desv. estándar de vars
                     varnames = c( "DE", "DL"),   # Nombres de las vars.
                     r = 0.7)                     # 

#En caso de duranzos el diametro longitudinal y diametro ecuatorial
#tienen correlación entre sí

View(peach)  #Visualización de los datos creados

plot(peach$DE, peach$DL)

options(repos = c(CRAN = "https://cloud.r-project.org"))

if (!requireNamespace("mvoutlier", quietly = TRUE)) {
  install.packages("mvoutlier")
}

library(mvoutlier)

## Cargando paquete requerido: sgeostat

corr.plot(peach$DE, peach$DL)

## $cor.cla
## [1] 0.7743443
## 
## $cor.rob
## [1] 0.7823256

Tarea (para jue, 19 feb): A través de la IA calcular los 9 métodos de estantarización de los datos de durazno y calcularle Media, desviación y rango, coeficiente de Pearson y Spearman