product <- read.csv("C:/Rwork/dataset2/product.csv", header = TRUE)
head(product)
summary(product)
sd(product$제품_친밀도); sd(product$제품_적절성); sd(product$제품_만족도)
cor(product$제품_친밀도, product$제품_적절성)
cor(product$제품_친밀도, product$제품_만족도)
cor(product$제품_적절성, product$제품_만족도)
cor(product$제품_적절성 + product$제품_친밀도, product$제품_만족도)
cor(product, method = "pearson")
library(corrgram)
corrgram(product)
corrgram(product, upper.panel = panel.conf)
corrgram(product, lower.panel = panel.conf)
library(PerformanceAnalytics)
chart.Correlation(product, histogram = , pch = "+")
cor(product, method = "spearman")
