x <- c(1, 3 ,2,5)
x
x[1] #accedo a la primera posicion
x[2] #accedo a la segunda posicion
x[3]
x[4]
x[5] # accedo a una poción que no tiene la lista, ma pasé, se rompe

y = x # el igual se yusa para definir una variable 
y
x[1] == y[1] # el doble igual se usa para comparar 
x[1] == y[2] 
y==x # si comparamos listas, se comparan elemento a elemento

length(x) # la longitud de la lista
length(y)

x[1] + y[1] # sumo enteros

x + y # si sumamos listas , suma elemento a elementos
z=x + y

sum(z) # para sumar todos elementos esta la funcion sum()

# queremos la media
sum(z)/length(z) # el simbolo "/" es la diviion
mi_media_z = sum(z)/length(z)

su_media_z = mean(z) # clacula la media magicamente 

mi_media_z == su_media_z # quiero ver si mi media es la misma que la de R

ls() # es una funcion que no recibe parametros. Y dice que variables tenemos defnidas

lista_de_variables = ls() # esto tambien lo podemos guardar en una variable

lista_de_variables # esto es una lista
# antes teniamos una lista de enteros, o numeros
# ahora tenemos una lista de strings (lista de textos)
length(lista_de_variables)

lista_de_variables[length(lista_de_variables)] # accedo al último elemento de la lista usnado la longitud de la lista

z # aca la variable zeta esta definida
rm(z) # borrando la variable z
z # aca la variable z no esta definida
ls() # ahora tenemos una variable menos
length(ls()) != length(lista_de_variables)  # != representa "son distintos"
6!=7
6==7
6==7-1
length(ls()) == length(lista_de_variables)-1

# que hace rm() ???? Mirar Help
# 
rm(list = ls()) # notar en la descripcion que list es una parametro de la funcion
ls() # notar que ya no hay variables definidas

edadesPosibles = seq(0,120,by=10)

sample(edadesPosibles) # sample saca de la bolsa edadesPosibles todos los elemetos al azar
# mirar el help y ver los parametros
sample(edadesPosibles) # siempre los saca aleatoriamentre 

set.seed(3) # si fijamos la semilla de generacion de numeros aleatorios
sample(edadesPosibles) # este sample siempre es el mismo
set.seed(3)
sample(edadesPosibles)


edadesPosibles[-3] # saco el elemento de la posicion 3
edadesPosibles!=20 # comparo todos los elementos de la lista
edadesPosibles<100
losQueMeQuieroQuedar = edadesPosibles<100
edadesPosibles[losQueMeQuieroQuedar] # sco el elemento de la posicion 3
edadesPosibles[edadesPosibles >20 & edadesPosibles<100 ]

matrizVacia22 = matrix(nrow =2 , ncol =2)

ceros22 = matrix( 0 , nrow =2 , ncol =2)
ceros22[2,2]    # accedo a un elemento de la matriz, lo miro
ceros22[2,2] = 4 # aca lo modifico
ceros22 # tengo la matriz modificada

ceros22[2,]  #accedemos a la fila 2

ceros22[1,2] = 3 # aca lo modifico
ceros22
ceros22[,2]  #accedemos a la columna 2

personas = matrix(nrow=4,ncol=2)
rownames(personas) = c("Leopoldo", "Rocio", "El cumpleañero", "y alquien")
colnames(personas) = c("Edad", "Altura")
personas

personas["Leopoldo",] 
personas["Leopoldo",] =c(24,1.67)
personas
personas[1,] 

personas[-3,] # saco la fila 3
personas[-c(3,4),]
personas[seq(4)<3,]