# závislost spojitých data(Kojeni) plot(vyska.o~vyska.m,data=Kojeni,xlab="výška matky",ylab="výška otce") abline(lm(vyska.o~vyska.m,data=Kojeni)) a<-lm(vyska.m~vyska.o,data=Kojeni) abline(c(-coef(a)[1],1)/coef(a)[2],lty=2) #legend("bottomright",legend=c(expression(y=b[0]+b[1]x),expression(x=c[0]+c[1]y)),lty=1:2) legend("bottomright",legend=c("y=b[0]+b[1]x","x=c[0]+c[1]y"),lty=1:2) # cor.test(~vyska.m+vyska.o,data=Kojeni) # # ještě Spearmanův korelační koeficient data(Spotreba) attach(Spotreba) plot(umrtnost~alkohol,xlab="alkohol",ylab="úmrtnost") cor(Spotreba,method="p") # 0.9563193 cor(Spotreba,method="s") # 0.7727273 cor(log(Spotreba),method="s") # 0.7727273 cor(log(Spotreba),method="p") # 0.900719 plot(log(umrtnost)~log(alkohol),data=Spotreba,xlab="alkohol",ylab="úmrtnost") cor.test(~umrtnost+alkohol,data=Spotreba,method="spearman") # regrese rm(list=ls()) # vyčištění pracovního prostoru data(Melanom) # podá data attach(Melanom) summary(Melanom) # přehled proměnných plot(lat~long) hist(mort) plot(mort~long) plot(mort~lat) plot(mort~Ocean) # plot(mort~lat) abline(lm(mort~lat)) summary(lm(mort~lat)) confint(lm(mort~lat)) # anova(lm(mort~lat)) anova(lm(mort~1)) # plot(mort~long) abline(lm(mort~long)) summary(lm(mort~long)) #