Instrucciones:

  1. Crear un vector x con los datos 10, 11, 13, -1, 6,3
x <- c(10, 11, 13, -1, 6,3)
x
## [1] 10 11 13 -1  6  3
  1. Calcula estadísticas simples de x. Calcular la media, la desviación estándar y la varianza. Crear un objeto (tipo vector) con el nombre est.x en el que guardar los 3 estadísticos.
ext.x <- c(media = mean(x), ds = sd(x), varianza = var(x))
  1. Escribe un programa R para crear una secuencia de números del 20 al 50 y encuentre la media de los números del 20 al 60 y la suma de los números del 51 al 91. Tip: utiliza las funciones de R.
20:50
##  [1] 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
## [26] 45 46 47 48 49 50
mean(20:60)
## [1] 40
sum(51:91)
## [1] 2911
  1. Escribe un programa R para crear un vector que contenga 10 valores enteros aleatorios entre -100 y +50. Revisa la función sample.
sample(-100:50, 10)
##  [1] -31 -84 -47   8  46 -51 -14  19  28  27
  1. Escribe un programa R para obtener los primeros 10 números de Fibonacci. Como código base tienes:
fufb <- numeric(10)
fufb[1] <- fufb[2] <- 1

for(i in 3:10) {
  fufb[i] <- fufb[i-1] + fufb[i-2]
}

fufb
##  [1]  1  1  2  3  5  8 13 21 34 55

Practica usando un for para terminar tu código.

6.  Escribe un programa R para encontrar el valor máximo y mínimo de un vector dado. Debes probar con:

a. c(10, 20, 30, 4, 50, -60)
b. c(-10, 20, 30, 4, 50, 60)
maxmin <- function(x){c(maximo = max(x), minimo = min(x))} # completa argumentos y codido de la función
maxmin(c(10, 20, 30, 4, 50, -60)) # prueba la función con a
## maximo minimo 
##     50    -60
maxmin(c(-10, 20, 30, 4, 50, 60)) # prueba la función con b
## maximo minimo 
##     60    -10
  1. Escribe una función R para multiplicar dos vectores de tipo entero y longitud n, de la misma longitud ambos.

multiplica(c(10, 20), c(3,4)) # salida: [1] 30 80

multiplica <- function(x,y){x * y} # completa argumentos y codido de la función
multiplica(c(10, 20), c(3,4)) # prueba la función
## [1] 30 80
  1. Escribe una función R para contar el valor específico en un vector dado.

cuenta(c(10, 20, 10, 7, 24,7, 5),7) # salid a: [1] 2

cuenta <- function(x, y){sum(x==y)} # completa argumentos y codido de la función
cuenta(c(10, 20, 10, 7, 24,7, 5),7) # prueba la función
## [1] 2
  1. Escribe una función en R para extraer cada enésimo elemento de un vector dado. Un prueba es:
  1. v <- 1:100
  2. enesimo(v, 5)

  3. Salida: [1] 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96

v <- 1:100

enesimo <- function(v,y){seq(from = v[1], to = v[length(v)],by = y)} # completa argumentos y codido de la función
enesimo(v, 5) # prueba la función
##  [1]  1  6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96