Pertemuan 5

data=read.table("databayi.csv",header=TRUE,sep=";",dec=",",nrows=9)

matriks=cor(data)

heatmap(matriks)

data=read.table("databayi.csv",header=TRUE,sep=";",dec=",",nrows=9)

R=cor(data)

R

##            Y        X1        X2        X3
## Y  1.0000000 0.9470919 0.7611425 0.5603295
## X1 0.9470919 1.0000000 0.5340188 0.3899864
## X2 0.7611425 0.5340188 1.0000000 0.7844691
## X3 0.5603295 0.3899864 0.7844691 1.0000000

heatmap(R)

library(corrplot)

## Warning: package 'corrplot' was built under R version 4.5.3

## corrplot 0.95 loaded

data=read.table("databayi.csv",header=TRUE,sep=";",dec=",",nrows=9)

R=cor(data)

corrplot(R, method="color", addCoef.col="black")

data_jantung=matrix(c(35,25,20,40),
                    nrow=2,
                    byrow=TRUE)

rownames(data_jantung)=c("Laki-laki","Perempuan")
colnames(data_jantung)=c("Menderita","Tidak Menderita")

data_jantung

##           Menderita Tidak Menderita
## Laki-laki        35              25
## Perempuan        20              40