Publications by Kyra Ligas
Document
1. x <- 5 for (i in 2:20) { x[i] <- x[i-1]*1.5-1 } x ## [1] 5.00000 6.50000 8.75000 12.12500 17.18750 24.78125 ## [7] 36.17188 53.25781 78.88672 117.33008 174.99512 261.49268 ## [13] 391.23901 585.85852 877.78778 1315.68167 1972.52251 2957.78376 ## [19] 4435.67564 6652.51346 2. #a. Disease_rate <- c(0.25, 0.83, 0.76...
96 sym R (10096 sym/50 pcs)
Document
1. Cars2020 <- read.csv("~/Documents/R code for Stats/Cars2020.csv") str(Cars2020) ## 'data.frame': 110 obs. of 21 variables: ## $ Make : chr "Acura" "Acura" "Audi" "Audi" ... ## $ Model : chr "MDX" "RLX" "A3" "A4" ... ## $ Type : chr "SUV" "Sedan" "Sedan" "Sporty" ... ## $ LowPrice : num 44.4 54.9 33.3 37.4 54.9 ... ## $ Hi...
572 sym Python (4880 sym/31 pcs) 7 img
Document
Part 1 movielength <- c(94,109,110,123,125,108,92,106,84,119,110,140) cat("Mean movies length (in min): \n", mean(movielength) , "minutes") ## Mean movies length (in min): ## 110 minutes paste0("The mean movie length is ", mean(movielength) , " minutes." ) ## [1] "The mean movie length is 110 minutes." Part 2 1 Recipes <- data.frame( Type = ...
118 sym
Statistical Computing Assignment 1
Part 1 1-4+2-3+5-7+11 ## [1] 5 4/9*(96-31) ## [1] 28.88889 21000/(1-(1+0.035)^-36) ## [1] 29570.5 25000*(1+(0.043/12))^(12*25) ## [1] 73109.21 (-1/3)+log(24)+exp(3)*sqrt((3/5)+3*5^-2) ## [1] 19.88786 Part 2 Create and store a vector of values starting at 5 and ending at 73, with the values increasing in increments of 4. vector<- c(seq(from =...
5070 sym Python (2488 sym/67 pcs)
Document
## ## Pearson's Chi-squared test with Yates' continuity correction ## ## data: hr$promotion_last_5years and hr$left ## X-squared = 56.262, df = 1, p-value = 6.344e-14 p-value interpretation: The p-value is very small, therefore the probability of these results being random is very small. chi-square test interpretation: There is a dependency be...
1309 sym
Document
## ## Welch Two Sample t-test ## ## data: hr1$average_montly_hours by hr1$Employee_Status ## t = 7.5323, df = 4875.1, p-value = 5.907e-14 ## alternative hypothesis: true difference in means between group Left and group Stayed is not equal to 0 ## 95 percent confidence interval: ## 6.183384 10.534631 ## sample estimates: ## mean in group Lef...
1518 sym
Document
## ## Pearson's product-moment correlation ## ## data: hr$satisfaction_level and hr$last_evaluation ## t = 12.933, df = 14997, p-value < 2.2e-16 ## alternative hypothesis: true correlation is not equal to 0 ## 95 percent confidence interval: ## 0.08916727 0.12082195 ## sample estimates: ## cor ## 0.1050212 p-value interpretation: The p...
1355 sym 4 img
Document
Histogram: Distribution of Employee Satisfaction Create a histogram of the satisfaction_level variable. The title should reflect a key takeaway from the distribution. Most employees have a satisfaction level > .50 There is a bigger portion of employees between the .1 - .11 satisfaction level Box Plot: Last Evaluation Scores Create a box plot of t...
1974 sym
Document
library(nycflights13) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 �...
498 sym R (3841 sym/11 pcs)
Document
library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union # Dataset 1: Customers customers <- tibble( customer_id = c(1, 2, 3, 4, 5), name = c("Alice", "Bob", "Charlie", ...
4457 sym R (5231 sym/39 pcs)