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==