VECTORES III. Secuencias, repeticiones y operaciones

########################################################################
###   Vectores III - Secuencias, repeticiones, paste y operaciones   ###
########################################################################


####################
# Secuencias. ?seq #
####################

seq(from=1, to=10, by=1) # Secuencia de números desde el 1 al 10 con incrementos de 1.

seq(from=1, to=10, by=0.5) # Secuencia de números desde el 1 al 10 con incrementos de 0.5.

seq(1,10,0.5) # Igual que el anterior. Cuando ya estemos muy familiarizados.

seq(1,10) # Si no especificamos la cantidad incrementada, R toma por defecto 1.

seq(from=0, to=-10, by=-0.5) # Secuencia de números desde el 1 al 10 con incrementos de 0.5.

seq(0,10, length=20) # Pedimos un vector de longitud 10, con valores entre el 1 y el 10, ambos incluidos.


######################
# Repeticiones. ?rep #
######################

rep(1, times=10) # Repetición del número 1, cinco veces.

rep(1,10)  # Igual que el anterior. Cuando ya estemos muy familiarizados.

rep("Tesis 1", times=10) # Repetición del texto "Tesis 1", diez veces.

rep(1:5, times=4) # Repetición de la secuencia del 1 al 5, cuatro veces.

rep(seq(from=2, to=10, by=2), times=3) # Repetición de la secuencia del 1 al 10, con incrementos de 2,
                                        # 3 veces.

rep(c("Tesis 1","Tesis 2"), times=10) # Repetición del vector c("Tesis 1","Tesis 2"), 10 veces


######################################################
# Combinar números y caracteres con funcion "paste". #
######################################################

paste("Tesis", 1:10)

paste("Tesis", 1:10, sep = "")

paste("Tesis", 1:10, sep = "-")

paste("Tesis", c(1,2,3,4,5,6,7,8,9,"Control"))

paste("Tesis", c(1:9,"Control"))


############################
# Operaciones con vectores #
############################

kg = c(10,15,14,12,19,8,17,13,16,16) # Hemos pesado la producción de 10 parcelas
m2 = c(2,3,3,2,2,3,2,3,2,3) # Superficie de cada parcela

kg-1 # Quitamos la tara de la caja en la que pesamos cada muestra (1 kg).
     # Podríamos multiplicar, restar o dividir por cualquier número.

kg.neto = kg-1 # Si queremos almacenar la información en un vector

# También podemos hacer las mismas operaciones entre los elementos correspondientes de cada objeto
# siempre que tengan las misma longitud.

kg.neto/m2
Prod.m2 = round (kg.neto/m2, 2) # Para redondear el resultado a dos decimales y guardarlos en un objeto.

# Si los vectores tuvieran distinta longitud, el más pequeño se iría repitiendo para hacer
# las operaciones

vector.corto = c(10,1)
m2*vector.corto