# 4. přednáška - závislosti rm(list=ls()) # vyčistí pracovní prostor # nová data # příjem = c(200,150,80,70,60,60,20,20,18,18,15,15,10,10) Skupina = factor(rep(1:3,c(2,4,8)),labels=c("žlutí","modří","černí")) Platy=data.frame(příjem,Skupina) # pro příoadné save (Platy,file="data/Platy.RData") # použití tapply(příjem,Skupina,length) tapply(příjem,Skupina,mean) tapply(příjem,Skupina,sd) tapply(příjem,Skupina,var) summary(příjem) sd(příjem) var(příjem) plot(příjem~Skupina) plot(příjem~as.integer(Skupina),pch=3) points(1:3,tapply(příjem,Skupina,mean),pch=16,ces=2,col=2) abline(h=mean(příjem),lty=3) # klasická data Kojeni data(Kojeni) attach(Kojeni) plot(vyska.o~Vzdelani,data=Kojeni,col="yellow") # # korelace plot(hmotnost~delka) abline(h=mean(hmotnost),v=mean(delka),lty=3) cov(hmotnost,delka) cov(scale(hmotnost),scale(delka)) cor(hmotnost,delka) cov(hmotnost/1000,delka) cor(hmotnost/1000,delka)