########## Territory choice of pied flycatcher (Ficedula hypoleuca) ########## Generalized linear models [function glm] with logit link function ##### Data mydata <- read.csv2("C:\\Users\\rehamala\\Desktop\\R-skriptit+data\\R_data_PMFH_17+18_RH.csv") mydata$Decicion <- as.factor(mydata$Decicion) mydata$Year <- as.factor(mydata$Year) mydata$FH_F_age <- as.factor(mydata$FH_F_age) attach(mydata) summary(mydata) mydata <- na.omit ########### models for pied flycatcher [FH] territory choice in relation to phenotype of great tit females m2=glm(Decicion ~ Actual_clutch + Proportion + PM_F_ankle + FH_F_ankle + FH_F_age + Year, family = binomial (link="logit"), data=mydata) summary(m2) confint(m2) m2b=glm(Decicion ~ Actual_clutch + Proportion + PM_M_ankle + FH_F_ankle + FH_F_age + Year, family = binomial (link="logit"), data=mydata) summary(m2b) confint(m2b)