Analiza druga: nowe zmienne a wielkość i branża
## Df Sum Sq Mean Sq F value Pr(>F)
## wielka 2 17.0 8.51 11.30 1.8e-05 ***
## branza 3 3.8 1.25 1.67 0.17
## wielka:branza 6 4.8 0.80 1.06 0.39
## Residuals 309 232.7 0.75
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## NULL
## Df Sum Sq Mean Sq F value Pr(>F)
## wielka 2 5.7 2.832 5.19 0.0061 **
## branza 3 0.8 0.257 0.47 0.7033
## wielka:branza 6 3.2 0.534 0.98 0.4409
## Residuals 309 168.8 0.546
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## NULL
## Df Sum Sq Mean Sq F value Pr(>F)
## wielka 2 9 4.75 0.58 0.56
## branza 3 20 6.61 0.81 0.49
## wielka:branza 6 45 7.47 0.92 0.48
## Residuals 309 2516 8.14
## NULL
## Df Sum Sq Mean Sq F value Pr(>F)
## wielka 2 1.1 0.573 1.52 0.22
## branza 3 1.0 0.319 0.85 0.47
## wielka:branza 6 2.6 0.425 1.13 0.34
## Residuals 309 116.2 0.376
## NULL
## Df Sum Sq Mean Sq F value Pr(>F)
## wielka 2 3.0 1.477 1.91 0.15
## branza 3 4.3 1.423 1.84 0.14
## wielka:branza 6 5.8 0.971 1.26 0.28
## Residuals 309 238.4 0.772
## NULL
## Df Sum Sq Mean Sq F value Pr(>F)
## wielka 2 0.5 0.241 0.51 0.603
## branza 3 1.8 0.591 1.24 0.295
## wielka:branza 6 5.2 0.861 1.81 0.097 .
## Residuals 306 145.7 0.476
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## NULL
## Df Sum Sq Mean Sq F value Pr(>F)
## wielka 2 1.0 0.493 0.77 0.464
## branza 3 6.4 2.144 3.35 0.019 *
## wielka:branza 6 7.3 1.221 1.91 0.079 .
## Residuals 309 197.6 0.639
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## NULL
### Adaptacje
for(i in 1:6){
print(nowinki[i])
print(summary(lm(baza1[,i+14+13+13+5+11+10]~istotne_irt+reakcja_irt,data=baza1)))
}
## [1] "wykorzystuje najnowsze rozwiązania technologiczne"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.7484 -0.6847 0.0559 0.8007 2.4940
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.3316 0.0614 54.25 < 2e-16 ***
## istotne_irt 0.3850 0.0762 5.05 7.4e-07 ***
## reakcja_irt 0.2124 0.0841 2.52 0.012 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.08 on 315 degrees of freedom
## (3 observations deleted due to missingness)
## Multiple R-squared: 0.146, Adjusted R-squared: 0.14
## F-statistic: 26.9 on 2 and 315 DF, p-value: 1.71e-11
##
## [1] "współpracuje z ośrodkami badawczymi i/lub uczelniami"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.905 -0.946 -0.454 0.845 3.807
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.9843 0.0687 28.90 < 2e-16 ***
## istotne_irt 0.4307 0.0853 5.05 7.6e-07 ***
## reakcja_irt -0.0637 0.0928 -0.69 0.49
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.21 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.0822, Adjusted R-squared: 0.0764
## F-statistic: 14.2 on 2 and 317 DF, p-value: 1.25e-06
##
## [1] "śledzi zachowania firm z branży w Polsce i na świecie"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.869 -0.746 0.207 0.820 2.571
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.5139 0.0648 54.25 < 2e-16 ***
## istotne_irt 0.4862 0.0804 6.05 4.2e-09 ***
## reakcja_irt 0.0814 0.0876 0.93 0.35
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.14 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.142, Adjusted R-squared: 0.137
## F-statistic: 26.3 on 2 and 317 DF, p-value: 2.72e-11
##
## [1] "pozyskuje najlepszych specjalistów w branży"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.0910 -0.9075 0.0669 0.8789 2.8467
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.8731 0.0687 41.84 < 2e-16 ***
## istotne_irt 0.3376 0.0854 3.95 9.6e-05 ***
## reakcja_irt 0.1821 0.0928 1.96 0.051 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.21 on 316 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.0935, Adjusted R-squared: 0.0878
## F-statistic: 16.3 on 2 and 316 DF, p-value: 1.84e-07
##
## [1] "wprowadza zmiany i innowacje nowe w skali kraju lub regionu"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.9601 -0.9089 0.0199 0.9556 2.8201
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.8631 0.0693 41.33 < 2e-16 ***
## istotne_irt 0.4694 0.0856 5.49 8.4e-08 ***
## reakcja_irt 0.2480 0.0934 2.66 0.0083 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.22 on 313 degrees of freedom
## (5 observations deleted due to missingness)
## Multiple R-squared: 0.165, Adjusted R-squared: 0.16
## F-statistic: 31 on 2 and 313 DF, p-value: 5.06e-13
##
## [1] "wprowadza zmiany i innowacje nowe w skali międzynarodowej"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.110 -0.925 -0.397 0.866 3.292
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.99096 0.06868 28.99 < 2e-16 ***
## istotne_irt 0.41618 0.08508 4.89 1.6e-06 ***
## reakcja_irt 0.00208 0.09272 0.02 0.98
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.21 on 314 degrees of freedom
## (4 observations deleted due to missingness)
## Multiple R-squared: 0.0866, Adjusted R-squared: 0.0808
## F-statistic: 14.9 on 2 and 314 DF, p-value: 6.61e-07
for(i in 1:6){
print(nowinki[i])
print(summary(lm(baza1[,i+14+13+13+5+11+10]~postawa*dzialania,data=baza1)))
}
## [1] "wykorzystuje najnowsze rozwiązania technologiczne"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.1458 -0.8431 -0.0323 0.8542 2.5972
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.8431 0.1295 21.95 < 2e-16 ***
## postawareal -0.0146 0.2030 -0.07 0.9428
## postawakonserw -0.4404 0.1693 -2.60 0.0097 **
## dzialaniadevelop 1.1974 0.1683 7.11 8.1e-12 ***
## postawareal:dzialaniadevelop 0.1199 0.2657 0.45 0.6522
## postawakonserw:dzialaniadevelop 0.4321 0.2604 1.66 0.0981 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.925 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.391, Adjusted R-squared: 0.381
## F-statistic: 39.1 on 5 and 305 DF, p-value: <2e-16
##
## [1] "współpracuje z ośrodkami badawczymi i/lub uczelniami"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.688 -0.549 -0.306 0.486 2.694
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.549 0.152 10.17 < 2e-16 ***
## postawareal -0.435 0.239 -1.82 0.070 .
## postawakonserw -0.243 0.199 -1.22 0.222
## dzialaniadevelop 0.964 0.198 4.87 1.8e-06 ***
## postawareal:dzialaniadevelop 0.609 0.313 1.95 0.052 .
## postawakonserw:dzialaniadevelop 0.407 0.306 1.33 0.185
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.09 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.263, Adjusted R-squared: 0.25
## F-statistic: 21.7 on 5 and 305 DF, p-value: <2e-16
##
## [1] "śledzi zachowania firm z branży w Polsce i na świecie"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.9355 -0.6667 0.0645 0.7714 2.3333
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.6667 0.1397 19.09 < 2e-16 ***
## postawareal 0.5619 0.2189 2.57 0.011 *
## postawakonserw 0.0139 0.1825 0.08 0.939
## dzialaniadevelop 1.5495 0.1815 8.54 6.6e-16 ***
## postawareal:dzialaniadevelop -0.3406 0.2865 -1.19 0.235
## postawakonserw:dzialaniadevelop -0.2946 0.2808 -1.05 0.295
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.997 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.362, Adjusted R-squared: 0.352
## F-statistic: 34.7 on 5 and 305 DF, p-value: <2e-16
##
## [1] "pozyskuje najlepszych specjalistów w branży"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.6667 -0.6667 -0.0694 0.7451 2.9306
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.255 0.142 15.83 < 2e-16 ***
## postawareal -0.141 0.223 -0.63 0.53
## postawakonserw -0.185 0.186 -1.00 0.32
## dzialaniadevelop 1.353 0.185 7.31 2.4e-12 ***
## postawareal:dzialaniadevelop 0.199 0.292 0.68 0.50
## postawakonserw:dzialaniadevelop 0.190 0.286 0.66 0.51
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.02 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.355, Adjusted R-squared: 0.344
## F-statistic: 33.5 on 5 and 305 DF, p-value: <2e-16
##
## [1] "wprowadza zmiany i innowacje nowe w skali kraju lub regionu"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.8958 -0.8958 0.0833 0.7714 3.0833
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.0196 0.1374 14.70 <2e-16 ***
## postawareal 0.2090 0.2153 0.97 0.33
## postawakonserw -0.1029 0.1796 -0.57 0.57
## dzialaniadevelop 1.7507 0.1786 9.80 <2e-16 ***
## postawareal:dzialaniadevelop -0.0834 0.2818 -0.30 0.77
## postawakonserw:dzialaniadevelop -0.0544 0.2762 -0.20 0.84
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.981 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.454, Adjusted R-squared: 0.445
## F-statistic: 50.8 on 5 and 305 DF, p-value: <2e-16
##
## [1] "wprowadza zmiany i innowacje nowe w skali międzynarodowej"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.919 -0.457 -0.216 0.484 3.750
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.2157 0.1447 8.40 1.7e-15 ***
## postawareal 0.2415 0.2268 1.06 0.288
## postawakonserw 0.0343 0.1891 0.18 0.856
## dzialaniadevelop 1.7032 0.1881 9.06 < 2e-16 ***
## postawareal:dzialaniadevelop -0.5770 0.2969 -1.94 0.053 .
## postawakonserw:dzialaniadevelop -0.4371 0.2910 -1.50 0.134
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.03 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.342, Adjusted R-squared: 0.331
## F-statistic: 31.7 on 5 and 305 DF, p-value: <2e-16
#### wprowadzone zmiany
for(i in 1:11){
print(zmiany[i])
print(summary(lm(baza1[,i+14+13+13+5]~istotne_irt+reakcja_irt,data=baza1)))
}
## [1] "Wprowadzenie nowych usług lub produktów"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.240 -1.024 -0.011 0.982 2.528
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.7762 0.0734 37.80 < 2e-16 ***
## istotne_irt 0.2601 0.0911 2.85 0.00459 **
## reakcja_irt 0.3391 0.0997 3.40 0.00076 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.3 on 315 degrees of freedom
## (3 observations deleted due to missingness)
## Multiple R-squared: 0.1, Adjusted R-squared: 0.0947
## F-statistic: 17.6 on 2 and 315 DF, p-value: 5.79e-08
##
## [1] "Znacząca poprawa dotychczasowych usług lub produktów"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.0576 -0.4395 0.0835 0.6677 2.3567
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.2372 0.0545 59.44 < 2e-16 ***
## istotne_irt 0.1818 0.0677 2.68 0.0076 **
## reakcja_irt 0.3790 0.0737 5.14 4.8e-07 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.964 on 318 degrees of freedom
## Multiple R-squared: 0.152, Adjusted R-squared: 0.146
## F-statistic: 28.4 on 2 and 318 DF, p-value: 4.31e-12
##
## [1] "Wprowadzenie nowoczesnych maszyn i urządzeń"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.629 -1.220 0.011 1.075 3.165
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.6585 0.0771 34.48 <2e-16 ***
## istotne_irt 0.2879 0.0965 2.98 0.0031 **
## reakcja_irt 0.3534 0.1065 3.32 0.0010 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.35 on 312 degrees of freedom
## (6 observations deleted due to missingness)
## Multiple R-squared: 0.106, Adjusted R-squared: 0.0999
## F-statistic: 18.4 on 2 and 312 DF, p-value: 2.73e-08
##
## [1] "Zmiana sposobu zarządzania i organizacji pracy w firmie"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.8031 -1.0233 0.0765 1.0168 2.9780
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.6104 0.0703 37.12 < 2e-16 ***
## istotne_irt 0.3322 0.0871 3.81 0.00016 ***
## reakcja_irt 0.1686 0.0948 1.78 0.07634 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.24 on 315 degrees of freedom
## (3 observations deleted due to missingness)
## Multiple R-squared: 0.0855, Adjusted R-squared: 0.0797
## F-statistic: 14.7 on 2 and 315 DF, p-value: 7.73e-07
##
## [1] "Wdrożenie nowych rozwiązań w obszarze IT (oprogramowanie, komunikacja w firmie i na zewnątrz itp.)"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.569 -0.995 0.036 1.030 2.733
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.8705 0.0723 39.70 < 2e-16 ***
## istotne_irt 0.4729 0.0900 5.25 2.8e-07 ***
## reakcja_irt 0.2510 0.0977 2.57 0.011 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.28 on 316 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.153, Adjusted R-squared: 0.148
## F-statistic: 28.6 on 2 and 316 DF, p-value: 3.69e-12
##
## [1] "Wejście na nowe rynki"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.287 -0.999 -0.278 0.948 3.015
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.3616 0.0722 32.72 <2e-16 ***
## istotne_irt 0.5242 0.0891 5.89 1e-08 ***
## reakcja_irt 0.1261 0.0980 1.29 0.2
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.26 on 308 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.149, Adjusted R-squared: 0.143
## F-statistic: 26.9 on 2 and 308 DF, p-value: 1.77e-11
##
## [1] "Zastosowanie nowych form marketingu"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.299 -1.071 -0.107 0.968 2.811
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.5262 0.0706 35.78 < 2e-16 ***
## istotne_irt 0.3093 0.0876 3.53 0.00048 ***
## reakcja_irt 0.2352 0.0957 2.46 0.01451 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.25 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.093, Adjusted R-squared: 0.0873
## F-statistic: 16.3 on 2 and 317 DF, p-value: 1.9e-07
##
## [1] "Modyfikacja systemu transportu i logistyki"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.937 -0.906 -0.515 0.945 3.313
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.9316 0.0683 28.28 <2e-16 ***
## istotne_irt 0.1645 0.0844 1.95 0.0521 .
## reakcja_irt 0.2454 0.0938 2.62 0.0094 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.18 on 305 degrees of freedom
## (13 observations deleted due to missingness)
## Multiple R-squared: 0.0586, Adjusted R-squared: 0.0524
## F-statistic: 9.49 on 2 and 305 DF, p-value: 0.000101
##
## [1] "Duża rotacja personelu"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.271 -0.766 -0.589 0.382 3.413
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.7380 0.0642 27.06 <2e-16 ***
## istotne_irt 0.1387 0.0799 1.73 0.084 .
## reakcja_irt 0.0770 0.0869 0.89 0.376
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.13 on 315 degrees of freedom
## (3 observations deleted due to missingness)
## Multiple R-squared: 0.0199, Adjusted R-squared: 0.0137
## F-statistic: 3.2 on 2 and 315 DF, p-value: 0.042
##
## [1] "Znaczący wzrost zatrudnienia"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.159 -0.686 -0.543 0.342 3.488
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.66140 0.06292 26.41 <2e-16 ***
## istotne_irt 0.18864 0.07819 2.41 0.016 *
## reakcja_irt -0.00469 0.08502 -0.06 0.956
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.11 on 314 degrees of freedom
## (4 observations deleted due to missingness)
## Multiple R-squared: 0.0221, Adjusted R-squared: 0.0159
## F-statistic: 3.54 on 2 and 314 DF, p-value: 0.03
##
## [1] "Znaczący spadek zatrudnienia"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ istotne_irt + reakcja_irt,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.075 -0.650 -0.555 0.386 3.501
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.59925 0.06473 24.71 <2e-16 ***
## istotne_irt -0.00391 0.08024 -0.05 0.961
## reakcja_irt 0.18941 0.08762 2.16 0.031 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.14 on 316 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.0177, Adjusted R-squared: 0.0115
## F-statistic: 2.85 on 2 and 316 DF, p-value: 0.0595
for(i in 1:11){
print(zmiany[i])
print(summary(lm(baza1[,i+14+13+13+5]~postawa*dzialania,data=baza1)))
}
## [1] "Wprowadzenie nowych usług lub produktów"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.4521 -1.0139 -0.0139 0.9861 2.9861
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.431 0.176 13.83 < 2e-16 ***
## postawareal 0.540 0.276 1.96 0.051 .
## postawakonserw -0.417 0.230 -1.82 0.070 .
## dzialaniadevelop 1.021 0.229 4.45 1.2e-05 ***
## postawareal:dzialaniadevelop -0.659 0.361 -1.82 0.069 .
## postawakonserw:dzialaniadevelop -0.196 0.354 -0.55 0.580
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.26 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.168, Adjusted R-squared: 0.155
## F-statistic: 12.3 on 5 and 304 DF, p-value: 6.9e-11
##
## [1] "Znacząca poprawa dotychczasowych usług lub produktów"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.608 -0.608 0.167 0.806 2.167
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.07843 0.13827 22.26 <2e-16 ***
## postawareal 0.00728 0.21674 0.03 0.9732
## postawakonserw -0.24510 0.18072 -1.36 0.1760
## dzialaniadevelop 0.52968 0.17971 2.95 0.0035 **
## postawareal:dzialaniadevelop 0.15544 0.28366 0.55 0.5841
## postawakonserw:dzialaniadevelop -0.16946 0.27801 -0.61 0.5426
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.987 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.112, Adjusted R-squared: 0.0973
## F-statistic: 7.69 on 5 and 305 DF, p-value: 8.02e-07
##
## [1] "Wprowadzenie nowoczesnych maszyn i urządzeń"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.53 -1.01 -0.06 0.94 2.99
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.0600 0.1799 11.45 < 2e-16 ***
## postawareal 0.2047 0.2828 0.72 0.47
## postawakonserw -0.0461 0.2342 -0.20 0.84
## dzialaniadevelop 1.3995 0.2329 6.01 5.4e-09 ***
## postawareal:dzialaniadevelop -0.1323 0.3692 -0.36 0.72
## postawakonserw:dzialaniadevelop -0.7467 0.3615 -2.07 0.04 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.27 on 301 degrees of freedom
## (14 observations deleted due to missingness)
## Multiple R-squared: 0.218, Adjusted R-squared: 0.205
## F-statistic: 16.8 on 5 and 301 DF, p-value: 1.19e-14
##
## [1] "Zmiana sposobu zarządzania i organizacji pracy w firmie"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.839 -1.268 0.161 1.192 2.732
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.412 0.178 13.57 <2e-16 ***
## postawareal 0.217 0.279 0.78 0.437
## postawakonserw -0.144 0.233 -0.62 0.537
## dzialaniadevelop 0.396 0.232 1.71 0.088 .
## postawareal:dzialaniadevelop -0.254 0.365 -0.70 0.487
## postawakonserw:dzialaniadevelop 0.175 0.358 0.49 0.626
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.27 on 303 degrees of freedom
## (12 observations deleted due to missingness)
## Multiple R-squared: 0.0317, Adjusted R-squared: 0.0158
## F-statistic: 1.99 on 5 and 303 DF, p-value: 0.0805
##
## [1] "Wdrożenie nowych rozwiązań w obszarze IT (oprogramowanie, komunikacja w firmie i na zewnątrz itp.)"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.6875 -1.1111 -0.0645 0.9355 2.8889
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.5490 0.1768 14.42 < 2e-16 ***
## postawareal -0.0633 0.2771 -0.23 0.81945
## postawakonserw -0.4379 0.2311 -1.90 0.05900 .
## dzialaniadevelop 0.8756 0.2304 3.80 0.00017 ***
## postawareal:dzialaniadevelop 0.3261 0.3631 0.90 0.36974
## postawakonserw:dzialaniadevelop 0.0778 0.3558 0.22 0.82716
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.26 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.182, Adjusted R-squared: 0.168
## F-statistic: 13.5 on 5 and 304 DF, p-value: 6.67e-12
##
## [1] "Wejście na nowe rynki"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.000 -1.000 -0.102 1.000 3.167
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.1020 0.1837 11.44 <2e-16 ***
## postawareal -0.0735 0.2846 -0.26 0.796
## postawakonserw -0.2687 0.2382 -1.13 0.260
## dzialaniadevelop 0.5740 0.2388 2.40 0.017 *
## postawareal:dzialaniadevelop 0.3974 0.3725 1.07 0.287
## postawakonserw:dzialaniadevelop 0.3168 0.3702 0.86 0.393
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.29 on 298 degrees of freedom
## (17 observations deleted due to missingness)
## Multiple R-squared: 0.105, Adjusted R-squared: 0.0897
## F-statistic: 6.97 on 5 and 298 DF, p-value: 3.53e-06
##
## [1] "Zastosowanie nowych form marketingu"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.042 -0.778 -0.027 0.958 3.222
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.510 0.171 14.67 <2e-16 ***
## postawareal -0.167 0.268 -0.62 0.5341
## postawakonserw -0.732 0.224 -3.27 0.0012 **
## dzialaniadevelop 0.517 0.222 2.33 0.0207 *
## postawareal:dzialaniadevelop 0.182 0.351 0.52 0.6053
## postawakonserw:dzialaniadevelop 0.415 0.344 1.21 0.2290
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.22 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.139, Adjusted R-squared: 0.125
## F-statistic: 9.88 on 5 and 305 DF, p-value: 9.05e-09
##
## [1] "Modyfikacja systemu transportu i logistyki"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.191 -0.929 -0.647 0.875 3.353
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.6471 0.1661 9.91 <2e-16 ***
## postawareal 0.3529 0.2627 1.34 0.180
## postawakonserw 0.0891 0.2171 0.41 0.682
## dzialaniadevelop 0.5441 0.2198 2.48 0.014 *
## postawareal:dzialaniadevelop -0.4191 0.3450 -1.21 0.225
## postawakonserw:dzialaniadevelop -0.3517 0.3437 -1.02 0.307
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.19 on 295 degrees of freedom
## (20 observations deleted due to missingness)
## Multiple R-squared: 0.0313, Adjusted R-squared: 0.0149
## F-statistic: 1.91 on 5 and 295 DF, p-value: 0.0932
##
## [1] "Duża rotacja personelu"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.100 -0.778 -0.486 0.333 3.514
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.78431 0.15777 11.31 <2e-16 ***
## postawareal 0.04426 0.24732 0.18 0.858
## postawakonserw -0.29820 0.20622 -1.45 0.149
## dzialaniadevelop -0.00654 0.20622 -0.03 0.975
## postawareal:dzialaniadevelop -0.15537 0.32442 -0.48 0.632
## postawakonserw:dzialaniadevelop 0.62042 0.32012 1.94 0.054 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.13 on 302 degrees of freedom
## (13 observations deleted due to missingness)
## Multiple R-squared: 0.0235, Adjusted R-squared: 0.00736
## F-statistic: 1.46 on 5 and 302 DF, p-value: 0.204
##
## [1] "Znaczący wzrost zatrudnienia"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.133 -0.890 -0.392 0.514 3.608
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.3922 0.1541 9.04 <2e-16 ***
## postawareal -0.0779 0.2415 -0.32 0.747
## postawakonserw 0.0940 0.2014 0.47 0.641
## dzialaniadevelop 0.4983 0.2008 2.48 0.014 *
## postawareal:dzialaniadevelop 0.0833 0.3164 0.26 0.793
## postawakonserw:dzialaniadevelop 0.1490 0.3122 0.48 0.634
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.1 on 303 degrees of freedom
## (12 observations deleted due to missingness)
## Multiple R-squared: 0.0596, Adjusted R-squared: 0.0441
## F-statistic: 3.84 on 5 and 303 DF, p-value: 0.00218
##
## [1] "Znaczący spadek zatrudnienia"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.967 -0.646 -0.556 0.353 3.500
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.6471 0.1606 10.25 <2e-16 ***
## postawareal -0.0185 0.2518 -0.07 0.942
## postawakonserw -0.0915 0.2100 -0.44 0.663
## dzialaniadevelop -0.1471 0.2088 -0.70 0.482
## postawareal:dzialaniadevelop 0.1643 0.3295 0.50 0.618
## postawakonserw:dzialaniadevelop 0.5582 0.3252 1.72 0.087 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.15 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.0124, Adjusted R-squared: -0.0038
## F-statistic: 0.766 on 5 and 304 DF, p-value: 0.575
#### postawy
for(i in 1:5){
print(postawy[i])
print(summary(lm(baza1[,i+14+13+13+5+11+10+6]~istotne_irt+reakcja_irt,data=baza1)))
}
## [1] "Trzymanie się starych, sprawdzonych metod i sposobów działania sprzyja mojej firmie"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.2311 -0.7911 0.0888 0.9882 2.3663
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.8490 0.0594 47.99 <2e-16 ***
## istotne_irt -0.1715 0.0738 -2.32 0.021 *
## reakcja_irt 0.1947 0.0804 2.42 0.016 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.05 on 318 degrees of freedom
## Multiple R-squared: 0.024, Adjusted R-squared: 0.0179
## F-statistic: 3.91 on 2 and 318 DF, p-value: 0.021
##
## [1] "Bieżące sprawy zajmują firmę w takim stopniu, że zwyczajnie nie ma czasu na myślenie o nowościach i wprowadzaniu innowacji"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.744 -0.635 -0.254 0.537 2.658
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.5305 0.0618 40.93 <2e-16 ***
## istotne_irt -0.0950 0.0768 -1.24 0.22
## reakcja_irt -0.0326 0.0837 -0.39 0.70
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.09 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.00817, Adjusted R-squared: 0.00192
## F-statistic: 1.31 on 2 and 317 DF, p-value: 0.272
##
## [1] "Wprowadzanie zmian w firmie jest ryzykowne"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.824 -0.629 0.362 0.494 2.610
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.56541 0.06066 42.29 <2e-16 ***
## istotne_irt 0.09650 0.07531 1.28 0.20
## reakcja_irt 0.00961 0.08200 0.12 0.91
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.07 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.00695, Adjusted R-squared: 0.000686
## F-statistic: 1.11 on 2 and 317 DF, p-value: 0.331
##
## [1] "Wprowadzanie ciągłych zmian jest konieczne - inaczej można stracić klientów"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.145 -0.613 0.172 0.820 2.070
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.7472 0.0582 64.36 < 2e-16 ***
## istotne_irt 0.3372 0.0722 4.67 4.4e-06 ***
## reakcja_irt 0.1586 0.0786 2.02 0.044 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.03 on 316 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.118, Adjusted R-squared: 0.113
## F-statistic: 21.2 on 2 and 316 DF, p-value: 2.21e-09
##
## [1] "Nowe technologie odgrywają znaczącą rolę w branży, w której działa firma"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.144 -0.702 0.126 0.852 2.249
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.5706 0.0612 58.32 < 2e-16 ***
## istotne_irt 0.4567 0.0760 6.01 5.1e-09 ***
## reakcja_irt 0.2483 0.0836 2.97 0.0032 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.08 on 316 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.193, Adjusted R-squared: 0.188
## F-statistic: 37.7 on 2 and 316 DF, p-value: 2e-15
for(i in 1:5){
print(postawy[i])
print(summary(lm(baza1[,i+14+13+13+5+11+10+6]~postawa*dzialania,data=baza1)))
}
## [1] "Trzymanie się starych, sprawdzonych metod i sposobów działania sprzyja mojej firmie"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.857 -0.556 0.143 0.471 2.824
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.529 0.125 20.24 < 2e-16 ***
## postawareal 0.328 0.196 1.67 0.095 .
## postawakonserw 1.026 0.163 6.28 1.1e-09 ***
## dzialaniadevelop -0.354 0.162 -2.18 0.030 *
## postawareal:dzialaniadevelop 0.205 0.256 0.80 0.425
## postawakonserw:dzialaniadevelop 0.572 0.251 2.28 0.023 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.892 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.296, Adjusted R-squared: 0.284
## F-statistic: 25.6 on 5 and 305 DF, p-value: <2e-16
##
## [1] "Bieżące sprawy zajmują firmę w takim stopniu, że zwyczajnie nie ma czasu na myślenie o nowościach i wprowadzaniu innowacji"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.1528 -0.8784 -0.0323 0.8472 2.3958
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.0588 0.1367 15.06 < 2e-16 ***
## postawareal 0.7126 0.2143 3.33 0.00099 ***
## postawakonserw 1.0940 0.1787 6.12 2.8e-09 ***
## dzialaniadevelop -0.1804 0.1777 -1.02 0.31060
## postawareal:dzialaniadevelop 0.0132 0.2804 0.05 0.96254
## postawakonserw:dzialaniadevelop 0.0599 0.2749 0.22 0.82755
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.976 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.218, Adjusted R-squared: 0.205
## F-statistic: 17 on 5 and 305 DF, p-value: 8.59e-15
##
## [1] "Wprowadzanie zmian w firmie jest ryzykowne"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.0000 -0.6622 0.0833 0.3378 2.0833
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.6863 0.1029 16.39 <2e-16 ***
## postawareal 1.5423 0.1613 9.56 <2e-16 ***
## postawakonserw 1.2304 0.1345 9.15 <2e-16 ***
## dzialaniadevelop -0.0241 0.1337 -0.18 0.857
## postawareal:dzialaniadevelop 0.3997 0.2111 1.89 0.059 .
## postawakonserw:dzialaniadevelop 0.1074 0.2069 0.52 0.604
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.735 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.525, Adjusted R-squared: 0.517
## F-statistic: 67.3 on 5 and 305 DF, p-value: <2e-16
##
## [1] "Wprowadzanie ciągłych zmian jest konieczne - inaczej można stracić klientów"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.311 -0.514 0.196 0.657 1.774
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.804 0.108 35.30 < 2e-16 ***
## postawareal 0.539 0.169 3.19 0.00157 **
## postawakonserw -1.290 0.141 -9.16 < 2e-16 ***
## dzialaniadevelop 0.507 0.140 3.62 0.00035 ***
## postawareal:dzialaniadevelop -0.246 0.221 -1.11 0.26755
## postawakonserw:dzialaniadevelop 0.205 0.217 0.95 0.34480
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.77 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.512, Adjusted R-squared: 0.504
## F-statistic: 63.9 on 5 and 305 DF, p-value: <2e-16
##
## [1] "Nowe technologie odgrywają znaczącą rolę w branży, w której działa firma"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11 + 10 + 6] ~ postawa *
## dzialania, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.0946 -0.8750 -0.0946 0.8235 2.1250
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.176 0.151 20.98 < 2e-16 ***
## postawareal 0.366 0.237 1.54 0.12
## postawakonserw -0.301 0.198 -1.52 0.13
## dzialaniadevelop 0.918 0.197 4.66 4.6e-06 ***
## postawareal:dzialaniadevelop -0.128 0.311 -0.41 0.68
## postawakonserw:dzialaniadevelop -0.277 0.304 -0.91 0.36
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.08 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.203, Adjusted R-squared: 0.19
## F-statistic: 15.6 on 5 and 305 DF, p-value: 1.18e-13
#### informacja o zmianach
for(i in 1:10){
print(inspiracja[i])
print(summary(lm(baza1[,i+14+13+13+5+11]~istotne_irt+reakcja_irt,data=baza1)))
}
## [1] "pracownicy"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.331 -0.659 0.243 0.824 2.233
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.5591 0.0647 54.99 < 2e-16 ***
## istotne_irt 0.3200 0.0805 3.98 8.7e-05 ***
## reakcja_irt 0.1854 0.0876 2.12 0.035 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.15 on 318 degrees of freedom
## Multiple R-squared: 0.0976, Adjusted R-squared: 0.092
## F-statistic: 17.2 on 2 and 318 DF, p-value: 8.03e-08
##
## [1] "klienci"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.119 -0.429 0.150 0.696 1.691
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.1198 0.0494 83.43 < 2e-16 ***
## istotne_irt 0.3261 0.0618 5.28 2.4e-07 ***
## reakcja_irt 0.1958 0.0667 2.93 0.0036 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.873 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.164, Adjusted R-squared: 0.158
## F-statistic: 31 on 2 and 317 DF, p-value: 4.97e-13
##
## [1] "firmy współpracujące"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.0599 -0.6158 0.0956 0.6759 2.6821
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.3573 0.0599 56.01 < 2e-16 ***
## istotne_irt 0.4417 0.0744 5.94 7.6e-09 ***
## reakcja_irt 0.1652 0.0812 2.03 0.043 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.06 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.164, Adjusted R-squared: 0.159
## F-statistic: 31.1 on 2 and 317 DF, p-value: 4.64e-13
##
## [1] "inne firmy, konkurencja"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.866 -0.678 0.118 0.851 2.118
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.1587 0.0640 49.33 < 2e-16 ***
## istotne_irt 0.4413 0.0794 5.56 5.8e-08 ***
## reakcja_irt -0.0837 0.0866 -0.97 0.33
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.13 on 316 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.0963, Adjusted R-squared: 0.0906
## F-statistic: 16.8 on 2 and 316 DF, p-value: 1.12e-07
##
## [1] "konferencje i targi"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.3798 -0.9457 0.0965 0.8361 2.3619
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.56891 0.06389 40.21 < 2e-16 ***
## istotne_irt 0.52519 0.07936 6.62 1.6e-10 ***
## reakcja_irt -0.00412 0.08636 -0.05 0.96
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.13 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.146, Adjusted R-squared: 0.14
## F-statistic: 27 on 2 and 317 DF, p-value: 1.45e-11
##
## [1] "konsultanci, instytucje badawcze i szkoły wyższe"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.106 -0.891 -0.203 0.787 2.970
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.0744 0.0616 33.69 < 2e-16 ***
## istotne_irt 0.3845 0.0766 5.02 8.6e-07 ***
## reakcja_irt 0.0388 0.0833 0.47 0.64
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.09 on 318 degrees of freedom
## Multiple R-squared: 0.0969, Adjusted R-squared: 0.0913
## F-statistic: 17.1 on 2 and 318 DF, p-value: 9.1e-08
##
## [1] "media"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.5984 -0.9159 -0.0542 0.9204 2.6599
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.5066 0.0661 37.92 < 2e-16 ***
## istotne_irt 0.5552 0.0821 6.77 6.4e-11 ***
## reakcja_irt 0.1542 0.0896 1.72 0.086 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.17 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.188, Adjusted R-squared: 0.183
## F-statistic: 36.7 on 2 and 317 DF, p-value: 4.66e-15
##
## [1] "urzędy i agencje samorządowe"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.775 -1.230 -0.351 1.345 3.058
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.3247 0.0775 30.01 <2e-16 ***
## istotne_irt 0.1838 0.0962 1.91 0.057 .
## reakcja_irt 0.0498 0.1047 0.48 0.635
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.37 on 317 degrees of freedom
## (1 observation deleted due to missingness)
## Multiple R-squared: 0.018, Adjusted R-squared: 0.0118
## F-statistic: 2.91 on 2 and 317 DF, p-value: 0.0561
##
## [1] "instytucje otoczenia biznesu, na przykład izby gospodarcze, organizacje pracodawców i tym podobne"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.960 -0.961 -0.176 0.792 3.141
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.1285 0.0645 32.99 < 2e-16 ***
## istotne_irt 0.3830 0.0801 4.78 2.7e-06 ***
## reakcja_irt 0.0732 0.0873 0.84 0.4
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.14 on 316 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.0962, Adjusted R-squared: 0.0904
## F-statistic: 16.8 on 2 and 316 DF, p-value: 1.15e-07
##
## [1] "dział badawczo - rozwojowy firmy i własne badania marketingowe"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ istotne_irt +
## reakcja_irt, data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.946 -0.940 -0.105 0.948 2.979
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.4730 0.0705 35.08 < 2e-16 ***
## istotne_irt 0.6791 0.0876 7.75 1.3e-13 ***
## reakcja_irt 0.1127 0.0953 1.18 0.24
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.24 on 313 degrees of freedom
## (5 observations deleted due to missingness)
## Multiple R-squared: 0.216, Adjusted R-squared: 0.211
## F-statistic: 43.2 on 2 and 313 DF, p-value: <2e-16
for(i in 1:10){
print(inspiracja[i])
print(summary(lm(baza1[,i+14+13+13+5+11]~postawa*dzialania,data=baza1)))
}
## [1] "pracownicy"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.104 -0.865 0.135 0.896 1.902
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.0980 0.1628 19.03 < 2e-16 ***
## postawareal 0.2734 0.2552 1.07 0.28483
## postawakonserw 0.1242 0.2128 0.58 0.55988
## dzialaniadevelop 0.7668 0.2116 3.62 0.00034 ***
## postawareal:dzialaniadevelop -0.0341 0.3340 -0.10 0.91877
## postawakonserw:dzialaniadevelop -0.2471 0.3273 -0.75 0.45083
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.16 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.0934, Adjusted R-squared: 0.0785
## F-statistic: 6.28 on 5 and 305 DF, p-value: 1.44e-05
##
## [1] "klienci"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.365 -0.583 0.352 0.635 1.352
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.9608 0.1253 31.60 <2e-16 ***
## postawareal 0.0106 0.1965 0.05 0.957
## postawakonserw -0.3129 0.1643 -1.90 0.058 .
## dzialaniadevelop 0.4041 0.1629 2.48 0.014 *
## postawareal:dzialaniadevelop 0.2078 0.2571 0.81 0.420
## postawakonserw:dzialaniadevelop 0.3996 0.2523 1.58 0.114
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.895 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.129, Adjusted R-squared: 0.114
## F-statistic: 8.98 on 5 and 304 DF, p-value: 5.62e-08
##
## [1] "firmy współpracujące"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.688 -0.688 -0.125 0.829 1.875
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.17647 0.15930 19.94 <2e-16 ***
## postawareal -0.00504 0.24971 -0.02 0.98
## postawakonserw -0.05147 0.20821 -0.25 0.80
## dzialaniadevelop 0.33704 0.20704 1.63 0.10
## postawareal:dzialaniadevelop 0.17903 0.32681 0.55 0.58
## postawakonserw:dzialaniadevelop 0.08634 0.32030 0.27 0.79
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.14 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.0364, Adjusted R-squared: 0.0207
## F-statistic: 2.31 on 5 and 305 DF, p-value: 0.0444
##
## [1] "inne firmy, konkurencja"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.750 -0.662 0.250 0.905 2.338
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.020 0.158 19.13 <2e-16 ***
## postawareal 0.438 0.247 1.77 0.078 .
## postawakonserw -0.358 0.207 -1.73 0.085 .
## dzialaniadevelop 0.075 0.205 0.37 0.715
## postawareal:dzialaniadevelop 0.218 0.324 0.67 0.502
## postawakonserw:dzialaniadevelop 0.650 0.318 2.05 0.042 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.13 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.0945, Adjusted R-squared: 0.0796
## F-statistic: 6.35 on 5 and 304 DF, p-value: 1.27e-05
##
## [1] "konferencje i targi"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.3333 -0.9859 0.0141 0.8286 3.0141
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.17647 0.15449 14.09 <2e-16 ***
## postawareal -0.00504 0.24218 -0.02 0.9834
## postawakonserw -0.19056 0.20252 -0.94 0.3475
## dzialaniadevelop 0.60731 0.20080 3.02 0.0027 **
## postawareal:dzialaniadevelop 0.55459 0.31695 1.75 0.0812 .
## postawakonserw:dzialaniadevelop 0.53580 0.31102 1.72 0.0860 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.1 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.175, Adjusted R-squared: 0.162
## F-statistic: 12.9 on 5 and 304 DF, p-value: 2.11e-11
##
## [1] "konsultanci, instytucje badawcze i szkoły wyższe"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.458 -0.743 -0.432 0.568 3.444
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.882 0.149 12.60 <2e-16 ***
## postawareal -0.139 0.234 -0.60 0.5518
## postawakonserw -0.327 0.195 -1.67 0.0952 .
## dzialaniadevelop 0.550 0.194 2.83 0.0049 **
## postawareal:dzialaniadevelop 0.165 0.306 0.54 0.5898
## postawakonserw:dzialaniadevelop 0.281 0.300 0.94 0.3495
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.07 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.114, Adjusted R-squared: 0.0994
## F-statistic: 7.84 on 5 and 305 DF, p-value: 5.78e-07
##
## [1] "media"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.958 -1.029 -0.250 0.971 2.971
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.471 0.177 13.95 <2e-16 ***
## postawareal -0.442 0.278 -1.59 0.112
## postawakonserw -0.221 0.231 -0.95 0.341
## dzialaniadevelop 0.165 0.230 0.72 0.475
## postawareal:dzialaniadevelop 0.765 0.363 2.11 0.036 *
## postawakonserw:dzialaniadevelop 0.360 0.356 1.01 0.313
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.26 on 305 degrees of freedom
## (10 observations deleted due to missingness)
## Multiple R-squared: 0.0507, Adjusted R-squared: 0.0351
## F-statistic: 3.26 on 5 and 305 DF, p-value: 0.00704
##
## [1] "urzędy i agencje samorządowe"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.774 -1.114 -0.278 1.000 3.000
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.137 0.188 11.36 <2e-16 ***
## postawareal -0.023 0.295 -0.08 0.94
## postawakonserw -0.137 0.247 -0.56 0.58
## dzialaniadevelop 0.282 0.244 1.15 0.25
## postawareal:dzialaniadevelop 0.208 0.386 0.54 0.59
## postawakonserw:dzialaniadevelop 0.492 0.379 1.30 0.19
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.34 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.0375, Adjusted R-squared: 0.0217
## F-statistic: 2.37 on 5 and 304 DF, p-value: 0.0393
##
## [1] "instytucje otoczenia biznesu, na przykład izby gospodarcze, organizacje pracodawców i tym podobne"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.917 -0.657 -0.343 0.657 2.961
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.039 0.153 13.32 <2e-16 ***
## postawareal -0.382 0.240 -1.59 0.1124
## postawakonserw -0.498 0.200 -2.49 0.0134 *
## dzialaniadevelop 0.303 0.200 1.52 0.1296
## postawareal:dzialaniadevelop 0.956 0.314 3.04 0.0026 **
## postawakonserw:dzialaniadevelop 0.703 0.308 2.28 0.0232 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.09 on 304 degrees of freedom
## (11 observations deleted due to missingness)
## Multiple R-squared: 0.165, Adjusted R-squared: 0.151
## F-statistic: 12 on 5 and 304 DF, p-value: 1.36e-10
##
## [1] "dział badawczo - rozwojowy firmy i własne badania marketingowe"
##
## Call:
## lm(formula = baza1[, i + 14 + 13 + 13 + 5 + 11] ~ postawa * dzialania,
## data = baza1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.333 -1.000 -0.153 0.847 3.333
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.0612 0.1753 11.76 < 2e-16 ***
## postawareal -0.0612 0.2716 -0.23 0.822
## postawakonserw -0.3946 0.2272 -1.74 0.084 .
## dzialaniadevelop 1.0916 0.2272 4.80 2.5e-06 ***
## postawareal:dzialaniadevelop 0.2418 0.3550 0.68 0.496
## postawakonserw:dzialaniadevelop -0.0485 0.3480 -0.14 0.889
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.23 on 301 degrees of freedom
## (14 observations deleted due to missingness)
## Multiple R-squared: 0.227, Adjusted R-squared: 0.215
## F-statistic: 17.7 on 5 and 301 DF, p-value: 2.12e-15
