<div dir="ltr"><div class="gmail_default" style="font-family:arial,helvetica,sans-serif"><span style="font-size:small">Hi all, I am estimating RSiena models of multiple (binary, one-mode, two-wave) networks and have a significant positive effect from a tie in the W network (allegiance) to a tie in the X (exports) network (the "crprod" effect). What I'd like to test is an interaction between shared W pa</span>rtners (something like <span style="font-family:Helvetica">gwespFBMix) </span>and the direct W tie on the X tie--in other words, does allegiance (W) lead to exports (X) more often when there are more shared allies? </div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif"><br></div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif">Here's the script, thanks in advance!</div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif">-Bob</div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif"><br></div><div class="gmail_default" style=""><p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">
exports <- sienaNet(array(c(exports1978,exports1979), dim=c(91,91,2)))</span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">ally
<- sienaNet(array(c(ally1978,ally1979), dim=c(91,91,2)))</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial"> </span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">data.1978
<- sienaDataCreate(exports,ally)</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<- getEffects(data.1978)</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<- includeEffects(effects.1978,transTrip,cycle3,</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">
inPopSqrt,outActSqrt,inActSqrt,name="exports")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<- includeEffects(effects.1978,transTrip,cycle3,</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">
inPopSqrt,outActSqrt,inActSqrt,name="ally")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<-
includeEffects(effects.1978,crprod,name="ally",interaction1="exports")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<- includeEffects(effects.1978,crprod,name="exports",interaction1="ally")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<-
includeEffects(effects.1978,crprodRecip,name="ally",interaction1="exports")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<- includeEffects(effects.1978,crprodRecip,name="exports",interaction1="ally")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<-
includeEffects(effects.1978,gwespFBMix,name="ally",interaction1="exports")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978
<- includeEffects(effects.1978,gwespFBMix,name="exports",interaction1="ally")</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">effects.1978</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">Alg.1978 <-
sienaAlgorithmCreate(projname = 'net1978', seed=123 )</span><span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial">ans.1978 <-
siena07(Alg.1978, data = data.1978, effects = effects.1978)</span><span></span></p>
<font face="Arial">ans.1978</font><br>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt"><span style="font-family:Arial"> </span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt;font-size:12pt"><span style="font-family:Arial"><span> </span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt;font-size:12pt"><span style="font-family:Arial"><span> </span></span></p>
<p class="gmail-MsoNormal" style="font-family:Cambria;margin:0in 0in 0.0001pt;font-size:12pt"><span> </span></p>
</div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif"><span style="font-family:arial,sans-serif">************************************</span><br></div><div><div class="gmail_signature"><div dir="ltr">Robert Faris, PhD<br>Associate Professor<br>Department of Sociology<br>University of California at Davis<br>2247 Social Sciences and Humanities<br>One Shields Avenue<br>Davis, CA 95616<br>Cell: 510-221-8876<br>Fax 530-752-0783<br><a href="http://sociology.ucdavis.edu/people/rwfaris" target="_blank">http://sociology.ucdavis.edu/people/rwfaris</a> </div></div></div>
</div>