setwd("~/Google Drive/Agrosavia/Colaboraciones/Lucero/data")
regaliasdata = read.table("muestra4.csv", header=T, sep=",")
attach(regaliasdata)
library(nlme) #activates the nlme library
library(ggplot2)
## pH loess-time-course figure
pht<- ggplot(regaliasdata, aes(x = time.num.x)) +
facet_grid(gen.x~trat.x) +
geom_point(aes(y = ph.testa, colour = "ph.testa")) +
geom_smooth(aes(y = ph.testa, colour = "ph.testa"), method = "loess", se=T) +
scale_y_continuous(name = "pH") + # Etiqueta de la variable continua
scale_x_continuous(name = "day", breaks=seq(0,7,1)) + # Etiqueta de los grupos
ggtitle("pH time course") + # TÃtulo del plot
theme(axis.line = element_line(colour = "black", # Personalización del tema
size = 0.25))
pht + geom_smooth(aes(y = ph.grano, colour = "ph.grano"), method = "loess", se=T) +
geom_point(aes(y=ph.grano, colour = "ph.grano"))
## `geom_smooth()` using formula 'y ~ x'
## `geom_smooth()` using formula 'y ~ x'
## Acidity loess-time-course figure
act1<- ggplot(regaliasdata, aes(x = time.num.x)) +
facet_grid(gen.x~trat.x) +
geom_point(aes(y=acid.testa, colour = "acid.testa")) +
geom_smooth(aes(y = acid.testa, colour = "acid.testa"), method = "loess", se=T) +
scale_y_continuous(name = "Total acidity") + # Etiqueta de la variable continua
scale_x_continuous(name = "day", breaks=seq(0,7,1)) + # Etiqueta de los grupos
ggtitle("Acidity time course") + # TÃtulo del plot
theme(axis.line = element_line(colour = "black", # Personalización del tema
size = 0.25))
act1 + geom_smooth(aes(y = acid.grano, colour = "acid.grano"), method = "loess", se=T) +
geom_point(aes(y=acid.grano, colour = "acid.grano"))
## `geom_smooth()` using formula 'y ~ x'
## `geom_smooth()` using formula 'y ~ x'
## pH polynomial time course
pht2<- ggplot(regaliasdata, aes(x = time.num.x)) +
facet_grid(gen.x~trat.x) +
geom_point(aes(y=ph.testa, colour = "ph.testa")) +
stat_smooth(aes(x = time.num.x, y = ph.testa), method = "lm", formula = y ~ poly(x, 3, raw=T), se = T, size = 0.25, color = "blue") +
scale_y_continuous(name = "pH") + # Etiqueta de la variable continua
scale_x_continuous(name = "day", breaks=seq(0,7,1)) + # Etiqueta de los grupos
ggtitle("pH time course") + # TÃtulo del plot
theme(axis.line = element_line(colour = "black", # Personalización del tema
size = 0.25))
pht2 + stat_smooth(aes(x = time.num.x, y = ph.grano), method = "lm", formula = y ~ poly(x, 3, raw=T), se = T, size = 0.25, color = "red") +
geom_point(aes(y=ph.grano, colour = "ph.grano"))
## Acidity polynomial time course
act3<- ggplot(regaliasdata, aes(x = time.num.x)) +
facet_grid(gen.x~trat.x) +
geom_point(aes(y=acid.testa, colour = "acid.testa")) +
stat_smooth(aes(x = time.num.x, y = acid.testa), method = "lm", formula = y ~ poly(x, 3, raw=T), se = T, size = 0.25, color = "blue") +
scale_y_continuous(name = "Total acidity") + # Etiqueta de la variable continua
scale_x_continuous(name = "day", breaks=seq(0,7,1)) + # Etiqueta de los grupos
ggtitle("Acidity time course") + # TÃtulo del plot
theme(axis.line = element_line(colour = "black", # Personalización del tema
size = 0.25))
act3 + stat_smooth(aes(x = time.num.x, y = acid.grano), method = "lm", formula = y ~ poly(x, 3, raw=T), se = T, size = 0.25, color = "red") +
geom_point(aes(y=acid.grano, colour = "acid.grano"))
## Temperature differences time course
temp1<- ggplot(regaliasdata, aes(x = time.num.x)) +
facet_grid(gen.x~trat.x) +
geom_point(aes(y=temp, colour = "temp")) +
geom_smooth(aes(y = temp, colour = "temp"), method = "loess", se=T) +
scale_y_continuous(name = "Temperature °C") + # Etiqueta de la variable continua
scale_x_continuous(name = "day", breaks=seq(0,7,1)) + # Etiqueta de los grupos
ggtitle("Temperature time course") + # TÃtulo del plot
theme(axis.line = element_line(colour = "black", # Personalización del tema
size = 0.25))
temp1 + geom_line(aes(y = tt, colour = "tt")) +
geom_point(aes(y=tt, colour = "tt"))
## `geom_smooth()` using formula 'y ~ x'
## Repeated measures analysis
aov.temp <- aov(temp~factor(trat.x)*factor(gen.x)*factor(time.num.x) + Error(factor(muestra.num.x)))
aov.ph.grano <- aov(ph.grano~factor(trat.x)*factor(gen.x)*factor(time.num.x) + Error(factor(muestra.num.x)))
aov.ph.testa <- aov(ph.testa~factor(trat.x)*factor(gen.x)*factor(time.num.x) + Error(factor(muestra.num.x)))
summary(aov.temp)
##
## Error: factor(muestra.num.x)
## Df Sum Sq Mean Sq F value Pr(>F)
## factor(trat.x) 1 9.41 9.41 16.49 0.000323 ***
## factor(gen.x) 2 120.67 60.34 105.73 2.60e-14 ***
## factor(trat.x):factor(gen.x) 2 22.97 11.48 20.12 2.87e-06 ***
## Residuals 30 17.12 0.57
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Error: Within
## Df Sum Sq Mean Sq F value
## factor(time.num.x) 7 13153 1879.0 3328.34
## factor(trat.x):factor(time.num.x) 7 195 27.9 49.41
## factor(gen.x):factor(time.num.x) 14 181 12.9 22.93
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 142 10.1 17.97
## Residuals 210 119 0.6
## Pr(>F)
## factor(time.num.x) <2e-16 ***
## factor(trat.x):factor(time.num.x) <2e-16 ***
## factor(gen.x):factor(time.num.x) <2e-16 ***
## factor(trat.x):factor(gen.x):factor(time.num.x) <2e-16 ***
## Residuals
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
summary(aov.ph.grano)
##
## Error: factor(muestra.num.x)
## Df Sum Sq Mean Sq F value Pr(>F)
## factor(trat.x) 1 24.464 24.464 440.487 < 2e-16 ***
## factor(gen.x) 2 0.525 0.263 4.727 0.0164 *
## factor(trat.x):factor(gen.x) 2 10.555 5.277 95.024 1.04e-13 ***
## Residuals 30 1.666 0.056
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Error: Within
## Df Sum Sq Mean Sq F value
## factor(time.num.x) 7 38.65 5.521 111.09
## factor(trat.x):factor(time.num.x) 7 21.31 3.044 61.25
## factor(gen.x):factor(time.num.x) 14 12.78 0.913 18.36
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 13.55 0.968 19.48
## Residuals 210 10.44 0.050
## Pr(>F)
## factor(time.num.x) <2e-16 ***
## factor(trat.x):factor(time.num.x) <2e-16 ***
## factor(gen.x):factor(time.num.x) <2e-16 ***
## factor(trat.x):factor(gen.x):factor(time.num.x) <2e-16 ***
## Residuals
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
summary(aov.ph.testa)
##
## Error: factor(muestra.num.x)
## Df Sum Sq Mean Sq F value Pr(>F)
## factor(trat.x) 1 39.68 39.68 476.8 < 2e-16 ***
## factor(gen.x) 2 23.40 11.70 140.6 5.79e-16 ***
## factor(trat.x):factor(gen.x) 2 21.99 11.00 132.1 1.34e-15 ***
## Residuals 30 2.50 0.08
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Error: Within
## Df Sum Sq Mean Sq F value
## factor(time.num.x) 7 334.6 47.80 1120.78
## factor(trat.x):factor(time.num.x) 7 15.6 2.23 52.23
## factor(gen.x):factor(time.num.x) 14 19.7 1.40 32.91
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 20.5 1.47 34.42
## Residuals 210 9.0 0.04
## Pr(>F)
## factor(time.num.x) <2e-16 ***
## factor(trat.x):factor(time.num.x) <2e-16 ***
## factor(gen.x):factor(time.num.x) <2e-16 ***
## factor(trat.x):factor(gen.x):factor(time.num.x) <2e-16 ***
## Residuals
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## Temperature Generalized least squares fit by REML and correlations with different structures
interaction.plot (time.num.x, factor(gen.x), temp, lty=c(1:3),lwd=2,ylab="mean of temp", xlab="time", trace.label="Genotype")
interaction.plot (time.num.x, factor(trat.x), temp, lty=c(1:3),lwd=2,ylab="mean of temp", xlab="time", trace.label="treatment")
nestinginfo <- groupedData(temp ~ gen.x | muestra.num.x, data= regaliasdata)
fit.compsym <- gls(temp~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corCompSymm(, form= ~ 1 | muestra.num.x))
fit.nostruct <- gls(temp~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corSymm(, form= ~ 1 | muestra.num.x), weights = varIdent(form = ~ 1 | time.num.x))
fit.ar1 <- gls(temp~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x))
fit.ar1het <- gls(temp~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
anova(fit.compsym, fit.nostruct, fit.ar1, fit.ar1het) #compares the models
## Model df AIC BIC logLik Test L.Ratio p-value
## fit.compsym 1 50 730.2069 904.2388 -315.1035
## fit.nostruct 2 84 682.5646 974.9383 -257.2823 1 vs 2 115.64232 <.0001
## fit.ar1 3 50 730.0494 904.0814 -315.0247 2 vs 3 115.48487 <.0001
## fit.ar1het 4 57 688.9371 887.3335 -287.4685 3 vs 4 55.11236 <.0001
## Final model with polynomial-time structure
fit.ar1polytime <- gls(temp~(factor(trat.x)*factor(gen.x))*poly(time.num.x, degree = 3), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
summary(fit.ar1polytime)
## Generalized least squares fit by REML
## Model: temp ~ (factor(trat.x) * factor(gen.x)) * poly(time.num.x, degree = 3)
## Data: nestinginfo
## AIC BIC logLik
## 894.076 1012.082 -414.038
##
## Correlation Structure: AR(1)
## Formula: ~1 | muestra.num.x
## Parameter estimate(s):
## Phi
## -0.1111355
## Variance function:
## Structure: Different standard deviations per stratum
## Formula: ~1 | time.num.x
## Parameter estimates:
## 0 5 4 2 6 7 3 1
## 1.000000 1.630740 3.045590 4.428940 9.976371 2.149668 1.834324 6.389091
##
## Coefficients:
## Value
## (Intercept) 41.74349
## factor(trat.x)uno -0.00152
## factor(gen.x)ICS95 0.88789
## factor(gen.x)TCS01 -0.60113
## poly(time.num.x, degree = 3)1 95.25670
## poly(time.num.x, degree = 3)2 -92.08924
## poly(time.num.x, degree = 3)3 -17.90113
## factor(trat.x)uno:factor(gen.x)ICS95 0.69100
## factor(trat.x)uno:factor(gen.x)TCS01 1.52091
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -5.74191
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 16.44144
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 7.70667
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.30383
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -27.38347
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 17.92014
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 12.46495
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 6.46338
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 20.31166
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 2.10779
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 34.77168
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -11.46145
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -19.69232
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 10.65340
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -20.09546
## Std.Error
## (Intercept) 0.124261
## factor(trat.x)uno 0.175732
## factor(gen.x)ICS95 0.175732
## factor(gen.x)TCS01 0.175732
## poly(time.num.x, degree = 3)1 2.317714
## poly(time.num.x, degree = 3)2 1.872106
## poly(time.num.x, degree = 3)3 2.314335
## factor(trat.x)uno:factor(gen.x)ICS95 0.248523
## factor(trat.x)uno:factor(gen.x)TCS01 0.248523
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 3.277743
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 2.647558
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 3.272964
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 3.277743
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 3.277743
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 2.647558
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 2.647558
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 3.272964
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 3.272964
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 4.635429
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 4.635429
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 3.744212
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 3.744212
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 4.628670
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 4.628670
## t-value
## (Intercept) 335.9330
## factor(trat.x)uno -0.0087
## factor(gen.x)ICS95 5.0525
## factor(gen.x)TCS01 -3.4207
## poly(time.num.x, degree = 3)1 41.0994
## poly(time.num.x, degree = 3)2 -49.1902
## poly(time.num.x, degree = 3)3 -7.7349
## factor(trat.x)uno:factor(gen.x)ICS95 2.7804
## factor(trat.x)uno:factor(gen.x)TCS01 6.1198
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -1.7518
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 6.2100
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 2.3546
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0927
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -8.3544
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 6.7686
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 4.7081
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 1.9748
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 6.2059
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.4547
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 7.5013
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -3.0611
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -5.2594
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 2.3016
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -4.3415
## p-value
## (Intercept) 0.0000
## factor(trat.x)uno 0.9931
## factor(gen.x)ICS95 0.0000
## factor(gen.x)TCS01 0.0007
## poly(time.num.x, degree = 3)1 0.0000
## poly(time.num.x, degree = 3)2 0.0000
## poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95 0.0058
## factor(trat.x)uno:factor(gen.x)TCS01 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.0810
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.0193
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.9262
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0000
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0493
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.6497
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0024
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0221
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0000
##
## Correlation:
## (Intr)
## factor(trat.x)uno -0.707
## factor(gen.x)ICS95 -0.707
## factor(gen.x)TCS01 -0.707
## poly(time.num.x, degree = 3)1 -0.040
## poly(time.num.x, degree = 3)2 -0.226
## poly(time.num.x, degree = 3)3 0.380
## factor(trat.x)uno:factor(gen.x)ICS95 0.500
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.160
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.269
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.029
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.029
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.160
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.160
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.269
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.269
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.020
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.020
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.113
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.113
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.190
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.190
## fct(.)
## factor(trat.x)uno
## factor(gen.x)ICS95 0.500
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 0.029
## poly(time.num.x, degree = 3)2 0.160
## poly(time.num.x, degree = 3)3 -0.269
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.040
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.226
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.380
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.020
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.020
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.113
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.113
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.190
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.190
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.160
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.160
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.269
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.269
## f(.)IC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 0.029
## poly(time.num.x, degree = 3)2 0.160
## poly(time.num.x, degree = 3)3 -0.269
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.354
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.020
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.113
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.190
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.040
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.020
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.226
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.113
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.380
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.190
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.014
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.160
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.080
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.269
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.135
## f(.)TC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1 0.029
## poly(time.num.x, degree = 3)2 0.160
## poly(time.num.x, degree = 3)3 -0.269
## factor(trat.x)uno:factor(gen.x)ICS95 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.020
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.113
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.190
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.020
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.040
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.113
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.226
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.190
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.380
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.014
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.080
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.160
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.135
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.269
## p(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2 0.430
## poly(time.num.x, degree = 3)3 -0.528
## factor(trat.x)uno:factor(gen.x)ICS95 -0.020
## factor(trat.x)uno:factor(gen.x)TCS01 -0.020
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.304
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.373
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.304
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.304
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.373
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.373
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.215
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.215
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.264
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.264
## p(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3 -0.002
## factor(trat.x)uno:factor(gen.x)ICS95 -0.113
## factor(trat.x)uno:factor(gen.x)TCS01 -0.113
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.304
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.001
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.304
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.304
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.001
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.215
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.215
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.001
## p(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95 0.190
## factor(trat.x)uno:factor(gen.x)TCS01 0.190
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.373
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.001
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.373
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.373
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.001
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.001
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.264
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.264
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## f(.):(.)I
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.160
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.269
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.029
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.014
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.160
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.080
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.269
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.135
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.040
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.020
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.226
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.113
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.380
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.190
## f(.):(.)T
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.160
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.269
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.014
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.029
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.080
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.160
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.135
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.269
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.020
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.040
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.113
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.226
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.190
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.380
## f(.):(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.430
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.528
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.215
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.215
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.264
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.264
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.304
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.304
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.373
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.373
## f(.):(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.002
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.215
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.215
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.001
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.304
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.304
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.001
## f(.):(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.264
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.264
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.001
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.001
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.373
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.373
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.430
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.215
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.528
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.264
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.304
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.152
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.373
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.187
## f(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.215
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.430
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.264
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.528
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.152
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.304
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.187
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.373
## f(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.002
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.304
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.152
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.001
## f(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.001
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.002
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.152
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.304
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.001
## f(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.373
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.187
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.354
## f(.)TCS01:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.187
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.373
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.):(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.430
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.215
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.528
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.264
## f(.):(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.215
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.430
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.264
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.528
## f(.):(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.002
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.001
## f(.):(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.002
## f(.):(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
##
## Standardized residuals:
## Min Q1 Med Q3 Max
## -3.75100184 -0.67116064 -0.08248548 0.57701174 3.45329265
##
## Residual standard error: 0.3903547
## Degrees of freedom: 288 total; 264 residual
## Qualitative assessment of model source significance
anova(fit.nostruct)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 2197906.0 <.0001
## factor(trat.x) 1 254.7 <.0001
## factor(gen.x) 2 356.6 <.0001
## factor(time.num.x) 7 16033.8 <.0001
## factor(trat.x):factor(gen.x) 2 43.2 <.0001
## factor(trat.x):factor(time.num.x) 7 147.3 <.0001
## factor(gen.x):factor(time.num.x) 14 25.1 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 44.4 <.0001
anova(fit.ar1het)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 1082592.9 <.0001
## factor(trat.x) 1 2.0 0.1632
## factor(gen.x) 2 174.9 <.0001
## factor(time.num.x) 7 8402.1 <.0001
## factor(trat.x):factor(gen.x) 2 17.1 <.0001
## factor(trat.x):factor(time.num.x) 7 86.0 <.0001
## factor(gen.x):factor(time.num.x) 14 21.0 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 34.1 <.0001
anova(fit.ar1polytime)
## Denom. DF: 264
## numDF F-value
## (Intercept) 1 818292.8
## factor(trat.x) 1 48.9
## factor(gen.x) 2 74.3
## poly(time.num.x, degree = 3) 3 14925.0
## factor(trat.x):factor(gen.x) 2 9.5
## factor(trat.x):poly(time.num.x, degree = 3) 3 12.9
## factor(gen.x):poly(time.num.x, degree = 3) 6 16.3
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) 6 29.8
## p-value
## (Intercept) <.0001
## factor(trat.x) <.0001
## factor(gen.x) <.0001
## poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x) 1e-04
## factor(trat.x):poly(time.num.x, degree = 3) <.0001
## factor(gen.x):poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) <.0001
## Final model diagnostic plots
plot(fit.ar1polytime)
shapiro.test(resid(fit.ar1polytime))
##
## Shapiro-Wilk normality test
##
## data: resid(fit.ar1polytime)
## W = 0.90388, p-value = 1.385e-12
qqnorm(fit.ar1polytime, abline = c(0,1))
plot(fit.ar1polytime, resid(., type = "p") ~ fitted(.) | muestra.num.x, abline = 0)
plot(fit.ar1polytime, muestra.num.x ~ resid(.))
plot(fit.ar1polytime, acid.grano ~ fitted(.) | muestra.num.x, abline = c(0,1))
## pH testa Generalized least squares fit by REML and correlations with different structures
interaction.plot (time.num.x, factor(gen.x), ph.testa, lty=c(1:3),lwd=2,ylab="mean of ph.testa", xlab="time", trace.label="Genotype")
interaction.plot (time.num.x, factor(trat.x), ph.testa, lty=c(1:3),lwd=2,ylab="mean of ph.testa", xlab="time", trace.label="Treatment")
nestinginfo <- groupedData(ph.testa ~ gen.x | muestra.num.x, data= regaliasdata)
fit.compsym <- gls(ph.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corCompSymm(, form= ~ 1 | muestra.num.x))
fit.nostruct <- gls(ph.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corSymm(, form= ~ 1 | muestra.num.x), weights = varIdent(form = ~ 1 | time.num.x))
fit.ar1 <- gls(ph.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x))
fit.ar1het <- gls(ph.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
anova(fit.compsym, fit.nostruct, fit.ar1, fit.ar1het) #compares the models
## Model df AIC BIC logLik Test L.Ratio p-value
## fit.compsym 1 50 130.0091 304.0411 -15.004556
## fit.nostruct 2 84 112.9344 405.3081 27.532786 1 vs 2 85.07468 <.0001
## fit.ar1 3 50 131.9932 306.0251 -15.996585 2 vs 3 87.05874 <.0001
## fit.ar1het 4 57 110.3315 308.7279 1.834265 3 vs 4 35.66170 <.0001
## Final model with polynomial-time structure
fit.ar1polytime <- gls(ph.testa~(factor(trat.x)*factor(gen.x))*poly(time.num.x, degree = 3), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
summary(fit.ar1polytime)
## Generalized least squares fit by REML
## Model: ph.testa ~ (factor(trat.x) * factor(gen.x)) * poly(time.num.x, degree = 3)
## Data: nestinginfo
## AIC BIC logLik
## 147.8128 265.8191 -40.9064
##
## Correlation Structure: AR(1)
## Formula: ~1 | muestra.num.x
## Parameter estimate(s):
## Phi
## 0.09391328
## Variance function:
## Structure: Different standard deviations per stratum
## Formula: ~1 | time.num.x
## Parameter estimates:
## 0 5 4 2 6 7 3 1
## 1.000000 2.075615 2.343168 1.579016 5.844395 2.026565 1.720422 2.531014
##
## Coefficients:
## Value
## (Intercept) 4.706139
## factor(trat.x)uno 1.270805
## factor(gen.x)ICS95 0.089683
## factor(gen.x)TCS01 0.165860
## poly(time.num.x, degree = 3)1 15.238474
## poly(time.num.x, degree = 3)2 3.521482
## poly(time.num.x, degree = 3)3 2.431475
## factor(trat.x)uno:factor(gen.x)ICS95 -1.307847
## factor(trat.x)uno:factor(gen.x)TCS01 -0.039947
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 2.810081
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -7.277720
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -3.328941
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 3.775016
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -5.205563
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 1.204003
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.562200
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -3.545743
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 4.118216
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -2.369326
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 7.383489
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 7.015346
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 5.894976
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 3.833105
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -10.142168
## Std.Error
## (Intercept) 0.0425907
## factor(trat.x)uno 0.0602323
## factor(gen.x)ICS95 0.0602323
## factor(gen.x)TCS01 0.0602323
## poly(time.num.x, degree = 3)1 0.6578716
## poly(time.num.x, degree = 3)2 0.5609402
## poly(time.num.x, degree = 3)3 0.6454513
## factor(trat.x)uno:factor(gen.x)ICS95 0.0851813
## factor(trat.x)uno:factor(gen.x)TCS01 0.0851813
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.9303709
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.7932893
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.9128060
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.9303709
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.9303709
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.7932893
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.7932893
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.9128060
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.9128060
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 1.3157432
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 1.3157432
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 1.1218804
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 1.1218804
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 1.2909026
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 1.2909026
## t-value
## (Intercept) 110.49698
## factor(trat.x)uno 21.09840
## factor(gen.x)ICS95 1.48896
## factor(gen.x)TCS01 2.75368
## poly(time.num.x, degree = 3)1 23.16330
## poly(time.num.x, degree = 3)2 6.27782
## poly(time.num.x, degree = 3)3 3.76709
## factor(trat.x)uno:factor(gen.x)ICS95 -15.35369
## factor(trat.x)uno:factor(gen.x)TCS01 -0.46896
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 3.02039
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -9.17411
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -3.64693
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 4.05754
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -5.59515
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 1.51773
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.70869
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -3.88444
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 4.51160
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -1.80075
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 5.61165
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 6.25320
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 5.25455
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 2.96932
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -7.85665
## p-value
## (Intercept) 0.0000
## factor(trat.x)uno 0.0000
## factor(gen.x)ICS95 0.1377
## factor(gen.x)TCS01 0.0063
## poly(time.num.x, degree = 3)1 0.0000
## poly(time.num.x, degree = 3)2 0.0000
## poly(time.num.x, degree = 3)3 0.0002
## factor(trat.x)uno:factor(gen.x)ICS95 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01 0.6395
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.0028
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.0003
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0001
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.1303
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.4791
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0001
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0729
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0033
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0000
##
## Correlation:
## (Intr)
## factor(trat.x)uno -0.707
## factor(gen.x)ICS95 -0.707
## factor(gen.x)TCS01 -0.707
## poly(time.num.x, degree = 3)1 0.432
## poly(time.num.x, degree = 3)2 -0.149
## poly(time.num.x, degree = 3)3 -0.111
## factor(trat.x)uno:factor(gen.x)ICS95 0.500
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.306
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.105
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.079
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.306
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.306
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.105
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.105
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.079
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.079
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.216
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.216
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.074
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.074
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.056
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.056
## fct(.)
## factor(trat.x)uno
## factor(gen.x)ICS95 0.500
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 -0.306
## poly(time.num.x, degree = 3)2 0.105
## poly(time.num.x, degree = 3)3 0.079
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.432
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.149
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.111
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.216
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.216
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.074
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.074
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.056
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.056
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.306
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.306
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.105
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.105
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.079
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.079
## f(.)IC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 -0.306
## poly(time.num.x, degree = 3)2 0.105
## poly(time.num.x, degree = 3)3 0.079
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.354
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.216
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.074
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.056
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.432
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.216
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.149
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.074
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.111
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.056
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.306
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.153
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.105
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.053
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.079
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.039
## f(.)TC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1 -0.306
## poly(time.num.x, degree = 3)2 0.105
## poly(time.num.x, degree = 3)3 0.079
## factor(trat.x)uno:factor(gen.x)ICS95 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.216
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.074
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.056
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.216
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.432
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.074
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.149
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.056
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.111
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.153
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.306
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.053
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.105
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.039
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.079
## p(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2 0.228
## poly(time.num.x, degree = 3)3 -0.340
## factor(trat.x)uno:factor(gen.x)ICS95 0.216
## factor(trat.x)uno:factor(gen.x)TCS01 0.216
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.161
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.240
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.161
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.161
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.240
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.240
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.114
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.114
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.170
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.170
## p(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3 0.307
## factor(trat.x)uno:factor(gen.x)ICS95 -0.074
## factor(trat.x)uno:factor(gen.x)TCS01 -0.074
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.161
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.217
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.161
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.161
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.217
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.217
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.114
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.114
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.154
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.154
## p(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95 -0.056
## factor(trat.x)uno:factor(gen.x)TCS01 -0.056
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.240
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.217
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.240
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.240
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.217
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.217
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.170
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.170
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.154
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.154
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## f(.):(.)I
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.306
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.105
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.079
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.306
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.153
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.105
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.053
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.079
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.039
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.432
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.216
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.149
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.074
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.111
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.056
## f(.):(.)T
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.306
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.105
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.079
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.153
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.306
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.053
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.105
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.039
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.079
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.216
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.432
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.074
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.149
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.056
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.111
## f(.):(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.228
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.340
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.114
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.114
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.170
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.170
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.161
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.161
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.240
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.240
## f(.):(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.307
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.114
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.114
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.154
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.154
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.161
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.161
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.217
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.217
## f(.):(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.170
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.170
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.154
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.154
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.240
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.240
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.217
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.217
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.228
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.114
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.340
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.170
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.161
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.081
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.240
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.120
## f(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.114
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.228
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.170
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.340
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.081
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.161
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.120
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.240
## f(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.307
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.154
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.161
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.081
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.217
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.109
## f(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.154
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.307
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.081
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.161
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.109
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.217
## f(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.240
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.120
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.217
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.109
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.354
## f(.)TCS01:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.120
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.240
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.109
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.217
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.):(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.228
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.114
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.340
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.170
## f(.):(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.114
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.228
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.170
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.340
## f(.):(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.307
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.154
## f(.):(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.154
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.307
## f(.):(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
##
## Standardized residuals:
## Min Q1 Med Q3 Max
## -3.20426221 -0.45373191 -0.01156364 0.53264157 3.40474262
##
## Residual standard error: 0.1346132
## Degrees of freedom: 288 total; 264 residual
## Qualitative assessment of model source significance
anova(fit.nostruct)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 199533.74 <.0001
## factor(trat.x) 1 745.27 <.0001
## factor(gen.x) 2 606.39 <.0001
## factor(time.num.x) 7 585.73 <.0001
## factor(trat.x):factor(gen.x) 2 243.59 <.0001
## factor(trat.x):factor(time.num.x) 7 55.08 <.0001
## factor(gen.x):factor(time.num.x) 14 44.55 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 41.06 <.0001
anova(fit.ar1het)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 156444.83 <.0001
## factor(trat.x) 1 518.92 <.0001
## factor(gen.x) 2 420.51 <.0001
## factor(time.num.x) 7 1035.99 <.0001
## factor(trat.x):factor(gen.x) 2 161.61 <.0001
## factor(trat.x):factor(time.num.x) 7 51.36 <.0001
## factor(gen.x):factor(time.num.x) 14 34.84 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 34.81 <.0001
anova(fit.ar1polytime)
## Denom. DF: 264
## numDF F-value
## (Intercept) 1 98057.05
## factor(trat.x) 1 477.59
## factor(gen.x) 2 248.18
## poly(time.num.x, degree = 3) 3 1585.83
## factor(trat.x):factor(gen.x) 2 145.28
## factor(trat.x):poly(time.num.x, degree = 3) 3 55.56
## factor(gen.x):poly(time.num.x, degree = 3) 6 22.19
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) 6 34.55
## p-value
## (Intercept) <.0001
## factor(trat.x) <.0001
## factor(gen.x) <.0001
## poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x) <.0001
## factor(trat.x):poly(time.num.x, degree = 3) <.0001
## factor(gen.x):poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) <.0001
## Final model diagnostic plots
plot(fit.ar1polytime)
shapiro.test(resid(fit.ar1polytime))
##
## Shapiro-Wilk normality test
##
## data: resid(fit.ar1polytime)
## W = 0.87692, p-value = 1.895e-14
qqnorm(fit.ar1polytime, abline = c(0,1))
plot(fit.ar1polytime, resid(., type = "p") ~ fitted(.) | muestra.num.x, abline = 0)
plot(fit.ar1polytime, muestra.num.x ~ resid(.))
plot(fit.ar1polytime, acid.grano ~ fitted(.) | muestra.num.x, abline = c(0,1))
## pH grano Generalized least squares fit by REML and correlations with different structures
interaction.plot (time.num.x, factor(gen.x), ph.grano, lty=c(1:3),lwd=2,ylab="mean of ph.grano", xlab="time", trace.label="Genotype")
interaction.plot (time.num.x, factor(trat.x), ph.grano, lty=c(1:3),lwd=2,ylab="mean of ph.grano", xlab="time", trace.label="Treatment")
nestinginfo <- groupedData(ph.grano ~ gen.x | muestra.num.x, data= regaliasdata)
fit.compsym <- gls(ph.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corCompSymm(, form= ~ 1 | muestra.num.x))
fit.nostruct <- gls(ph.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corSymm(, form= ~ 1 | muestra.num.x), weights = varIdent(form = ~ 1 | time.num.x))
fit.ar1 <- gls(ph.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x))
fit.ar1het <- gls(ph.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
anova(fit.compsym, fit.nostruct, fit.ar1, fit.ar1het) #compares the models
## Model df AIC BIC logLik Test L.Ratio p-value
## fit.compsym 1 50 150.00569 324.0376 -25.00284
## fit.nostruct 2 84 79.36411 371.7378 44.31795 1 vs 2 138.64158 <.0001
## fit.ar1 3 50 147.22633 321.2583 -23.61316 2 vs 3 135.86222 <.0001
## fit.ar1het 4 57 107.30664 305.7031 3.34668 3 vs 4 53.91968 <.0001
## Final model with polynomial-time structure
fit.ar1polytime <- gls(ph.grano~(factor(trat.x)*factor(gen.x))*poly(time.num.x, degree = 3), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
summary(fit.ar1polytime)
## Generalized least squares fit by REML
## Model: ph.grano ~ (factor(trat.x) * factor(gen.x)) * poly(time.num.x, degree = 3)
## Data: nestinginfo
## AIC BIC logLik
## 79.78341 197.7897 -6.891706
##
## Correlation Structure: AR(1)
## Formula: ~1 | muestra.num.x
## Parameter estimate(s):
## Phi
## -0.04982987
## Variance function:
## Structure: Different standard deviations per stratum
## Formula: ~1 | time.num.x
## Parameter estimates:
## 0 5 4 2 6 7 3 1
## 1.0000000 0.5231238 0.4879798 0.9905586 1.1405602 1.0577349 0.4964046 1.0063281
##
## Coefficients:
## Value
## (Intercept) 5.296288
## factor(trat.x)uno 0.857185
## factor(gen.x)ICS95 0.345011
## factor(gen.x)TCS01 0.039710
## poly(time.num.x, degree = 3)1 -2.733221
## poly(time.num.x, degree = 3)2 6.645719
## poly(time.num.x, degree = 3)3 6.548486
## factor(trat.x)uno:factor(gen.x)ICS95 -0.813703
## factor(trat.x)uno:factor(gen.x)TCS01 0.041797
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 8.409752
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -4.811605
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -9.462517
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -1.521023
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -1.898021
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.143407
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 2.372071
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -6.846062
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -2.295959
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -8.890105
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 3.154239
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 4.748157
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 2.704736
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 9.990236
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.472862
## Std.Error
## (Intercept) 0.0372547
## factor(trat.x)uno 0.0526861
## factor(gen.x)ICS95 0.0526861
## factor(gen.x)TCS01 0.0526861
## poly(time.num.x, degree = 3)1 0.7745343
## poly(time.num.x, degree = 3)2 0.6557477
## poly(time.num.x, degree = 3)3 0.6283532
## factor(trat.x)uno:factor(gen.x)ICS95 0.0745094
## factor(trat.x)uno:factor(gen.x)TCS01 0.0745094
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 1.0953569
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.9273673
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.8886256
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 1.0953569
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 1.0953569
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.9273673
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.9273673
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.8886256
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.8886256
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 1.5490685
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 1.5490685
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 1.3114954
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 1.3114954
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 1.2567063
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 1.2567063
## t-value
## (Intercept) 142.16435
## factor(trat.x)uno 16.26967
## factor(gen.x)ICS95 6.54844
## factor(gen.x)TCS01 0.75370
## poly(time.num.x, degree = 3)1 -3.52886
## poly(time.num.x, degree = 3)2 10.13457
## poly(time.num.x, degree = 3)3 10.42167
## factor(trat.x)uno:factor(gen.x)ICS95 -10.92081
## factor(trat.x)uno:factor(gen.x)TCS01 0.56097
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 7.67764
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -5.18846
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -10.64849
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -1.38861
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -1.73279
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.15464
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 2.55785
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -7.70410
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -2.58372
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -5.73900
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 2.03622
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 3.62041
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 2.06233
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 7.94954
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.37627
## p-value
## (Intercept) 0.0000
## factor(trat.x)uno 0.0000
## factor(gen.x)ICS95 0.0000
## factor(gen.x)TCS01 0.4517
## poly(time.num.x, degree = 3)1 0.0005
## poly(time.num.x, degree = 3)2 0.0000
## poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01 0.5753
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.1661
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0843
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.8772
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0111
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0000
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0103
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0427
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0004
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0402
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.7070
##
## Correlation:
## (Intr)
## factor(trat.x)uno -0.707
## factor(gen.x)ICS95 -0.707
## factor(gen.x)TCS01 -0.707
## poly(time.num.x, degree = 3)1 -0.030
## poly(time.num.x, degree = 3)2 0.526
## poly(time.num.x, degree = 3)3 0.160
## factor(trat.x)uno:factor(gen.x)ICS95 0.500
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.021
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.372
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.113
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.021
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.021
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.372
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.372
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.113
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.113
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.015
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.015
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.263
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.263
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.080
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.080
## fct(.)
## factor(trat.x)uno
## factor(gen.x)ICS95 0.500
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 0.021
## poly(time.num.x, degree = 3)2 -0.372
## poly(time.num.x, degree = 3)3 -0.113
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.030
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.526
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.160
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.015
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.015
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.263
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.263
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.080
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.080
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.021
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.021
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.372
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.372
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.113
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.113
## f(.)IC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 0.021
## poly(time.num.x, degree = 3)2 -0.372
## poly(time.num.x, degree = 3)3 -0.113
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.354
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.015
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.263
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.080
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.030
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.015
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.526
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.263
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.160
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.080
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.021
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.011
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.372
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.186
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.113
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.057
## f(.)TC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1 0.021
## poly(time.num.x, degree = 3)2 -0.372
## poly(time.num.x, degree = 3)3 -0.113
## factor(trat.x)uno:factor(gen.x)ICS95 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.015
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.263
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.080
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.015
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.030
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.263
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.526
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.080
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.160
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.011
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.021
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.186
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.372
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.057
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.113
## p(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2 0.059
## poly(time.num.x, degree = 3)3 0.226
## factor(trat.x)uno:factor(gen.x)ICS95 -0.015
## factor(trat.x)uno:factor(gen.x)TCS01 -0.015
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.042
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.160
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.042
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.042
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.160
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.160
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.029
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.029
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.113
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.113
## p(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3 -0.008
## factor(trat.x)uno:factor(gen.x)ICS95 0.263
## factor(trat.x)uno:factor(gen.x)TCS01 0.263
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.042
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.006
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.042
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.042
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.006
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.006
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.029
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.004
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.004
## p(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95 0.080
## factor(trat.x)uno:factor(gen.x)TCS01 0.080
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.160
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.006
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.160
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.160
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.006
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.006
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.113
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.113
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.004
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.004
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## f(.):(.)I
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.021
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.372
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.113
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.021
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.011
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.372
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.186
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.113
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.057
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.030
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.015
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.526
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.263
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.160
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.080
## f(.):(.)T
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.021
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.372
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.113
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.011
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.021
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.186
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.372
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.057
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.113
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.015
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.030
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.263
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.526
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.080
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.160
## f(.):(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.059
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.226
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.029
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.029
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.113
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.113
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.042
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.042
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.160
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.160
## f(.):(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.008
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.029
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.029
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.004
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.004
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.042
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.042
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.006
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.006
## f(.):(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.113
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.113
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.004
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.004
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.160
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.160
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.006
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.006
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.059
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.029
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.226
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.113
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.042
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.021
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.160
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.080
## f(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.029
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.059
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.113
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.226
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.021
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.042
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.080
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.160
## f(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.008
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.004
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.042
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.021
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.006
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.003
## f(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.004
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.008
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.021
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.042
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.003
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.006
## f(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.160
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.080
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.006
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.003
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.354
## f(.)TCS01:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.080
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.160
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.003
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.006
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.):(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.059
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.029
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.226
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.113
## f(.):(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.029
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.059
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.113
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.226
## f(.):(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.008
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.004
## f(.):(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.004
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.008
## f(.):(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
##
## Standardized residuals:
## Min Q1 Med Q3 Max
## -2.62025479 -0.58911938 0.03956763 0.67382062 4.31253580
##
## Residual standard error: 0.3206617
## Degrees of freedom: 288 total; 264 residual
## Qualitative assessment of model source significance
anova(fit.nostruct)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 458680.6 <.0001
## factor(trat.x) 1 1151.1 <.0001
## factor(gen.x) 2 4.4 0.0127
## factor(time.num.x) 7 179.9 <.0001
## factor(trat.x):factor(gen.x) 2 244.9 <.0001
## factor(trat.x):factor(time.num.x) 7 99.6 <.0001
## factor(gen.x):factor(time.num.x) 14 14.1 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 30.1 <.0001
anova(fit.ar1het)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 254840.62 <.0001
## factor(trat.x) 1 917.11 <.0001
## factor(gen.x) 2 10.72 <.0001
## factor(time.num.x) 7 178.93 <.0001
## factor(trat.x):factor(gen.x) 2 198.85 <.0001
## factor(trat.x):factor(time.num.x) 7 96.50 <.0001
## factor(gen.x):factor(time.num.x) 14 18.54 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 28.79 <.0001
anova(fit.ar1polytime)
## Denom. DF: 264
## numDF F-value
## (Intercept) 1 192513.46
## factor(trat.x) 1 942.27
## factor(gen.x) 2 13.04
## poly(time.num.x, degree = 3) 3 191.52
## factor(trat.x):factor(gen.x) 2 213.54
## factor(trat.x):poly(time.num.x, degree = 3) 3 119.26
## factor(gen.x):poly(time.num.x, degree = 3) 6 21.12
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) 6 35.76
## p-value
## (Intercept) <.0001
## factor(trat.x) <.0001
## factor(gen.x) <.0001
## poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x) <.0001
## factor(trat.x):poly(time.num.x, degree = 3) <.0001
## factor(gen.x):poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) <.0001
## Final model diagnostic plots
plot(fit.ar1polytime)
shapiro.test(resid(fit.ar1polytime))
##
## Shapiro-Wilk normality test
##
## data: resid(fit.ar1polytime)
## W = 0.95722, p-value = 1.768e-07
qqnorm(fit.ar1polytime, abline = c(0,1))
plot(fit.ar1polytime, resid(., type = "p") ~ fitted(.) | muestra.num.x, abline = 0)
plot(fit.ar1polytime, muestra.num.x ~ resid(.))
plot(fit.ar1polytime, acid.grano ~ fitted(.) | muestra.num.x, abline = c(0,1))
## Testa acidity Generalized least squares fit by REML and correlations with different structures
interaction.plot (time.num.x, factor(gen.x), acid.testa, lty=c(1:3),lwd=2,ylab="mean of acid.testa", xlab="time", trace.label="Genotype")
interaction.plot (time.num.x, factor(trat.x), acid.testa, lty=c(1:3),lwd=2,ylab="mean of acid.testa", xlab="time", trace.label="Treatment")
nestinginfo <- groupedData(acid.testa ~ gen.x | muestra.num.x, data= regaliasdata)
fit.compsym <- gls(acid.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corCompSymm(, form= ~ 1 | muestra.num.x))
fit.nostruct <- gls(acid.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corSymm(, form= ~ 1 | muestra.num.x), weights = varIdent(form = ~ 1 | time.num.x))
fit.ar1 <- gls(acid.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x))
fit.ar1het <- gls(acid.testa~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
anova(fit.compsym, fit.nostruct, fit.ar1, fit.ar1het) #compares the models
## Model df AIC BIC logLik Test L.Ratio p-value
## fit.compsym 1 50 -368.1875 -194.1555 234.0937
## fit.nostruct 2 84 -432.4076 -140.0339 300.2038 1 vs 2 132.22010 <.0001
## fit.ar1 3 50 -357.7315 -183.6995 228.8657 2 vs 3 142.67613 <.0001
## fit.ar1het 4 57 -404.7125 -206.3161 259.3563 3 vs 4 60.98109 <.0001
## Final model with polynomial-time structure
fit.ar1polytime <- gls(acid.testa~(factor(trat.x)*factor(gen.x))*poly(time.num.x, degree = 3), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
summary(fit.ar1polytime)
## Generalized least squares fit by REML
## Model: acid.testa ~ (factor(trat.x) * factor(gen.x)) * poly(time.num.x, degree = 3)
## Data: nestinginfo
## AIC BIC logLik
## -405.5257 -287.5194 235.7629
##
## Correlation Structure: AR(1)
## Formula: ~1 | muestra.num.x
## Parameter estimate(s):
## Phi
## 0.140245
## Variance function:
## Structure: Different standard deviations per stratum
## Formula: ~1 | time.num.x
## Parameter estimates:
## 0 5 4 2 6 7 3 1
## 1.000000 4.310076 5.035251 2.726156 4.113627 2.271466 1.375279 2.436064
##
## Coefficients:
## Value
## (Intercept) 0.345801
## factor(trat.x)uno -0.186949
## factor(gen.x)ICS95 -0.044921
## factor(gen.x)TCS01 0.280034
## poly(time.num.x, degree = 3)1 -1.037544
## poly(time.num.x, degree = 3)2 -1.011228
## poly(time.num.x, degree = 3)3 -0.068047
## factor(trat.x)uno:factor(gen.x)ICS95 0.211882
## factor(trat.x)uno:factor(gen.x)TCS01 -0.217327
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -1.553356
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 1.577714
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.528370
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -1.811277
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 2.226196
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.568216
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -3.184815
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.460762
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -2.705601
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 1.307694
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -3.532554
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -1.421792
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 2.698253
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.831874
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 4.191021
## Std.Error
## (Intercept) 0.0155181
## factor(trat.x)uno 0.0219459
## factor(gen.x)ICS95 0.0219459
## factor(gen.x)TCS01 0.0219459
## poly(time.num.x, degree = 3)1 0.2434227
## poly(time.num.x, degree = 3)2 0.1801462
## poly(time.num.x, degree = 3)3 0.2633660
## factor(trat.x)uno:factor(gen.x)ICS95 0.0310361
## factor(trat.x)uno:factor(gen.x)TCS01 0.0310361
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.3442516
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.2547651
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.3724558
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.3442516
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.3442516
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.2547651
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.2547651
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.3724558
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.3724558
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.4868453
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.4868453
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.3602923
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.3602923
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.5267320
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.5267320
## t-value
## (Intercept) 22.283789
## factor(trat.x)uno -8.518651
## factor(gen.x)ICS95 -2.046901
## factor(gen.x)TCS01 12.760219
## poly(time.num.x, degree = 3)1 -4.262316
## poly(time.num.x, degree = 3)2 -5.613377
## poly(time.num.x, degree = 3)3 -0.258376
## factor(trat.x)uno:factor(gen.x)ICS95 6.826938
## factor(trat.x)uno:factor(gen.x)TCS01 -7.002395
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -4.512269
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 6.192818
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 1.418613
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -5.261491
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 6.466769
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 2.230353
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -12.500985
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 1.237091
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -7.264221
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 2.686057
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -7.256009
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -3.946218
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 7.489065
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -1.579311
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 7.956649
## p-value
## (Intercept) 0.0000
## factor(trat.x)uno 0.0000
## factor(gen.x)ICS95 0.0417
## factor(gen.x)TCS01 0.0000
## poly(time.num.x, degree = 3)1 0.0000
## poly(time.num.x, degree = 3)2 0.0000
## poly(time.num.x, degree = 3)3 0.7963
## factor(trat.x)uno:factor(gen.x)ICS95 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.1572
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0000
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0266
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.2172
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0077
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0001
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.1155
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0000
##
## Correlation:
## (Intr)
## factor(trat.x)uno -0.707
## factor(gen.x)ICS95 -0.707
## factor(gen.x)TCS01 -0.707
## poly(time.num.x, degree = 3)1 0.573
## poly(time.num.x, degree = 3)2 -0.253
## poly(time.num.x, degree = 3)3 -0.280
## factor(trat.x)uno:factor(gen.x)ICS95 0.500
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.405
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.179
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.198
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.405
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.405
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.179
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.179
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.198
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.198
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.287
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.287
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.127
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.127
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.140
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.140
## fct(.)
## factor(trat.x)uno
## factor(gen.x)ICS95 0.500
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 -0.405
## poly(time.num.x, degree = 3)2 0.179
## poly(time.num.x, degree = 3)3 0.198
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.573
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.253
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.280
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.287
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.287
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.127
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.127
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.140
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.140
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.405
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.405
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.179
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.179
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.198
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.198
## f(.)IC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 -0.405
## poly(time.num.x, degree = 3)2 0.179
## poly(time.num.x, degree = 3)3 0.198
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.354
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.287
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.127
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.140
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.573
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.287
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.253
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.127
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.280
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.140
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.405
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.203
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.179
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.090
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.198
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.099
## f(.)TC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1 -0.405
## poly(time.num.x, degree = 3)2 0.179
## poly(time.num.x, degree = 3)3 0.198
## factor(trat.x)uno:factor(gen.x)ICS95 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.287
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.127
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.140
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.287
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.573
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.127
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.253
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.140
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.280
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.203
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.405
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.090
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.179
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.099
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.198
## p(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2 0.025
## poly(time.num.x, degree = 3)3 -0.549
## factor(trat.x)uno:factor(gen.x)ICS95 0.287
## factor(trat.x)uno:factor(gen.x)TCS01 0.287
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.017
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.388
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.017
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.017
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.388
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.388
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.012
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.012
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.274
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.274
## p(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3 0.438
## factor(trat.x)uno:factor(gen.x)ICS95 -0.127
## factor(trat.x)uno:factor(gen.x)TCS01 -0.127
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.017
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.309
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.017
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.017
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.309
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.309
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.012
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.012
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.219
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.219
## p(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95 -0.140
## factor(trat.x)uno:factor(gen.x)TCS01 -0.140
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.388
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.309
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.388
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.388
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.309
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.309
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.274
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.274
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.219
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.219
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## f(.):(.)I
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.405
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.179
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.198
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.405
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.203
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.179
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.090
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.198
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.099
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.573
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.287
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.253
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.127
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.280
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.140
## f(.):(.)T
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.405
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.179
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.198
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.203
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.405
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.090
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.179
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.099
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.198
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.287
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.573
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.127
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.253
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.140
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.280
## f(.):(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.025
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.549
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.012
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.012
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.274
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.274
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.017
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.017
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.388
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.388
## f(.):(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.438
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.012
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.012
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.219
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.219
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.017
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.017
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.309
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.309
## f(.):(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.274
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.274
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.219
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.219
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.388
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.388
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.309
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.309
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.025
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.012
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.549
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.274
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.017
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.009
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.388
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.194
## f(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.012
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.025
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.274
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.549
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.009
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.017
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.194
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.388
## f(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.438
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.219
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.017
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.009
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.309
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.155
## f(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.219
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.438
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.009
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.017
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.155
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.309
## f(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.388
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.194
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.309
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.155
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.354
## f(.)TCS01:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.194
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.388
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.155
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.309
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.):(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.025
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.012
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.549
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.274
## f(.):(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.012
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.025
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.274
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.549
## f(.):(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.438
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.219
## f(.):(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.219
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.438
## f(.):(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
##
## Standardized residuals:
## Min Q1 Med Q3 Max
## -4.00241250 -0.53026015 0.02827005 0.45811162 3.54806660
##
## Residual standard error: 0.03899234
## Degrees of freedom: 288 total; 264 residual
## Qualitative assessment of model source significance
anova(fit.nostruct)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 14458.726 <.0001
## factor(trat.x) 1 277.713 <.0001
## factor(gen.x) 2 76.355 <.0001
## factor(time.num.x) 7 110.309 <.0001
## factor(trat.x):factor(gen.x) 2 119.085 <.0001
## factor(trat.x):factor(time.num.x) 7 95.639 <.0001
## factor(gen.x):factor(time.num.x) 14 43.479 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 43.485 <.0001
anova(fit.ar1het)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 11403.132 <.0001
## factor(trat.x) 1 153.767 <.0001
## factor(gen.x) 2 81.948 <.0001
## factor(time.num.x) 7 118.615 <.0001
## factor(trat.x):factor(gen.x) 2 70.978 <.0001
## factor(trat.x):factor(time.num.x) 7 119.930 <.0001
## factor(gen.x):factor(time.num.x) 14 34.945 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 45.038 <.0001
anova(fit.ar1polytime)
## Denom. DF: 264
## numDF F-value
## (Intercept) 1 7124.983
## factor(trat.x) 1 16.422
## factor(gen.x) 2 54.476
## poly(time.num.x, degree = 3) 3 209.985
## factor(trat.x):factor(gen.x) 2 21.694
## factor(trat.x):poly(time.num.x, degree = 3) 3 125.416
## factor(gen.x):poly(time.num.x, degree = 3) 6 39.937
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) 6 42.164
## p-value
## (Intercept) <.0001
## factor(trat.x) 1e-04
## factor(gen.x) <.0001
## poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x) <.0001
## factor(trat.x):poly(time.num.x, degree = 3) <.0001
## factor(gen.x):poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) <.0001
## Final model diagnostic plots
plot(fit.ar1polytime)
shapiro.test(resid(fit.ar1polytime))
##
## Shapiro-Wilk normality test
##
## data: resid(fit.ar1polytime)
## W = 0.87115, p-value = 8.249e-15
qqnorm(fit.ar1polytime, abline = c(0,1))
plot(fit.ar1polytime, resid(., type = "p") ~ fitted(.) | muestra.num.x, abline = 0)
plot(fit.ar1polytime, muestra.num.x ~ resid(.))
plot(fit.ar1polytime, acid.grano ~ fitted(.) | muestra.num.x, abline = c(0,1))
## Bean acidity Generalized least squares fit by REML and correlations with different structures
interaction.plot (time.num.x, factor(gen.x), acid.grano, lty=c(1:3),lwd=2,ylab="mean of acid.grano", xlab="time", trace.label="Genotype")
interaction.plot (time.num.x, factor(trat.x), acid.grano, lty=c(1:3),lwd=2,ylab="mean of acid.grano", xlab="time", trace.label="Treatment")
nestinginfo <- groupedData(acid.grano ~ gen.x | muestra.num.x, data= regaliasdata)
fit.compsym <- gls(acid.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corCompSymm(, form= ~ 1 | muestra.num.x))
fit.nostruct <- gls(acid.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corSymm(, form= ~ 1 | muestra.num.x), weights = varIdent(form = ~ 1 | time.num.x))
fit.ar1 <- gls(acid.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x))
fit.ar1het <- gls(acid.grano~(factor(trat.x)*factor(gen.x))*factor(time.num.x), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
anova(fit.compsym, fit.nostruct, fit.ar1, fit.ar1het) #compares the models
## Model df AIC BIC logLik Test L.Ratio p-value
## fit.compsym 1 50 -456.2439 -282.2120 278.1220
## fit.nostruct 2 84 -552.1086 -259.7349 360.0543 1 vs 2 163.86467 <.0001
## fit.ar1 3 50 -452.0177 -277.9857 276.0088 2 vs 3 168.09094 <.0001
## fit.ar1het 4 57 -493.8161 -295.4197 303.9080 3 vs 4 55.79841 <.0001
## Final model with polynomial-time structure
fit.ar1polytime <- gls(acid.grano~(factor(trat.x)*factor(gen.x))*poly(time.num.x, degree = 3), data=nestinginfo, corr=corAR1(, form= ~ 1 | muestra.num.x), weights=varIdent(form = ~ 1 | time.num.x))
summary(fit.ar1polytime)
## Generalized least squares fit by REML
## Model: acid.grano ~ (factor(trat.x) * factor(gen.x)) * poly(time.num.x, degree = 3)
## Data: nestinginfo
## AIC BIC logLik
## -561.8326 -443.8263 313.9163
##
## Correlation Structure: AR(1)
## Formula: ~1 | muestra.num.x
## Parameter estimate(s):
## Phi
## -0.1510498
## Variance function:
## Structure: Different standard deviations per stratum
## Formula: ~1 | time.num.x
## Parameter estimates:
## 0 5 4 2 6 7 3 1
## 1.000000 3.333570 4.605160 3.337140 4.597084 2.935160 3.340712 2.270641
##
## Coefficients:
## Value
## (Intercept) 0.3692128
## factor(trat.x)uno -0.2354116
## factor(gen.x)ICS95 -0.1866769
## factor(gen.x)TCS01 0.0515670
## poly(time.num.x, degree = 3)1 1.6320073
## poly(time.num.x, degree = 3)2 -1.7222206
## poly(time.num.x, degree = 3)3 -1.3231188
## factor(trat.x)uno:factor(gen.x)ICS95 0.2259265
## factor(trat.x)uno:factor(gen.x)TCS01 -0.0105380
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -2.3091238
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 1.6464907
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 1.6295101
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -1.2846115
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.7480993
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.5539283
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -1.1030067
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 1.0917839
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.4773702
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 2.4213268
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -1.3217367
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -1.5994812
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.2365916
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -1.8008717
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 1.3601356
## Std.Error
## (Intercept) 0.0104295
## factor(trat.x)uno 0.0147495
## factor(gen.x)ICS95 0.0147495
## factor(gen.x)TCS01 0.0147495
## poly(time.num.x, degree = 3)1 0.1658156
## poly(time.num.x, degree = 3)2 0.1731820
## poly(time.num.x, degree = 3)3 0.1715548
## factor(trat.x)uno:factor(gen.x)ICS95 0.0208589
## factor(trat.x)uno:factor(gen.x)TCS01 0.0208589
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.2344987
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.2449163
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.2426151
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.2344987
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.2344987
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.2449163
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.2449163
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.2426151
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.2426151
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.3316312
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.3316312
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.3463639
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.3463639
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.3431096
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.3431096
## t-value
## (Intercept) 35.40091
## factor(trat.x)uno -15.96066
## factor(gen.x)ICS95 -12.65649
## factor(gen.x)TCS01 3.49619
## poly(time.num.x, degree = 3)1 9.84230
## poly(time.num.x, degree = 3)2 -9.94457
## poly(time.num.x, degree = 3)3 -7.71251
## factor(trat.x)uno:factor(gen.x)ICS95 10.83116
## factor(trat.x)uno:factor(gen.x)TCS01 -0.50520
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -9.84706
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 6.72267
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 6.71644
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -5.47812
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 3.19021
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 2.26171
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -4.50361
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 4.50007
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -1.96760
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 7.30126
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -3.98556
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -4.61792
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.68307
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -5.24868
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 3.96414
## p-value
## (Intercept) 0.0000
## factor(trat.x)uno 0.0000
## factor(gen.x)ICS95 0.0000
## factor(gen.x)TCS01 0.0006
## poly(time.num.x, degree = 3)1 0.0000
## poly(time.num.x, degree = 3)2 0.0000
## poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)ICS95 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01 0.6138
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0000
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0016
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0245
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.0000
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0000
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0502
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.0001
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.4952
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.0000
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.0001
##
## Correlation:
## (Intr)
## factor(trat.x)uno -0.707
## factor(gen.x)ICS95 -0.707
## factor(gen.x)TCS01 -0.707
## poly(time.num.x, degree = 3)1 0.352
## poly(time.num.x, degree = 3)2 -0.374
## poly(time.num.x, degree = 3)3 -0.099
## factor(trat.x)uno:factor(gen.x)ICS95 0.500
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.249
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.265
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.070
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.249
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.249
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.265
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.265
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.070
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.070
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.176
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.176
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.187
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.187
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.049
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.049
## fct(.)
## factor(trat.x)uno
## factor(gen.x)ICS95 0.500
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 -0.249
## poly(time.num.x, degree = 3)2 0.265
## poly(time.num.x, degree = 3)3 0.070
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.352
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.374
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.099
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.176
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.176
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.187
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.187
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.049
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.049
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.249
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.249
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.265
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.265
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.070
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.070
## f(.)IC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01 0.500
## poly(time.num.x, degree = 3)1 -0.249
## poly(time.num.x, degree = 3)2 0.265
## poly(time.num.x, degree = 3)3 0.070
## factor(trat.x)uno:factor(gen.x)ICS95 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01 -0.354
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.176
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.187
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.049
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.352
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.176
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.374
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.187
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.099
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.049
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.249
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.124
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.265
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.132
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.070
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.035
## f(.)TC
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1 -0.249
## poly(time.num.x, degree = 3)2 0.265
## poly(time.num.x, degree = 3)3 0.070
## factor(trat.x)uno:factor(gen.x)ICS95 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.176
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.187
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.049
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.176
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.352
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.187
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.374
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.049
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.099
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.124
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.249
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.132
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.265
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.035
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.070
## p(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2 0.255
## poly(time.num.x, degree = 3)3 -0.392
## factor(trat.x)uno:factor(gen.x)ICS95 0.176
## factor(trat.x)uno:factor(gen.x)TCS01 0.176
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.180
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.277
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.180
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.180
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.277
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.277
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.128
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.128
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.196
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.196
## p(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3 0.399
## factor(trat.x)uno:factor(gen.x)ICS95 -0.187
## factor(trat.x)uno:factor(gen.x)TCS01 -0.187
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.180
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.282
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.180
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.180
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.282
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.282
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.128
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.128
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.200
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.200
## p(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95 -0.049
## factor(trat.x)uno:factor(gen.x)TCS01 -0.049
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 0.277
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 -0.282
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.277
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.277
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.282
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.282
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.196
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.196
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.200
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.200
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## f(.):(.)I
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01 0.500
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.249
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.265
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.070
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.249
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.124
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.265
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.132
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.070
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.035
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.352
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.176
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.374
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.187
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.099
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.049
## f(.):(.)T
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1 -0.249
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.265
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.070
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.124
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.249
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.132
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.265
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.035
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.070
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.176
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.352
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.187
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.374
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.049
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.099
## f(.):(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2 0.255
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 -0.392
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.128
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.128
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.196
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.196
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.180
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.180
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.277
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.277
## f(.):(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3 0.399
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.128
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.128
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.200
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.200
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.180
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.180
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.282
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.282
## f(.):(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.196
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.196
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.200
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.200
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.500
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.277
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.277
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.282
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.282
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.255
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.128
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.392
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.196
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.180
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.090
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.277
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.138
## f(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.128
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.255
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.196
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.392
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.090
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.180
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.138
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.277
## f(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.399
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.200
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.180
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.090
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.282
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.141
## f(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.200
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.399
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 -0.090
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 -0.180
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.707
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.141
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.282
## f(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.277
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.138
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.282
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.141
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.707
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.354
## f(.)TCS01:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1 0.138
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.277
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 -0.141
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 -0.282
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.354
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.707
## f(.):(.)ICS95:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.255
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.128
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.392
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.196
## f(.):(.)TCS01:(..,d=3)1
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2 0.128
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.255
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 -0.196
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 -0.392
## f(.):(.)ICS95:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2 0.500
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.399
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.200
## f(.):(.)TCS01:(..,d=3)2
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3 0.200
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.399
## f(.):(.)ICS95:(..,d=3)3
## factor(trat.x)uno
## factor(gen.x)ICS95
## factor(gen.x)TCS01
## poly(time.num.x, degree = 3)1
## poly(time.num.x, degree = 3)2
## poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95
## factor(trat.x)uno:factor(gen.x)TCS01
## factor(trat.x)uno:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:poly(time.num.x, degree = 3)3
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(gen.x)TCS01:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)1
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)2
## factor(trat.x)uno:factor(gen.x)ICS95:poly(time.num.x, degree = 3)3
## factor(trat.x)uno:factor(gen.x)TCS01:poly(time.num.x, degree = 3)3 0.500
##
## Standardized residuals:
## Min Q1 Med Q3 Max
## -4.602402743 -0.581596627 -0.002578111 0.450567425 3.326926344
##
## Residual standard error: 0.02546496
## Degrees of freedom: 288 total; 264 residual
## Qualitative assessment of model source significance
anova(fit.nostruct)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 11447.892 <.0001
## factor(trat.x) 1 783.274 <.0001
## factor(gen.x) 2 197.399 <.0001
## factor(time.num.x) 7 455.050 <.0001
## factor(trat.x):factor(gen.x) 2 169.147 <.0001
## factor(trat.x):factor(time.num.x) 7 119.756 <.0001
## factor(gen.x):factor(time.num.x) 14 23.122 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 36.011 <.0001
anova(fit.ar1het)
## Denom. DF: 240
## numDF F-value p-value
## (Intercept) 1 4103.024 <.0001
## factor(trat.x) 1 187.478 <.0001
## factor(gen.x) 2 88.618 <.0001
## factor(time.num.x) 7 202.264 <.0001
## factor(trat.x):factor(gen.x) 2 36.058 <.0001
## factor(trat.x):factor(time.num.x) 7 97.298 <.0001
## factor(gen.x):factor(time.num.x) 14 19.549 <.0001
## factor(trat.x):factor(gen.x):factor(time.num.x) 14 30.408 <.0001
anova(fit.ar1polytime)
## Denom. DF: 264
## numDF F-value
## (Intercept) 1 3079.5743
## factor(trat.x) 1 135.7796
## factor(gen.x) 2 76.4432
## poly(time.num.x, degree = 3) 3 226.0138
## factor(trat.x):factor(gen.x) 2 27.1883
## factor(trat.x):poly(time.num.x, degree = 3) 3 112.0487
## factor(gen.x):poly(time.num.x, degree = 3) 6 18.8181
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) 6 33.7915
## p-value
## (Intercept) <.0001
## factor(trat.x) <.0001
## factor(gen.x) <.0001
## poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x) <.0001
## factor(trat.x):poly(time.num.x, degree = 3) <.0001
## factor(gen.x):poly(time.num.x, degree = 3) <.0001
## factor(trat.x):factor(gen.x):poly(time.num.x, degree = 3) <.0001
## Final model diagnostic plots
plot(fit.ar1polytime)
shapiro.test(resid(fit.ar1polytime))
##
## Shapiro-Wilk normality test
##
## data: resid(fit.ar1polytime)
## W = 0.89143, p-value = 1.742e-13
qqnorm(fit.ar1polytime, abline = c(0,1))
plot(fit.ar1polytime, resid(., type = "p") ~ fitted(.) | muestra.num.x, abline = 0)
plot(fit.ar1polytime, muestra.num.x ~ resid(.))
plot(fit.ar1polytime, acid.grano ~ fitted(.) | muestra.num.x, abline = c(0,1))
detach(regaliasdata)