Publications by Tyler Frankenberg
607 Final Project Part 2 - Market Basket Analysis
Intro: Market Basket Analysis The purpose of a Market Basket Analysis is to identify and visualize the impact of statistically significant associations between unique items across a multitude of occurrences. As its name suggests, it originated in the analysis of items frequently purchased together in supermarket transactions, and we’ll use it i...
7801 sym R (16338 sym/27 pcs) 6 img
CUNY605_Wk3Assignment
###Problem Set 1 What is the rank of the Matrix \(A\)? \[ A = \begin{vmatrix} 1 & 2 & 3 & 4 \\ -1 & 0 & 1 & 3 \\ 0 & 1 & -2 & 1 \\ 5 & 4 & -2 & -3 \end{vmatrix} \] Using the function Matrix::rankMatrix, we find that the rank of this matrix is 4. This indicates that all four rows of the Matrix \(A\) are linearly independent of...
3970 sym R (247 sym/4 pcs)
CUNY605_Wk2Assignment
Problem Set 1: Show that \(A^TA \ne AA^T\) in general. (Proof and demonstration.) \(A^TA \ne AA^T\) in general if and only if we cannot demonstrate a matrix \(A\) for which \(A^TA = AA^T\). Let us define the matrix \(A\) as: \(A = \begin{vmatrix} 1 & 3 \\ -8 & 6 \end{vmatrix}\) A <- matrix(c(1, 3, -8, 6), nrow=2, ncol=2, byrow=TRUE) Then \(A^T ...
1482 sym R (6913 sym/25 pcs)
CUNY605_Wk1DiscussionPost
We start with a system of 3 linear equations. \[ \begin{align} 3x + 2y & = 1 \\ x - y & = 2 \\ 4x + 2y & = 2 \\ \end{align} \] We’ll first subtract the first from the third row, to eliminate a \(y\) variable. This gives us: \[ \begin{align} x - y & = 2 \\ x & = 1 \\ \end{align} \] We can plug our newfound value of \(x\) into the othe...
1026 sym
CUNY605_Wk1Assignment
For this assignment, build the first letters for both your first and last name using point plots in R. library(gifski) x1 = c(seq(-1.5, -0.5, length.out=1000), rep(-1, 1000), seq(0, 0.75, length.out=750), rep(0, 1000), seq(0, 0.5, length.out=500)) y1 = c(rep(1, 1000), seq(-1, 1, length.out=1000), rep(1, 750), seq(-1, 1, l...
439 sym R (1046 sym/4 pcs) 2 img
CUNY605_Week5_Assignment
(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 disease, 9...
5148 sym R (5002 sym/41 pcs)
CUNY605_Week6_Assignment
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? 5*7*6*5*4 ## [1] 4200 A certain congressional committee consists of 14 senators and 13 representatives. How many ways can a subcommittee of 5 be formed if at least 4 of the members...
3206 sym R (632 sym/26 pcs)
CUNY621_Wk3_LMR6_1
Import packages library(tidyverse) Import data url <- "https://raw.githubusercontent.com/curdferguson/data621/main/datasets/sat.txt" sat <- read_tsv(url, skip = 1, col_names = c("state", "expend", "ratio", "salary", "takers", "verbal", "math", "total"), show_col_types=FALSE) sat <- column_to_rownames(sat, var="state") Glimpse dataset struct...
4981 sym R (4918 sym/28 pcs) 5 img
CUNY621_Wk3_LMR3_4
Import packages library(tidyverse) Import data url <- "https://raw.githubusercontent.com/curdferguson/data621/main/datasets/sat.txt" sat <- read_tsv(url, skip = 1, col_names = c("state", "expend", "ratio", "salary", "takers", "verbal", "math", "total"), show_col_types=FALSE) Glimpse dataset structure and each column’s summary statistics sat...
2934 sym R (3863 sym/19 pcs)