R Studio Assignment Help

• 5th May, 2022
• 16:57 PM

#1

library(datasets)
data(women)
str(women)

lm_1<-lm(weight ~ height, data=women)
summary(lm_1)

sum((women$height - mean(women$height))^2)

sum((women$weight - mean(women$weight))*(women$height - mean(women$height)))

#2
fcq<-read.csv("fcq.csv")
str(fcq)
x_b<-qcc(fcq$x, type="xbar.one")

#####
e<-read.csv("E.csv")
q<-rep(1:20,each=4)
s<-data.frame(e,q)
X<-e$X

my_grp<-qcc.groups(data=X, sample=q)
my_grp

x_bar_cht<-qcc(my_grp, type="xbar")
r_bar_cht<-qcc(my_grp, type="R")

shapiro.test(X)

#3

library(qcc)
#P2
hosp<-read.csv("Hosp.csv")
str(hosp)
hosp$X<-NULL
hosp$X.1<-NULL
hosp$X.2<-NULL

x_b<-qcc(hosp$X, type="xbar.one")

###
F<-read.csv("Fq.csv")
w<-rep(1:15,each=10)
str(F)

f<-F$X
my_grp_1<-qcc.groups(data=f, sample=w)
x_bar_cht_1<-qcc(my_grp_1, type="xbar")
s_bar_cht<-qcc(my_grp_1, type="S")
r_bar_cht<-qcc(my_grp_1, type="R")

F_x<-f[1:90]
F_x<-append(F_x, f[101:150])
w_1<-rep(1:14,each=10)
my_grp_2<-qcc.groups(data=F_x, sample=w_1)
x_bar_cht_1<-qcc(my_grp_2, type="xbar")
s_bar_cht<-qcc(my_grp_2, type="S")
r_bar_cht<-qcc(my_grp_2, type="R")