Ejercicios

Use rep() y seq() para generar un vector con los siguientes elementos:0 0 0 0 0 1 1 1 1 1 2 2 2 2 2 3 3 3 3 3 4 4 4 4 4.

x1 <- 0:4
x2 <- rep(x1,5)
x2

##  [1] 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4

Use rep() y seq() para crear un vector con los siguientes elementos:5 4 3 2 1 5 4 3 2 1 5 4 3 2 1 5 4 3 2 1.

x3 <- 5:1
x4 <- rep(x3,4)
x4

##  [1] 5 4 3 2 1 5 4 3 2 1 5 4 3 2 1 5 4 3 2 1

Introduzca en R una matriz A usando: - Los datos del ejercicio 2 - Arreglo de 4 filas X 3 xcolumnas. -Llenando los datos por columna.

matriz1<- matrix(data=x4,nrow=4,ncol= 3,byrow=FALSE)

## Warning in matrix(data = x4, nrow = 4, ncol = 3, byrow = FALSE): data
## length [20] is not a sub-multiple or multiple of the number of columns [3]

matriz1

##      [,1] [,2] [,3]
## [1,]    5    1    2
## [2,]    4    5    1
## [3,]    3    4    5
## [4,]    2    3    4

Acceda a los algunos elementos de la matriz de la siguiente manera: A[1,1:3], A[1:4,2], A[3,3], A[11], A[20],A[5,4], A[-3,] y explique que pasa en cada caso.

matriz1[1,1:3]

## [1] 5 1 2

Nos muestra la linea 1 con los datos de las columnas de la 1 a la 3.

matriz1[1:4,2]

## [1] 1 5 4 3

Nos muestra las lineas de 1 a 4 de la columna 2.

matriz1[3,3]

## [1] 5

Nos muestra el valor de linea 3 y columna 3.

matriz1[11]

## [1] 5

Nos muestra el valor del espacio numero 11 contando los datos por columna.

matriz1[20]

## [1] NA

No existe el valor ya que la matriz solo contiene 12 datos.

Da error ya que no existe la linea 5 y la columna 4.

matriz1[-3,]

##      [,1] [,2] [,3]
## [1,]    5    1    2
## [2,]    4    5    1
## [3,]    2    3    4

Se elimino la linea linea 3 y la linea 4 la sustituye la linea eliminada.

Recopile la información de su grupo referente a - Edad - Empresa - Nombre - Profesión(no utilice tildes).

Edad <- factor(c(35,43,27,30))
Empresa <- factor(c("Wipro", "DXC", "ICE", "VM"))
Nombre <- factor(c("MariaJ", "Viviana", "Daniel", "Diego"))
Profesion <- factor(c("Administracion", "Administracion", "IngenieroElectrico", "Administracion"))

Introduzca según el tipo de datos adecuado a base de código R en un DataFrame la información recopilada en el punto anterior.

datos <- data.frame(edad = Edad, empresa = Empresa, nombre = Nombre, profesion = Profesion)

Visualice los datos registrados.

datos

##   edad empresa  nombre          profesion
## 1   35   Wipro  MariaJ     Administracion
## 2   43     DXC Viviana     Administracion
## 3   27     ICE  Daniel IngenieroElectrico
## 4   30      VM   Diego     Administracion

Visualice la estructura de los datos recopilados.

str(datos)

## 'data.frame':    4 obs. of  4 variables:
##  $ edad     : Factor w/ 4 levels "27","30","35",..: 3 4 1 2
##  $ empresa  : Factor w/ 4 levels "DXC","ICE","VM",..: 4 1 2 3
##  $ nombre   : Factor w/ 4 levels "Daniel","Diego",..: 3 4 1 2
##  $ profesion: Factor w/ 2 levels "Administracion",..: 1 1 2 1

Segun la estructura se registran 4 objetos de 4 variables

Compile en una sola lista los objetos creados para resolver los ejercicios anteriores.

lista1<-list(vector1=x1,vector2=x2,vector3=x3,vector4=x4,matriz=matriz1,dataframe=datos)
lista1

## $vector1
## [1] 0 1 2 3 4
## 
## $vector2
##  [1] 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4
## 
## $vector3
## [1] 5 4 3 2 1
## 
## $vector4
##  [1] 5 4 3 2 1 5 4 3 2 1 5 4 3 2 1 5 4 3 2 1
## 
## $matriz
##      [,1] [,2] [,3]
## [1,]    5    1    2
## [2,]    4    5    1
## [3,]    3    4    5
## [4,]    2    3    4
## 
## $dataframe
##   edad empresa  nombre          profesion
## 1   35   Wipro  MariaJ     Administracion
## 2   43     DXC Viviana     Administracion
## 3   27     ICE  Daniel IngenieroElectrico
## 4   30      VM   Diego     Administracion

Instale y cargue el paquete swirl.Indique su utilidad y además brinde una pequeña guía de uso del paquete.

install.packages(“swirl”)
library(“swirl”)

swirl* Es una plataforma de aprendizaje y enseñanza interactiva de estadistica en R.

Reporte Clase 1

Ejercicios

Bonus