Publications by Mohamed Hassan-El Serafi
Data 605 HW6
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? choose(5,5)*choose(7,0) + choose(5,4)*choose(7,1) ## [1] 36 or phyper(1,7,5,5) * choose(12, 5) ## [1] 36 A certain congressional committee consists of 14 senators and 13 representati...
3034 sym Python (4051 sym/30 pcs)
Data 605 HW5
(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, 98%...
4868 sym
Data 605 HW4
library(doParallel) library(jpeg) library(foreach) library(png) library(OpenImageR) library(EBImage) # Using name of folder as path to images files=list.files(path="jpg", pattern = "*.jpg") height=1200 width=2500 scale=20 plot_jpeg <- function(path, add=FALSE) { jpg=readJPEG(path, native=T) res=dim(jpg)[2:1] if(!add) plot(1,1,xlim=c(1,res...
15 sym R (1502 sym/10 pcs) 3 img
Data 608 Assignment 1 - Infrastructure and Investment Jobs Act
library(tidyverse) library(stringr) library(reactable) Key Questions That Will Be Explored In This Analysis: Is the allocation equitable based on the population of each of the States and Territories, or is bias apparent? Does the allocation favor the political interests of the Biden administration? Infrastructure Investment & Jobs Act Funding Da...
5327 sym R (6673 sym/44 pcs) 6 img
Data 605 HW2
1. Problem Set 1, Part 1 Show that \(A^T A \neq AA^T\) in general. (Proof and demonstration.) For a special type of square matrix A, we get \(A^T A = AA^T\) Under what conditions could this be true? (Hint: The Identity matrix I is an example of such a matrix). library(tidyverse) library(tinytex) \[ A = \begin{bmatrix} 1 & 2 & 1 \\ 3 & 2 & 3 \\ \e...
2917 sym R (2516 sym/33 pcs)
Data 605 HW1
library(gifski) # Plot M x <- c(rep(-1.5,500), seq(-1,-1.5,length.out=500), seq(-1,-0.5,length.out=500), #rep(1,500), #seq(2,1,length.out=500), rep(-0.5,500)) y <- c(seq(-2,2,length.out=500), seq(-2,2,length.out=500), seq(-2,2,length.out=500), seq(-2,2,length.out=500)) z=rbind(x,y) plo...
61 sym R (2803 sym/9 pcs) 7 img
Data 606 Final Project
Abstract This analysis examines factors that influence an NBA basketball player’s WinShare totals. Using specific explanatory variables within the dataset, I explore the linear relationship between WinShares and each selected variable using a multiple linear regression model. Each observation in the dataset are players who were drafted between 19...
7951 sym R (8030 sym/33 pcs) 17 img 2 tbl
Data 607 Final Project
Introduction With the game on the line, there are many variables that can affect the outcome. The pressure of winning games can affect the performances of players and their respective teams. For this analysis, we will focus on the performance of players and teams during clutch situations, exploring how their performances are affected by pressure si...
8903 sym Python (27171 sym/92 pcs) 44 img
Data 606 Lab 9 - Multiple Linear Regression
Grading the professor Many college courses conclude by giving students the opportunity to evaluate the course and the instructor anonymously. However, the use of these student evaluations as an indicator of course quality and teaching effectiveness is often criticized because these measures may reflect the influence of non-teaching related characte...
15493 sym 22 img
Tidyverse Extend Assignment
Introduction: For my tidyverse create assignment, I chose a data set containing roster information for all NCAA Women’s Basketball teams. I intend to use readr to read in my data, dplyr to manipulate my data and ggplot2 to display my analysis. Loading/Installing Packages library(ggplot2) library(dplyr) ## ## Attaching package: 'dplyr' ## The fo...
3403 sym R (1997 sym/11 pcs) 2 img 2 tbl