Objetos Creacion de vectores

#Creacion de Vectores
v1 = c(1,2,3)
v2 = c(4,5,6)
v3 =v1 + v2
v3
[1] 5 7 9

Construccion de matrices

#Construccion de matrices
m1= matrix(1:9,nrow = 3,ncol = 3)
m1
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9
#seleccionar elementos matrices
m1[1,3]
[1] 7
#operaciones con matrices
m1*2
     [,1] [,2] [,3]
[1,]    2    8   14
[2,]    4   10   16
[3,]    6   12   18
m2=m1*m1
m2
     [,1] [,2] [,3]
[1,]    1   16   49
[2,]    4   25   64
[3,]    9   36   81

Listas

list(v1,v2,m2)
[[1]]
[1] 1 2 3

[[2]]
[1] 4 5 6

[[3]]
     [,1] [,2] [,3]
[1,]    1   16   49
[2,]    4   25   64
[3,]    9   36   81

Dataframe

class(datos1)
[1] "data.frame"
datos3=as.data.frame(m2)
datos3
#cambiar nombres de las columnas
colnames(datos3)=c("Var1","var2","Var3")
datos3

Seleccionar datos

str(iris)
'data.frame':   150 obs. of  5 variables:
 $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
 $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
 $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
 $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
 $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...
head(iris,5)
iris["Sepal.Length"]
#Seleccionar varias a las vez
iris[c("Sepal.Length","Species")]
#seleccionar bajo una condicion
subset(iris,iris$Sepal.Length>5.2)
#seleccionar bajo varias condiciones
subset(iris,iris$Sepal.Length>5.2 & iris$Species == "setosa")
#otras maneras
iris[c(2,4,6),c(1,3)]
#otras maneras
iris[1:5,c(1,3)]

Construccion de Funciones

#Mi primera funcion
MiFuncion = function(edad){
  datos4 = read.csv("datos.csv",header=TRUE, sep=",")
  datos4$mayor = datos4$Edad >edad
  datos4
}
MiFuncion(22)
#Mi segunda funcion
# Definir una función para sumar dos números e imprimir el resultado
sumar_dos_numeros_imprimir <- function(numero1, numero2) {
  suma <- numero1 + numero2
  print(paste("La suma de", numero1, "y", numero2, "es:", suma))
}

# Utilizar la función con dos números
sumar_dos_numeros_imprimir(36, 7)

Ejercicio “Suma Cuadrados”

Crea una función llamada suma_cuadrados que tome dos números como entrada, calcule el cuadrado de cada número, sume los cuadrados y luego imprima el resultado de la suma.

Pasos a seguir:

Define la función suma_cuadrados con dos parámetros de entrada: numero1 y numero2.

Dentro de la función, calcula el cuadrado de numero1 y numero2 por separado. Suma los cuadrados obtenidos en el paso anterior.

Imprime el resultado de la suma de los cuadrados con un mensaje claro, indicando qué se está mostrando.

