Untitled
unknown
plain_text
a year ago
449 B
4
Indexable
library(MASS) data<-Pima.tr #task1 niu0=70 mean_value<-mean(data$bp) #71.26 deviation_value<-sd(data$bp) sample_size <- length(data$bp) Tvalue <- (mean_value-niu0)/(deviation_value/sqrt(sample_size)) #1.55 pt(Tvalue, sample_size-1) #0.938903 1-pt(Tvalue, sample_size-1) #0.06109695 (1-pt(Tvalue, sample_size-1))*2 #0.1221939 shapiro.test(data$bp) #pvalue 0,3371 is bigger than 0,05 so for sure it is normal distributed with shapiro.test(data$bp)
Editor is loading...