#==========================================================================================
# Revisão e atividades referentes a aula 1 da disciplina ce223 (01/03/2011)
# Objetos: criação, acesso e modificação.
#                                                               Professor Walmes M. Zeviani
#                                                                     www.leg.ufpr.br/ce223
#==========================================================================================

#------------------------------------------------------------------------------------------
# vetor

c(1,4,5,6,3,23)
x <- c(1,76,4,7,7,5,4,3,7,87,4)
x[4]
x[c(4,7)]
x[3:6]
x[1] <- 78

#------------------------------------------------------------------------------------------
# matriz

matrix(c(1,4,5,6), 2, 2)
y <- matrix(sample(1:100, 8), 2, 4)
y
y[1,2]
y[,c(2,4)]
y[,-3]
y[2,1] <- -20
y[2,2:4] <- c(-3,-2,-1)
y

#------------------------------------------------------------------------------------------
# data.frame

data.frame(A=c(1,5,6,3,6,7,4,3), B=c("d","f","t","h","s","f","j","r"))
z <- data.frame(A=sample(1:50, 20), B=sample(c("tim","vivo","oi","claro"), 20, TRUE))
z[1,]
z[,1]
z[,"B"]
z$A
z[1,1] <- -50
z[1,"B"] <- "tim"
z$A[2:3] <- c(0,0)
z$C <- sqrt(abs(z$A))
z$D <- z$A+z$C
z

#------------------------------------------------------------------------------------------

w <- list(slot1=x,
          slot2=y,
          slot3=z,
          slot4="O R é muito divertido")
w
w[[1]]
w[["slot1"]]
w$slot1
w$slot2[,2]
w[["slot3"]][,"B"]
w["slot4"]
w[["slot4"]] <- c("O R é fácil","O R é livre")
w

#------------------------------------------------------------------------------------------