Hi R Users 

I am working with the very useful SNA package (v.2.2) in R and have a
query I hope you may be able to help out with:

I have been using gplot commands to plot an SNA graph. Here's the code
and output: 

library(sna); library(network); library(RODBC) 

setwd("c:\\temp") 
x = read.csv(file = "testforr.csv") 

Total.Sold=c(1,3,6,1,3,6,1,3,6,6,9) 
src=c(1:10,1) 
des=c(2:10,1,3) 
y=data.frame(Total.Sold,src,des) 

dat.edg <- network(y, directed = TRUE, matrix.type = "edgelist") 

# Plot the network: 
gplot(dat.edg, displaylabels = TRUE, label.cex = 0.9, arrowhead.cex =
0.9, 
vertex.col = "red") 

Is there any way you know of scaleing the size of the nodes in the
graph? I was hoping to scale the nodes according to their individual
betweeness score. Betweenness can be calculated for each node in the
example above, using:

betweenness (dat.edg) 

# Giving the output: 

 [1] 4 0 3 0 0 0 0 0 3 0


Hope you can help ... many thanks, 
tom 

Thomas  Rawdon, Incursion Investigator (Animals)
Investigation and Diagnostic Centre | Investigation Readiness and
Response
Ministry of Agriculture and Forestry | 66 Ward St,  Wallaceville | PO
Box 40 742 | Upper Hutt | New Zealand
Telephone: 64-4-894 5607 | Facsimile: 64-4-894 4973| Mobile: 027 733
1795 | Email: Thomas.Rawdon@maf.govt.nz | Web: www.maf.govt.nz
<file://www.maf.govt.nz>  


This email message and any attachment(s) is intended solely for the addressee(s)
named above. The information it contains is confidential and may be legally
privileged.  Unauthorised use of the message, or the information it contains,
may be unlawful. If you have received this message by mistake please call the
sender immediately on 64 4 8940100 or notify us by return email and erase the
original message and attachments. Thank you.

The Ministry of Agriculture and Forestry accepts no responsibility for changes
made to this email or to any attachments after transmission from the office.

	[[alternative HTML version deleted]]

