File contents
# Ejemplos de asignación de variables.
num <- 6
nombre <- "José"
# Consultar todos los objetos cargados en el entorno.
objects()
# Otras maneras para efectuar asignaciones.
nombre2 = "Agustín" # OJO! No está soportada en todos los entornos.
# Operaciones.
num + 5 # Salida directa en pantalla.
#### VECTORES.
x <- c(2,8,10,12)
x[2] # Los arreglos se indexan desde el 1.
nombres <- c("José", "Pedro", "Agustín")
nombres
y <- 1:4 # Otra forma de generar vectores.w
y
z <- x + y
z # Podemos operar directamente sobre vectores.
## Comando seq
w <- seq(1,4) # Equivalente a 1:4
r <- seq(1,4,0.5) # Especificamos un 'step'.
r
r <- seq(1,-3,-0.5) # Podemor también ir para atrás.
r # Con un paso de 0.5 positivo obtendríamos un error.
seq(-5,5, length=10) # Nos armamos una tira de 10 elementos.
# Notar la manera especial con la cual podemos pasar los parámetros a las funciones.
# Además, si no se asigna el resultado a una variable sale lo obtenido por pantalla.
## Comando rep.
x <- rep(0,10)
x
rep(1:3,4) # Repetimos varias veces una lista.
rep(c("José", "Agustín"), 4)
## Comandos sobre vectores.
sum(c(2,5,6))
length(1:60)
## Vectores lógicos.
x <- c(2,4,7,20)
y <- c(3,2,8,19)
z <- x>y
z # z pasa a tener un vector con valores lógicos.
sum(z) # En R, el TRUE se puede pensar como 1 y el FALSE como 0.
###MATRICES
mat<-matrix(1:30)
mat<-matrix(1:30,nrow=5)
mat<-matrix(1:30,nrow=7)
mat<-matrix(1:30,nrow=5)
mat<-matrix(1:30,nrow=5,byrow=TRUE)
cbind(mat,mat)
rbind(mat,mat)
mat[1,]
mat[c(3,5),]
mat[,6]
mat[,3:6]
####FUNCIONES
cuad<-function(x){x^2}
cuad2<-function(x){2*x^2}
suma<-function(x,y){x+y}
###hay funciones que ya están definidas en R como log, sin, cos, tan, sqrt
###las funciones se aplican coordenada a coordenada
vec<-c(1,2,5)
log(vec)
sqrt(vec)
xx<-seq(-5,5,0.1)
plot(xx,cuad(xx))
lines(xx,cuad2(xx),col=2)
legend(0,15,c(expression("x"^2),expression(2*"x"^2)),col=c(1,2),lty=c(1,1))
##se hicieron 24 determinaciones del contenido de cobre en harina integral
copper<-scan(file.choose(),sep="")
l<-length(copper)
plot(1:l,copper)
##
ships<- read.csv2(file.choose(),header=TRUE,sep="") #ships es un data frame
attach(ships)
plot(months,damage)
###ejercicio 1
T=c(40,80,120,180,240)
Y=c(57,176,223,161,99)
x=c(20,0,60,0,80,20,80,80,80,140)
x=matrix(x,nrow=5,byrow=TRUE)
Click here to get the file
