Publications by Nikki Faroughi
Lab 1
Load the Tidyverse Library library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.8 ✔ dplyr 1.0.10 ## ✔ tidyr 1.2.1 ✔ stringr 1...
293 sym R (2833 sym/19 pcs) 1 img
Lab 3
library(DiagrammeR) bayes_probability_tree <- function(prior, true_positive, true_negative) { if (!all(c(prior, true_positive, true_negative) > 0) && !all(c(prior, true_positive, true_negative) < 1)) { stop("probabilities must be greater than 0 and less than 1.", call. = FALSE) } c_prior <- 1 - prior c_tp <- 1 - true...
36 sym R (2843 sym/19 pcs)
Lab 3
download.file("http://www.openintro.org/stat/data/bdims.RData", destfile = "bdims.RData") load("bdims.RData") head(bdims) ## bia.di bii.di bit.di che.de che.di elb.di wri.di kne.di ank.di sho.gi che.gi ## 1 42.9 26.0 31.5 17.7 28.0 13.1 10.4 18.8 14.1 106.2 89.5 ## 2 43.7 28.5 33.5 16.9 30.8 14.0 11.8 20....
645 sym 7 img
Lab 5
download.file("http://www.openintro.org/stat/data/ames.RData", destfile = "ames.RData") load("ames.RData") area <- ames$Gr.Liv.Area price <- ames$SalePrice summary(area) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 334 1126 1442 1500 1743 5642 hist(area) #Exercise 1 The population distribution is skewed to the rig...
811 sym Python (66782 sym/26 pcs) 6 img
Ch4 HW
#4.3.1a pnorm(1.5)-pnorm(-1.5) ## [1] 0.8663856 #4.3.1b tot <- pnorm(2.5) 1-tot ## [1] 0.006209665 #4.3.1c tot <- pnorm(3.5) tot2 <- 1-tot tot2*2 ## [1] 0.0004652582 #4.3.2a qnorm(0.9) ## [1] 1.281552 #4.3.2b qnorm(0.1) ## [1] -1.281552 #4.3.9a 1-pnorm(164,155,27) ## [1] 0.3694413 #4.3.9b pnorm(137,155,27) ## [1] 0.2524925 #4.3.9c pnorm(186,15...
432 sym
exam
dbinom(0,7,0.03) ## [1] 0.8079828 dbinom(1,7,0.03) ## [1] 0.1749241 dbinom(2,7,0.03) ## [1] 0.01623007 dbinom(3,7,0.03) ## [1] 0.0008366017 dbinom(4,7,0.03) ## [1] 2.587428e-05 dbinom(5,7,0.03) ## [1] 4.801413e-07 dbinom(6,7,0.03) ## [1] 4.94991e-09 dbinom(7,7,0.03) ## [1] 2.187e-11 1-pbinom(3,7,0.03) ## [1] 2.635939e-05 pbinom(2,7,0.03) ## [1] 0...
58 sym 3 img
Ch5
#5.1.1 - 29.7% ((12/64)+(6/64)+(1/64)) ## [1] 0.296875 #5.1.2 - 35.9% ((12/64)+(8/64)+(3/64)) ## [1] 0.359375 #5.2.4abc - 28.9%, pnorm(165, 155, 27)-pnorm(145, 155, 27) ## [1] 0.2888935 27/sqrt(431) ## [1] 1.300544 pnorm(165, 155, 9)-pnorm(145, 155, 9) ## [1] 0.7334795 #5.2.9 se = 7 (pnorm(5,4.2,0.28) - pnorm(4,4.2,0.28)) ## [1] 0.7603374 #5.2.1...
155 sym
Lab 6
download.file("http://www.openintro.org/stat/data/ames.RData", destfile = "ames.RData") load("ames.RData") population <- ames$Gr.Liv.Area samp <- sample(population, 60) mean(samp) ## [1] 1524.667 median(samp) ## [1] 1530.5 hist(samp) #Exercise 1 The data is skewed to the right. The typical size within my data sample is 1476. 1476 is the val...
675 sym Python (919 sym/12 pcs) 1 img
Lab 7
download.file("http://www.openintro.org/stat/data/nc.RData", destfile = "nc.RData") load("nc.RData") #Exercise 1 the cases are the births recorded in NC. There are 1000 cases. summary(nc) ## fage mage mature weeks premie ## Min. :14.00 Min. :13 mature mom :133 Min. :20.00 full te...
485 sym 3 img
Quiz6
#1 mean <- c(1.20) sd <- c(0.14) se<-c(0.14/sqrt(30)) x <-qt(0.975,29) y <- x*se mean-y ## [1] 1.147723 mean+y ## [1] 1.252277 #3 mean <- c(25) sd <- c(10) se <- c(10/sqrt(10)) x <- c(2.56) y <- x*se mean-y ## [1] 16.90457 mean+y ## [1] 33.09543 mean <- c(23) sd <- c(8) se <- c(8/sqrt(10)) x <- c(2.56) y <- x*se mean-y ## ...
26 sym