小编Sum*_*mit的帖子

我试图在VIM中从选项卡切换到另一个选项卡(可能与前一个选项卡不相邻).是否有任何快捷方式,就像我们有Ctrl- p/ Ctrl- n切换到相邻的标签？

此外,我试图编写一个键映射,它将一个变量作为函数的输入并执行操作.举例来说,假设我按Ctrl- 5和功能(由用户编写)将被调用,如输入5中给出,光标会去片5(如果有任何第五届选项卡打开).

你能否建议如何做到这一点？

我试图通过我的localhost访问我的Gmail帐户.但是,我收到了回复:

致命错误:调用未定义的函数imap_open()

有人可以指出我应该怎么做才能解决这个问题？

$hostname = '{imap.gmail.com:993/imap/ssl}INBOX';
$username = 'myid@gmail.com';
$password = 'mypassword';

/* try to connect */
$inbox = imap_open($hostname,$username,$password) or die('Cannot connect to Gmail: ' .imap_last_error());

我想正确对齐最后一列.最后有额外的空间.请让我知道如何做到这一点.谢谢.

\documentclass[11pt]{article}
\usepackage{setspace}                                   %double spacing and spacing in tables                           
\usepackage{amsmath}                                    %equations etc. in latex
\usepackage[capposition=top]{floatrow}                  %so that the caption for figures appear at the top
\usepackage[tablename=TABLE,figurename = FIGURE,labelsep=newline,aboveskip=0pt,font=bf,justification=centering]{caption}   %so that caption looks cool
\usepackage{booktabs}                                   %midrule etc. which adds space around lines. Make tables look good. 
\usepackage{tabularx}                                   %use tabularx environment for creating one page tables
\usepackage[margin=1in]{geometry}                       %defining the margin for the page
\usepackage[autostyle]{csquotes}                        %for quotes. alternative would be " and "
\usepackage[table]{xcolor}                              %rowcolor, cellcolor, color for references
\usepackage{pdflscape}                                  %landscape and keep …

我有一个字符串'aabaacaba'.从左边开始,我试图得到所有大小> = 2的子串,后面会出现在字符串中.例如,aa再次出现在字符串中,情况也是如此ab.

我写了以下正则表达式代码:

re.findall(r'([a-z]{2,})(?:[a-z]*)(?:\1)', 'aabaacaba')

我得到['aa']作为答案.正则表达式错过了ab模式.我认为这是因为人物重叠.请建议一个解决方案,以便修复表达式.谢谢.

我有一个叫做数据的数据框.我想创建一个函数f(data,collist).此函数从数据本身获取数据和列列表,并仅返回数据中的那些行,其中collist中提到的列名称不是NA.我知道它可以使用for循环完成,但我想在不使用for循环的情况下完成它.

另外,如果R中通常更有效,以避免循环,请告诉我.

这是一个例子:

 A   B   C   D
 1   2  NA  NA
 2  NA  NA  NA
NA   3   7   5
NA   4   2  NA
 5   6  NA  NA

如果collist包含B和C,则将返回行号为1,3,4的简化数据帧.原因是B或C或两者在第2行和第5行都有NA.我想要一个函数,因为我将使用这个操作很多次.通过这个问题,我将学习一些新的R技巧,以及让我的整个程序更优雅.谢谢.

我想计算加权均方误差,其中权重是数据中的一个向量.我根据堆栈溢出提供的建议编写了一个自定义代码.

该功能如下:

weighted_mse <- function(y_true, y_pred,weights){
  # convert tensors to R objects
  K        <- backend()
  y_true   <- K$eval(y_true)
  y_pred   <- K$eval(y_pred)
  weights  <- K$eval(weights)

  # calculate the metric
  loss <- sum(weights*((y_true - y_pred)^2)) 

  # convert to tensor
  return(K$constant(loss))
  }

但是,我不知道如何将自定义函数传递给编译器.如果有人可以帮助我会很棒.谢谢.

model      <- model %>% compile(
                loss = 'mse', 
                optimizer = 'rmsprop',
                metrics = 'mse')

问候

我有一个包含响应变量 ADA 和自变量 LEV、ROA 和 ROAL 的数据集。该数据称为 dt。我使用以下代码来获取潜在类的系数。