LS0tDQp0aXRsZTogIlIgT2JqZXRvcyBZIGZ1bmNpb25lcyINCm91dHB1dDoNCiAgaHRtbF9ub3RlYm9vazogDQogICAgdG9jOiB5ZXMNCiAgaHRtbF9kb2N1bWVudDoNCiAgICBkZl9wcmludDogcGFnZWQNCiAgcGRmX2RvY3VtZW50OiBkZWZhdWx0DQplZGl0b3Jfb3B0aW9uczogDQogIGNodW5rX291dHB1dF90eXBlOiBjb25zb2xlDQotLS0NCioqKk9iamV0b3MqKioNCkNyZWFjaW9uIGRlIHZlY3RvcmVzDQpgYGB7cn0NCnYxID0gYygxLDIsMykNCnYyID0gYyg0LDUsNikNCmBgYA0KYGBge3J9DQp2MyA9djEgKyB2Mg0KdjMNCmBgYA0KQ29uc3RydWNjaW9uIGRlIG1hdHJpY2VzDQpgYGB7cn0NCm0xPSBtYXRyaXgoMTo5LG5yb3cgPSAzLG5jb2wgPSAzKQ0KbTENCmBgYA0KYGBge3J9DQojc2VsZWNjaW9uYXIgZWxlbWVudG9zIG1hdHJpY2VzDQptMVsxLDNdDQpgYGANCmBgYHtyfQ0KI29wZXJhY2lvbmVzIGNvbiBtYXRyaWNlcw0KbTEqMg0KYGBgDQpgYGB7cn0NCm0yPW0xKm0xDQptMg0KYGBgDQpMaXN0YXMNCmBgYHtyfQ0KbGlzdCh2MSx2MixtMikNCmBgYA0KDQpEYXRhZnJhbWUNCmBgYHtyfQ0KY2xhc3MoZGF0b3MxKQ0KYGBgDQpgYGB7cn0NCmRhdG9zMz1hcy5kYXRhLmZyYW1lKG0yKQ0KZGF0b3MzDQpgYGANCg0KYGBge3J9DQojY2FtYmlhciBub21icmVzIGRlIGxhcyBjb2x1bW5hcw0KY29sbmFtZXMoZGF0b3MzKT1jKCJWYXIxIiwidmFyMiIsIlZhcjMiKQ0KZGF0b3MzDQpgYGANCg0KU2VsZWNjaW9uYXIgZGF0b3MNCmBgYHtyfQ0Kc3RyKGlyaXMpDQpoZWFkKGlyaXMsNSkNCmBgYA0KYGBge3J9DQojc2VsZWNjaW9uYXIgdW5hIGVuIHBhcnRpY3VsYXINCmlyaXNbIlNlcGFsLkxlbmd0aCJdDQpgYGANCmBgYHtyfQ0KI1NlbGVjY2lvbmFyIHZhcmlhcyBhIGxhcyB2ZXoNCmlyaXNbYygiU2VwYWwuTGVuZ3RoIiwiU3BlY2llcyIpXQ0KYGBgDQpgYGB7cn0NCiNzZWxlY2Npb25hciBiYWpvIHVuYSBjb25kaWNpb24NCnN1YnNldChpcmlzLGlyaXMkU2VwYWwuTGVuZ3RoPjUuMikNCmBgYA0KYGBge3J9DQojc2VsZWNjaW9uYXIgYmFqbyB2YXJpYXMgY29uZGljaW9uZXMNCnN1YnNldChpcmlzLGlyaXMkU2VwYWwuTGVuZ3RoPjUuMiAmIGlyaXMkU3BlY2llcyA9PSAic2V0b3NhIikNCmBgYA0KYGBge3J9DQojb3RyYXMgbWFuZXJhcw0KaXJpc1tjKDIsNCw2KSxjKDEsMyldDQpgYGANCmBgYHtyfQ0KI290cmFzIG1hbmVyYXMNCmlyaXNbMTo1LGMoMSwzKV0NCmBgYA0KKioqQ29uc3RydWNjaW9uIGRlIEZ1bmNpb25lcyoqKg0KYGBge3J9DQojTWkgcHJpbWVyYSBmdW5jaW9uDQpNaUZ1bmNpb24gPSBmdW5jdGlvbihlZGFkKXsNCiAgZGF0b3M0ID0gcmVhZC5jc3YoImRhdG9zLmNzdiIsaGVhZGVyPVRSVUUsIHNlcD0iLCIpDQogIGRhdG9zNCRtYXlvciA9IGRhdG9zNCRFZGFkID5lZGFkDQogIGRhdG9zNA0KfQ0KYGBgDQpgYGB7cn0NCk1pRnVuY2lvbigyMikNCmBgYA0KYGBge3J9DQojTWkgc2VndW5kYSBmdW5jaW9uDQojIERlZmluaXIgdW5hIGZ1bmNpw7NuIHBhcmEgc3VtYXIgZG9zIG7Dum1lcm9zIGUgaW1wcmltaXIgZWwgcmVzdWx0YWRvDQpzdW1hcl9kb3NfbnVtZXJvc19pbXByaW1pciA8LSBmdW5jdGlvbihudW1lcm8xLCBudW1lcm8yKSB7DQogIHN1bWEgPC0gbnVtZXJvMSArIG51bWVybzINCiAgcHJpbnQocGFzdGUoIkxhIHN1bWEgZGUiLCBudW1lcm8xLCAieSIsIG51bWVybzIsICJlczoiLCBzdW1hKSkNCn0NCg0KIyBVdGlsaXphciBsYSBmdW5jacOzbiBjb24gZG9zIG7Dum1lcm9zDQpzdW1hcl9kb3NfbnVtZXJvc19pbXByaW1pcigzNiwgNykNCg0KYGBgDQoNCipFamVyY2ljaW8qDQoiU3VtYSBDdWFkcmFkb3MiDQoNCkNyZWEgdW5hIGZ1bmNpw7NuIGxsYW1hZGEgc3VtYV9jdWFkcmFkb3MgcXVlIHRvbWUgZG9zIG7Dum1lcm9zIGNvbW8gZW50cmFkYSwgY2FsY3VsZSBlbCBjdWFkcmFkbyBkZSBjYWRhIG7Dum1lcm8sIHN1bWUgbG9zIGN1YWRyYWRvcyB5IGx1ZWdvIGltcHJpbWEgZWwgcmVzdWx0YWRvIGRlIGxhIHN1bWEuDQoNClBhc29zIGEgc2VndWlyOg0KDQpEZWZpbmUgbGEgZnVuY2nDs24gc3VtYV9jdWFkcmFkb3MgY29uIGRvcyBwYXLDoW1ldHJvcyBkZSBlbnRyYWRhOiANCm51bWVybzEgeSBudW1lcm8yLg0KDQpEZW50cm8gZGUgbGEgZnVuY2nDs24sIGNhbGN1bGEgZWwgY3VhZHJhZG8gZGUgbnVtZXJvMSB5IG51bWVybzIgcG9yIHNlcGFyYWRvLg0KU3VtYSBsb3MgY3VhZHJhZG9zIG9idGVuaWRvcyBlbiBlbCBwYXNvIGFudGVyaW9yLg0KDQpJbXByaW1lIGVsIHJlc3VsdGFkbyBkZSBsYSBzdW1hIGRlIGxvcyBjdWFkcmFkb3MgY29uIHVuIG1lbnNhamUgY2xhcm8sIGluZGljYW5kbyBxdcOpIHNlIGVzdMOhIG1vc3RyYW5kby4=