Processing math: 0%


主要議題:社會網路簡介

學習重點:

rm(list=ls(all=T))
Sys.setlocale("LC_ALL","C")
[1] "C/C/C/C/C/en_US.UTF-8"
options(digits=4, scipen=12)
library(magrittr)
library(igraph)
# library(rgl)


1 Summarizing the Data

1.1

Load the data from edges.csv into a data frame called edges, and load the data from users.csv into a data frame called users.

edges = read.csv('data/edges.csv')
users = read.csv('data/users.csv')

How many Facebook users are there in our dataset?

nrow(users)   # 59
[1] 59

In our dataset, what is the average number of friends per user? Hint: this question is tricky, and it might help to start by thinking about a small example with two users who are friends.

2*nrow(edges)/nrow(users)
[1] 4.949
1.2

Out of all the students who listed a school, what was the most common locale?

table(users$locale)   # Locale B

    A  B 
 3  6 50 
1.3

Is it possible that either school A or B is an all-girls or all-boys school?

table(gender=users$gender, school=users$school)   # No
      school
gender     A AB
        1  1  0
     A 11  3  1
     B 28 13  1


2 Creating a Network

We will be using the igraph package to visualize networks; install and load this package using the install.packages and library commands.

2.1 Construct a Graph

We can create a new graph object using the graph.data.frame() function. Based on ?graph.data.frame,

library(igraph)
?graph.data.frame   # (1) g = graph.data.frame(edges, FALSE, users)
g = graph.data.frame(d=edges, directed=FALSE, vertices=users)
  • igraph:
  • 定義:This function creates an igraph graph from one or two data frames containing the (symbolic) edge list and edge/vertex attributes.
  • 使用:graph.data.frame(d, directed=TRUE, vertices=NULL)

which of the following commands will create a graph g describing our social network, with the attributes of each user correctly loaded?

  • g = graph.data.frame(edges, FALSE, users)

Note: A directed graph is one where the edges only go one way – they point from one vertex to another. The other option is an undirected graph, which means that the relations between the vertices are symmetric.

2.2 Components

Use the correct command from Problem 2.1 to load the graph g.

Now, we want to plot our graph. By default, the vertices are large and have text labels of a user’s identifier. Because this would clutter the output, we will plot with no text labels and smaller vertices:

g = graph.data.frame(edges, FALSE, users)
plot(g, vertex.size=5, vertex.label=NA)   # 依照圖示:4個connected components、7個no friends

# vertex: 端點
# eage: 點跟點之間連再一起的線(社會網路資料)

In this graph, there are a number of groups of nodes where all the nodes in each group are connected but the groups are disjoint from one another, forming “islands” in the graph. Such groups are called “connected components,” or “components” for short. How many connected components with at least 2 nodes are there in the graph?

  • 4

How many users are there with no friends in the network?

  • 7
2.3 Degree

In our graph, the “degree” of a node is its number of friends. We have already seen that some nodes in our graph have degree 0 (these are the nodes with no friends), while others have much higher degree. We can use degree(g) to compute the degree of all the nodes in our graph g.

How many users are friends with 10 or more other Facebook users in this network?

sum(degree(g) >= 10)
[1] 9
# 方法二
table(degree(g)) 

 0  1  2  3  4  5  6  7  8  9 10 11 13 17 18 
 7 10  4  9  1  4  4  3  6  2  4  1  2  1  1 
table(degree(g) >= 10)   # 9

FALSE  TRUE 
   50     9 
2.4 Size by Degree

In a network, it’s often visually useful to draw attention to “important” nodes in the network. While this might mean different things in different contexts, in a social network we might consider a user with a large number of friends to be an important user. From the previous problem, we know this is the same as saying that nodes with a high degree are important users.

To visually draw attention to these nodes, we will change the size of the vertices so the vertices with high degrees are larger. To do this, we will change the “size” attribute of the vertices of our graph to be an increasing function of their degrees:

V(g)$size = degree(g)/2+2 
plot(g, vertex.label=NA)

What is the largest size we assigned to any node in our graph?
What is the smallest size we assigned to any node in our graph?

range(V(g)$size)
[1]  2 11


3 Coloring Vertices

3.1 Colored by Gender

