PRUEBA PARA COMPARAR DOS MUESTRAS CORRELACIONADAS

set.seed(123)
cra =rnorm(80, mean = 2.8, sd = 0.2)
hist(cra, xlim = c(2.2, 3.4), ylim = c(0, 20))
abline(v= mean(cra), col= "orange" , lwd=3)

library(readxl)

## Warning: package 'readxl' was built under R version 4.2.2

datos <- read_excel("datos excel.xlsx")
View(datos)

plot(datos$cra60, datos$cra80,
pch = 16, cex=1.5, xlab = 'CRA60', ylab = 'CRA 80')

#coeficiente de correlación
cor(datos$cra60, datos$cra80)

## [1] 0.9786099

# EJEMPLOS

Suelos: si se mide la MO de los primeros 20 cm del suelo y luego a los 40 posiblemente se encuentren correlaciondas. A mayor profunidad menor MO
Frutales: se quiere medir el diametro de duraznos en dos fechas, seguramente estaran correlacinados ya que a mayor numero de dias se espera tener mayor diametro
Microbiologia: Medir el diametro medio a colonias creciendo en agar, se puede estar interesado en comparar un diametro inicial y uno final, al realizar una medicion posterior y se encuentre un patron similar *Ecologia: Al medir el oxigeno disuelto en agua, el cual depende de la temperatura de la laguna y la profundidad de la medida, por lo cual es probable que a una profundidad se encuentre una concentracion diferente a un aprofunidad mayor

\[H_0: \mu_{CRA_{60}} = \mu_{CRA_{80}}\]

  #PRUEBA 3
  # PRUEBA t-studen para dos muestras pareadas
  prueba3 = t.test(datos$cra60, datos$cra80, alternative = 't' , # t = two.sided
  mu = 0,
paired = TRUE )

ifelse(prueba3 $p.value<0.05, 'rechazo Ho', 'no rechazo Ho')

## [1] "rechazo Ho"

boxplot(datos)

PRUEBA PARA COMPARAR DOS MUESTRAS CORRELACIONADAS

MARIA GARCIA

2023-02-21