265221 LAB 1

Appearance = c(8, 8, 8, 9, 7, 9, 9, 7, 8, 9) 
Thickness = c(8, 8, 7, 7, 7, 8, 9, 8, 7, 9) 
Spredability= c(7, 9, 9, 9, 8, 8, 7, 8, 6, 7) 
data1 = cbind(Appearance, Thickness, Spredability) 
print(data1) 

Appearance = c(8, 8, 8, 9, 7, 9, 9, 7, 8, 9) 
Thickness = c(8, 8, 7, 7, 7, 8, 9, 8, 7, 9) 
Spredability= c(7, 9, 9, 9, 8, 8, 7, 8, 6, 7) 
data2 = data.frame(Appearance, Thickness, Spredability) 
print(data2)

data3 = data.frame(Appearance = c(8, 8, 8, 9, 7, 9, 9, 7, 8, 9),
                   Thickness = c(8, 8, 7, 7, 7, 8, 9, 8, 7, 9),
                   Spredability= c(7, 9, 9, 9, 8, 8, 7, 8, 6, 7))
print(data3)

{r}

A = c(8, 8, 8, 9, 7, 9, 9, 7, 8, 9) 
T= c(8, 8, 7, 7, 7, 8, 9, 8, 7, 9) 
S= c(7, 9, 9, 9, 8, 8, 7, 8, 6, 7) 

mean(A)

mean(T)

mean(S)

var(A)

var(T)

var(S)

cov(A,A)

cov(A,T)

cov(T,A)

data=cbind(A,T,S)
data

mean_vector=cbind(mean(A),mean(T),mean(S))
mean_vector

cov_matrix=cov(data)
cov_matrix

cor_matrix=cor(data)
cor_matrix

download ข้อมูล https://github.com/jgscott/STA380/blob/master/data/protein.csv

protein_data=read.csv(file.choose(), header=TRUE)

protein_data

head(protein_data) 

str(protein_data)

protein_data_nocountry=protein_data[-1]
protein_data_nocountry

summary(protein_data_nocountry)

cov(protein_data_nocountry)

cor(protein_data_nocountry)

TEST

ให้สร้างชุดข้อมูลที่ประกอบไปด้วยตัวแปร RedMeat WhiteMeat และ Eggs และคำนวณ ค่าเฉลี่ย ความแปรปรวรนของแต่ละตัวแปร เวกเตอร์ค่าเฉลี่ย และเมตริกซ์ตวามแปรปรวน