Untitled

 avatar
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...