Thus far, we have changed the “size” attributes of our vertices. However, we can also change the colors of vertices to capture additional information about the Facebook users we are depicting.

When changing the size of nodes, we first obtained the vertices of our graph with V(g) and then accessed the the size attribute with V(g)size. To change the color, we will update the attribute `V(g)color`.

To color the vertices based on the gender of the user, we will need access to that variable. When we created our graph g, we provided it with the data frame users, which had variables gender, school, and locale. These are now stored as attributes V(g)gender, V(g)school, and V(g)$locale.

We can update the colors by setting the color to black for all vertices, than setting it to red for the vertices with gender A and setting it to gray for the vertices with gender B:

Plot the resulting graph.

V(g)$color = "black"
V(g)$color[V(g)$gender == "A"] = "red"
V(g)$color[V(g)$gender == "B"] = "gray"
plot(g, vertex.label=NA)

table(users$gender)

    A  B 
 2 15 42 

What is the gender of the users with the highest degree in the graph?

  • B
3.2 Colored by School

Now, color the vertices based on the school that each user in our network attended.

par(mar=c(1,1,1,1))
table(V(g)$school, useNA="ifany")

    A AB 
40 17  2 
V(g)$color = "gray"
V(g)$color[V(g)$school == "A"] = "green"
V(g)$color[V(g)$school == "AB"] = "red"
plot(g, vertex.label=NA)

Are the two users who attended both schools A and B Facebook friends with each other?

  • Yes

What best describes the users with highest degree?

  • Some, but not all, of the high-degree users attended school A
3.3 Colored by Locale

Now, color the vertices based on the locale of the user.

table(V(g)$locale, useNA="ifany")

    A  B 
 3  6 50 
V(g)$color = "gray"
V(g)$color[V(g)$locale == "A"] = "red"
V(g)$color[V(g)$locale == "B"] = "green"
plot(g, vertex.label=NA)   # 由圖示,可知第一題答案(2) Locale B;第二題答案(1) Locale A

The large connected component is most associated with which locale?

  • B

The 4-user connected component is most associated with which locale?

  • A


4. Help Page for igraph Ploting

Which igraph plotting function would enable us to plot our graph in 3-D?

library(rgl)
Error in dyn.load(file, DLLpath = DLLpath, ...) : 
  unable to load shared object '/Library/Frameworks/R.framework/Versions/3.5/Resources/library/rgl/libs/rgl.so':
  dlopen(/Library/Frameworks/R.framework/Versions/3.5/Resources/library/rgl/libs/rgl.so, 6): Library not loaded: /opt/X11/lib/libGLU.1.dylib
  Referenced from: /Library/Frameworks/R.framework/Versions/3.5/Resources/library/rgl/libs/rgl.so
  Reason: image not found
Error: package or namespace load failed for 'rgl':
 .onLoad failed in loadNamespace() for 'rgl', details:
  call: NULL
  error:    Loading rgl's DLL failed. 
    On MacOS, rgl depends on XQuartz, which you can download from xquartz.org.

What parameter to the plot() function would we use to change the edge width when plotting g?

rr plot(g, edge.width=2, vertex.label=NA)








