"Bill not found" and 'd.mat' not found

[jjgillis0]

Hello Professor Young~ Below is my code, and I assume it's coming from my URL , but redoing that part still gave me the error: object 'Bill' not found, and when I do the colnames, I get the error: object 'd.mat' not found.

Hopefully, it is an easy fix, but I can't find my error.

Thank you, Jenny

loc2 <- "https://raw.githubusercontent.com/jacobtnyoung/sna-textbook/main/data/data-cocaine-dealing-net.rds" CocaineDealingNet <- readRDS( url(loc2 ) )

look at the network

CocaineDealingNet

<br>

#### 1. Plot the network using the `gplot()` function.    

<br>

```{r}

# Your code here
rm( list = ls() )

d.mat <- rbind(
  c(Bill,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c( Blacky,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0 ),
  c( Bruce,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ),
  c( Charles,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ),
  c( Dante,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0 ),
  c(David,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Donald,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), 
  c(Doug,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Fabio,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Frank,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Gabriel,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Howard,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Jenny,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Kay,2,10,1,3,18,6,2,3,3,10,2,1,1,0,2,2,3,1,1,19,1,1,0,0,14,0,10,11),
  c(Lara,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Lorena,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Louis,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Marky,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), 
  c(Marzio,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Menna,0,2,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1),
  c(Peretta,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Peter,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Robert,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Rosa,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Ross,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Shawn,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  c(Steve,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,1,0,0),
  c(Tommy,0,0,0,0,0,1,1,0,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0)
  )
rownames( d.mat ) <- c( "Bill","Blacky","Bruce","Charles","Dante","David","Donald","Doug","Fabio","Frank","Gabriel","Howard","Jenny","Kay","Lara","Lorena","Louis","Marky","Marzio","Menna","Peretta","Peter","Robert","Rosa","Ross","Shawn","Steve","Tommy" )
colnames( d.mat ) <- c( "1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29"
                        )

[jacobtnyoung]

Hi @jjgillis0 !

It looks like you are trying to rebuild the matrix "by hand". There are two problems here. First, at the beginning of each line you are calling an object. For example, in the first line R is looking for the object Bill. But this object does not exist. Remember that characters require "", as you do in the rownames command.

But, I am not sure why you are doing this in the first place. All you need to do is download the file using the code below (and in the template):

library( sna )
library( network )

# define the path location for the file
loc2 <- "https://github.com/jacobtnyoung/sna-textbook/raw/main/data/data-cocaine-dealing-net.rds"
CocaineDealingNet <- readRDS( url( loc2 ) )

# plot it
gplot( CocaineDealingNet )

# create an object of matrix
CocaineDealingMatrix <- as.matrix( CocaineDealingNet )

If this code does not work, then you need to recheck your internet connection.

Let me know if that solves the problem!

[jjgillis0]

Oh thank you! I was thinking it was similar to the undirected network.