R - Comprobado

> #EJERCICIOS DE PRACTICA CON R
> #OPERACIONES CON VECTORES
> #N°01 Queremos definir x=(1,2,3,4,5)
> x<-c(1,2,3,4,5)
>x
[1] 1 2 3 4 5
> x<-1:5
>x
[1] 1 2 3 4 5
> x<-seq(1,5)
>x
[1] 1 2 3 4 5
> #N°02 Define el vector y=(1,3,5,7) con la funcion c() y seq()
> y<-c(1,3,5,7)
>y
[1] 1 3 5 7
> y<-seq(1,7,2)
>y
[1] 1 3 5 7
> #N°03 Define los vectores x=(8,7,6,5) ; y=(3,3,3,3,3,3,3,3,2,2) ; z=(1,1.75,2.5,3.25,4)
> x<-8:5
>x
[1] 8 7 6 5
> x<-seq(8,5)
>x
[1] 8 7 6 5
> y<-rep(c(3,2),c(8,2))
>y
[1] 3 3 3 3 3 3 3 3 2 2
> z<-seq(1,4,length=5)
>z
[1] 1.00 1.75 2.50 3.25 4.00
> #N°04 como se definió el vector chica
> chica<-c("ana","maria","natalia","almudena")
> chica
[1] "ana" "maria" "natalia" "almudena"
> mode(chica)
[1] "character"
> #N°05 crear el vector x=(2,-5,4,6,-2,8), difine:y=(2,4,6,8),z=(-5,-2),v=(-5,4,6,-2,8),w=(2,4,-2)
> x<-c(2,-5,4,6,-2,8)
> y<-x[x>0]
>y
[1] 2 4 6 8
> z<-x[x<0]
>z
[1] -5 -2
> v<-x[-(1:1)]
>v
[1] -5 4 6 -2 8
> w<-x[c(T,F)]
>w
[1] 2 4 -2
> #N°06 construye el vector x=(3,log(-15),5) utiliza la funcion is.nan()
> x<-c(3,log(-15),5)
Warning message:
In log(-15) : Se han producido NaNs
> is.nan(x)
[1] FALSE TRUE FALSE
> #N°07 define x=(1,2,3,4,5,6),y=(7,8),z=(9,10,11,12) y cualcula:a)x+x,b)x+y,c)x+z
> x<-1:6
> y<-7:8
> z<-9:12
> x+x
[1] 2 4 6 8 10 12
> x+y #R ha sumado los impares de y con x, pares de y con x
[1] 8 10 10 12 12 14
> x+z #R va sumando elemento con elemento, los que sobran los vuelve a sumar con los valores inicales del segundo vector
[1] 10 12 14 16 14 16
Warning message:
In x + z :
longitud de objeto mayor no es múltiplo de la longitud de uno menor
> #ARRAAYS Y MATRICES
> #N°01 Define x=(1,2,3,4,5,6), apartir de dicho vector, construye matrices m1, m2, m3
> x<-1:6
> m1<-matrix(x,nrow=2,ncol=3)
> m1
[,1] [,2] [,3]
[1,] 1 3 5
[2,] 2 4 6
> m2<-matrix(x,nrow=3,ncol=2)
> m2
[,1] [,2]
[1,] 1 4
[2,] 2 5
[3,] 3 6
> m3<-matrix(x,nrow=2,byrow=T)
> m3
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 4 5 6
> m4<-cbind(m2,c(1,2,3))
> m4
[,1] [,2] [,3]

