Publications by Leo Yi & Christopher Bloome
Data607 Project 1
Introduction For this project, we are working with a text file that has been formatted as a table with various characters. Without word wrap, the text file is organized into two row cells. Each player has an number associated to them, which we’ll use to identify them. The ultimate goal is to create a csv file which can be uploaded into a databa...
2745 sym R (2885 sym/11 pcs)
Data607 Extend Assignment
Overview: The task here is to create an example by using one or more TidyVerse packages, and any dataset from fivethirtyeight.com or Kaggle, create a programming sample “vignette” that demonstrates how to use one or more of the capabilities of the selected TidyVerse package with your selected dataset. The core tidyverse packages includes the ...
4091 sym R (12036 sym/28 pcs) 2 img
Data 605 Discussion 6
Chapter 3.2 Exercise 10 In a ten-question true-false exam, find the probability that a student gets a grade of 70 percent or better by guessing. Answer the same question if the test has 30 questions, and if the test has 50 questions. Using Functions get_70_pct <- function(nq) { # number of successes to get at least 70% np <- ceiling(nq * ...
277 sym R (1308 sym/16 pcs)
Data 605 Discussion Week 5
Introduction to Probability Chapter 1.1 Exercise 6 In Las Vegas, a roulette wheel has 38 slots numbered 0, 00, 1, 2, …, 36. The 0 and 00 slots are green and half of the remaining 36 slots are red and half are black. A croupier spins the wheel and throws in an ivory ball. If you bet 1 dollar on red, you win 1 dollar if the ball stops in a red ...
477 sym R (697 sym/4 pcs)
Data 605 Discussion Week 7
Chapter 5.1 - Exercise 18 A baker blends 600 raisins and 400 chocolate chips into a dough mix and, from this, makes 500 cookies. raisins <- 600 cookies <- 500 cchips <- 400 Find the probability that a randomly picked cookie will have no raisins. # expected average raisins per cookie lambda <- raisins / cookies # cookies with zero raisins ...
454 sym R (1170 sym/14 pcs) 1 img
Data 605 Discussion Week 9
Chapter 9.1 Exercise 1 Let \(S_{100}\) be the number of heads that turn up in 100 tosses of a fair coin. Use the Central Limit Theorem to estimate # number of tosses n <- 100 # probability of heads p <- .5 z <- function(x, n, p) { q <- 1 - p np <- n * p sq_npq <- sqrt(n*p*q) return((x - np) / sq_npq) } \((a) P(S_{100} ≤ 45)....
259 sym R (478 sym/17 pcs)
Data 605 Final Project
options(scipen = 100, dplyr.summarise.inform = FALSE) set.seed(101) library(dplyr) library(ggplot2) library(tidyr) library(GGally) library(ggridges) library(car) library(MASS) library(dummies) Problem 1 Samples Using R, generate a random variable X that has 10,000 random uniform numbers from 1 to N, where N can be any numbe...
9721 sym R (24959 sym/114 pcs) 16 img
Data 605 Discussion 16
Chapter 12.3 Exercise 32 Find \(f_x, f_y, f_z, f_{yz}, f_{zy}\) \(f(x,y,z) = x^3y^2 + x^3z + y^2z\) \(f_x = 3x^2y^2 + x^2z\) \(f_y = 2x^3y + 2yz\) \(f_z = x^3 + y^2\) \(f_yz = 2y\) \(f_zy = 2y\) ...
204 sym
Data 605 Discussion 15
APEX Calculus Chapter 8.8 Exercise 9 Find a formula for the \(n^{th}\) term of the Taylor Series of f(x), centered at c, by finding the coefficients of the first few powers of x and looking for a pattern. \(f(x) = e^{-x};\) … \(c = 0\) \(f'(x) = -e^{-x}\) … \(f'(0) = -1\) \(f''(x) = e^{-x}\) … \(f''(0) = 1\) \(f'''(x) = -e^{-x}\) … \(f'''...
638 sym
Data 605 Discussion 14
Chapter 7.1 Exercise 6 Find the are of the shaded region in the given graph. \(f(x) = -3x^3 + 3x + 2\) \(g(x) = x^2 + x -1\) f <- function(x) {-3 * x^3 + 3 * x + 2} g <- function(x) {x^2 + x -1} curve(f, xlim = c(-1,1), ylim = c(-2,4), ylab='') curve(g, add = T) abline(v=0, h=0, col = 'grey') abline(v=-1, col = 'blue', lty=3) abline(v=1, c...
284 sym R (531 sym/8 pcs) 1 img