Differences

This shows you the differences between two versions of the page.

--- c:ma:2019:eg_script [2021/11/09 12:58] – created hkimscil
+++ c:ma:2019:eg_script [2021/11/09 13:00] (current) – hkimscil
@@ Line 6: / Line 6: @@
 summary(m.Sales.PriceShelveLoc)
-plot(Price[ShelveLoc=="Bad"], Sales[ShelveLoc=="Bad"], col="blue", xlab="Price", ylab="Sales", main="Sales vs. Price, Shlv Loc")
+plot(Price[ShelveLoc=="Bad"], Sales[ShelveLoc=="Bad"],
+     col="blue", xlab="Price", ylab="Sales",
+     main="Sales vs. Price, Shlv Loc")
 points(Price[ShelveLoc=="Medium"], Sales[ShelveLoc=="Medium"], col="red")
 points(Price[ShelveLoc=="Good"], Sales[ShelveLoc=="Good"], col="green")
-legend("topright", legend=c("Good", "Medium", "Bad"), col=c("green", "red", "blue"), pch=c(1,16), bty="n")
+legend("topright", legend=c("Good", "Medium", "Bad"),
+       col=c("green", "red", "blue"), pch=c(1,16), bty="n")
 abline(a = 16.89765, b=-0.056698, col = "green", lwd=3)
 abline(a = 13.86382, b=-0.056698, col = "red", lwd=3)
 abline(a = 11.832984, b=-0.056698, col = "blue", lwd=3)
+</code>
+독립변인 간의 상호작용효과 보기
+<code>
 m.Sales.PriceShelveLoc.ia <- lm(Sales ~ Price + ShelveLoc + Price:ShelveLoc, data=Carseats)
 summary(m.Sales.PriceShelveLoc.ia)
-plot(Price[ShelveLoc=="Bad"], Sales[ShelveLoc=="Bad"], col="blue", xlab="Price", ylab="Sales", main="Sales vs. Price, Shlv Loc")
+plot(Price[ShelveLoc=="Bad"], Sales[ShelveLoc=="Bad"],
+     col="blue", xlab="Price", ylab="Sales",
+     main="Sales vs. Price, Shlv Loc")
 points(Price[ShelveLoc=="Medium"], Sales[ShelveLoc=="Medium"], col="red")
 points(Price[ShelveLoc=="Good"], Sales[ShelveLoc=="Good"], col="green")
-legend("topright", legend=c("Good", "Medium", "Bad"), col=c("green", "red", "blue"), pch=c(1,16), bty="n")
+legend("topright", legend=c("Good", "Medium", "Bad"),
+       col=c("green", "red", "blue"), pch=c(1,16), bty="n")
@@ Line 28: / Line 37: @@
 bad <- 11.832984
-p.good <- -0.055220 -0.010564
+p.good <- -0.055220 + -0.010564
 p.medium <- -0.055220 + 0.001984
 p.bad <- -0.055220
@@ Line 37: / Line 46: @@
 </code>