LS0tCnRpdGxlOiAiQVM3LTIg56S+5pyD57ay6LevIgphdXRob3I6ICJNMDY0NjEwMDIxIOaliuWHseWAqywgMjAxOC8wNy8yNSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKPGJyPgoKKirkuLvopoHorbDpoYzvvJrnpL7mnIPntrLot6/nsKHku4sqKgoKKirlrbjnv5Lph43pu57vvJoqKgoKKyDnpL7mnIPntrLot6/nmoTmp4vmiJDlhYPku7YKKyDnpL7mnIPntrLot6/nmoTos4fmlpnntZDmp4sKKyDnpL7mnIPntrLot6/os4fmlpnnmoToppboprrljJYKCgpgYGB7ciBlY2hvPVQsIG1lc3NhZ2U9RiwgY2FjaGU9Riwgd2FybmluZz1GfQpybShsaXN0PWxzKGFsbD1UKSkKU3lzLnNldGxvY2FsZSgiTENfQUxMIiwiQyIpCm9wdGlvbnMoZGlnaXRzPTQsIHNjaXBlbj0xMikKbGlicmFyeShtYWdyaXR0cikKbGlicmFyeShpZ3JhcGgpCiMgbGlicmFyeShyZ2wpCmBgYAo8YnI+PGhyPgoKIyMjIDEgU3VtbWFyaXppbmcgdGhlIERhdGEKCiMjIyMjIDEuMSAKTG9hZCB0aGUgZGF0YSBmcm9tIGVkZ2VzLmNzdiBpbnRvIGEgZGF0YSBmcmFtZSBjYWxsZWQgZWRnZXMsIGFuZCBsb2FkIHRoZSBkYXRhIGZyb20gdXNlcnMuY3N2IGludG8gYSBkYXRhIGZyYW1lIGNhbGxlZCB1c2Vycy4KYGBge3J9CmVkZ2VzID0gcmVhZC5jc3YoJ2RhdGEvZWRnZXMuY3N2JykKdXNlcnMgPSByZWFkLmNzdignZGF0YS91c2Vycy5jc3YnKQpgYGAKCl9Ib3cgbWFueSBGYWNlYm9vayB1c2VycyBhcmUgdGhlcmUgaW4gb3VyIGRhdGFzZXQ/XwpgYGB7cn0KbnJvdyh1c2VycykgICAjIDU5CmBgYAoKX0luIG91ciBkYXRhc2V0LCB3aGF0IGlzIHRoZSBhdmVyYWdlIG51bWJlciBvZiBmcmllbmRzIHBlciB1c2VyP18gSGludDogdGhpcyBxdWVzdGlvbiBpcyB0cmlja3ksIGFuZCBpdCBtaWdodCBoZWxwIHRvIHN0YXJ0IGJ5IHRoaW5raW5nIGFib3V0IGEgc21hbGwgZXhhbXBsZSB3aXRoIHR3byB1c2VycyB3aG8gYXJlIGZyaWVuZHMuCmBgYHtyfQoyKm5yb3coZWRnZXMpL25yb3codXNlcnMpCmBgYAoKIyMjIyMgMS4yCl9PdXQgb2YgYWxsIHRoZSBzdHVkZW50cyB3aG8gbGlzdGVkIGEgc2Nob29sLCB3aGF0IHdhcyB0aGUgbW9zdCBjb21tb24gbG9jYWxlP18KYGBge3J9CnRhYmxlKHVzZXJzJGxvY2FsZSkgICAjIExvY2FsZSBCCmBgYAoKIyMjIyMgMS4zIApfSXMgaXQgcG9zc2libGUgdGhhdCBlaXRoZXIgc2Nob29sIEEgb3IgQiBpcyBhbiBhbGwtZ2lybHMgb3IgYWxsLWJveXMgc2Nob29sP18KYGBge3J9CnRhYmxlKGdlbmRlcj11c2VycyRnZW5kZXIsIHNjaG9vbD11c2VycyRzY2hvb2wpICAgIyBObwpgYGAKCjxicj48aHI+CgojIyMgMiBDcmVhdGluZyBhIE5ldHdvcmsKV2Ugd2lsbCBiZSB1c2luZyB0aGUgaWdyYXBoIHBhY2thZ2UgdG8gdmlzdWFsaXplIG5ldHdvcmtzOyBpbnN0YWxsIGFuZCBsb2FkIHRoaXMgcGFja2FnZSB1c2luZyB0aGUgaW5zdGFsbC5wYWNrYWdlcyBhbmQgbGlicmFyeSBjb21tYW5kcy4KCiMjIyMjIDIuMSBDb25zdHJ1Y3QgYSBHcmFwaApXZSBjYW4gY3JlYXRlIGEgbmV3IGdyYXBoIG9iamVjdCB1c2luZyB0aGUgZ3JhcGguZGF0YS5mcmFtZSgpIGZ1bmN0aW9uLiBCYXNlZCBvbiBgP2dyYXBoLmRhdGEuZnJhbWVgLCAKYGBge3J9CmxpYnJhcnkoaWdyYXBoKQo/Z3JhcGguZGF0YS5mcmFtZSAgICMgKDEpIGcgPSBncmFwaC5kYXRhLmZyYW1lKGVkZ2VzLCBGQUxTRSwgdXNlcnMpCmcgPSBncmFwaC5kYXRhLmZyYW1lKGQ9ZWRnZXMsIGRpcmVjdGVkPUZBTFNFLCB2ZXJ0aWNlcz11c2VycykKYGBgCgorIGlncmFwaDoKICArIOWumue+qe+8mlRoaXMgZnVuY3Rpb24gY3JlYXRlcyBhbiBpZ3JhcGggZ3JhcGggZnJvbSBvbmUgb3IgdHdvIGRhdGEgZnJhbWVzIGNvbnRhaW5pbmcgdGhlIChzeW1ib2xpYykgZWRnZSBsaXN0IGFuZCBlZGdlL3ZlcnRleCBhdHRyaWJ1dGVzLgogICsg5L2/55So77yaZ3JhcGguZGF0YS5mcmFtZShkLCBkaXJlY3RlZD1UUlVFLCB2ZXJ0aWNlcz1OVUxMKQoKX3doaWNoIG9mIHRoZSBmb2xsb3dpbmcgY29tbWFuZHMgd2lsbCBjcmVhdGUgYSBncmFwaCBnIGRlc2NyaWJpbmcgb3VyIHNvY2lhbCBuZXR3b3JrLCB3aXRoIHRoZSBhdHRyaWJ1dGVzIG9mIGVhY2ggdXNlciBjb3JyZWN0bHkgbG9hZGVkP18KCisgYGcgPSBncmFwaC5kYXRhLmZyYW1lKGVkZ2VzLCBGQUxTRSwgdXNlcnMpYAorCgpOb3RlOiBBIGRpcmVjdGVkIGdyYXBoIGlzIG9uZSB3aGVyZSB0aGUgZWRnZXMgb25seSBnbyBvbmUgd2F5IC0tIHRoZXkgcG9pbnQgZnJvbSBvbmUgdmVydGV4IHRvIGFub3RoZXIuIFRoZSBvdGhlciBvcHRpb24gaXMgYW4gdW5kaXJlY3RlZCBncmFwaCwgd2hpY2ggbWVhbnMgdGhhdCB0aGUgcmVsYXRpb25zIGJldHdlZW4gdGhlIHZlcnRpY2VzIGFyZSBzeW1tZXRyaWMuCgojIyMjIyAyLjIgQ29tcG9uZW50cwpVc2UgdGhlIGNvcnJlY3QgY29tbWFuZCBmcm9tIFByb2JsZW0gMi4xIHRvIGxvYWQgdGhlIGdyYXBoIGcuCgpOb3csIHdlIHdhbnQgdG8gcGxvdCBvdXIgZ3JhcGguIEJ5IGRlZmF1bHQsIHRoZSB2ZXJ0aWNlcyBhcmUgbGFyZ2UgYW5kIGhhdmUgdGV4dCBsYWJlbHMgb2YgYSB1c2VyJ3MgaWRlbnRpZmllci4gQmVjYXVzZSB0aGlzIHdvdWxkIGNsdXR0ZXIgdGhlIG91dHB1dCwgd2Ugd2lsbCBwbG90IHdpdGggbm8gdGV4dCBsYWJlbHMgYW5kIHNtYWxsZXIgdmVydGljZXM6CmBgYHtyfQpnID0gZ3JhcGguZGF0YS5mcmFtZShlZGdlcywgRkFMU0UsIHVzZXJzKQpwbG90KGcsIHZlcnRleC5zaXplPTUsIHZlcnRleC5sYWJlbD1OQSkgICAjIOS+neeFp+Wcluekuu+8mjTlgItjb25uZWN0ZWQgY29tcG9uZW50c+OAgTflgItubyBmcmllbmRzCiMgdmVydGV4OiDnq6/pu54KIyBlYWdlOiDpu57ot5/pu57kuYvplpPpgKPlho3kuIDotbfnmoTnt5rvvIjnpL7mnIPntrLot6/os4fmlpnvvIkKYGBgCgpJbiB0aGlzIGdyYXBoLCB0aGVyZSBhcmUgYSBudW1iZXIgb2YgZ3JvdXBzIG9mIG5vZGVzIHdoZXJlIGFsbCB0aGUgbm9kZXMgaW4gZWFjaCBncm91cCBhcmUgY29ubmVjdGVkIGJ1dCB0aGUgZ3JvdXBzIGFyZSBkaXNqb2ludCBmcm9tIG9uZSBhbm90aGVyLCBmb3JtaW5nICJpc2xhbmRzIiBpbiB0aGUgZ3JhcGguIFN1Y2ggZ3JvdXBzIGFyZSBjYWxsZWQgImNvbm5lY3RlZCBjb21wb25lbnRzLCIgb3IgImNvbXBvbmVudHMiIGZvciBzaG9ydC4gX0hvdyBtYW55IGNvbm5lY3RlZCBjb21wb25lbnRzIHdpdGggYXQgbGVhc3QgMiBub2RlcyBhcmUgdGhlcmUgaW4gdGhlIGdyYXBoP18KCisgNAoKX0hvdyBtYW55IHVzZXJzIGFyZSB0aGVyZSB3aXRoIG5vIGZyaWVuZHMgaW4gdGhlIG5ldHdvcms/XwoKKyA3CgojIyMjIyAyLjMgRGVncmVlIApJbiBvdXIgZ3JhcGgsIHRoZSAiZGVncmVlIiBvZiBhIG5vZGUgaXMgaXRzIG51bWJlciBvZiBmcmllbmRzLiBXZSBoYXZlIGFscmVhZHkgc2VlbiB0aGF0IHNvbWUgbm9kZXMgaW4gb3VyIGdyYXBoIGhhdmUgZGVncmVlIDAgKHRoZXNlIGFyZSB0aGUgbm9kZXMgd2l0aCBubyBmcmllbmRzKSwgd2hpbGUgb3RoZXJzIGhhdmUgbXVjaCBoaWdoZXIgZGVncmVlLiBXZSBjYW4gdXNlIGRlZ3JlZShnKSB0byBjb21wdXRlIHRoZSBkZWdyZWUgb2YgYWxsIHRoZSBub2RlcyBpbiBvdXIgZ3JhcGggZy4KCl9Ib3cgbWFueSB1c2VycyBhcmUgZnJpZW5kcyB3aXRoIDEwIG9yIG1vcmUgb3RoZXIgRmFjZWJvb2sgdXNlcnMgaW4gdGhpcyBuZXR3b3JrP18KYGBge3J9CnN1bShkZWdyZWUoZykgPj0gMTApCmBgYAoKYGBge3J9CiMg5pa55rOV5LqMCnRhYmxlKGRlZ3JlZShnKSkgCnRhYmxlKGRlZ3JlZShnKSA+PSAxMCkgICAjIDkKYGBgCgoKIyMjIyMgMi40IFNpemUgYnkgRGVncmVlCkluIGEgbmV0d29yaywgaXQncyBvZnRlbiB2aXN1YWxseSB1c2VmdWwgdG8gZHJhdyBhdHRlbnRpb24gdG8gImltcG9ydGFudCIgbm9kZXMgaW4gdGhlIG5ldHdvcmsuIFdoaWxlIHRoaXMgbWlnaHQgbWVhbiBkaWZmZXJlbnQgdGhpbmdzIGluIGRpZmZlcmVudCBjb250ZXh0cywgaW4gYSBzb2NpYWwgbmV0d29yayB3ZSBtaWdodCBjb25zaWRlciBhIHVzZXIgd2l0aCBhIGxhcmdlIG51bWJlciBvZiBmcmllbmRzIHRvIGJlIGFuIGltcG9ydGFudCB1c2VyLiBGcm9tIHRoZSBwcmV2aW91cyBwcm9ibGVtLCB3ZSBrbm93IHRoaXMgaXMgdGhlIHNhbWUgYXMgc2F5aW5nIHRoYXQgbm9kZXMgd2l0aCBhIGhpZ2ggZGVncmVlIGFyZSBpbXBvcnRhbnQgdXNlcnMuCgpUbyB2aXN1YWxseSBkcmF3IGF0dGVudGlvbiB0byB0aGVzZSBub2Rlcywgd2Ugd2lsbCBjaGFuZ2UgdGhlIHNpemUgb2YgdGhlIHZlcnRpY2VzIHNvIHRoZSB2ZXJ0aWNlcyB3aXRoIGhpZ2ggZGVncmVlcyBhcmUgbGFyZ2VyLiBUbyBkbyB0aGlzLCB3ZSB3aWxsIGNoYW5nZSB0aGUgInNpemUiIGF0dHJpYnV0ZSBvZiB0aGUgdmVydGljZXMgb2Ygb3VyIGdyYXBoIHRvIGJlIGFuIGluY3JlYXNpbmcgZnVuY3Rpb24gb2YgdGhlaXIgZGVncmVlczoKYGBge3J9ClYoZykkc2l6ZSA9IGRlZ3JlZShnKS8yKzIgCnBsb3QoZywgdmVydGV4LmxhYmVsPU5BKQpgYGAKCl9XaGF0IGlzIHRoZSBsYXJnZXN0IHNpemUgd2UgYXNzaWduZWQgdG8gYW55IG5vZGUgaW4gb3VyIGdyYXBoP18gPGJyPgpfV2hhdCBpcyB0aGUgc21hbGxlc3Qgc2l6ZSB3ZSBhc3NpZ25lZCB0byBhbnkgbm9kZSBpbiBvdXIgZ3JhcGg/XwpgYGB7cn0KcmFuZ2UoVihnKSRzaXplKQpgYGAKPGJyPjxocj4KCiMjIyAzIENvbG9yaW5nIFZlcnRpY2VzCgojIyMjIyAzLjEgQ29sb3JlZCBieSBHZW5kZXIKVGh1cyBmYXIsIHdlIGhhdmUgY2hhbmdlZCB0aGUgInNpemUiIGF0dHJpYnV0ZXMgb2Ygb3VyIHZlcnRpY2VzLiBIb3dldmVyLCB3ZSBjYW4gYWxzbyBjaGFuZ2UgdGhlIGNvbG9ycyBvZiB2ZXJ0aWNlcyB0byBjYXB0dXJlIGFkZGl0aW9uYWwgaW5mb3JtYXRpb24gYWJvdXQgdGhlIEZhY2Vib29rIHVzZXJzIHdlIGFyZSBkZXBpY3RpbmcuCgpXaGVuIGNoYW5naW5nIHRoZSBzaXplIG9mIG5vZGVzLCB3ZSBmaXJzdCBvYnRhaW5lZCB0aGUgdmVydGljZXMgb2Ygb3VyIGdyYXBoIHdpdGggYFYoZylgIGFuZCB0aGVuIGFjY2Vzc2VkIHRoZSB0aGUgc2l6ZSBhdHRyaWJ1dGUgd2l0aCBWKGcpJHNpemUuIFRvIGNoYW5nZSB0aGUgY29sb3IsIHdlIHdpbGwgdXBkYXRlIHRoZSBhdHRyaWJ1dGUgYFYoZykkY29sb3JgLgoKVG8gY29sb3IgdGhlIHZlcnRpY2VzIGJhc2VkIG9uIHRoZSBnZW5kZXIgb2YgdGhlIHVzZXIsIHdlIHdpbGwgbmVlZCBhY2Nlc3MgdG8gdGhhdCB2YXJpYWJsZS4gV2hlbiB3ZSBjcmVhdGVkIG91ciBncmFwaCBnLCB3ZSBwcm92aWRlZCBpdCB3aXRoIHRoZSBkYXRhIGZyYW1lIHVzZXJzLCB3aGljaCBoYWQgdmFyaWFibGVzIGdlbmRlciwgc2Nob29sLCBhbmQgbG9jYWxlLiBUaGVzZSBhcmUgbm93IHN0b3JlZCBhcyBhdHRyaWJ1dGVzIFYoZykkZ2VuZGVyLCBWKGcpJHNjaG9vbCwgYW5kIFYoZykkbG9jYWxlLgoKV2UgY2FuIHVwZGF0ZSB0aGUgY29sb3JzIGJ5IHNldHRpbmcgdGhlIGNvbG9yIHRvIGJsYWNrIGZvciBhbGwgdmVydGljZXMsIHRoYW4gc2V0dGluZyBpdCB0byByZWQgZm9yIHRoZSB2ZXJ0aWNlcyB3aXRoIGdlbmRlciBBIGFuZCBzZXR0aW5nIGl0IHRvIGdyYXkgZm9yIHRoZSB2ZXJ0aWNlcyB3aXRoIGdlbmRlciBCOgoKUGxvdCB0aGUgcmVzdWx0aW5nIGdyYXBoLiAKYGBge3J9ClYoZykkY29sb3IgPSAiYmxhY2siClYoZykkY29sb3JbVihnKSRnZW5kZXIgPT0gIkEiXSA9ICJyZWQiClYoZykkY29sb3JbVihnKSRnZW5kZXIgPT0gIkIiXSA9ICJncmF5IgpwbG90KGcsIHZlcnRleC5sYWJlbD1OQSkKdGFibGUodXNlcnMkZ2VuZGVyKQpgYGAKX1doYXQgaXMgdGhlIGdlbmRlciBvZiB0aGUgdXNlcnMgd2l0aCB0aGUgaGlnaGVzdCBkZWdyZWUgaW4gdGhlIGdyYXBoP18KCisgQgorCgojIyMjIyAzLjIgQ29sb3JlZCBieSBTY2hvb2wKTm93LCBjb2xvciB0aGUgdmVydGljZXMgYmFzZWQgb24gdGhlIHNjaG9vbCB0aGF0IGVhY2ggdXNlciBpbiBvdXIgbmV0d29yayBhdHRlbmRlZC4KYGBge3J9CnBhcihtYXI9YygxLDEsMSwxKSkKdGFibGUoVihnKSRzY2hvb2wsIHVzZU5BPSJpZmFueSIpCmBgYAoKYGBge3IgZmlnLndpZHRoPTYsIGZpZy5oZWlnaHQ9NiwgZmlnLmFsaWduPSJjZW50ZXIifQpWKGcpJGNvbG9yID0gImdyYXkiClYoZykkY29sb3JbVihnKSRzY2hvb2wgPT0gIkEiXSA9ICJncmVlbiIKVihnKSRjb2xvcltWKGcpJHNjaG9vbCA9PSAiQUIiXSA9ICJyZWQiCnBsb3QoZywgdmVydGV4LmxhYmVsPU5BKQpgYGAKX0FyZSB0aGUgdHdvIHVzZXJzIHdobyBhdHRlbmRlZCBib3RoIHNjaG9vbHMgQSBhbmQgQiBGYWNlYm9vayBmcmllbmRzIHdpdGggZWFjaCBvdGhlcj9fCgorIFllcwoKX1doYXQgYmVzdCBkZXNjcmliZXMgdGhlIHVzZXJzIHdpdGggaGlnaGVzdCBkZWdyZWU/XyAKCisgU29tZSwgYnV0IG5vdCBhbGwsIG9mIHRoZSBoaWdoLWRlZ3JlZSB1c2VycyBhdHRlbmRlZCBzY2hvb2wgQQoKCiMjIyMjIDMuMyBDb2xvcmVkIGJ5IExvY2FsZQpOb3csIGNvbG9yIHRoZSB2ZXJ0aWNlcyBiYXNlZCBvbiB0aGUgbG9jYWxlIG9mIHRoZSB1c2VyLgpgYGB7cn0KdGFibGUoVihnKSRsb2NhbGUsIHVzZU5BPSJpZmFueSIpCmBgYAoKYGBge3IgZmlnLndpZHRoPTYsIGZpZy5oZWlnaHQ9NiwgZmlnLmFsaWduPSJjZW50ZXIifQpWKGcpJGNvbG9yID0gImdyYXkiClYoZykkY29sb3JbVihnKSRsb2NhbGUgPT0gIkEiXSA9ICJyZWQiClYoZykkY29sb3JbVihnKSRsb2NhbGUgPT0gIkIiXSA9ICJncmVlbiIKcGxvdChnLCB2ZXJ0ZXgubGFiZWw9TkEpICAgIyDnlLHlnJbnpLrvvIzlj6/nn6XnrKzkuIDpoYznrZTmoYgoMikgTG9jYWxlIELvvJvnrKzkuozpoYznrZTmoYgoMSkgTG9jYWxlIEEKYGBgCgpfVGhlIGxhcmdlIGNvbm5lY3RlZCBjb21wb25lbnQgaXMgbW9zdCBhc3NvY2lhdGVkIHdpdGggd2hpY2ggbG9jYWxlP18KCisgQgoKX1RoZSA0LXVzZXIgY29ubmVjdGVkIGNvbXBvbmVudCBpcyBtb3N0IGFzc29jaWF0ZWQgd2l0aCB3aGljaCBsb2NhbGU/XwoKKyBBCgo8YnI+PGhyPgoKIyMjIDQuIEhlbHAgUGFnZSBmb3IgYGlncmFwaGAgUGxvdGluZyAKCl9XaGljaCBpZ3JhcGggcGxvdHRpbmcgZnVuY3Rpb24gd291bGQgZW5hYmxlIHVzIHRvIHBsb3Qgb3VyIGdyYXBoIGluIDMtRD9fCmBgYHtyfQpsaWJyYXJ5KHJnbCkKcmdscGxvdChnLCB2ZXJ0ZXgubGFiZWw9TkEpICMgbm90IHdvcmtpbmcgaW4gd2luZG93cwpgYGAKCl9XaGF0IHBhcmFtZXRlciB0byB0aGUgcGxvdCgpIGZ1bmN0aW9uIHdvdWxkIHdlIHVzZSB0byBjaGFuZ2UgdGhlIGVkZ2Ugd2lkdGggd2hlbiBwbG90dGluZyBgZ2A/XwpgYGB7cn0KcGxvdChnLCBlZGdlLndpZHRoPTIsIHZlcnRleC5sYWJlbD1OQSkKYGBgCjxicj48aHI+CgoKPGJyPjxicj48YnI+PGJyPjxicj4KCjxzdHlsZT4KLmNhcHRpb24gewogIGNvbG9yOiAjNzc3OwogIG1hcmdpbi10b3A6IDEwcHg7Cn0KcCBjb2RlIHsKICB3aGl0ZS1zcGFjZTogaW5oZXJpdDsKfQpwcmUgewogIHdvcmQtYnJlYWs6IG5vcm1hbDsKICB3b3JkLXdyYXA6IG5vcm1hbDsKICBsaW5lLWhlaWdodDogMTsKfQpwcmUgY29kZSB7CiAgd2hpdGUtc3BhY2U6IGluaGVyaXQ7Cn0KcCxsaSB7CiAgZm9udC1mYW1pbHk6ICJUcmVidWNoZXQgTVMiLCAi5b6u6Luf5q2j6buR6auUIiwgIk1pY3Jvc29mdCBKaGVuZ0hlaSI7Cn0KCi5yewogIGxpbmUtaGVpZ2h0OiAxLjI7Cn0KCnRpdGxlewogIGNvbG9yOiAjY2MwMDAwOwogIGZvbnQtZmFtaWx5OiAiVHJlYnVjaGV0IE1TIiwgIuW+rui7n+ato+m7kemrlCIsICJNaWNyb3NvZnQgSmhlbmdIZWkiOwp9Cgpib2R5ewogIGZvbnQtZmFtaWx5OiAiVHJlYnVjaGV0IE1TIiwgIuW+rui7n+ato+m7kemrlCIsICJNaWNyb3NvZnQgSmhlbmdIZWkiOwp9CgpoMSxoMixoMyxoNCxoNXsKICBjb2xvcjogIzAwODgwMDsKICBmb250LWZhbWlseTogIlRyZWJ1Y2hldCBNUyIsICLlvq7ou5/mraPpu5Hpq5QiLCAiTWljcm9zb2Z0IEpoZW5nSGVpIjsKfQoKaDN7CiAgY29sb3I6ICNiMzZiMDA7CiAgYmFja2dyb3VuZDogI2ZmZTBiMzsKICBsaW5lLWhlaWdodDogMjsKICBmb250LXdlaWdodDogYm9sZDsKfQoKaDV7CiAgY29sb3I6ICMwMDYwMDA7CiAgYmFja2dyb3VuZDogI2ZmZmZlMDsKICBsaW5lLWhlaWdodDogMjsKICBmb250LXdlaWdodDogYm9sZDsKfQoKZW17CiAgY29sb3I6ICMwMDAwYzA7CiAgYmFja2dyb3VuZDogI2YwZjBmMDsKICB9Cjwvc3R5bGU+Cgo=