Publications by Fares A
605_week13_discussion
A set of plastic spheres are to be made with a diameter of 1cm. If the manufacturing process is accurate to 1mm, what is the propagated error in the volume of the spheres? The formula for the volume of a sphere: \[ V = \frac{4}{3} \pi r^3 \] where \(r\) is the radius of the sphere. The relationship between the radius and diameter \(d\) of the ...
988 sym
607_Project4
I have chosen to use medical research papers to build a document.classifier. And I will be using the National Institutes of Health (NIH)’s PubMed Central (PMC) open access author manuscript database for this purpose. Loading the packages. library(tm) library(textTinyR) library(stringr) library(e1071) library(caret) Loading the documents....
3990 sym R (4316 sym/8 pcs) 2 img
605_week12_hm
Packages. library(dplyr) library(ggplot2) Data. data <- read.csv(full_path) head(data) ## Country LifeExp InfantSurvival Under5Survival TBFree PropMD ## 1 Afghanistan 42 0.835 0.743 0.99769 0.000228841 ## 2 Albania 71 0.985 0.983 0.99974 0.001143127 ## 3 ...
5405 sym R (5109 sym/23 pcs) 6 img
605_wek12_discussion
Packages. # Packages library(readxl) library(ggplot2) library(dplyr) library(tools) library(stringr) library(tidyr) library(lubridate) Data. Loading the dataset full_path <- paste0(path, "20200101-20240413_combined.xlsx") data <- read_excel(full_path, sheet = "Sheet1") full_path2 <- paste0(path2, "1980_combined.csv") data2 <- read.csv(...
4555 sym R (25264 sym/72 pcs) 26 img
607_week11_recommender_system_extraCredit
library(readxl) library(dplyr) library(tidyr ) library(DT) library(shiny) library(shinythemes) # Read the Excel file movie_ratings <- read_excel("C:/Users/teraw/Dropbox/_CUNY SPS MSDS/-- DATA 607/5- Modules/Week 11/Week 11 extra credit/MovieRatings.xlsx", sheet = "MovieRatings") # Convert to long format for easier computation ratings_long ...
394 sym R (4956 sym/11 pcs)
607_week11_recommender_system
Introduction YouTube, the world’s largest video sharing platform, uses an advanced recommendation system to personalize the viewing experience for its billions of users. YouTube aims to present relevant video suggestions, fostering discovery and continuous engagement across its vast content library. YouTube’s recommendation algorithm is a ...
5563 sym 1 img
605_Real_Estate_CT
Q: Using R, build a regression model for data that interests you. Conduct residual analysis. Was the linear model appropriate? Why or why not? A: I chose the real estate sales data set from the State of CT that covers the years 2001-2021 and has 1.05 million real estate sale records. library(readr) library(lubridate) library(ggplot2) library...
4325 sym R (11491 sym/42 pcs) 12 img
605_week11_hm
Exploring the cars data set. data(cars) summary(cars) ## speed dist ## Min. : 4.0 Min. : 2.00 ## 1st Qu.:12.0 1st Qu.: 26.00 ## Median :15.0 Median : 36.00 ## Mean :15.4 Mean : 42.98 ## 3rd Qu.:19.0 3rd Qu.: 56.00 ## Max. :25.0 Max. :120.00 plot(cars$speed, cars$dist, main = "St...
1498 sym 4 img
Sentiment analysis - Depression vs No Depression
Starting with the base code in Chapter 2 of the book “Text Mining with R” by Silge and Robinson in their analysis on sentiment analysis (Silge & Robinson, n.d.): Silge, J., & Robinson, D. (n.d.). Sentiment analysis. In Text Mining with R: A Tidy Approach. Retrieved March 31, 2024, from https://www.tidytextmining.com/sentiment.html library(ti...
4279 sym R (21107 sym/73 pcs) 9 img
605_Ch11-Ex22
Taking on exercise 22 at the end of chapter 11 (page 469): Problem: Show that if \(P\) is the transition matrix of a regular Markov chain, and \(W\) is the matrix each of whose rows is the fixed probability vector corresponding to \(P\), then \(PW = W\), and \(W^k = W\) for all positive integers \(k\). Solution: First, to define the transitio...
731 sym