Coursera | R Programming

Programming Assignment 1: Quiz >> R Programming

Programming Assignment 1: Quiz >> R Programming

1. What value is returned by the following call to pollutantmean()? You should round your output to 3 digits.

pollutantmean("specdata", "sulfate", 1:10)
  • 4.064
  • 3.666
  • 6.026
  • 3.782
  • 6.545
  • 4.868

2. What value is returned by the following call to pollutantmean()? You should round your output to 3 digits.

pollutantmean("specdata", "nitrate", 70:72)
  • 2.752
  • 2.394
  • 0.914
  • 1.182
  • 1.706
  • 2.604

3. What value is returned by the following call to pollutantmean()? You should round your output to 3 digits.

pollutantmean("specdata", "sulfate", 34)
  • 0.680
  • 1.477
  • 0.450
  • 1.300
  • 1.573
  • 0.591

4. What value is returned by the following call to pollutantmean()? You should round your output to 3 digits.

pollutantmean("specdata", "nitrate")
  • 1.703
  • 2.493
  • 2.363
  • 2.233
  • 1.842
  • 1.774

5. What value is printed at end of the following code?

cc <- complete("specdata", c(6, 10, 20, 34, 100, 200, 310))
print(cc$nobs)
  • 204 222 200 212 213 198 196
  • 215 201 188 204 193 213 206
  • 217 210 206 214 211 203 211
  • 228 148 124 165 104 460 232
  • 201 214 235 183 198 210 210
  • 227 184 189 196 232 224 189

6. What value is printed at end of the following code?

cc <- complete("specdata", 54)
print(cc$nobs)
  • 219
  • 248
  • 213
  • 205
  • 220
  • 228

7. What value is printed at end of the following code?

RNGversion("3.5.1")  
set.seed(42)
cc <- complete("specdata", 332:1)
use <- sample(332, 10)
print(cc[use, "nobs"])
  • 608 885 684 510 765 171 244 745 624 216
  • 270 310 27 692 307 681 631 455 690 440
  • 643 99 703 673 59 366 277 644 318 594
  • 524 577 276 487 3 592 5 148 645 435
  • 711 135 74 445 178 73 49 0 687 237

8. What value is printed at end of the following code?

cr <- corr("specdata")                
cr <- sort(cr)  
RNGversion("3.5.1")
set.seed(868)               
out <- round(cr[sample(length(cr), 5)], 4)
print(out)
  • -0.0203 0.5856 0.0983 0.3840 0.1137
  • -0.0351 0.2736 -0.0176 0.5520 0.1828
  • 0.2688 0.1127 -0.0085 0.4586 0.0447
  • 0.1539 -0.0056 0.3023 0.4158 0.2558
  • 0.4474 0.4720 0.1239 0.5220 0.2538
  • 0.3792 0.5118 0.3620 0.4726 0.5782

9. What value is printed at end of the following code?

cr <- corr("specdata", 129)                
cr <- sort(cr)               
n <- length(cr)   
RNGversion("3.5.1")
set.seed(197)               
out <- c(n, round(cr[sample(n, 5)], 4))
print(out)
  • 243.0000 0.2540 0.0504 -0.1462 -0.1680 0.5969
  • 225.0000 0.4216 0.4207 -0.0507 0.9377 0.0277
  • 229.0000 -0.2418 0.4496 0.8748 -0.3924 -0.5713
  • 233.0000 -0.6377 0.3773 -0.0759 0.7335 0.2879
  • 247.0000 0.1958 0.9304 -0.4851 -0.8229 -0.0679
  • 242.0000 0.8233 0.3443 -0.2242 -0.7703 0.8735

10. What value is printed at end of the following code?

cr <- corr("specdata", 2000)                
n <- length(cr)               
cr <- corr("specdata", 1000)               
cr <- sort(cr)
print(c(n, round(cr, 4)))
  • 0.0000 -0.8974 0.8278 0.4519
  • 3.0000 0.5342 -0.6713 0.3684
  • 2.0000 0.5596 -0.5655 -0.1241
  • 3.0000 -0.0206 -0.5881 0.5135
  • 0.0000 -0.0190 0.0419 0.1901
  • 3.0000 -0.8907 0.4755 -0.0175

Similar Posts

Leave a Reply

Your email address will not be published. Required fields are marked *