typeof(c(1, 4, 2))is.logical(FALSE)as.logical(as.numeric("1234"))as.logical(as.character(1234))typeof(c(1L, 4L, 2L))typeof(c(6L, 4, 2L, 40L))as.logical(1)TRUE + FALSE + FALSE^FALSEFALSE + 1 + (T^999 * 0.5) %/% 3!TRUE * 4 %/% 2!0!1!-29typeof(c(1, 1.0, "1.0"))as.numeric(c(1, 1.0, "1.0", TRUE))TRUE && !FALSE5 > 2 * 3 || 9 == 19%/%20 && 0as.numeric(9 != 9 && 10 > 11)!is.integer(650)sprintf() to a make a Mad Libs style paragraph, incorporating all of the variables in the list below (in no particular order). In other words, you are constructing the shell of the sentence with “blanks” where these words/numbers can be inserted, regardless of their value. All words are lower case (don’t worry about capitalization for now).
exclamation (e.g., “oh no!”)plural_noun (e.g., “words”)verb (e.g., “write”)adverb (e.g., “slowly”)singular_noun (e.g., “word”)verb_ing (e.g., “sitting”)adjective (e.g., “smart”)food_item (e.g., “rice”)verbing_in_place (e.g., “eating in Brazil”)integer (e.g., 1)double (e.g., 1.2345678)Write this same exact sentence using paste()
Write this same exact sentence using glue::glue() (you will need to install the glue package if it is not already installed)
sleep dataset in R (see help(sleep)) are data from within-subjects (ID) experimental research showing the effect of two different drugs (group) on change in sleep (extra). The group variable is currently coded as 1 and 2, which isn’t particularly informative. Change group to be a factor and give it labels (i.e., drug names) of whatever you want! (Note that group is already factor in the data with uninformative labels. For this problem, assume it is a numeric variable).
c() to create the following vector## [1] "Apples" "Oranges" "Bananas" "Ice Cream"
: to create an integer vector of the numbers -6 to 20## [1] -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## [26] 19 20
seq() to create a vector of 10 numbers evenly spaced from 0 to 27.## [1] 0 3 6 9 12 15 18 21 24 27
seq() to create a vector of numbers 1 through 69 by 17## [1] 1 18 35 52 69
seq_len() to create an integer vector of the numbers 1 through 7## [1] 1 2 3 4 5 6 7
rep() to create a character vector filled with 25 NAs## [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
rep() to create a vector with two values ("group1" and "group2") repeated 10 times each as follows## [1] "Group1" "Group1" "Group1" "Group1" "Group1" "Group1" "Group1" "Group1"
## [9] "Group1" "Group1" "Group1" "Group1" "Group1" "Group1" "Group1" "Group1"
## [17] "Group1" "Group1" "Group1" "Group1" "Group1" "Group1" "Group1" "Group1"
## [25] "Group1" "Group2" "Group2" "Group2" "Group2" "Group2" "Group2" "Group2"
## [33] "Group2" "Group2" "Group2" "Group2" "Group2" "Group2" "Group2" "Group2"
## [41] "Group2" "Group2" "Group2" "Group2" "Group2" "Group2" "Group2" "Group2"
## [49] "Group2" "Group2"
rep() to create a character vector with 14 elements where each even numbered element has the value "even" and each odd numbered element has the value "odd"## [1] "odd" "even" "odd" "even" "odd" "even" "odd" "even" "odd" "even"
## [11] "odd" "even" "odd" "even"
LETTERS and [ ] to create a vector of the last 10 capital letters## [1] "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"
letters and [ ] to get every 3rd letter of the lower-case alphabet## [1] "c" "f" "i" "l" "o" "r" "u" "x"
Create (1) a vector with letters 1 through 9, (2) another vector with LETTERS 10 through 21, and (3) another vector with letters 22 through 26. Then, create a vector called alPHAbet using c() to combine these three vectors together.
Use c() and [ ] to combine the first 4 element of letters with the 4th, 5th, and 9th, elements of LETTERS into a vector called my_letters
## [1] "a" "b" "c" "d" "D" "E" "I"
rev() to reverse the order of letters## [1] "z" "y" "x" "w" "v" "u" "t" "s" "r" "q" "p" "o" "n" "m" "l" "k" "j" "i" "h"
## [20] "g" "f" "e" "d" "c" "b" "a"
numbers that is 10 elements long with any numbers you would like. Then add 3 to each odd numbered element (i.e. elements 1, 3, 5, etc.) and 7 to each even numbered element.## [1] 101 102 103 104 105 106 107 108 109 110
## [1] 104 109 106 111 108 113 110 115 112 117
tempsF.\[^{\circ}F=^{\circ}C\times\frac{9}{5}+32\]
tempsC <- c(29, 35, 38, 41, 31, 28, 29, 29)
## [1] 84.2 95.0 100.4 105.8 87.8 82.4 84.2 84.2
tempsF names that correspond with the days of the week. The first element (29) is Friday, the second (35) is Saturday, etc.## Friday Saturday Sunday Monday Tuesday Wednesday Thursday Friday
## 84.2 95.0 100.4 105.8 87.8 82.4 84.2 84.2
tempsF to days where it was over 100 °F## Sunday Monday
## 100.4 105.8
matrix() to create a matrix called my_matrix with 10 rows and four columns filled with NA## [,1] [,2] [,3] [,4]
## [1,] NA NA NA NA
## [2,] NA NA NA NA
## [3,] NA NA NA NA
## [4,] NA NA NA NA
## [5,] NA NA NA NA
## [6,] NA NA NA NA
## [7,] NA NA NA NA
## [8,] NA NA NA NA
## [9,] NA NA NA NA
## [10,] NA NA NA NA
vec_num of 10 numbers evenly spaced from 0 to 15. Then assign vec_num to the first column of my_matrix.## [,1] [,2] [,3] [,4]
## [1,] 0.000000 NA NA NA
## [2,] 1.666667 NA NA NA
## [3,] 3.333333 NA NA NA
## [4,] 5.000000 NA NA NA
## [5,] 6.666667 NA NA NA
## [6,] 8.333333 NA NA NA
## [7,] 10.000000 NA NA NA
## [8,] 11.666667 NA NA NA
## [9,] 13.333333 NA NA NA
## [10,] 15.000000 NA NA NA
vec_int of numbers 7 through 16. Then assign vec_int to the second column of my_matrix.## [,1] [,2] [,3] [,4]
## [1,] 0.000000 7 NA NA
## [2,] 1.666667 8 NA NA
## [3,] 3.333333 9 NA NA
## [4,] 5.000000 10 NA NA
## [5,] 6.666667 11 NA NA
## [6,] 8.333333 12 NA NA
## [7,] 10.000000 13 NA NA
## [8,] 11.666667 14 NA NA
## [9,] 13.333333 15 NA NA
## [10,] 15.000000 16 NA NA
letters, LETTERS, and [ ] to get the first 10 letters to columns 3 and 4 of my_matrix.## [,1] [,2] [,3] [,4]
## [1,] "0" "7" "a" "A"
## [2,] "1.66666666666667" "8" "b" "B"
## [3,] "3.33333333333333" "9" "c" "C"
## [4,] "5" "10" "d" "D"
## [5,] "6.66666666666667" "11" "e" "E"
## [6,] "8.33333333333333" "12" "f" "F"
## [7,] "10" "13" "g" "G"
## [8,] "11.6666666666667" "14" "h" "H"
## [9,] "13.3333333333333" "15" "i" "I"
## [10,] "15" "16" "j" "J"
my_matrix and assign it to the object row_4 as a vector.## [1] "5" "10" "d" "D"
my_matrix to val_6_2 as a numeric value.## [1] 12
cbind() to combine vec_num, vec_int, and the first 10 elements of letters and LETTERS into a matrix called my_matrix2.## vec_num vec_int
## [1,] "0" "7" "a" "A"
## [2,] "1.66666666666667" "8" "b" "B"
## [3,] "3.33333333333333" "9" "c" "C"
## [4,] "5" "10" "d" "D"
## [5,] "6.66666666666667" "11" "e" "E"
## [6,] "8.33333333333333" "12" "f" "F"
## [7,] "10" "13" "g" "G"
## [8,] "11.6666666666667" "14" "h" "H"
## [9,] "13.3333333333333" "15" "i" "I"
## [10,] "15" "16" "j" "J"
my_matrix2, then select only the first four columns and assign to my_matrix2_t.## [,1] [,2] [,3] [,4]
## vec_num "0" "1.66666666666667" "3.33333333333333" "5"
## vec_int "7" "8" "9" "10"
## "a" "b" "c" "d"
## "A" "B" "C" "D"
rbind() to add the rows from my_matrix to my_matrix2_t and assign this combination to big_matrix.## [,1] [,2] [,3] [,4]
## vec_num "0" "1.66666666666667" "3.33333333333333" "5"
## vec_int "7" "8" "9" "10"
## "a" "b" "c" "d"
## "A" "B" "C" "D"
## "0" "7" "a" "A"
## "1.66666666666667" "8" "b" "B"
## "3.33333333333333" "9" "c" "C"
## "5" "10" "d" "D"
## "6.66666666666667" "11" "e" "E"
## "8.33333333333333" "12" "f" "F"
## "10" "13" "g" "G"
## "11.6666666666667" "14" "h" "H"
## "13.3333333333333" "15" "i" "I"
## "15" "16" "j" "J"
cov() to get the variance-covariance matrix of the mtcars dataset (all variables are already numeric) and same this to a variable called mtcars_varcov. Then save the covariances of each variable of mtcars (i.e., all elements on the diagonal of mtcars_varcov) to a vector called mtcars_cov.list() to create a list that contains vec_num and row_4, and assign the names vec_num and row_4 to these two elements of list_1.## $vec_num
## [1] 0.000000 1.666667 3.333333 5.000000 6.666667 8.333333 10.000000
## [8] 11.666667 13.333333 15.000000
##
## $row_4
## [1] "5" "10" "d" "D"
$, extract row4 from list_1 and assign it to the object row_4_2.## [1] "5" "10" "d" "D"
val_6_2 and big_matrix called list_2.## [[1]]
## [1] 12
##
## [[2]]
## [,1] [,2] [,3] [,4]
## vec_num "0" "1.66666666666667" "3.33333333333333" "5"
## vec_int "7" "8" "9" "10"
## "a" "b" "c" "d"
## "A" "B" "C" "D"
## "0" "7" "a" "A"
## "1.66666666666667" "8" "b" "B"
## "3.33333333333333" "9" "c" "C"
## "5" "10" "d" "D"
## "6.66666666666667" "11" "e" "E"
## "8.33333333333333" "12" "f" "F"
## "10" "13" "g" "G"
## "11.6666666666667" "14" "h" "H"
## "13.3333333333333" "15" "i" "I"
## "15" "16" "j" "J"
list_1 and list_2 together using c() and assign them to list_3.## $vec_num
## [1] 0.000000 1.666667 3.333333 5.000000 6.666667 8.333333 10.000000
## [8] 11.666667 13.333333 15.000000
##
## $row_4
## [1] "5" "10" "d" "D"
##
## [[3]]
## [1] 12
##
## [[4]]
## [,1] [,2] [,3] [,4]
## vec_num "0" "1.66666666666667" "3.33333333333333" "5"
## vec_int "7" "8" "9" "10"
## "a" "b" "c" "d"
## "A" "B" "C" "D"
## "0" "7" "a" "A"
## "1.66666666666667" "8" "b" "B"
## "3.33333333333333" "9" "c" "C"
## "5" "10" "d" "D"
## "6.66666666666667" "11" "e" "E"
## "8.33333333333333" "12" "f" "F"
## "10" "13" "g" "G"
## "11.6666666666667" "14" "h" "H"
## "13.3333333333333" "15" "i" "I"
## "15" "16" "j" "J"
unlist() to turn list_3 into a vector and assign it to vector_3.## vec_num1 vec_num2 vec_num3 vec_num4
## "0" "1.66666666666667" "3.33333333333333" "5"
## vec_num5 vec_num6 vec_num7 vec_num8
## "6.66666666666667" "8.33333333333333" "10" "11.6666666666667"
## vec_num9 vec_num10 row_41 row_42
## "13.3333333333333" "15" "5" "10"
## row_43 row_44
## "d" "D" "12" "0"
##
## "7" "a" "A" "0"
##
## "1.66666666666667" "3.33333333333333" "5" "6.66666666666667"
##
## "8.33333333333333" "10" "11.6666666666667" "13.3333333333333"
##
## "15" "1.66666666666667" "8" "b"
##
## "B" "7" "8" "9"
##
## "10" "11" "12" "13"
##
## "14" "15" "16" "3.33333333333333"
##
## "9" "c" "C" "a"
##
## "b" "c" "d" "e"
##
## "f" "g" "h" "i"
##
## "j" "5" "10" "d"
##
## "D" "A" "B" "C"
##
## "D" "E" "F" "G"
##
## "H" "I" "J"
as.list() to convert vector_3 into a list and assign it to list_big.## $vec_num1
## [1] "0"
##
## $vec_num2
## [1] "1.66666666666667"
##
## $vec_num3
## [1] "3.33333333333333"
##
## $vec_num4
## [1] "5"
##
## $vec_num5
## [1] "6.66666666666667"
##
## $vec_num6
## [1] "8.33333333333333"
##
## $vec_num7
## [1] "10"
##
## $vec_num8
## [1] "11.6666666666667"
##
## $vec_num9
## [1] "13.3333333333333"
##
## $vec_num10
## [1] "15"
##
## $row_41
## [1] "5"
##
## $row_42
## [1] "10"
##
## $row_43
## [1] "d"
##
## $row_44
## [1] "D"
##
## [[15]]
## [1] "12"
##
## [[16]]
## [1] "0"
##
## [[17]]
## [1] "7"
##
## [[18]]
## [1] "a"
##
## [[19]]
## [1] "A"
##
## [[20]]
## [1] "0"
##
## [[21]]
## [1] "1.66666666666667"
##
## [[22]]
## [1] "3.33333333333333"
##
## [[23]]
## [1] "5"
##
## [[24]]
## [1] "6.66666666666667"
##
## [[25]]
## [1] "8.33333333333333"
##
## [[26]]
## [1] "10"
##
## [[27]]
## [1] "11.6666666666667"
##
## [[28]]
## [1] "13.3333333333333"
##
## [[29]]
## [1] "15"
##
## [[30]]
## [1] "1.66666666666667"
##
## [[31]]
## [1] "8"
##
## [[32]]
## [1] "b"
##
## [[33]]
## [1] "B"
##
## [[34]]
## [1] "7"
##
## [[35]]
## [1] "8"
##
## [[36]]
## [1] "9"
##
## [[37]]
## [1] "10"
##
## [[38]]
## [1] "11"
##
## [[39]]
## [1] "12"
##
## [[40]]
## [1] "13"
##
## [[41]]
## [1] "14"
##
## [[42]]
## [1] "15"
##
## [[43]]
## [1] "16"
##
## [[44]]
## [1] "3.33333333333333"
##
## [[45]]
## [1] "9"
##
## [[46]]
## [1] "c"
##
## [[47]]
## [1] "C"
##
## [[48]]
## [1] "a"
##
## [[49]]
## [1] "b"
##
## [[50]]
## [1] "c"
##
## [[51]]
## [1] "d"
##
## [[52]]
## [1] "e"
##
## [[53]]
## [1] "f"
##
## [[54]]
## [1] "g"
##
## [[55]]
## [1] "h"
##
## [[56]]
## [1] "i"
##
## [[57]]
## [1] "j"
##
## [[58]]
## [1] "5"
##
## [[59]]
## [1] "10"
##
## [[60]]
## [1] "d"
##
## [[61]]
## [1] "D"
##
## [[62]]
## [1] "A"
##
## [[63]]
## [1] "B"
##
## [[64]]
## [1] "C"
##
## [[65]]
## [1] "D"
##
## [[66]]
## [1] "E"
##
## [[67]]
## [1] "F"
##
## [[68]]
## [1] "G"
##
## [[69]]
## [1] "H"
##
## [[70]]
## [1] "I"
##
## [[71]]
## [1] "J"
list_3 as list_4 and use [[ ]] to assign list_3 as the last (fifth) element of list_4. This is, you should end up with a list with five elements named list_4 that contains the same four elements as list_3 plus a fifth element that is itself a list, as one object.## $vec_num
## [1] 0.000000 1.666667 3.333333 5.000000 6.666667 8.333333 10.000000
## [8] 11.666667 13.333333 15.000000
##
## $row_4
## [1] "5" "10" "d" "D"
##
## [[3]]
## [1] 12
##
## [[4]]
## [,1] [,2] [,3] [,4]
## vec_num "0" "1.66666666666667" "3.33333333333333" "5"
## vec_int "7" "8" "9" "10"
## "a" "b" "c" "d"
## "A" "B" "C" "D"
## "0" "7" "a" "A"
## "1.66666666666667" "8" "b" "B"
## "3.33333333333333" "9" "c" "C"
## "5" "10" "d" "D"
## "6.66666666666667" "11" "e" "E"
## "8.33333333333333" "12" "f" "F"
## "10" "13" "g" "G"
## "11.6666666666667" "14" "h" "H"
## "13.3333333333333" "15" "i" "I"
## "15" "16" "j" "J"
##
## [[5]]
## [[5]]$vec_num
## [1] 0.000000 1.666667 3.333333 5.000000 6.666667 8.333333 10.000000
## [8] 11.666667 13.333333 15.000000
##
## [[5]]$row_4
## [1] "5" "10" "d" "D"
##
## [[5]][[3]]
## [1] 12
##
## [[5]][[4]]
## [,1] [,2] [,3] [,4]
## vec_num "0" "1.66666666666667" "3.33333333333333" "5"
## vec_int "7" "8" "9" "10"
## "a" "b" "c" "d"
## "A" "B" "C" "D"
## "0" "7" "a" "A"
## "1.66666666666667" "8" "b" "B"
## "3.33333333333333" "9" "c" "C"
## "5" "10" "d" "D"
## "6.66666666666667" "11" "e" "E"
## "8.33333333333333" "12" "f" "F"
## "10" "13" "g" "G"
## "11.6666666666667" "14" "h" "H"
## "13.3333333333333" "15" "i" "I"
## "15" "16" "j" "J"
Select the third element (that is, the sub-element) of the the fifth element of list_4 and assign it to an object called element_5_3 using [[ ]].
Lastly, repeat the previous assignment of the third element of the fifth element, but extract the element as a list rather than scalar using [ ] and assign it to list_5_3.
Let’s run a linear regression predicting miles per gallon (mpg) with number of cylinders (cyl), displacement (disp), and weight (wt), saving the result in an object called fit. Using either $ or [[ ]], extract the coefficients and the residuals. (Hint: to see the names of fit, you can types fit$ in RStudio and it will give you a dropdown menu with all the names. Or you can type names(fit) into your console).
fit <- lm(mpg ~ cyl + disp + wt,
data = mtcars)
## (Intercept) cyl disp wt
## 41.107677641 -1.784943519 0.007472925 -3.635677016
## Mazda RX4 Mazda RX4 Wag Datsun 710 Hornet 4 Drive
## -1.06821074 -0.14111310 -3.54020879 0.76267044
## Hornet Sportabout Valiant Duster 360 Merc 240D
## 1.68834645 -1.39998217 -2.23901553 0.93362802
## Merc 230 Merc 280 Merc 280C Merc 450SE
## -0.76770880 0.05625018 -1.34374982 2.30804326
## Merc 450SL Merc 450SLC Cadillac Fleetwood Lincoln Continental
## 1.97191307 0.05369692 -0.86804574 -0.14576284
## Chrysler Imperial Fiat 128 Honda Civic Toyota Corolla
## 4.01647717 5.84246667 1.73801440 6.07223879
## Toyota Corona Dodge Challenger AMC Javelin Camaro Z28
## -4.40345801 -0.90693654 -1.41134813 -2.18265349
## Pontiac Firebird Fiat X1-9 Porsche 914-2 Lotus Europa
## 3.36187865 -0.22322961 -1.08654763 1.22220059
## Ford Pantera L Ferrari Dino Maserati Bora Volvo 142E
## -2.12603002 -1.71076531 -1.09811296 -3.36494538
data.frame() to combine vec_num (first column) and vec_int (second column) into df1.## vec_num vec_int
## 1 0.000000 7
## 2 1.666667 8
## 3 3.333333 9
## 4 5.000000 10
## 5 6.666667 11
## 6 8.333333 12
## 7 10.000000 13
## 8 11.666667 14
## 9 13.333333 15
## 10 15.000000 16
$ to extract vec_num from df1, reverse it with rev(), and assign it as the vector vec_num2.## [1] 15.000000 13.333333 11.666667 10.000000 8.333333 6.666667 5.000000
## [8] 3.333333 1.666667 0.000000
$ to add vec_num2 to df1 as a new column with the name number_vector.## vec_num vec_int number_vector
## 1 0.000000 7 15.000000
## 2 1.666667 8 13.333333
## 3 3.333333 9 11.666667
## 4 5.000000 10 10.000000
## 5 6.666667 11 8.333333
## 6 8.333333 12 6.666667
## 7 10.000000 13 5.000000
## 8 11.666667 14 3.333333
## 9 13.333333 15 1.666667
## 10 15.000000 16 0.000000
df1 with itself using rbind() and make sure to save it as df1## vec_num vec_int number_vector
## 1 0.000000 7 15.000000
## 2 1.666667 8 13.333333
## 3 3.333333 9 11.666667
## 4 5.000000 10 10.000000
## 5 6.666667 11 8.333333
## 6 8.333333 12 6.666667
## 7 10.000000 13 5.000000
## 8 11.666667 14 3.333333
## 9 13.333333 15 1.666667
## 10 15.000000 16 0.000000
## 11 0.000000 7 15.000000
## 12 1.666667 8 13.333333
## 13 3.333333 9 11.666667
## 14 5.000000 10 10.000000
## 15 6.666667 11 8.333333
## 16 8.333333 12 6.666667
## 17 10.000000 13 5.000000
## 18 11.666667 14 3.333333
## 19 13.333333 15 1.666667
## 20 15.000000 16 0.000000
number_vector. Do this without removing it from the dataframe.## vec_num vec_int number_vector
## 1 0.000000 7 35.00000
## 2 1.666667 8 33.33333
## 3 3.333333 9 31.66667
## 4 5.000000 10 30.00000
## 5 6.666667 11 28.33333
## 6 8.333333 12 26.66667
## 7 10.000000 13 25.00000
## 8 11.666667 14 23.33333
## 9 13.333333 15 21.66667
## 10 15.000000 16 20.00000
## 11 0.000000 7 35.00000
## 12 1.666667 8 33.33333
## 13 3.333333 9 31.66667
## 14 5.000000 10 30.00000
## 15 6.666667 11 28.33333
## 16 8.333333 12 26.66667
## 17 10.000000 13 25.00000
## 18 11.666667 14 23.33333
## 19 13.333333 15 21.66667
## 20 15.000000 16 20.00000
df1 to get only the rows where vec_num is greater than or equal to 5.## vec_num vec_int number_vector
## 4 5.000000 10 30.00000
## 5 6.666667 11 28.33333
## 6 8.333333 12 26.66667
## 7 10.000000 13 25.00000
## 8 11.666667 14 23.33333
## 9 13.333333 15 21.66667
## 10 15.000000 16 20.00000
## 14 5.000000 10 30.00000
## 15 6.666667 11 28.33333
## 16 8.333333 12 26.66667
## 17 10.000000 13 25.00000
## 18 11.666667 14 23.33333
## 19 13.333333 15 21.66667
## 20 15.000000 16 20.00000
df1 to get only the vec_int and number_vector columns and only the rows where vec_num is not 0 or 10.## vec_int number_vector
## 2 8 33.33333
## 3 9 31.66667
## 4 10 30.00000
## 5 11 28.33333
## 6 12 26.66667
## 8 14 23.33333
## 9 15 21.66667
## 10 16 20.00000
## 12 8 33.33333
## 13 9 31.66667
## 14 10 30.00000
## 15 11 28.33333
## 16 12 26.66667
## 18 14 23.33333
## 19 15 21.66667
## 20 16 20.00000
mtcars to get only those cars with the minimum number of cylinders (cyl) and the maximum number of cylinders. Then, using rownames(), print which cars fall in this category. Bonus if you do this programmatically (i.e., do not assume you know the exact min and max values of cyl).## [1] "Datsun 710" "Hornet Sportabout" "Duster 360"
## [4] "Merc 240D" "Merc 230" "Merc 450SE"
## [7] "Merc 450SL" "Merc 450SLC" "Cadillac Fleetwood"
## [10] "Lincoln Continental" "Chrysler Imperial" "Fiat 128"
## [13] "Honda Civic" "Toyota Corolla" "Toyota Corona"
## [16] "Dodge Challenger" "AMC Javelin" "Camaro Z28"
## [19] "Pontiac Firebird" "Fiat X1-9" "Porsche 914-2"
## [22] "Lotus Europa" "Ford Pantera L" "Maserati Bora"
## [25] "Volvo 142E"