# Matrices

m<-matrix(c(2,3,5,7,1,3,5,7),2)#lo hace por fila
m

m<-matrix(c(2,3,5,7,1,3,5,7),ncol=2)#lo hace por columna
m

x<-runif(15)
x


matrix(x,nrow=3,ncol=5)#lo hace por columna

matrix(x,3,5,byrow=T)

x<-1:4
matrix(x,3,2)#termina de completar y muestra mensaje

#Otra forma

x<-c(2,3,5,7)
dim(x)
y<-c(1,3,5,7)
dim(y)
m3=cbind(x,y)# por columna
dim(m3)

rbind(x,y)#por fila
t(rbind(x,y))#traspongo

#Como accedo a los elementos de una matriz
m3[,1] 
m3[2,]
m3[3,1]
m3[2,3]#me da error
m3[,]#me devuelve la matriz


z <- scan()

#Operaciones 

x<-1:15

m1<-matrix(x,nrow=3,ncol=5)

m2<-matrix(1/x,nrow=3)

m1+m2

m1*m2 #Que hace?

dim(m1)
dim(m2)

m1%*%t(m2)



t(m1)%*%m2

solve(m1)

m4<-matrix(runif(16),ncol=4)
m4
solve(m4)
round(m4%*%solve(m4),0)#round especifica las cifras decimales

det(m4)#calcula el determinante

#Que pasa si la matriz es singular?

m5<-matrix(rep(1:4,4),nrow=4)
m5
solve(m5)

m4
apply(m4,2,mean)
apply(m4,2,sum)
apply(m4,2,+)#da error

#para suma y medias existe otra función

colSums (m4)
rowSums (x, na.rm = FALSE, dims = 1, ...)
colMeans(m4)
rowMeans(x, na.rm = FALSE, dims = 1, ...)



#Listas

Al<- c('Ana','Juan','Tomas')
nota1<-c(10,4,8)
nota2<-c(8,7,NA)
Est<-list(Al,nota1,nota2)
Est

data.class(Est)

data.class(m4)

#Como leemos archivos?

#Con 
 getwd()

#Compruebo en que directorio estoy.

#Para leer archivos de texto

read.table("ozono.txt",header=T)
 
#Asigno los datos al data frame ozon
 
ozon <- read.table("ozono.txt",header=T)

data.class(ozon)

mean(ozon)

#para hacer cambios desde R

ozn2 <- edit(ozon)

#Asigno los cambios realizados al editar a ozn2.

#Al usar fix quedan los cambios en ozon

fix(ozn2)
mean(ozn2)#el default no permite elementos faltantes

mean(ozn2,na.rm=T)


#Otra forma de usar edit

ozono=edit(read.table("ozono.txt",header=T))

#Si asigno nombre con edit funcionan los cambios, con fix, no necesito poner  nombres


************************* Otra forma************************

ozg<-read.table(file.choose(),header=T)

#leo los datos pero no genero un objeto con ellos

#Elijo el archivo 


#********************************************************************
#Para leer archivos excel


#1. Exportar desde el excel al formato csv,
#2.  Lo mejor es usar file.choose en vez de poner el nombre del archivo:

datos <- read.csv2(file.choose())#excel en español
datos <- read.csv(file.choose())#excel en inglés

datos <- read.csv2(file.choose())
data.class(datos)
mean(datos)