Project 2

PT.1 TRIAL

#Create a dataframe 

#12 months used
m1 <- c("Jan","Feb","Mar",
              "Apr","May","Jun",
              "Jul","Aug","Sep",
              "Oct","Nov","Dec")
#Get random sample of data
x1 <- sample(9:40, 12, replace = T)
x2 <- sample(9:40, 12, replace = T)
x3 <- sample(9:40, 12, replace = T)
x4 <- sample(9:40, 12, replace = T)

#Create a dataFrame that shows the variables
df <- data.frame(Month = m1, mango = x1, jugo = x2, elote = x3, maiz = x4)
df

#create matrix 1. 
y <- matrix(df,nrow = 12, ncol = 5)
y

##       [,1]         [,2]         [,3]         [,4]         [,5]        
##  [1,] character,12 integer,12   integer,12   integer,12   integer,12  
##  [2,] integer,12   integer,12   character,12 integer,12   integer,12  
##  [3,] integer,12   integer,12   integer,12   integer,12   character,12
##  [4,] integer,12   character,12 integer,12   integer,12   integer,12  
##  [5,] integer,12   integer,12   integer,12   character,12 integer,12  
##  [6,] character,12 integer,12   integer,12   integer,12   integer,12  
##  [7,] integer,12   integer,12   character,12 integer,12   integer,12  
##  [8,] integer,12   integer,12   integer,12   integer,12   character,12
##  [9,] integer,12   character,12 integer,12   integer,12   integer,12  
## [10,] integer,12   integer,12   integer,12   character,12 integer,12  
## [11,] character,12 integer,12   integer,12   integer,12   integer,12  
## [12,] integer,12   integer,12   character,12 integer,12   integer,12

#Dataframe with Values
sf <- data.frame(mango = x1, jugo = x2, elote = x3, maiz = x4)
sf

#p = price of each item
#Vector to multiply: 
  #mango = 4
  #jugo = 9
  #elote = 9
  #maiz = 8

p <- c(4,9,9,8) 
p

## [1] 4 9 9 8

#multiply price by elements
  #Unable to multiply matrices
  #sf%*%p

#ERROR

PT.2 TRIAL

#create matrix 2. 
x <- matrix(c(2, 7, 1, 3, 6, 1), ncol = 2, byrow = TRUE)
y <- matrix(c(3, 7, 6, 3, 5, 9), ncol = 2, byrow = TRUE)
w <- matrix(c(2, 4, 6, 8, 10, 12), ncol = 2, byrow = TRUE)
z <- matrix(c(1, 2, 4, 7, 8, 9), ncol = 2, byrow = TRUE)

#Stack matrices
#cbind()
#print (rbind(x,y,w,z,))

PT.3 TRIAL

#Create array
ar <- array(c(mango = x1, jugo = x2, elote = x3, maiz = x4), dim = c(12, 4, 1))
ar

## , , 1
## 
##       [,1] [,2] [,3] [,4]
##  [1,]   30    9   14   29
##  [2,]   17   37   22   25
##  [3,]   20   24   25   16
##  [4,]   18   24   38   27
##  [5,]   12   30   30   12
##  [6,]   36   33   33   38
##  [7,]   30   35   12   40
##  [8,]   26   32   28   24
##  [9,]   10   16    9   19
## [10,]   31   32   36   24
## [11,]   12   16    9   11
## [12,]   30   30    9   14

#make it a matrix
ar1 <- matrix(ar, ncol = 4)
ar1

##       [,1] [,2] [,3] [,4]
##  [1,]   30    9   14   29
##  [2,]   17   37   22   25
##  [3,]   20   24   25   16
##  [4,]   18   24   38   27
##  [5,]   12   30   30   12
##  [6,]   36   33   33   38
##  [7,]   30   35   12   40
##  [8,]   26   32   28   24
##  [9,]   10   16    9   19
## [10,]   31   32   36   24
## [11,]   12   16    9   11
## [12,]   30   30    9   14

#Vector to multiply by
br <- array(c(4,9,9,8), dim = c(1,4,1))
br

## , , 1
## 
##      [,1] [,2] [,3] [,4]
## [1,]    4    9    9    8

#Make it a matrix
br1 <- matrix(br, ncol = 4)
br1

##      [,1] [,2] [,3] [,4]
## [1,]    4    9    9    8

#Multiply both matrices 
  #br1 %*% ar1

#test; multiplied, did not do matrix. 
  #ar1 * as.vector(br1) 

#test: 
  #as.vector(br1) %*% ar1

#test- to Multiply matrices
#WORKED
#'total revenue per product per month'
#Muliplied vector tp matrix by column. 
sweep(ar1,MARGIN = 2, br1, '*')

##       [,1] [,2] [,3] [,4]
##  [1,]  120   81  126  232
##  [2,]   68  333  198  200
##  [3,]   80  216  225  128
##  [4,]   72  216  342  216
##  [5,]   48  270  270   96
##  [6,]  144  297  297  304
##  [7,]  120  315  108  320
##  [8,]  104  288  252  192
##  [9,]   40  144   81  152
## [10,]  124  288  324  192
## [11,]   48  144   81   88
## [12,]  120  270   81  112