m1 <- stepFlexmix(ADA ~ LEV+ROA+ROAL,data=dt,control= list(verbose=0), 
k=1:5,nrep= 10);  

m1 <- getModel(m1, "BIC");

一切都很好，直到我从http://rss.acs.unt.edu/Rdoc/library/flexmix/html/flexmix.html读到以下内容

model Object of FLXM of list of FLXM objects. Default is the object returned by calling FLXMRglm().

我认为默认模型调用是广义线性模型，而我对线性模型感兴趣。如何使用线性模型而不是 GLM？我搜索了很长一段时间，除了 http://www.inside-r.org/packages/cran/flexmix/docs/flexmix的这个例子之外，其他都找不到它，我无法理解它：

data("NPreg", package = "flexmix")

## mixture of two linear regression models. Note that control parameters
## can be specified as named list and abbreviated if unique.
ex1 <- flexmix(yn~x+I(x^2), data=NPreg, k=2,
                   control=list(verb=5, iter=100))

ex1
summary(ex1)
plot(ex1)

## …

我陷入了R中的一个难题,我无法解决它.问题是这样的.

x和y是两个向量,如下所示:

x<- c(1,2,3,4,5)
y<- c(12,4,2,5,7,18,9,10)

我想以下列方式创建一个新的向量p,其中length(p)= length(x):

• 对于x中的每个id,在y中找到具有最小绝对距离的id.例如,对于x中的id = 1,value_x(id = 1)= 1,min_value_y = 2,并且id_y(value == 2)= 3.因此,x中id 1的答案是3.因此,我们创建一个新的向量p,它将具有以下值:p =(3,3,3,2,4);

现在我们必须以下列方式更新p:

• 由于3是对应于id_x = 1的id,因此它不能是id_x = 2的id.因此,我们必须丢弃值为2的id_y = 3,以计算id_x = 2的下一个最小距离.id_x = 2的下一个最佳最小距离是id_y = 2,值为4.因此,更新的p是(3,2,3,2,4).
• 由于3是对应于id_x = 1的id,因此它不能是id_x = 3的id.因此,我们必须丢弃值为2的id_y = 3,以计算id_x = 3的下一个最小距离.id_x = 3的下一个最佳最小距离是2.因此,更新的p是(3,2,4,2,4).

由于p中的下一个值是2和4,我们必须重复我们在最后两个步骤中所做的操作.总之,在计算x和y之间的最小距离时,对于x的每个id,我们必须得到之前未出现的y的id.因此p的所有元素必须是唯一的.

任何答案将不胜感激.

我试过这样的东西,虽然不是一个完整的解决方案:

minID <- function(x,y) {return(which(abs(x-y)==min(abs(x-y))))};
p1 <- sapply(x,minID,y=y);
#Calculates the list of all minimum elements -no where close to actual solution :(

我有超过100万的ax和y,因此循环会非常慢.我正在寻找更快的解决方案.

我有一个列表 p

p <- list(1:5,4:8,7:11)

和另一个列表列表

q <- list(2:3,1:2,4:5)

我想为 p 中的每个列表和 q 中的相应列表设置，

p[q] <- Inf;

例如，(1:5) [2:3] <- Inf、(4:8) [1:2] <- inf 和 (7:11) [4:5] <- Inf；

我怎样才能做到这一点？该函数的最终结果将是更新列表的列表。谢谢。

我有一个代码如下:

dt <- ddply(dt, .(SIC,FYEAR), function(x) disAccRegFunc(x));

disAccRegFunc <- function(dt)
{
     #Compute Discreationary Accrual
     model <- lm(ACNew ~ DSALENew + PPEGTNew + ROANew, data = dt);
     dt$RES <- residuals(model);
     dt$StudRES <- studres(model);  #Calculation of studentized residuals
     return(dt)
}

在这段代码中,我使用ddply函数在每个片段上应用函数disAccRegFunc.我使用数据表编写了一个代码,如下所示:

        dt[,disAccRegFunc(.SD),by=.by]

但我想这个会慢一些,因为这个必须将每个片段的.SD加载到内存中.有什么方法可以使这个代码有效？谢谢.

这里是数据的快照:

structure(list(SIC = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, …