amen (version 1.0)

simY_rrl: Simulate an relational matrix based on a relative rank nomination scheme

Description

Simulate an relational matrix based on a relative rank nomination scheme

Usage

simY_rrl(EZ, rho, odobs, YO)

Arguments

EZ

a square matrix giving the expected value of the latent Z matrix

rho

dyadic correlation

odobs

a scalar or vector giving the observed number of nominations for each node

YO

a square matrix identifying where missing values should be maintained

Value

• a square matrix, where higher values represent stronger relationships

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(EZ,rho,odobs,YO=NULL)
{
  ZS<-simZ(EZ,rho)
  diag(ZS)<- -Inf
  if(!is.null(YO)) { ZS[is.na(YO)]<- -Inf }

  YS<-ZS*0
  for(i in 1:nrow(EZ))
  {
    ri<-order( -ZS[i,] )[seq(1,odobs[i],length=odobs[i]) ]
    YS[i,ri]<- seq(odobs[i],1,length=odobs[i])
  }
  diag(YS)<-NA
  if(!is.null(YO)) { YS[is.na(YO)]<- NA }
YS
}