Montiverdi_C_deck52

color <- c("red", "black")
name <- c("ace", "2", "3", "4", "5", "6", "7", "8", "9", "10", "jack", "queen", "king")
suit <- c("hearts", "spades", "diamonds", "clubs")
rank <- c(1:13)
value<- c(1:10, 10, 10, 10)

COLOR <- rep(rep(color, each = 13), times = 2)

SUIT <- rep(suit, each = 13)

NAME <- rep(name, times = 4)

RANK <- rep(rank, times = 4)

VALUE <- rep(value, times = 4)

1. (20 points) Use data.frame() to combine the columns into a single data.frame called deck52. Confirm that your data.frame has 52 rows and 5 columns. Make sure it represents an actual deck of cards; check the picture to be sure. Run names(deck52) <- toupper(names(deck52)) to convert the column names to upper case. Display deck52.

color <- c("red", "black")
name <- c("ace", "2", "3", "4", "5", "6", "7", "8", "9", "10", "jack", "queen", "king")
suit <- c("hearts", "spades", "diamonds", "clubs")
rank <- c(1:13)
value<- c(1:10, 10, 10, 10)

COLOR <- rep(rep(color, each = 13), times = 2)

SUIT <- rep(suit, each = 13)

NAME <- rep(name, times = 4)

RANK <- rep(rank, times = 4)

VALUE <- rep(value, times = 4)


deck52 <- data.frame(COLOR, SUIT, NAME, RANK, VALUE)

names(deck52) <- toupper(names(deck52))

deck52

NA
NA

2. (20 points) Build the 5 columns again but this time build the rank vector first. Build it like this: rank = [1,1,1,1,2,2,2,2, …, 12,12,12,12,13,13,13,13]. Then build the other 4 columns. Combine all 5 columns into a single data.frame called deck52again. Use the same column order that you used in the first part. Make the column names upper-case and display deck52again. Make sure it represents an actual deck of cards; check the picture to be sure.

rank <- c(1:13)
color <- c("red", "black")
name <- c("ace", "2", "3", "4", "5", "6", "7", "8", "9", "10", "jack", "queen", "king")
suit <- c("hearts", "spades", "diamonds", "clubs")
value<- c(1:10, 10, 10, 10)

RANK <- rep(rank, each = 4)

COLOR <- rep(color, times = 26)

SUIT <- rep(suit, times = 13)

NAME <- rep(name, each = 4)

VALUE <- rep(value, each = 4)


deck52again <- data.frame(COLOR, SUIT, NAME, RANK, VALUE)

names(deck52again) <- toupper(names(deck52again))

deck52again

NA

3. (10 points) The paste() function is useful here. Make a new column called LONGNAME with entries like “3 of diamonds”, “jack of clubs”, etc. Add this column to deck52again. For full credit build LONGNAME with a single function call. Display deck52again.

rank <- c(1:13)
color <- c("red", "black")
name <- c("ace", "2", "3", "4", "5", "6", "7", "8", "9", "10", "jack", "queen", "king")
suit <- c("hearts", "spades", "diamonds", "clubs")
value<- c(1:10, 10, 10, 10)

RANK <- rep(rank, each = 4)

COLOR <- rep(rep(color, each = 13), times = 2)

SUIT <- rep(suit, each = 13)

NAME <- rep(name, each = 4)

VALUE <- rep(value, each = 4)

##longName creation

LONGNAME <- paste( NAME, SUIT, sep = " of ")


deck52again <- data.frame(LONGNAME, COLOR, SUIT, NAME, RANK, VALUE)

names(deck52again) <- toupper(names(deck52again))

deck52again

NA