# 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)