Publications by Sangeetha Sasikumar
Lab1_606
knitr::opts_chunk$set(echo = TRUE) library(tidyverse) library(openintro) library(dplyr) library(ggplot2) data('arbuthnot', package='openintro') arbuthnot$boys #will only show the number of boys baptized each year ## [1] 5218 4858 4422 4994 5158 5035 5106 4917 4703 5359 5366 5518 5470 5460 4793 ## [16] 4107 4047 3768 3796 3363 3079 2890 3231 322...
1641 sym R (3146 sym/26 pcs) 3 img
Assignment 3-607
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<-read.csv(paste0("https://raw.githubusercontent.com/fivethirtyeight/data/master/college-majo...
1486 sym
Lab 2 -606
library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.8 ✔ dplyr 1.0.9 ## ✔ tidyr 1.2.0 ✔ stringr 1.4.1 ## ✔ readr 2.1.2 ✔ f...
3555 sym R (6154 sym/32 pcs) 7 img
Lab 3 -606
glimpse(kobe_basket) ## Rows: 133 ## Columns: 6 ## $ vs <fct> ORL, ORL, ORL, ORL, ORL, ORL, ORL, ORL, ORL, ORL, ORL, ORL… ## $ game <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1… ## $ quarter <fct> 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3… ## $ time <fct> 9:47, 9:07, 8:11, 7:41...
2957 sym 2 img
Project 1 - 607
#Just taking an initial look at the data before anything. chess_reader <- readLines('https://raw.githubusercontent.com/Sangeetha-007/R-Practice/master/607/Projects/Project%201/tournamentinfo.txt', skip=1) ## Warning in readLines("https://raw.githubusercontent.com/Sangeetha-007/R- ## Practice/master/607/Projects/Project%201/tournamentinfo.txt", : ...
546 sym
Lab 4 - 606
R Markdown data("fastfood", package='openintro') head(fastfood) ## # A tibble: 6 × 17 ## restaur…¹ item calor…² cal_fat total…³ sat_fat trans…⁴ chole…⁵ sodium total…⁶ ## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> ## 1 Mcdonalds Arti… 380 60 7 2 0 95 ...
3670 sym 18 img
Assignment 4 - 607
Loading in the data from an excel sheet which I converted as csv. The key part of this assignment was to pass the blanks in as "NA". flights<-read.csv("https://raw.githubusercontent.com/Sangeetha-007/R-Practice/master/607/Assignments/Assignment%204/arrival%20delays%20.csv",na.strings=c("","NA")) print(flights) ## X X.1 Los.Angeles Pho...
915 sym 2 img
Project 2 - 607, Part 2
Loaded the csv. grades<-read.csv("https://gist.githubusercontent.com/Kimmirikwa/b69d0ea134820ea52f8481991ffae93e/raw/4db7b1698035ee29885d10e1a59bd902716ae168/student_results.csv") grades ## id name phone sex.and.age test.number term.1 term.2 term.3 ## 1 1 Mike 134 m_12 test 1 76 84 87 ## 2 2 Linda 270 ...
1533 sym
Project 2 - 607, Part 1
Loaded the data as csv. rejected<-read.csv("https://raw.githubusercontent.com/Sangeetha-007/R-Practice/master/607/Projects/Project%202/Admitted_Rejected%20-%20Sheet1.csv") rejected ## Gender Dept Admitted Rejected ## 1 Male A 512 313 ## 2 Female A 89 19 ## 3 Male B 353 207 ## 4 Female B ...
412 sym 1 img
Project 2 - 607, Part 3
Loaded in the data from the csv. fruits<-read.csv("https://raw.githubusercontent.com/Sangeetha-007/R-Practice/master/607/Projects/Project%202/Fruit%20Prices.csv") fruits ## item price calories ## 1 "banana" "$1" 105 ## 2 "apple" "0.75" 95 ## 3 "apple" "0.75" 95 ## 4 "peach" "$3" 55 ## 5 ...
870 sym 1 img