Publications by Folorunsho Atanda
Assignment_5
Load libraries library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.2 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.2 ✔ ...
446 sym R (4688 sym/16 pcs) 2 img
Project_1
Objective: Extract information from a text file to create a csv. Text file contains a chess tournament information. csv file is going to have Players Name, Player’s State, Total Number of Points, Player’s Pre-Rating, and Opponent’s Average Pre-Rating library(tidyverse) ## ── Attaching core tidyverse packages ────────�...
882 sym R (5064 sym/17 pcs)
Document
library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.2 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.2 ✔ tidyr 1.3.0...
1610 sym R (3466 sym/34 pcs)
Assignment_1
Objective: The objective of this assignment is to take data set and make a subset of it. For my task I took the data set that shows the approval rating of Trump and Biden based on how they handle the covid pandemic ## import data.table library library(data.table) ## import ggplot library library(ggplot2) ## import covid approval poll csv ur...
1179 sym R (2113 sym/5 pcs) 2 img
Project
Project What factors contribute to how frequently a person as an affair? Using the loaded table we shall see if there is any coorelation between the frequency of affairs and gender, age, years married, and whether they have children or not ## load table into R library(data.table) library(dplyr) ## ## Attaching package: 'dplyr' ## The foll...
1797 sym R (6311 sym/27 pcs) 4 img
Homework 2
Load csv library(data.table) CASchools <- fread("C:\\Users\\NBMF48\\Desktop\\SPS\\Bridge\\R\\Homework\\Homework2\\CASchools.csv") Question 1 ## Overview of the data set summary(CASchools) ## V1 district school county ## Min. : 1.0 Min. :61382 Length:420 Length:420 ## 1st ...
220 sym R (12051 sym/24 pcs)
Week 1 Assignment
#Question 1 factorial <- 1 for (n in 1:12){ factorial <- factorial * n } print(factorial) ## [1] 479001600 sprintf('The roots of %.0fx^2 + %.0fx + %.0f are:', 1, 1, 1) ## [1] "The roots of 1x^2 + 1x + 1 are:" #Question 2 num_vec <- as.numeric(5*(4:10)) print(num_vec) ## [1] 20 25 30 35 40 45 50 #Question 3 quad <- function(a, b, c){ if (...
47 sym