See ?sample and the prob argument. G.
On Thu, Apr 25, 2013 at 12:54 PM, suvirbhargav <[email protected]> wrote: > thanks. > > In below ,How can i control the percentage of both 1 and 2,say 20% of 1 > and rest 2? > V(net)$Opinion <- sample(1:2, vcount(net), replace=TRUE) > Sorry,this is R question though,may be > > Regards > Suvir > > > On Thu, Apr 25, 2013 at 4:37 PM, Gábor Csárdi <[email protected]> wrote: > >> On Thu, Apr 25, 2013 at 10:34 AM, Gábor Csárdi <[email protected]>wrote: >> >>> I see. Then what you could do is adding a vertex attribute, named (say) >>> "Opinion", and then update that based on the network structure, e.g. (in R): >>> >> >> Sorry, sent it prematurely, this is the correct code: >> >> library(igraph) >> set.seed(42) >> net <- erdos.renyi.game(40, 2/40) >> V(net)$Opinion <- sample(1:2, vcount(net), replace=TRUE) >> >> coords <- layout.auto(net) >> colbar <- c("orange", "cyan") >> layout(rbind(1:2)) >> par(mar=c(0,0,0,0)) >> plot(net, vertex.color=colbar[V(net)$Opinion], layout=coords) >> >> ## Set the opinion based on the neighbors >> V(net)$Opinion <- sapply(V(net), function(x) { >> if (degree(net, x)==0) { >> V(net)$Opinion[x] >> } else { >> round(mean(V(net)$Opinion[neighbors(net,x)])) >> } >> }) >> >> plot(net, vertex.color=colbar[V(net)$Opinion], layout=coords) >> >> G. >> >> [...] >> >> -- >> Gabor Csardi <[email protected]> MTA KFKI RMKI >> >> _______________________________________________ >> igraph-help mailing list >> [email protected] >> https://lists.nongnu.org/mailman/listinfo/igraph-help >> >> > > _______________________________________________ > igraph-help mailing list > [email protected] > https://lists.nongnu.org/mailman/listinfo/igraph-help > > -- Gabor Csardi <[email protected]> MTA KFKI RMKI
_______________________________________________ igraph-help mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/igraph-help
