Publications by Raymond Fries
605_Discussion_8
Chapter 8.1 Laws of large numbers Question 3 Write a program to toss a coin 10,000 times. Let S n be the number of heads in the first n tosses. Have your program print out, after every 1000 tosses, S n − n/2. On the basis of this simulation, is it correct to say that you can expect heads about half of the time when you toss a coin a large n...
440 sym R (1579 sym/2 pcs)
606_Hw_5
Heights of adults. (7.7, p. 260) Researchers studying anthropometry collected body girth measurements and skeletal diameter measurements, as well as age, weight, height and gender, for 507 physically active individuals. The histogram below shows the sample distribution of heights in centimeters. What is the point estimate for the average height...
9010 sym R (1739 sym/19 pcs) 5 img
605_Hw_7
Question 1 1. Let X1, X2, . . . , Xn be n mutually independent random variables, each of which is uniformly distributed on the integers from 1 to k. Let Y denote the minimum of the Xi’s. Find the distribution of Y. \[1\leq j \leq k\] \[total\hspace{.2cm}options\hspace{.2cm}where\hspace{.1cm}Y=1\hspace{.1cm} is\hspace{.2cm} k^n\] \[Total\hspa...
2648 sym R (1068 sym/16 pcs)
Wk 6 Combinatronics
Question 1 q1<-choose(5,1)*choose(7,4)+choose(5,0)*choose(7,5) A bag contains 5 green and 7 red jellybeans. How many ways can 5 jellybeans be withdrawn from the bag so that the number of green ones withdrawn will be less than 2? There are \({}_{5}C_1*{}_{7}C_4+{}_{5}C_0*{}_{7}C_5\)=196 ways. Question 2 q2 <- choose(13,4)*choose(14,1)+choose(13...
4560 sym R (2481 sym/11 pcs)
605 Discussion 4
\[\begin{equation} \begin{aligned} B = \begin{bmatrix} 2 & 1 & 3\\ -2 & 3 & 5\\ 2 & 1 & 2 \end{bmatrix} v = \begin{bmatrix} 11 \\ 5 \\ 8 \\ \end{bmatrix} \end{aligned} \end{equation}\] \[\begin{equation} \begin{aligned} a1 = \begin{bmatrix} 2\\ -2\\ 2\\ \end{bmatrix} + a2 = \begin{bmatrix} 1 \\ 3 \\ 1 \\ \end{bmatrix} + a3= \begin{bmatrix}...
928 sym R (162 sym/2 pcs)
605_hw_2: LU Decomposition function
#Randomly generated 5 by 5 matrix ma <- matrix(sample.int(500,size=25,replace=FALSE),nrow=5,ncol=5) #LU decomposition function lu_decomp_square <- function(x){ #make sure that x is a square matrix, and larger than 1 if(nrow(x) != ncol(x) | (nrow(x) == 1 & ncol(x) == 1)){ message("This function is only for square matrices greater than 1 ...
8 sym R (2391 sym/3 pcs)
607_wk_one_hw
library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union soccer_matches <-read.csv('soccer-spi/spi_matches.csv') #function that basically filters each team from the socce...
11 sym R (24578 sym/6 pcs)
607 Hw 3
607_Wk_3_Hw Raymond Fries 9/10/2021 1. Using the 173 majors listed in fivethirtyeight.com’s College Majors dataset [https://fivethirtyeight.com/features/the-economic-guide-to-picking-a-college-major/], provide code that identifies the majors that contain either “DATA” or “STATISTICS” majors_data <- read.csv('https://raw.githubuserconte...
2124 sym R (3112 sym/18 pcs)
Project 1
607_Proj_One Raymond Fries 9/19/2021 Objective The object of this project is to take a poorly constructed text file and turn it into a nicely structured csv file that can easily be parsed for analyzation. Connections and data First aspect is to connect to the data and read it. The conn variable connects to the tournament text file. Chess_data...
5418 sym R (78000 sym/12 pcs)
605_Hw_5: probabilities
Question 1 (Bayesian) A new test for multinucleoside-resistant (MNR) human immunodeficiency virus type 1 (HIV-1) variants was recently developed. The test maintains 96% sensitivity, meaning that, for those with the disease, it will correctly report “positive” for 96% of them. The test is also 98% specific, meaning that, for those without the...
6265 sym R (2243 sym/27 pcs)