kfeoktistoff · September 14, 2020 12:13 · Jun 18, 2014 · Jun 18, 2014
diff --git a/rprog-quiz2.txt → rprog-quiz3.txt b/rprog-quiz2.txt → rprog-quiz3.txt
diff --git a/rprog-quiz2.txt b/rprog-quiz2.txt
@@ -0,0 +1,46 @@
+1
+Take a look at the 'iris' dataset that comes with R. The data can be loaded with the code:
+
+library(datasets)
+data(iris)
+
+A description of the dataset can be found by running
+
+?iris
+
+There will be an object called 'iris' in your workspace. In this dataset, what is the mean of 'Sepal.Length' for the species virginica? (Please only enter the numeric result and nothing else.)
+
+> tapply(Sepal.Length, Species, mean)["virginica"]
+
+
+2
+Continuing with the 'iris' dataset from the previous Question, what R code returns a vector of the means of the variables 'Sepal.Length', 'Sepal.Width', 'Petal.Length', and 'Petal.Width'?
+> apply(iris[,1:4],2,mean)
+
+3
+Load the 'mtcars' dataset in R with the following code
+
+library(datasets)
+data(mtcars)
+
+There will be an object names 'mtcars' in your workspace. You can find some information about the dataset by running
+
+?mtcars
+
+How can one calculate the average miles per gallon (mpg) by number of cylinders in the car (cyl)?
+
+>sapply(split(mtcars$mpg, mtcars$cyl), mean)
+
+4
+Continuing with the 'mtcars' dataset from the previous Question, what is the absolute difference between the average horsepower of 4-cylinder cars and the average horsepower of 8-cylinder cars?
+> abs(mean(mtcars$hp[mtcars$cyl==4])-mean(mtcars$hp[mtcars$cyl==8]))
+126.5779
+
+5
+If you run
+
+debug(ls)
+
+what happens when you next call the 'ls' function?
+
+Execution of 'ls' will suspend at the beginning of the function and you will be in the browser.