[1,] 1 4 1
[2,] 2 5 2
[3,] 3 6 3
> #N°02 ejecutar los comandos y explicar que pasa
> matrix(1:6,nrow=2) #ordena en dos fil. los 6 elementos de la matriz con sus tres col.correspondientes
[,1] [,2] [,3]
[1,] 1 3 5
[2,] 2 4 6
> matrix(1:6,nrow=4) #no crea la matriz porque 6 no es submultiplo o multiplo de las 4 filas que se quieren poner
[,1] [,2]
[1,] 1 5
[2,] 2 6
[3,] 3 1
[4,] 4 2
Warning message:
In matrix(1:6, nrow = 4) :
la longitud de los datos [6] no es un submúltiplo o múltiplo del número de filas [4] en la matriz
> matrix(1:6,nrow=4,ncol=4) #no crea la matriz porque 6 no es submultiplo o multiplo de las 4 fil. y 4 col. que se quieren poner
[,1] [,2] [,3] [,4]
[1,] 1 5 3 1
[2,] 2 6 4 2
[3,] 3 1 5 3
[4,] 4 2 6 4
Warning message:
In matrix(1:6, nrow = 4, ncol = 4) :
la longitud de los datos [6] no es un submúltiplo o múltiplo del número de filas [4] en la matriz
> #N°03 comprobar la diferencia de *,%*%,outer() en las matrices A=(2,1,3,4) y B=(3,8)
> x<-c(2,1,3,4)
> a<-matrix(x,nrow=2) #se crea la matriz A
>a
[,1] [,2]
[1,] 2 3
[2,] 1 4
> y<-c(3,8)
> b<-matrix(y)
>b
[,1]
[1,] 3
[2,] 8
> a*b #multiplica fila de a por fila de b
Error in a * b : arreglos de dimensón no compatibles
> a%*%b #no son compatibles
[,1]
[1,] 30
[2,] 35
> outer(a,b) #multiplica un elemento de B por todos los elementos de A y asi sucesivamente
, , 1, 1
[,1] [,2]
[1,] 6 9
[2,] 3 12
, , 2, 1
[,1] [,2]
[1,] 16 24
[2,] 8 32
> #N°04 A matriz de 2*3, B matriz de 3*4, C matriz de 2*3, tipo y dimension
> x<-2:7
> y<-4:15
> z<-6:11
> A<-matrix(x,nrow=2,ncol=3)
>A
[,1] [,2] [,3]
[1,] 2 4 6
[2,] 3 5 7
> dim(A)
[1] 2 3
> mode(A)
[1] "numeric"
> B<-matrix(y,nrow=3,ncol=4)
>B
[,1] [,2] [,3] [,4]
[1,] 4 7 10 13
[2,] 5 8 11 14
[3,] 6 9 12 15
> dim(B)
[1] 3 4
> mode(B)
[1] "numeric"
> C<-matrix(z,nrow=2,ncol=3)
>C
[,1] [,2] [,3]
[1,] 6 8 10
[2,] 7 9 11
> dim(C)
[1] 2 3
> mode(C)
[1] "numeric"
> A*B
Error in A * B : arreglos de dimensón no compatibles
> outer(A,B)
, , 1, 1
[,1] [,2] [,3]
[1,] 8 16 24
[2,] 12 20 28
, , 2, 1
[,1] [,2] [,3]
[1,] 10 20 30
[2,] 15 25 35
, , 3, 1
[,1] [,2] [,3]
[1,] 12 24 36
[2,] 18 30 42
, , 1, 2
[,1] [,2] [,3]
[1,] 14 28 42
[2,] 21 35 49
, , 2, 2
[,1] [,2] [,3]
[1,] 16 32 48
[2,] 24 40 56
, , 3, 2
[,1] [,2] [,3]
[1,] 18 36 54
[2,] 27 45 63
, , 1, 3
[,1] [,2] [,3]
[1,] 20 40 60
[2,] 30 50 70
, , 2, 3
[,1] [,2] [,3]
[1,] 22 44 66
[2,] 33 55 77
, , 3, 3
[,1] [,2] [,3]
[1,] 24 48 72
[2,] 36 60 84
, , 1, 4
[,1] [,2] [,3]
[1,] 26 52 78
[2,] 39 65 91
, , 2, 4
[,1] [,2] [,3]
[1,] 28 56 84
[2,] 42 70 98
, , 3, 4
[,1] [,2] [,3]
[1,] 30 60 90
[2,] 45 75 105
> A+2
[,1] [,2] [,3]
[1,] 4 6 8
[2,] 5 7 9
> A%*%B
[,1] [,2] [,3] [,4]
[1,] 64 100 136 172
[2,] 79 124 169 214
> exp(B)
[,1] [,2] [,3] [,4]
[1,] 54.59815 1096.633 22026.47 442413.4
[2,] 148.41316 2980.958 59874.14 1202604.3
[3,] 403.42879 8103.084 162754.79 3269017.4
> A*C
[,1] [,2] [,3]
[1,] 12 32 60
[2,] 21 45 77
> A%*%C
Error in A %*% C : argumentos no compatibles
> #ejercicios de grafica
> radio<-0:10
> area<-pi*radio^2
> tit<-"areas de circulos" #titulo del grafico
> plot(radio,area,tipe="b",main=tit,xlab="radio(r)",ylab=expression(area==pi*r^2),col="red",pch=20)
Warning messages:
1: In plot.window(...) : "tipe" is not a graphical parameter
2: In plot.xy(xy, type, ...) : "tipe" is not a graphical parameter
3: In axis(side = side, at = at, labels = labels, ...) :
"tipe" is not a graphical parameter
4: In axis(side = side, at = at, labels = labels, ...) :
"tipe" is not a graphical parameter
5: In box(...) : "tipe" is not a graphical parameter
6: In title(...) : "tipe" is not a graphical parameter
> participante<-
c("fulano","sutano","mengano","perengano","metano","etano","propano","butano","pentano","hexano","heptano","octano","
ciclopentano","enano","decano","hermano")
> transporte<-
c("aereo","terrestre","tren","maritimo","tren","tren","terrestre","terrestre","aereo","terrestre","maritimo","terrestre","aereo",
"terrestre","terrestre","aereo")
> info<-data.frame(participantes,transporte)
> info
participantes transporte
1 fulano aereo
2 sutano terrestre
3 mengano tren
4 perengano maritimo
5 metano tren
6 etano tren
7 propano terrestre
8 butano terrestre
9 pentano aereo
10 hexano terrestre
11 heptano maritimo
12 octano terrestre
13 ciclopentano aereo
14 enano terrestre
15 decano terrestre
16 hermano aereo
> class(info)
[1] "data.frame"
> class(info$transportes)
[1] "NULL"
> plot(info$transportes,las=2)
Error in plot.window(...) : se necesitan valores finitos de 'xlim'
Además: Warning messages:
1: In min(x) : ningún argumento finito para min; retornando Inf
2: In max(x) : ningun argumento finito para max; retornando -Inf
3: In min(x) : ningún argumento finito para min; retornando Inf
4: In max(x) : ningun argumento finito para max; retornando -Inf
> class(info$transporte)
[1] "factor"
> plot(info$transporte,las=2)
> plot(info$participantes,las=1)
> tt<-table(info$transporte)
> tt
aereo maritimo terrestre tren
4 2 7 3
> tt<-table(info$participantes)
> tt
butano ciclopentano decano enano etano fulano
1 1 1 1 1 1
heptano hermano hexano mengano metano octano
1 1 1 1 1 1
pentano perengano propano sutano
1 1 1 1
> barplot(tt)
> barplot(tt,las=2)
> pp<-sum(tt)
> pp
[1] 16
> rr<-tt/pp
> rr
butano ciclopentano decano enano etano fulano
0.0625 0.0625 0.0625 0.0625 0.0625 0.0625
heptano hermano hexano mengano metano octano
0.0625 0.0625 0.0625 0.0625 0.0625 0.0625
pentano perengano propano sutano
0.0625 0.0625 0.0625 0.0625
> tt<-table(info$transporte)
> tt
4 2 7 3
> pp<-sum(tt)
> pp
[1] 16
> rr<-tt/pp
> rr
0.2500 0.1250 0.4375 0.1875

>

R - Comprobado

Cargado por

Copyright:

Formatos disponibles

R - Comprobado

Cargado por

Información del documento

Descripción original:

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

R - Comprobado

Cargado por

Copyright:

Formatos disponibles

> #EJERCICIOS DE PRACTICA CON R

> #OPERACIONES CON VECTORES

> #N°01 Queremos definir x=(1,2,3,4,5)

> #N°02 Define el vector y=(1,3,5,7) con la funcion c() y seq()

> #N°03 Define los vectores x=(8,7,6,5) ; y=(3,3,3,3,3,3,3,3,2,2) ; z=(1,1.75,2.5,3.25,4)

> #N°04 como se definió el vector chica

[1] "ana" "maria" "natalia" "almudena"

> #N°05 crear el vector x=(2,-5,4,6,-2,8), difine:y=(2,4,6,8),z=(-5,-2),v=(-5,4,6,-2,8),w=(2,4,-2)

> #N°06 construye el vector x=(3,log(-15),5) utiliza la funcion is.nan()

In log(-15) : Se han producido NaNs

[1] FALSE TRUE FALSE

> #N°07 define x=(1,2,3,4,5,6),y=(7,8),z=(9,10,11,12) y cualcula:a)x+x,b)x+y,c)x+z

> x+y #R ha sumado los impares de y con x, pares de y con x

longitud de objeto mayor no es múltiplo de la longitud de uno menor

> #ARRAAYS Y MATRICES

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

> #N°02 ejecutar los comandos y explicar que pasa

[,1] [,2] [,3]

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

In matrix(1:6, nrow = 4, ncol = 4) :

> #N°03 comprobar la diferencia de *,%*%,outer() en las matrices A=(2,1,3,4) y B=(3,8)

> a<-matrix(x,nrow=2) #se crea la matriz A

> a*b #multiplica fila de a por fila de b

Error in a * b : arreglos de dimensón no compatibles

> a%*%b #no son compatibles

[,1] [,2] [,3]

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

[,1] [,2] [,3]

Error in A * B : arreglos de dimensón no compatibles

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

[,1] [,2] [,3]

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

[1,] 64 100 136 172

[2,] 79 124 169 214

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

[1,] 54.59815 1096.633 22026.47 442413.4

[2,] 148.41316 2980.958 59874.14 1202604.3

[3,] 403.42879 8103.084 162754.79 3269017.4

[,1] [,2] [,3]

Error in A %*% C : argumentos no compatibles

> #ejercicios de grafica

> tit<-"areas de circulos" #titulo del grafico

1: In plot.window(...) : "tipe" is not a graphical parameter

2: In plot.xy(xy, type, ...) : "tipe" is not a graphical parameter

3: In axis(side = side, at = at, labels = labels, ...) :

"tipe" is not a graphical parameter

4: In axis(side = side, at = at, labels = labels, ...) :

"tipe" is not a graphical parameter

> #N°03 comprobar la diferencia de ,%%,outer() en las matrices A=(2,1,3,4) y B=(3,8)