################R COMO UNA CALCULADORA#################################
2+5-4*3
10.2*3+44
#Raiz cuadrada
sqrt(50)
50^(1/2)
5^2
2*3*4*5
100*((1+0.075)^(4))
# R conoce pi
pi
#Exponencial
exp(3)
#Logaritmo natural o Neperiano
log(100)
#Logaritmo en base
log2(16)
log(16,base=2)
log(16,2)
# igual a log(16,base=2) o #simplemente log(16,2)
# Circunferencia de la Tierra en el Ecuador en km
2*pi*6378
########################Crear un
vector_Matriz########################################
#Asignaci�nd e valor "10"
Z <-10
Z
Z<-5
Z
5-> Z
Z
#VECTOR
x <- c(1, 2, 3)
y <- c("a", "b", "c")
#Tipo de variable
class(x)
class(y)
#MATRIZ
x<-c(1,2,3,4,5,6,7,8,9,10,11,12)
M<-matrix(x,nrow=3,ncol=4)
M
class(M)
#Ejemplo de tipo de variables
edad <- c(15,12,55,63,24,21,70)
table(edad)
#Vector numerico
a <- c(4,3,5)
b <- c(1.1,4.67,5.1,6.8)
letras <- c("hombre","Mujer")
class (a)
class (b)
class (letras)
####################Crear una base de datos###################
#Ejermplo 1
genero <- c(1,1,2,1,2,2,2,1,2)
ingreso <- c(100,200,100,300,200,500,400,600,200)
acuerdo <- c(1,1,3,2,4,1,5,3,2)
aborto <- [Link] (genero,ingreso,acuerdo)
View(aborto)
plot(genero,ingreso)
plot(ingreso, acuerdo)
#Ejemplo 2
UT <- [Link](carrer=c("Negocios","Adm","Econ"),prom_carr=c(4.1,4.0,4.2),
Num_estudiante=c(150,NaN,120),Formacion_Doc=c("D","M","D"),
Num_Doc=c(20,30,21))
View(UT)
#NaN significa que no hay numero
#Tipo de variable de las columnas por eso le (,n)por que n es la columanas.
class(UT[,1])
class(UT[,2])
class(UT[,3])
class(UT[,4])
##Nombre de las variables##
names(UT)
##Grafica de Datos##
plot(UT[,2],UT[,5],main='Grafico de Dispersi�n',col="Green")
plot(prom_carr,Num_Doc)
plot (UT)
##Ayuda para cambiar el nombre de la variable##
attach(UT)
z<-attach(UT)
plot(prom_carr,Num_Doc)
#Ctr+L Limpia todo
#Ejercicio 3
######Para crear una tabla de columnas con diferentes variables#######
Estudiosocial<-[Link](Ciudad=c("Urbano","Rural","Rural","Rural","Urbano",
"Urbano","Urbano","Urbano","Rural"),
Sexo = c("M","F","M","F","M","F","M","M","F"),
Edad = c(15,16,17,17,18,19,18,16,15),
Nota = c(3.75,3.75,3.5,3.25,4.25,4.5,2.5,4.25,3))
#Tipo de variable de las columnas por eso le (,n)por que n es la columanas.
class(Estudiosocial[,1])
class(Estudiosocial[,2])
class(Estudiosocial[,3])
class(Estudiosocial[,4])
View(Estudiosocial)
table(Estudiosocial)
summary(Estudiosocial)
##Nombre de las variables##
names(Estudiosocial)
##Grafica de Datos##
plot(Estudiosocial[,2],Estudiosocial[,4],main='Grafico de
Dispersi�n',xlab="Sexo",ylab="Nota")
plot (Sexo,Nota)
##Ayuda para cambiar el nombre de la variable##
attach(Estudiosocial)
z<-attach(Estudiosocial)
plot(Ciudad,Nota,main='Diagrama de Caja',xlab="Ciudad",ylab="Nota",col="red")
plot(Edad,Nota,main='Diagrama dispersi�n',xlab="edad",ylab="Nota")
###Si quiero ver los datos###
#El nombre de la variable.
Estudiosocial
#Si quiero ver los datos#
fix(Estudiosocial)
View (Estudiosocial)
######################Instalar un paquete######################
[Link]("readxl")
library(readxl)
[Link]("installr")
library(installr)
updateR()