MAC113 - Introdução à Computação

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

	x <- c("kiwi", "maçã", "uva", "pera", "banana")
        print(x)
        print(x[1])  
        print(x[2:4])  
        print(length(x)
        print(typeof(x)
        print(x[7])
	print(paste0("Vou comprar ", x[1])	    
        i <- 3
        print(x[i])
        print(x[i-1], x[i], x[i+1] )
       

	x <- 1:5
        print(x)  
	y <- 9:3
        print(y) 
        print(length(y)) 	
      

	w <- 8
        print(w[1])  
        print(length(w)) 
        print(w== c(8)) 	
      

	a <- c(1, 2, 3, 4, 5)
	b <- c(1, -2, 3, -4, 5)
        print(a + b) 
        print(a - b) 
        print(a * b) 
        print(a == b)        
        print(identical(a, b))	
      

	a <- c(1, 2, 3, 4, 5)
        print(3 + a)
        print(5 * a - b) 
        x  <- 6 * a
        print(x) 
        y  <- x[5:1]
        print(y)