R para DataScience, Tarea N°1

CTIC - UNIVERSIDAD NACIONAL DE INGENIERIA

Programación en R para DataScience

Perfil Linkelind

Google Drive

Presentación del Codigo - Pregunta 1

> #Defina un Vector de Tamaño 20
> Vector<-c(15,18,10,25,12,16,14,18,19,15,10,12,13,14,15,16,17,17,15,20)
> Vector
 [1] 15 18 10 25 12 16 14 18 19 15 10 12 13 14 15 16 17 17 15 20
> length(Vector)
[1] 20
> #Calcule la suma de cuadrados del vector
> sum(Vector^2)
[1] 5073
> #Determinando la Cantidad de Intervalos
> K=1+3.3*log10(length(Vector))
> K
[1] 5.293399
> K=round(K,0)
> K
[1] 5

Presentación del Codigo - Pregunta 2

> #Determinar una Serie de Razón R=5 con un termino inicial de 15 y valor final de 50 
> Serie<-seq(15,50,by=5)
> Serie
[1] 15 20 25 30 35 40 45 50
> #Determinar la suma de la Serie
> sum(Serie)
[1] 260

Presentación del Codigo - Pregunta 3

> #Defina una matriz de 3x3
> matriz<-matrix(78:86,nrow=3,ncol=3)
> matriz
     [,1] [,2] [,3]
[1,]   78   81   84
[2,]   79   82   85
[3,]   80   83   86
> #Evaluar Diagonal, Traza y Transpuesta
> #Diagonal Principal
> diag(matriz)
[1] 78 82 86
> #Traza
> sum(diag(matriz))
[1] 246
> #Transpuesta
> t(matriz)
     [,1] [,2] [,3]
[1,]   78   79   80
[2,]   81   82   83
[3,]   84   85   86

Presentación del Codigo - Pregunta 4

> #Defina 2 matrices de 2x2
> matriz1<-matrix(1:4,nrow=2,ncol=2)
> matriz2<-matrix(4:7,nrow=2,ncol=2)
> matriz1
     [,1] [,2]
[1,]    1    3
[2,]    2    4
> matriz2
     [,1] [,2]
[1,]    4    6
[2,]    5    7
> #Suma
> matriz1+matriz2
     [,1] [,2]
[1,]    5    9
[2,]    7   11
> #Resta
> matriz1-matriz2
     [,1] [,2]
[1,]   -3   -3
[2,]   -3   -3