Datos truncados

Datos truncados

Envié tarde el archivo pero en el perfil de mi compañera se encuentra la segunda parte de las coordenadas de las universidades públicas

set.seed(2016)
Matriz<-replicate(5000, rnorm(100,10,2))

dim(Matriz)

## [1]  100 5000

class(Matriz)

## [1] "matrix" "array"

Truncando

trunc_1 = matrix(nrow = 63, ncol = 5000)
trunc_2 = matrix(nrow = 95, ncol = 5000)
trunc_3 = matrix(nrow = 50, ncol =5000)

Ordenamos

for(i in 1:dim(Matriz)[2]){
  r = sort(Matriz[,i])
  trunc_1[,i] = r[4:66]
  trunc_2[,i] = r[6:100]}

Covarianza<-cov(Matriz)
Cov1<-cov(trunc_1)
Cov2<-cov(trunc_2)

Determinante<-det(Covarianza)
Det1<-(Cov1)
Det2<-(Cov2)