--
You received this message because you are subscribed to the Google Groups "StatForLing with R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to statforling-with-r+unsub...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
IIRC Bresnan did that for varieties of English.
Something you could try would be to fit two models, one for English, one for French, and then predict French with the English model and the other way around, and compare accuracy scores across models and to the baseline.
Okay! Now I see. Thank you very much for the brilliant idea!
To unsubscribe from this group and stop receiving emails from it, send an email to statforling-with-r+unsubscribe@googlegroups.com.
No worries for the self-promotion. Thank you for pointing me to interesting literature ☺
> summary(french.table.3)
ARTICLE COMPSYNT2 POSITION COMPTYPE SUBSTYPE2 VARIANT2 YEAR DECADE GENRE2
No :815 DetPoss :332 : 1 Hum :430 Comp : 2 1:487 Min. :1550 Min. :1550 Treat_Ess:293
Yes:172 NP :332 Fin :529 SoA :228 Conc : 12 2:500 1st Qu.:1623 1st Qu.:1620 Novel :216
NFClau :235 Init:275 Conc :154 Contr:416 Median :1656 Median :1650 Drama :143
SubClau : 30 Med :182 Abstr :101 Dep : 45 Mean :1650 Mean :1646 Poetry : 84
ProForm : 19 Prop : 31 Emp :103 3rd Qu.:1686 3rd Qu.:1680 Memoirs : 82
PronPers: 15 Plant : 16 Repl :324 Max. :1719 Max. :1710 Corresp : 80
(Other) : 24 (Other): 27 Subst: 85 (Other) : 89
AUTHOR2
Corneille_P : 59
Galland_A : 48
Urfe_H_d : 44
Sevigne_Me_de : 42
Courcillon_P_de: 38
Bossuet_JB : 22
(Other) :734
--
> head(table(YEAR, VARIANT2))
VARIANT2
YEAR 1 2
1550 6 4
1551 0 3
1552 1 0
1553 5 0
1554 2 0
1555 2 0
> head(table(AUTHOR2, VARIANT2))
VARIANT2
AUTHOR2 1 2
Abbadie_J 1 2
Anonymous 1 0
Arnauld_A 3 1
Arnauld_A_Lancelot_C 1 0
Arnauld_A_Nicole_P 1 1
Arnauld_D'Andilly_R 5 3
> tail(table(COMPTYPE, VARIANT2))
VARIANT2
COMPTYPE 1 2
Anim 5 7
Conc 93 61
Hum 52 378
Plant 11 5
Prop 31 0
SoA 228 0
> m1<-glmer(VARIANT2 ~ YEAR + COMPSYNT2 + POSITION + SUBSTYPE2 + (1|AUTHOR2/GENRE2), data=french.table.3, family=binomial)
Warning messages:
1: In (function (fn, par, lower = rep.int(-Inf, n), upper = rep.int(Inf, :
failure to converge in 10000 evaluations
2: In checkConv(attr(opt, "derivs"), opt$par, ctrl = control$checkConv, :
unable to evaluate scaled gradient
3: In checkConv(attr(opt, "derivs"), opt$par, ctrl = control$checkConv, :
Model failed to converge: degenerate Hessian with 1 negative eigenvalues
> priors = list(R = list(fix=1, V=(1/k) * (I + J), n = k - 1),
+ G = list(G1 = list(V = diag(k - 1), n = k - 1)))
> m0<-MCMCglmm(VARIANT2 ~ PERIOD + dim1 + dim2 + dim3, random = ~ AUTHOR2, data=new.french.data, family="categorical", prior=priors, verbose = TRUE, burnin = 10000, nitt = 60000, thin = 50)
MCMC iteration = 60000
Acceptance ratio for liability set 1 = 0.377207
> summary(m0)
Iterations = 10001:59951
Thinning interval = 50
Sample size = 1000
DIC: 334.0763
G-structure: ~AUTHOR2
post.mean l-95% CI u-95% CI eff.samp
AUTHOR2 3.06 1.071 5.227 132.4
R-structure: ~units
post.mean l-95% CI u-95% CI eff.samp
units 1 1 1 0
Location effects: VARIANT2 ~ PERIOD + dim1 + dim2 + dim3
post.mean l-95% CI u-95% CI eff.samp pMCMC
(Intercept) -36.3831 -61.7319 -6.2908 8.713 <0.001 ***
PERIOD2 30.4970 -0.5038 55.8866 9.040 0.042 *
PERIOD3 32.4969 1.3983 57.3040 8.758 0.006 **
PERIOD4 34.2513 3.4148 59.1423 8.640 <0.001 ***
dim1 -10.5058 -12.3884 -8.6683 13.407 <0.001 ***
dim2 -5.0967 -10.9888 1.5600 1.478 0.148
dim3 -2.7005 -3.4382 -1.9629 56.175 <0.001 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> HPDinterval(m0$Sol)
lower upper
(Intercept) -61.7318921 -6.290827
PERIOD2 -0.5037781 55.886554
PERIOD3 1.3982645 57.304038
PERIOD4 3.4148215 59.142335
dim1 -12.3883913 -8.668259
dim2 -10.9887539 1.560011
dim3 -3.4382181 -1.962925
attr(,"Probability")
[1] 0.95
--
> autocorr(m0$Sol)
, , (Intercept)
(Intercept) PERIOD2 PERIOD3 PERIOD4 dim1 dim2 dim3
Lag 0 1.0000000 -0.9979636 -0.9987144 -0.9995128 -0.22475550 -0.05202329 -0.06432539
Lag 50 0.9794671 -0.9772533 -0.9780940 -0.9790762 -0.22131822 -0.05023164 -0.05576551
Lag 250 0.9160509 -0.9138273 -0.9145092 -0.9154895 -0.20607164 -0.04531620 -0.05433830
Lag 500 0.8463777 -0.8448114 -0.8440027 -0.8452010 -0.17869369 -0.03714499 -0.05288979
Lag 2500 0.4127582 -0.4134141 -0.4112979 -0.4106319 -0.03658181 0.06187555 -0.00959807
, , PERIOD2
(Intercept) PERIOD2 PERIOD3 PERIOD4 dim1 dim2 dim3
Lag 0 -0.9979636 1.0000000 0.9974794 0.9979766 0.24628615 0.06581125 0.07513141
Lag 50 -0.9774737 0.9773531 0.9767655 0.9775991 0.24308384 0.06427438 0.06838424
Lag 250 -0.9146997 0.9131223 0.9136999 0.9146370 0.22541688 0.05919352 0.06648012
Lag 500 -0.8469621 0.8459833 0.8450712 0.8462735 0.19603440 0.05051837 0.06254785
Lag 2500 -0.4097705 0.4107252 0.4086071 0.4078016 0.04111295 -0.05059724 0.01413806
, , PERIOD3
(Intercept) PERIOD2 PERIOD3 PERIOD4 dim1 dim2 dim3
Lag 0 -0.9987144 0.9974794 1.0000000 0.9989450 0.25138796 0.07306676 0.07760686
Lag 50 -0.9788200 0.9773140 0.9788218 0.9791348 0.24801196 0.07120765 0.07066260
Lag 250 -0.9163190 0.9147659 0.9156771 0.9164639 0.23211295 0.06642308 0.06814145
Lag 500 -0.8475002 0.8464786 0.8457743 0.8469185 0.20148328 0.05866247 0.06588473
Lag 2500 -0.4142678 0.4152285 0.4131917 0.4125087 0.05033845 -0.04440010 0.01736605
.
.
.
To unsubscribe from this group and stop receiving emails from it, send an email to statforling-with-r+unsubscribe@googlegroups.com.