Publications by George Cruz
George Cruz - R HW-2
Use the summary function to gain an overview of the data set. Then display the mean and median for at least two attributes. library(magrittr) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## in...
583 sym R (5336 sym/16 pcs)
George Cruz - R HW-1
#1. Write a loop that calculates 12-factorial factorial <-1 for (i in 1:12) { factorial <- factorial*i } print (factorial) ## [1] 479001600 #2. Show how to create a numeric vector that contains the sequence from 20 to 50 by 5. vect <- seq(20, 50, by=5) print (vect) ## [1] 20 25 30 35 40 45 50 #3. Create the function quadratic that take...
317 sym R (368 sym/6 pcs)
Final R Bridge Project
Factors affecting Vocabulary Acquisition In The Nature of Vocabulary Acquisition, Robert J. Sternberg of Yale University made a profound statement: > “… vocabulary is probably the best single indicator of a person’s overall level of intelligence. Stated in another way, if one wants a quick and not-too-dirty measure of a person’s psychomet...
4962 sym R (15193 sym/28 pcs) 11 img
DS606-Lab2
library(tidyverse) library(openintro) ggplot(data = nycflights, aes(x = dep_delay)) + geom_histogram() ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`. ggplot(data = nycflights, aes(x = dep_delay)) + geom_histogram(binwidth = 15) ggplot(data = nycflights, aes(x = dep_delay)) + geom_histogram(binwidth = 150) Exerc...
5468 sym R (4562 sym/32 pcs) 8 img
DS606-HW2
library(tidyverse) library(openintro) Stats Scores statScores <- (c(57, 66, 69, 71, 72, 73, 74, 77, 78, 78, 79, 79, 81, 81, 82, 83, 83, 88, 89, 94)) boxplot(statScores) Mix and Match (a). This histogram is symmetrical, unimodal and normally distributed. It matches to boxplot 2. (b). This histogram appears symmetrical and unimodal?, it would b...
5071 sym R (269 sym/6 pcs) 1 img
DS607 - HW 2
Homework 2 Initial Setup I selected 6 recent popular movies and configured a Google form to capture people responses. The form is available at: https://docs.google.com/forms/d/e/1FAIpQLSc7RBE8IycRWMCkxoVtQ86lcrRu2H-RJDahN24TMkPFOg4zdw/viewform I also setup a Google Sheet document which would receive the reponses. The initial Idea was to write a ...
2679 sym R (5624 sym/20 pcs)
Data606 - Lab1 - GC
library(tidyverse) library(openintro) Exercise 1 arbuthnot$girls ## [1] 4683 4457 4102 4590 4839 4820 4928 4605 4457 4952 4784 5332 5200 4910 4617 ## [16] 3997 3919 3395 3536 3181 2746 2722 2840 2908 2959 3179 3349 3382 3289 3013 ## [31] 2781 3247 4107 4803 4881 5681 4858 4319 5322 5560 5829 5719 6061 6120 5822 ## [46] 5738 5717 5847 6203 6...
5031 sym R (4310 sym/16 pcs) 3 img
DS607- GC- HW1
Where Police have killed Americans in 2015 Police brutality against African Americans has been on the spotlight during 2020, stealing some attention from the Covid 19 pandemic and motivating protests and riots all across America. The death of George Floyd in police custody, acted as a catalyst to the protests. These were exacerbated by a somewhat...
2104 sym R (7255 sym/13 pcs)
DS606 - Lab4
library(tidyverse) library(openintro) knitr::kable(head(fastfood)) restaurant item calories cal_fat total_fat sat_fat trans_fat cholesterol sodium total_carb fiber sugar protein vit_a vit_c calcium salad Mcdonalds Artisan Grilled Chicken Sandwich 380 60 7 2 0.0 95 1110 44 3 11 37 4 20 20 Other Mcdonalds Single Bacon Smokehouse Burger 840 410...
12280 sym R (3422 sym/35 pcs) 15 img
DS606-Lab7
#Inference for Numerical Data library(tidyverse) library(openintro) library(infer) data(yrbss) Exercise 1 What are the cases in this data set? How many cases are there in our sample? Individual Youth behavior. There are 13,583 cases in our sample. Each case represents an individual student’s behavior and demographic info. glimpse(yrbss) ## ...
14513 sym R (7640 sym/45 pcs) 4 img