MAC113 - Introdução à Computação

Aula 07: Vetores em R

1. O assunto do dia:
   • O conceito
   • vetores em R
   • manipulações vetoriais
   • laços com comando for

2. Os tipos (atomicos) em R:
   • numeric: 1, 3.14
   • integer: as.integer(1)
   • string: "mac113", "FEA"
   • logical: TRUE, FALSE
   • etc...

3. construção de vetor:

   • 	a <- c(1, 2, 3, 4)
             print(a)  => a saida: 1  2  3  4
     	b <- c(5, 6, 7, 8)
     	c <- c(a, b)  
             print(c)  => a saida: 1  2  3  4  5  6  7  8
     	c <- c(c, 9, 10, 11, 12))  
             print(c)  => a saida: 1  2  3  4  5  6  7  8  9  10  11  12
         
         

4. Os elementos de vetor tem índice:
   • Os índices são: 1, 2, 3, ...

   • 	x <- c("kiwi", "maçã", "uva", "pera", "banana")
             print(x[1])  => a saida: "kiwi"
             print(x[2:4])  => a saida: "maçã"  "uva"  "pera"
            

5. O vetor tem tamanho:
   • print(length(x) => a saida: 5

6. O tipo de vetor = o tipo de seus elementos:
   • print(typeof(x) => a saida: "character"

7. O elemento inválido:
   • print(x[7]) => a saida: NA

8. print(paste0("Vou comprar ", x[1]) => a saida: "Vou comprar kiwi",p>

9. 	x <- c("kiwi", "maçã", "uva", "pera", "banana")
           i <- 3
           print(x[i])  => a saida: "uva"
           print(x[i-1], x[i], x[i+1] )  => a saida: "maçã"  "uva"  "pera"
          

10. Outra construção:

    	x <- 1:5
            print(x)  => a saida: 1  2  3  4  5
    	y <- 9:3
            print(y)  => a saida: 9  8  7  6  5  4  3
            print(length(y))  => a saida: 7
           

11. exemplo de vetor unitário:

    	w <- 8
            print(w[1])  => a saida: 8
            print(length(w))  => a saida: 1
            print(w== c(8))  => a saida: TRUE 
         

12. Manipulações vetoriais:

    	a <- c(1, 2, 3, 4, 5)
    	b <- c(1, -2, 3, -4, 5)
            print(a + b)  => a saida: 2  0  6  0  10
            print(a - b)  => a saida: 0  4  0  8  0
            print(a * b)  => a saida: 1  -4  9  -16  25
            print(a == b)  =>
    	    a saida: TRUE  FALSE TRUE  FALSE  TRUE
                aqui elemento por elemento
           print(identical(a, b))  =>
    	    a saida: FALSE
                aqui vetor por vetor
          

13. continuando:

    	a <- c(1, 2, 3, 4, 5)
            print(3 + a)  => a saida: 4  5  6  7  8
            print(5 * a - b)  => a saida: 5  10  15  20  25
            x  <- 6 * a
            print(x)  => a saida: 6  12  18  24  30
            y  <- x[5:1]
            print(y)  => a saida: 30  24  18  12  6
    

14. Uma função que recebe 1 vetor de números e devolve o maoir elemento:

    	maioDoVetorWhile1 <- function(vet){
             max <- vet[1] 
             i <- 2 
             while(i <= length(vet)){
                if(vet[i] > max){
                  max <- vet[i
                } 
                i <- i + 1
             }
             return(max)
           }	
    

15. Outra versão com o uso de Inf:

    	maioDoVetorWhile2 <- function(vet){
             max <- -Inf 
             i <- 1 
             while(i <= length(vet)){
                if(vet[i] > max){
                  max <- vet[i]
                } 
                i <- i + 1
             }
             return(max)
           }	
    

16. Usar for no lugar de while:

    	maioDoVetorFor1 <- function(vet){
             tam <- length(vet) 
             max <- -Inf
             for(i in(1:tam)){
                if(vet[i] > max){
                  max <- vet[i]
                }
             }
             return(max)
           }	
    

17. laços com for:
    • Ajuda ao processamento de vetores
    • varra implicitamente os elementos de 1 vetor
    • formato:

      	for(valor in vetor){
                 comandos de processamento do vetor
              }
      	

18. Outra versão com for:

    	maioDoVetorFor2 <- function(vet){
             max <- -Inf
             for(elemento in vet){
                if(elemento > max){
                  max <- elemento
                }
             }
             return(max)
           }	
    

19. Palíndromo:
    • Um palíndromo é 1 expressão que se lê igual normal e invertida.
    • Ex: "roma me tem amor"
    • No caso de vetores, são vetores que são iguais ao seu inverso. Ex: [1, 2, 3, 2, 1] ,li>Fazer uma função que recebe 1 vetor e retorna TRUE se o vetor é um palíndromo e FALSE caso contrário.

20. Outra versão com for:

    	ehPalindromo1 <- function(vet){
             tam <- length(vet)
             invertido <- vet[tam:1]
             return(identical(vet, invertido)
           }	
    

21. versão1:

    	ehPalindromo1 <- function(vet){
              tam <- length(vet)
              for(i in(1:tam){
                if(vet[i] != vet[tam - i + 1] ){
                  return(FALSE)
               } 
               return(TRUE)
    	 }	
    

22. versão 2 (com vetor auxiliar):

    	ehPalindromo2 <- function(vet){
             tam <- length(vet)
             invertido <- vet[tam:1]
             return(identical(vet, invertido)
           }