Diplomová práce – Prostorová neurčitost geodat v ... - kvhem

pm2=c(rep(0,počet))for (i in 1:počet){pm1[i]=data[i,4]pm2[i]=data[i,7]}pm1pm2prediktor_C=matrix(c(pm1,pm2),ncol=2,byrow=F)prediktor_C#pojmenování sloupcůprediktor_C = data.frame (prediktor_C)names (prediktor_C)= c("obvod_les", "vyskyt")#regresevysledek_C = glm (vyskyt ~ obvod_les, family = binomial, data = prediktor_C)summary (vysledek_C)confint (vysledek_C)#prediktor Dpočet=628pm1=c(rep(0,počet))pm2=c(rep(0,počet))for (i in 1:počet){pm1[i]=data[i,5]pm2[i]=data[i,7]}pm1pm2prediktor_D=matrix(c(pm1,pm2),ncol=2,byrow=F)prediktor_D#pojmenování sloupcůprediktor_D = data.frame (prediktor_D)names (prediktor_D)= c("plocha_pole", "vyskyt")#regresevysledek_D = glm (vyskyt ~ plocha_pole, family = binomial, data = prediktor_D)summary (vysledek_D)confint (vysledek_D)#prediktor Epočet=628pm1=c(rep(0,počet))pm2=c(rep(0,počet))for (i in 1:počet){pm1[i]=data[i,6]pm2[i]=data[i,7]}pm1pm2prediktor_E=matrix(c(pm1,pm2),ncol=2,byrow=F)prediktor_E#pojmenování sloupcůprediktor_E = data.frame (prediktor_E)names (prediktor_E)= c("obvod_pole", "vyskyt")#regresevysledek_E = glm (vyskyt ~ obvod_pole, family = binomial, data = prediktor_E)summary (vysledek_E)confint (vysledek_E)_____________________________________________________________________________________________65