http://www.commres.net/ 2026-04-17T15:14:40+00:00 http://www.commres.net/ http://www.commres.net/_media/wiki/logo.png text/html 2024-09-23T22:52:12+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.commres.net/c/ma/2023/schedule/anova_note?rev=1727131932&do=diff ANOVA 설명문서 ANOVA e.g.1 # ANOVA set.seed(1024) n <-30 s1 <- round(rnorm(n, 5.6, 1),0) s2 <- round(rnorm(n, 5.9, 1),0) s3 <- round(rnorm(n, 6.5, 1),0) s1 s2 s3 sam <- c(s1,s2,s3) sam group <- c(rep("g1",n), rep("g2",n), rep("g3",n)) group sa <- data.frame(sam,group) sa attach(sa) aov.sa <- aov(sam ~ group, data=sa) summary(aov.sa) df.tot <- (3*n)-1 ss.tot <- var(sam)*df.tot var.tot <- var(sam) df.tot ss.tot var.tot df.bet <- 3 - 1 df.s1 <- n-1 df.s2 <- n-1 df.s3 <- n-1 df.within <- df.s1+d… text/html 2023-10-15T12:08:46+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.commres.net/c/ma/2023/schedule/note_r?rev=1697371726&do=diff # read # http://commres.net/wiki/Correlation # http://commres.net/wiki/Regression # http://commres.net/wiki/Multiple Regression # http://commres.net/wiki/Partial_and_semipartial_correlation data("marketing", package = "datarium") head(marketing, 4) length(marketing$sales) attach(marketing) m.sa.all <- lm(sales~., data=marketing) summary(m.sa.all) m.sa.yt <- lm(sales~youtube, data=marketing) m.sa.fb <- lm(sales~facebook, data=marketing) m.sa.np <- lm(sales~newspaper, data=marketing) summary(m…