Publications by Data Whisperer
Flipped Assignment 09 - Group 1
Q1a) library(pwr) pwr.anova.test(k=4,n=NULL,f=sqrt(((1)^2)/4.5) ,sig.level = 0.05,power = 0.8) ## ## Balanced one-way analysis of variance power calculation ## ## k = 4 ## n = 13.28401 ## f = 0.4714045 ## sig.level = 0.05 ## power = 0.8 ## ## NOTE: n is number in each gr...
993 sym R (1823 sym/11 pcs) 5 img
Flipped Assignment 6 - Group 1
Question 1 ) Question 1a)Suppose we want to test the hypothesis that the mean concentrations of the two drugs are the same in urine specimens. State the appropriate hypothesis. Null Hypothesis: Ho:u1=u2 :u1-u2=0 (mean of aspirin a is equal to mean of aspirin b) Alternate Hypothesis: Ha : u1=!u2 :u1-u2=!0(mean of aspirin a and aspirin b are not...
1749 sym R (1561 sym/15 pcs) 3 img
Homework 3- Sujit Thakur
Question 2.32) Inspector <- c (1:12) Inspector <- as.character(Inspector) Caliper1 <- c(0.265,0.265,0.266,0.267,0.267,0.265,0.267,0.267,0.265,0.268,0.268,0.265) Caliper2 <- c(0.264,0.265,0.264,0.266,0.267,0.268,0.264,0.265,0.265,0.267,0.268,0.269) dat1 <- cbind(Inspector,Caliper1,Caliper2) dat1 <- as.data.frame(dat1) str(dat1) ## 'data.fram...
4632 sym R (4204 sym/33 pcs) 8 img
Homework 2 - Sujit Thakur
Question no 1 machine1<-c(16.03,16.04,16.05,16.05,16.02,16.01,15.96,15.98,16.02,15.99) machine2<-c(16.02,15.97,15.96,16.01,15.99,16.03,16.04,16.02,16.01,16.00) machmat<-cbind(machine1,machine2) machtab <- as.data.frame(machmat) Question 1a) State the hypotheses Answers :- Null Hypothesis: The means of machine1 and machine2 is 16: Ho:...
2467 sym R (2181 sym/15 pcs) 2 img
Q3)DOE Homework week 2
Question no 2 Getting Data Type <- c("Type1","Type1","Type1","Type1","Type1","Type1","Type1","Type1","Type1","Type1","Type2","Type2","Type2","Type2","Type2","Type2","Type2","Type2","Type2","Type2") dataq2 <- c(65,81,57,66,82,82,67,59,75,70,64,71,83,59,65,56,69,74,82,79) datamat <- cbind(Type,dataq2) data2 <- as.data.frame(datamat) data2$Type...
1731 sym R (1548 sym/11 pcs) 2 img
Flipped Assignment 4 - Group 2
Getting Data data <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/US_Japanese_Cars.csv") Question 1) data ## ï..USCars JapaneseCars ## 1 18 24 ## 2 15 27 ## 3 18 27 ## 4 16 25 ## 5 17 31 ## 6 15 35 ## 7 ...
1543 sym R (2472 sym/12 pcs) 6 img
Flipped assignment 3 - Group 3
Reading Data from the csv file data <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv") Descriptive Statistics for Heartbeats of Males Males<-data[1:65,3] Summary_males <- summary(Males) variance_males <- var(Males) standard_deviation_males <- sd(Males) IQR_males <- IQR (Males) Printing the Descriptive Sta...
1721 sym R (2773 sym/25 pcs) 5 img
Assignment 3 - Group 3
Reading Data from the csv file data <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv") Descriptive Statistics for Heartbeats of Males Males<-data[1:65,3] Summary_males <- summary(Males) variance_males <- var(Males) standard_deviation_males <- sd(Males) IQR_males <- IQR (Males) Printing the Descriptive Sta...
1737 sym R (2975 sym/25 pcs) 5 img
Flipped Assignment no 3 - Group 3
Reading Data from the csv file data <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv") Descriptive Statistics for Heartbeats of Males Males<-data[1:65,3] Summary_males <- summary(Males) variance_males <- var(Males) standard_deviation_males <- sd(Males) IQR_males <- IQR (Males) Printing the Descriptive St...
1786 sym R (3033 sym/25 pcs) 5 img
Flipped Assignment 5 - Group 1
Question 1 : One method for assessing the bioavailability of a drug is to note its concentration in blood and/or urine samples at certain periods of time after the drug is given. Suppose we want to compare the concentrations of two types of aspirin (types A and B) in urine specimens taken from the same person 1 hour after he/ she has taken the dr...
2545 sym R (767 sym/5 pcs)