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 <- rep(seq(0,4), each = 5)

x1

 [1] 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

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

x2 <- rep(seq(5,1),4)

x2

 [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 columnas.
• Llenando los datos por columna.

A <- matrix(data = x2, nrow = 4, ncol = 3, byrow = FALSE)

A

     [,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 y explique que pasa en cada caso.

• A[1,1:3]
• A[1:4,2]
• A[3,3]
• A[11]
• A[20]
• A[5,4]
• A[-3,]

## Se despliega de la primera fila, las observaciones de la columna 1era hasta la 3era 
A[1,1:3]

[1] 5 1 2

## Se despliega la información de las filas 1 a la 4, presentes en la columna 2
A[1:4,2]

[1] 1 5 4 3

## Se despliega la observación en la posición de la fila 3, columna 3
A[3,3]

[1] 5

## R cuenta los valores de la matriz secuencialmente (como en un solo vector) 
## y devuelve la pocisión solicitada
A[11]

[1] 5

## En este caso el resultado que busca no existe en la matriz ya que en la misma solo hay 12 valores
A[20]

[1] NA

## En este caso el resultado da error por que la fila 5 y la columna 4 no exsten en la matriz. 
## El reporte Knit no se puede generar con este error presente. 
## Para eso se especifica la opción en el enunciado del chunk error = TRUE
A[5,4]

Error in A[5, 4]: subscript out of bounds

## Visualiza la matriz sustrayendo los valores especificados en el comando, 
## en este caso la línea 3 ha sido omitida de los resultados
A[-3,]

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

Recopile la información de su grupo referente a:

PARA LOS MIEMBROS DEL GRUPO: POR FAVOR INTRODUZCA LOS DATOS SOLICITADOS EN EL SIGUIENTE ESQUEMA

- Edad

- Empresa

- Nombre

- Profesión (no utilice tildes).

• TONY:

• Edad: 35

• Empresa: Neustar

• Nombre: Anthony Alfaro

• Profesion: Geolocation Analyst

• PAULO:

• Edad:32

• Empresa:Neustar

• Nombre: Paulo Rojas

• Profesion: IP Intel Analyst

• LUIS:

• Edad:29

• Empresa:Neustar

• Nombre: Luis Ramirez

• Profesion: Geolocation Analyst

• RONY:

• Edad:28

• Empresa:Neustar

• Nombre: Rony Ledezma

• Profesion: Prod Support

• DANIEL:

• Edad:35

• Empresa:Neustar

• Nombre: Daniel Monge

• Profesion: IP Intel Analyst

xName<- factor(c("Tony","Paulo","Luis","Rony","Daniel"), levels=c("Tony","Paulo","Luis","Rony","Daniel"))
xName

[1] Tony   Paulo  Luis   Rony   Daniel
Levels: Tony Paulo Luis Rony Daniel

xEdad <- c(35, 32, 29, 28, 35)
xEdad

[1] 35 32 29 28 35

xEmpresa <- c(rep("Neustar", 5))
xEmpresa

[1] "Neustar" "Neustar" "Neustar" "Neustar" "Neustar"

xJob<- c("Geolocation Analyst","IP Intel Analyst","Geolocation Analyst","Prod Support","IP Intel Analyst")
xJob

[1] "Geolocation Analyst" "IP Intel Analyst"    "Geolocation Analyst"
[4] "Prod Support"        "IP Intel Analyst"   

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.

x6 <- data.frame(Nombre = xName, Edad = xEdad, Empresa = xEmpresa, Profesion = xJob)

Visualice los datos registrados.

x6

  Nombre Edad Empresa           Profesion
1   Tony   35 Neustar Geolocation Analyst
2  Paulo   32 Neustar    IP Intel Analyst
3   Luis   29 Neustar Geolocation Analyst
4   Rony   28 Neustar        Prod Support
5 Daniel   35 Neustar    IP Intel Analyst

Visualice la estructura de los datos recopilados.

str(x6)

'data.frame':   5 obs. of  4 variables:
 $ Nombre   : Factor w/ 5 levels "Tony","Paulo",..: 1 2 3 4 5
 $ Edad     : num  35 32 29 28 35
 $ Empresa  : Factor w/ 1 level "Neustar": 1 1 1 1 1
 $ Profesion: Factor w/ 3 levels "Geolocation Analyst",..: 1 2 1 3 2

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

xLista <- list(x1, x2, xName, xEdad, xEmpresa, xJob, x6)

xLista

[[1]]
 [1] 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

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

[[3]]
[1] Tony   Paulo  Luis   Rony   Daniel
Levels: Tony Paulo Luis Rony Daniel

[[4]]
[1] 35 32 29 28 35

[[5]]
[1] "Neustar" "Neustar" "Neustar" "Neustar" "Neustar"

[[6]]
[1] "Geolocation Analyst" "IP Intel Analyst"    "Geolocation Analyst"
[4] "Prod Support"        "IP Intel Analyst"   

[[7]]
  Nombre Edad Empresa           Profesion
1   Tony   35 Neustar Geolocation Analyst
2  Paulo   32 Neustar    IP Intel Analyst
3   Luis   29 Neustar Geolocation Analyst
4   Rony   28 Neustar        Prod Support
5 Daniel   35 Neustar    IP Intel Analyst

Instale y cargue el paquete swirl.

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

Este paquete (SWIRL) es un tutor inteligente que permite, a travez de instrucciones y practicas, el aprendizaje comprensivo del lenguaje R y sus funciones y comandos. A travez de este paquete se puede ir descargando diferentes cursos, y realizarlos de manera interactiva en la misma plataforma de R. Esto permite la comprensión y desarrollo de los temas de forma paulatina y práctica, asegurandose de que el usuario avanza conforme a los temas y practicas se realizan exitosamente.

install.packages("swirl")
library(swirl)