
Instalar paquetes y llamar librerias
x <-3 y <-2
Imprimir el resultado
x y
operaciones arimeticas
suma <-x+y suma
resta <-x-y resta
multiplicacion <- x*y multiplicacion
division <-x/y division
division_entera <-x %/% y division_entera
residuo <-x%%y residuo
potencia <-x**2 potencia
potencia_2 <-x^2 potencia_2
funcion
raiz_cuadrada <-sqrt(x) raiz_cuadrada
#?sqrt# el signo interrogacion es para ayuda
exponencial <- exp(1) exponencial
absoluto <-abs(x) absoluto
signo <singn(x) signo
redondeo_arriba <-celling(x/y) redondeo_arriba
redondeo_abajo <-floor(x/y) redondeo_abajo
truncar <-truncar(x/y) truncar
constantes
pi radio <-5 area_circulo <-pi*radio**2 area_circulo
vectores
a <- c(1,2,3,4,5)#secuencia de enteros 1:5 a
b <-seq(1,10, by= 0.5) b
nombres <-c(“juan”,“anna”,“pedro”,“carla”,“sara”) nombres
calificaciones <-c(100,90,50,100,65) calificaciones
longitud <-lenght(a) longitud
promedio <-mean(calificaciones) promedio
orden_ascendente <-sort(calificaciones) orden_ascendente
orden_descendente <-sort(calificaciones,decreasing = TRUE)
orden_descendente
tablas
tabla_de_calificaciones <-data.frame(nombres,calificaciones)
tabla_de_calificaciones$estatus
<-ifelse(tabla_de_calificaciones>=70,“aprovado”,“reprobado”)
tabla_de_calificaciones
#condicionales:iguales== ,desigual != mayor que >, menor que <,
#mayor o igual que >=, menor o igual que <=
summary(tabla_de_calificaciones) str(tabla_de_calificaciones)
head(tabla_de_calificaciones) #6 por Default
tail(tabla_de_calificaciones)
instalar paquetes y llamar librerias
install.packages(“tidyverse”) library(tidyverse)
SELECT para seleccionar columnas
resultados <-select(tabla_de_calificaciones,-c(nombres))
FILTER para filtrar renglones
resultados <- filter(resultados, estatus==“aprovado”)
Actividad 1.Calculadora del IMC
alumno <-c(“Raul”,“Renata”,“Juan”,“Sergio”,“Meme”) peso
<-c(78,52,78,90,560) altura <-c(1.80,1.55,1.75,1.86,1.80)
tabla
tabla_1 <-data.frame(alumno,peso,altura) tabla_1\(IMC <-tabla_1\)peso/tabla_1\(altura**2
tabla_1\)status <-ifelse(tabla_1\(IMC<=18.5,"peso
insuficiente",ifelse(tabla_1\)IMC<=24.9,“peso
normal”,ifelse(tabla_1$IMC<=29.9,“sobrepeso”,“obesidad”)))
graficas
semana <-c(1:10) ventas
<-c(150,160,165,180,175,190,200,195,210,220) plot(semana,ventas,type
= “b”,main = “ventas semanales (k USD”) datos_ventas <-
data.frame(semana,ventas) regresion <- lm(ventas-semana,
data=datos_ventas) summary(regresion) datos_nuevos
<-data.frame(semana=11:20) predict(regresion,datos_nuevos) prediccion
<-predict(regresion,datos_nuevos) prediccion
conclusiones
R es un lenguaje d eprogramacion util para realizar
calculos ,principalmenteestadisticos,y forma parte de las herramientas
del big data
RStudioes el entorno donde se puede promar R,y
gracias a que tambien aqui se puede programar python,hace unos
años se anuncion que su nombre sera posit.
en esta introduccion,lo que llama la atencion es la constante
aparicion de alertas o errores en el programa,los cuales encontramosque
principalmente se deben que la version no es la mas reciente a la falta
de instalacion de paquetes o llamar a las librerias ,problemas de
escritura(typos)y los muchos argumentos que tienen las
funciones
LS0tCnRpdGxlOiAiY29tYW5kbyBiYXNpY29zIgphdXRob3I6ICJsb3JlbnphIGFvMTcxMjU3MiIKZGF0ZTogIjIwMjUtMDMtMTgiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgIHRvYzogVFJVRQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlIAogICAgdGhlbWU6ICJjb3NtbyIKLS0tCgohW10oaHR0cHM6Ly9pLmdpZmVyLmNvbS9KMGdrLmdpZikKCiMgSW5zdGFsYXIgcGFxdWV0ZXMgeSBsbGFtYXIgbGlicmVyaWFzCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0KI2luc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSkgI1BhcXVldGUgcGFyYSBtYW5pcHVsYWNpb25kZSBkYXRvcwpsaWJyYXJ5KHRpZHl2ZXJzZSkKYGBgCgp4IDwtMwp5IDwtMgoKIyBJbXByaW1pciBlbCByZXN1bHRhZG8KeAp5CgojIG9wZXJhY2lvbmVzIGFyaW1ldGljYXMKc3VtYSA8LXgreQpzdW1hCgpyZXN0YSA8LXgteQpyZXN0YQoKbXVsdGlwbGljYWNpb24gPC0geCp5Cm11bHRpcGxpY2FjaW9uCgpkaXZpc2lvbiA8LXgveQpkaXZpc2lvbgoKZGl2aXNpb25fZW50ZXJhIDwteCAlLyUgeQpkaXZpc2lvbl9lbnRlcmEKCnJlc2lkdW8gPC14JSV5CnJlc2lkdW8KCnBvdGVuY2lhIDwteCoqMgpwb3RlbmNpYQoKcG90ZW5jaWFfMiA8LXheMgpwb3RlbmNpYV8yIAoKIyBmdW5jaW9uCnJhaXpfY3VhZHJhZGEgPC1zcXJ0KHgpCnJhaXpfY3VhZHJhZGEKCiM/c3FydCMgZWwgc2lnbm8gaW50ZXJyb2dhY2lvbiBlcyBwYXJhIGF5dWRhIAoKZXhwb25lbmNpYWwgPC0gZXhwKDEpCmV4cG9uZW5jaWFsCgphYnNvbHV0byA8LWFicyh4KQphYnNvbHV0bwoKc2lnbm8gPHNpbmduKHgpCnNpZ25vCgpyZWRvbmRlb19hcnJpYmEgIDwtY2VsbGluZyh4L3kpCnJlZG9uZGVvX2FycmliYSAKCnJlZG9uZGVvX2FiYWpvIDwtZmxvb3IoeC95KQpyZWRvbmRlb19hYmFqbwoKdHJ1bmNhciA8LXRydW5jYXIoeC95KQp0cnVuY2FyCgojIGNvbnN0YW50ZXMKcGkKcmFkaW8gPC01CmFyZWFfY2lyY3VsbyA8LXBpKnJhZGlvKioyCmFyZWFfY2lyY3VsbwoKIyB2ZWN0b3JlcwphIDwtIGMoMSwyLDMsNCw1KSNzZWN1ZW5jaWEgZGUgZW50ZXJvcyAxOjUKYQoKYiA8LXNlcSgxLDEwLCBieT0gMC41KQpiCgpub21icmVzIDwtYygianVhbiIsImFubmEiLCJwZWRybyIsImNhcmxhIiwic2FyYSIpCm5vbWJyZXMKCmNhbGlmaWNhY2lvbmVzIDwtYygxMDAsOTAsNTAsMTAwLDY1KQpjYWxpZmljYWNpb25lcwoKbG9uZ2l0dWQgIDwtbGVuZ2h0KGEpCmxvbmdpdHVkCgpwcm9tZWRpbyA8LW1lYW4oY2FsaWZpY2FjaW9uZXMpCnByb21lZGlvCgpvcmRlbl9hc2NlbmRlbnRlIDwtc29ydChjYWxpZmljYWNpb25lcykKb3JkZW5fYXNjZW5kZW50ZQoKb3JkZW5fZGVzY2VuZGVudGUgPC1zb3J0KGNhbGlmaWNhY2lvbmVzLGRlY3JlYXNpbmcgPSBUUlVFKQpvcmRlbl9kZXNjZW5kZW50ZQoKIyB0YWJsYXMKdGFibGFfZGVfY2FsaWZpY2FjaW9uZXMgPC1kYXRhLmZyYW1lKG5vbWJyZXMsY2FsaWZpY2FjaW9uZXMpCnRhYmxhX2RlX2NhbGlmaWNhY2lvbmVzJGVzdGF0dXMgPC1pZmVsc2UodGFibGFfZGVfY2FsaWZpY2FjaW9uZXM+PTcwLCJhcHJvdmFkbyIsInJlcHJvYmFkbyIpCnRhYmxhX2RlX2NhbGlmaWNhY2lvbmVzCgojY29uZGljaW9uYWxlczppZ3VhbGVzPT0gLGRlc2lndWFsICE9IG1heW9yIHF1ZSA+LCBtZW5vciBxdWUgPCwKI21heW9yIG8gaWd1YWwgcXVlID49LCBtZW5vciBvIGlndWFsIHF1ZSA8PQoKc3VtbWFyeSh0YWJsYV9kZV9jYWxpZmljYWNpb25lcykKc3RyKHRhYmxhX2RlX2NhbGlmaWNhY2lvbmVzKQpoZWFkKHRhYmxhX2RlX2NhbGlmaWNhY2lvbmVzKSAjNiBwb3IgRGVmYXVsdAp0YWlsKHRhYmxhX2RlX2NhbGlmaWNhY2lvbmVzKQoKIyBpbnN0YWxhciBwYXF1ZXRlcyB5IGxsYW1hciBsaWJyZXJpYXMKaW5zdGFsbC5wYWNrYWdlcygidGlkeXZlcnNlIikKbGlicmFyeSh0aWR5dmVyc2UpCgojIFNFTEVDVCBwYXJhIHNlbGVjY2lvbmFyIGNvbHVtbmFzCnJlc3VsdGFkb3MgPC1zZWxlY3QodGFibGFfZGVfY2FsaWZpY2FjaW9uZXMsLWMobm9tYnJlcykpCgojIEZJTFRFUiBwYXJhIGZpbHRyYXIgcmVuZ2xvbmVzCnJlc3VsdGFkb3MgPC0gZmlsdGVyKHJlc3VsdGFkb3MsIGVzdGF0dXM9PSJhcHJvdmFkbyIpCgojIEFjdGl2aWRhZCAxLkNhbGN1bGFkb3JhIGRlbCBJTUMKYWx1bW5vIDwtYygiUmF1bCIsIlJlbmF0YSIsIkp1YW4iLCJTZXJnaW8iLCJNZW1lIikKcGVzbyA8LWMoNzgsNTIsNzgsOTAsNTYwKQphbHR1cmEgPC1jKDEuODAsMS41NSwxLjc1LDEuODYsMS44MCkKCiMgdGFibGEKdGFibGFfMSA8LWRhdGEuZnJhbWUoYWx1bW5vLHBlc28sYWx0dXJhKQp0YWJsYV8xJElNQyA8LXRhYmxhXzEkcGVzby90YWJsYV8xJGFsdHVyYSoqMgp0YWJsYV8xJHN0YXR1cyA8LWlmZWxzZSh0YWJsYV8xJElNQzw9MTguNSwicGVzbyBpbnN1ZmljaWVudGUiLGlmZWxzZSh0YWJsYV8xJElNQzw9MjQuOSwicGVzbyBub3JtYWwiLGlmZWxzZSh0YWJsYV8xJElNQzw9MjkuOSwic29icmVwZXNvIiwib2Jlc2lkYWQiKSkpCgojIGdyYWZpY2FzCnNlbWFuYSA8LWMoMToxMCkKdmVudGFzIDwtYygxNTAsMTYwLDE2NSwxODAsMTc1LDE5MCwyMDAsMTk1LDIxMCwyMjApCnBsb3Qoc2VtYW5hLHZlbnRhcyx0eXBlID0gImIiLG1haW4gPSAidmVudGFzIHNlbWFuYWxlcyAoayBVU0QiKQpkYXRvc192ZW50YXMgPC0gZGF0YS5mcmFtZShzZW1hbmEsdmVudGFzKQpyZWdyZXNpb24gPC0gbG0odmVudGFzLXNlbWFuYSwgZGF0YT1kYXRvc192ZW50YXMpCnN1bW1hcnkocmVncmVzaW9uKQpkYXRvc19udWV2b3MgPC1kYXRhLmZyYW1lKHNlbWFuYT0xMToyMCkKcHJlZGljdChyZWdyZXNpb24sZGF0b3NfbnVldm9zKQpwcmVkaWNjaW9uIDwtcHJlZGljdChyZWdyZXNpb24sZGF0b3NfbnVldm9zKSAKcHJlZGljY2lvbgoKIyBjb25jbHVzaW9uZXMKKipSKiogZXMgdW4gbGVuZ3VhamUgZCBlcHJvZ3JhbWFjaW9uIHV0aWwgcGFyYSByZWFsaXphciBjYWxjdWxvcyAscHJpbmNpcGFsbWVudGVlc3RhZGlzdGljb3MseSBmb3JtYSBwYXJ0ZSBkZSBsYXMgaGVycmFtaWVudGFzIGRlbCAqYmlnIGRhdGEqCgoqUlN0dWRpbyplcyBlbCBlbnRvcm5vIGRvbmRlIHNlIHB1ZWRlIHByb21hciAqUioseSBncmFjaWFzIGEgcXVlIHRhbWJpZW4gYXF1aSBzZSBwdWVkZSBwcm9ncmFtYXIgKnB5dGhvbiosaGFjZSB1bm9zIGHDsW9zIHNlIGFudW5jaW9uIHF1ZSBzdSBub21icmUgc2VyYSAqcG9zaXQqLgoKZW4gZXN0YSBpbnRyb2R1Y2Npb24sbG8gcXVlIGxsYW1hIGxhIGF0ZW5jaW9uIGVzIGxhIGNvbnN0YW50ZSBhcGFyaWNpb24gZGUgYWxlcnRhcyBvIGVycm9yZXMgZW4gZWwgcHJvZ3JhbWEsbG9zIGN1YWxlcyBlbmNvbnRyYW1vc3F1ZSBwcmluY2lwYWxtZW50ZSBzZSBkZWJlbiBxdWUgbGEgdmVyc2lvbiBubyBlcyBsYSBtYXMgcmVjaWVudGUgYSBsYSBmYWx0YSBkZSBpbnN0YWxhY2lvbiBkZSBwYXF1ZXRlcyBvIGxsYW1hciBhIGxhcyBsaWJyZXJpYXMgLHByb2JsZW1hcyBkZSBlc2NyaXR1cmEoKnR5cG9zKil5IGxvcyBtdWNob3MgYXJndW1lbnRvcyBxdWUgdGllbmVuIGxhcyBmdW5jaW9uZXMKCgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKCg==