——————————————————————

Inciso 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

Inciso 2. Calcula estadísticas simples de x. Calcular la media, la desviación estándar y la varianza. Crear un objeto (vector) con el nombre est.x en el que guardar los 3 estadísticos.

##media
mean(x)
## [1] 7
##varianza
var(x)
## [1] 28.4
##desviacion
sd(x)
## [1] 5.329165

Inciso 3. 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.

seq(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(seq(20,60))
## [1] 40
sum(seq(51,91))
## [1] 2911

Inciso 4. Escribe un programa R para crear un vector que contenga 10 valores enteros aleatorios entre -100 y +50. Revisa la función sample

(https://www.rdocumentation.org/packages/base/versions/3.6.2/topics/sample)

sample(-100:50,10)
##  [1] -83 -92  13 -70  15  46 -74   2 -95 -30

Inciso 5. Escribe un programa R para obtener los primeros 10 números de Fibonacci. Como código base tienes: fufb <- numeric(10) fb[1] <- fb[2] <- 1

(https://www.ecured.cu/N%C3%BAmeros_de_Fibonacci)

a = 0
b = 1
for (i in 1:10)
  {
  c = b
  b = a
  a = a+c
  print(a)
  }
## [1] 1
## [1] 1
## [1] 2
## [1] 3
## [1] 5
## [1] 8
## [1] 13
## [1] 21
## [1] 34
## [1] 55

Inciso 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)

x = c(10,20,30,4,50,-60)
max = max(x)
min = min(x)
max
## [1] 50
min
## [1] -60

Inciso 7. Escribe una función R para multiplicar dos vectores de tipo entero y longitud n, de la misma longitud ambos.

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

multiplica = function(a,b)
{
  a * b
}
multiplica(c(10,20),c(3,4))
## [1] 30 80

Inciso 8. Escribe una función R para contar el valor específico en un vector dado.

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

contar = function(val,num)
{
  x = 0
  for(i in val)
  {
    if(i == num)
    x =x + 1
  }
  x
}
print(contar(c(10,20,10,7,24,7,5),7))
## [1] 2

Inciso 9. Escribe una función en R para extraer cada enésimo elemento de un vector dado. Un prueba es:

a. v <- 1:100

b. enesimo(v, 5)

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

enesimo = function(vector, interlineado)
{
  vector2 = seq(min(vector),max(vector),by = interlineado)
  vector2
}
v = 1:100
enesimo(v,5)
##  [1]  1  6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96