vjcitn
commented
4 years ago Please say exactly where you find the result given as 0.1410204 - please give a URL that shows exactly where it can be found. If it is an exercise solution in edx give the full URL and name of section and subsection. Thank you.
Hi, Prof. Rafa! I'm using R 3.6.3 version and doing some false negative demonstration based on edX PH525x course. i'm using exactly same code with the lecture video and the book. Here is it ` dat <- read.csv("mice_pheno.csv")
controlPopulation <- filter(dat,Sex == "F" & Diet == "chow") %>% select(Bodyweight) %>% unlist
hfPopulation <- filter(dat,Sex == "F" & Diet == "hf") %>% select(Bodyweight) %>% unlist
mu_hf <- mean(hfPopulation) mu_control <- mean(controlPopulation)
mu_hf - mu_control [1] 2.375517 (mu_hf - mu_control)/mu_control * 100 # percent increase [1] 9.942157 ' So far the result still the same with the video. After that: ' set.seed(1) N <- 5 hf <- sample(hfPopulation,N) control <- sample(controlPopulation,N) t.test(hf,control)$p.value
the result supposed to be0.1410204, but my result is0.5806661`. I retried for several times and several generating value method, but the result hasn't changed.Seeing that this material was last edited 4 years ago, then I think that there is a logarithmic difference in the 'set.seed()' function.
Glad if you help me