Publications by M
Document
##1. Describe this population distribution. Distributuion is slightly skewed to the right (mean is larger than median). Calculations below upper fencing show outliers suspected above 2668.5 square feet to be 2.526% of the total sampling population. area <- ames$Gr.Liv.Area price <-ames$SalePrice summary(area) ## Min. 1st Qu. Median Mean 3...
5003 sym R (62272 sym/49 pcs) 7 img
Document
##1.a.-c. sensitivity <- (.9*.94) sensitivity ## [1] 0.846 false_negative <- (.9*.06) false_negative ## [1] 0.054 false_positive <- (.1*.1) false_positive ## [1] 0.01 specificity <- (.9*.1) specificity ## [1] 0.09 ptest_pos<-sensitivity+false_positive ptest_pos ## [1] 0.856 ptruepos_iftestpos <- (sensitivity/ptest_pos) ptruepos_iftestpos ## [1] 0...
81 sym R (1162 sym/44 pcs)
Document
download.file("http://www.openintro.org/stat/data/bdims.RData", destfile = "bdims.RData") load("bdims.RData") #The Data (bdim) 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....
3242 sym R (3019 sym/35 pcs) 15 img
Document
load("kobe.RData") head(kobe) ## vs game quarter time description ## 1 ORL 1 1 9:47 Kobe Bryant makes 4-foot two point shot ## 2 ORL 1 1 9:07 Kobe Bryant misses jumper ## 3 ORL 1 1 8:11 Kobe Bryant misses ...
3305 sym R (5109 sym/43 pcs) 2 img
Document
download.file("http://www.openintro.org/stat/data/ames.RData", destfile = "ames.RData") load("ames.RData") population<- ames$Gr.Liv.Area n<-60 samp<- sample(population, n) hist(samp) summary(samp) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 630 1074 1380 1419 1655 2715 samp_1stQ<-1066 samp_3rdQ<-1706 ub_outlier<- s...
2616 sym R (3990 sym/30 pcs) 3 img
Document
Load COVID-19 Live Dataset from GitHub Site install.packages("jsonlite", repos="https://cran.rstudio.com/") ## ## The downloaded binary packages are in ## /var/folders/gl/j9l9d0p92674p5hmhrp86sbm0000gn/T//RtmpoZEbih/downloaded_packages library("jsonlite") json_file <- 'https://datahub.io/core/covid-19/datapackage.json' json_data <- fromJSON(pa...
124 sym R (2732312 sym/37 pcs)
Document
##9.2.5 n<-339 ar<-69 p<-ar/n;p ## [1] 0.2035398 'P Wilson- adjusted' ## [1] "P Wilson- adjusted" p_adj<-(ar+2)/(n+4);p_adj ## [1] 0.2069971 'Assumptions' ## [1] "Assumptions" n*p_adj ## [1] 70.17201 n*(1-p_adj) ## [1] 268.828 SE_adj<-sqrt(((p_adj*(1-p_adj))/(n+4))) CI<-c((p_adj-1.96*SE_adj),(p_adj+1.96*SE_adj)); CI ## [1] 0.1641197 0.2498745 9...
1110 sym R (1209 sym/20 pcs)
Document
download.file("http://www.openintro.org/stat/data/mlb11.RData", destfile = "mlb11.RData") load("mlb11.RData") ##What type of plot would you use to display the relationship between runs and one of the other numerical variables? Plot this relationship using the variable at_bats as the predictor. Does the relationship look linear? If you knew a team...
6745 sym R (6759 sym/38 pcs) 15 img
Quiz Chapter 9 and 10
##Suppose that as part of a program for counseling patients with many risk factors for diabetes, 100 obese patients are identified. From this group, 23 went on a highly restrictive diet. After one year, 9 out of those 23 patients are found to have gone off the diet and reverted to poor eating habits. Calculate and (round to three decimal places) ...
2083 sym R (596 sym/12 pcs)