小编ste*_*ejb的帖子

在编写.tex文档时,我经常使用标记公式.在完成文档时,我有时会发现我没有引用所有方程式.所以,我需要查找我没有参考的方程,并禁用这些方程的编号.我怎么能在Emacs中做到这一点？

基本上,我需要搜索所有\ label {*}.然后,对于我找到的每个*,让我知道是否有少于1个对应的\ ref {*}.

谢谢.(我想我真的是时候学习LISP了).

我有以下代码来绘制图形的最小生成树

## g is an igraph graph
mst = minimum.spanning.tree(g)
E(g)$color <- "SkyBlue2"

## how to I make mst a different color
E(g)[E(mst)]$color = "red"  ### <---- I WANT TO DO ESSENTIALLY THIS

plot(g,  edge.label=E(g)$weight)

也就是说,对于一个简单的图表,我找到了mst.我想将mst更改为红色并将mst绘制为主图的一部分.要做到这一点,我想选择的边缘,g那也是mst.我该怎么做呢？

更新:

更一般地说,我有一个图形g0,它是mst g,有n顶点.它的构建如下

## implementing the Dijkstra-Prim algorithm
v0 = sample(1:n, 1)
g0 = graph.empty(n=n, directed=FALSE)
weight.g0 = 0
while(length(setdiff(1:n, v0) > 0)) {
  ## chose the shortest edge in the cut set of g …

我有以下功能

sjbDo <- function(operation, x, statelist, Spos, isFuture = FALSE) {

  # run the operation on x
  xvec <- operation(x);

  # and so on

}

我可以这样称呼它:

A <- sjbDo( function(x) {x}, statelist$A, statelist, 1)

但是,我想修改sjbDo,以便内联函数可以使用其他参数.就像是:

kTheta <- sjbDo( function(x, b) {x^b}, statelist$K, statelist, 1, FALSE, b=theta.k)

我试过了

sjbDo <- function(operation, x, statelist, Spos, isFuture = FALSE, ...) {

  # run the operation on x
  xvec <- operation(x,...);

但这似乎不起作用.我怎样才能让它发挥作用？

假设数据结构如下

MemberID <- c(123,123,234,234)
nbin <- 4
imatrix <- matrix(sample(c(0,1), size=nbin * length(MemberID), replace=TRUE), 
                  nrow=length(MemberID))
colnames(imatrix) <- letters[1:nbin]
years <- c("Y1","Y2","Y1","Y2")

mydf <- data.frame(cbind(MemberID, years, imatrix))

我如何制作类似的数据结构,以便我为每个a,b,c,d的每个级别都有一个指标.

我想有一个2 x 9数据框,其中包含MemberID,a.Y1,a.Y2,b.Y1,b.Y2,...

理想情况下,我想这样做spread或者cast因为我一直在使用这些工具,并希望了解更多关于如何使用它们.