Tarea clase 6

Ejercicio 1 Crear una funcion que: halle la correlacion entre dos variables: - esta debe ir aumentando la cantidad de datos de evalua de 5 en 5

(ejm) cor1 = x[1:5], y[1:5]

(ejm) cor2 = x[1:10], y[1:10]

rto = sort(rnorm(100, 3, 0.3))
ge = sort(runif(100, 1.01, 1.15), decreasing = T)
#Grafico de ge vs rto 
plot(ge, rto)

#Correlacion entre variables
cor(ge, rto)

## [1] -0.9642701

#Correlacion datos del 1 al 5
cor1 = cor(ge[1:5], rto[1:5]);cor1

## [1] -0.9081194

#Correlacion datos del 1 al 10
cor2 = cor(ge[1:10], rto[1:10]);cor2

## [1] -0.9335073

#Correlacion datos del 1 al 15
cor3 = cor(ge[1:15], rto[1:15]);cor3

## [1] -0.9380866

Funcion correlacion

Correlacion = function(n){
x = 0
  for (i in seq(n)) {
     x = x  + 5 
     result = cor(ge[1:x], rto[1:x])
     print(result)
  }
  return(result)
}
Correlacion(20)

## [1] -0.9081194
## [1] -0.9335073
## [1] -0.9380866
## [1] -0.9555727
## [1] -0.9655093
## [1] -0.9669361
## [1] -0.9719621
## [1] -0.9646463
## [1] -0.9639843
## [1] -0.9684677
## [1] -0.9705237
## [1] -0.9709098
## [1] -0.9717293
## [1] -0.9735994
## [1] -0.9757558
## [1] -0.9784782
## [1] -0.9815406
## [1] -0.9811178
## [1] -0.9771738
## [1] -0.9642701

## [1] -0.9642701