我不知道如何执行exe文件node.js.这是我正在使用的代码.它不起作用,不打印任何东西.有没有办法exe使用命令行执行文件？

var fun = function() {
  console.log("rrrr");
  exec('CALL hai.exe', function(err, data) {

    console.log(err)
    console.log(data.toString());
  });
}
fun();

我很抱歉问这个问题.我和R非常相似.我知道有很多线程与同一个问题有关.据我所知,如果其中一个元素是一个列表,我们就无法导出表格,但我无法解决我的问题.所以,我在R中有一个列表,我想将其导出为CSV或TXT文件.以下是执行此write.table命令时收到的错误消息:

write.table(mylist,"test.txt",sep=";")

Error in .External2(C_writetable, x, file, nrow(x), p, rnames, sep, eol,  : 
unimplemented type 'list' in 'EncodeElement'

这是我列表的第一个元素:

$f10010_1
$f10010_1$mots
 [1] X16               ESPRESSO          TDISC             TASSIMO          
 [5] CARTE             NOIRE             A                 LAVAZZA          
 [9] MALONGO           MIO               MODO              123              
[13] CAPSULES          DOSES             78G               LONG             
[17] SPRESSO           CAFE              120G              CLASSIC          
[21] 104G              128G              AROMATIQUE        INTENSE          
[25] 112G              156G              520G              5X16             
[29] PROMO             TRIPACK           X24               126G             
[33] 16                4X16              APPASSIONATAMENTE APPASSIONATEMENTE
[37] BRESIL            CAPSUL            COLOMBIE          CORSE            
[41] CREMOSAMENTE      DELICATI          DELIZIOSAMENTE    DIVINAMENTE      
[45] DOLCEMENTE …

我想提取glmnet生成的模型系数并从中创建一个SQL查询.该函数 coef(cv.glmnet.fit) 产生一个' dgCMatrix'对象.当我使用时将其转换为矩阵时as.matrix,变量名称将丢失,只留下系数值.

我知道可以在屏幕上打印系数,但是可以将名称写入数据框吗？

任何人都可以帮助提取这些名字吗？

这就是我到目前为止在R中的ggvis包.

    mtcars %>% ggvis(x = ~disp) %>% 
    layer_lines(y = ~wt, stroke := "red") %>%
    layer_lines(y = ~mpg) %>%
    add_axis("y", orient = "left", title = "Weight (lb/1000)") %>%
    add_axis("y", orient = "right", title= "Miles/(US) gallon") %>%
    add_axis("x", title = "Displacement (cu.in.)")

我不能让左Y轴代表wt比例数据.

这输出:

我今天遇到了以下问题,我想知道是否有更好的方法来完成我想要做的事情.

假设我有以下data.table(只是每小时时间戳):

library(data.table)
tdt <- data.table(Timestamp = seq(as.POSIXct("1980-01-01 00:00:00"), as.POSIXct("2015-01-01 00:00:00"), '1 hour'))

> tdt
                  Timestamp
     1: 1980-01-01 00:00:00
     2: 1980-01-01 01:00:00
     3: 1980-01-01 02:00:00
     4: 1980-01-01 03:00:00
     5: 1980-01-01 04:00:00
    ---                    
306813: 2014-12-31 20:00:00
306814: 2014-12-31 21:00:00
306815: 2014-12-31 22:00:00
306816: 2014-12-31 23:00:00
306817: 2015-01-01 00:00:00

我的目标是将时间戳的分钟更改为10分钟.

我知道我可以用:

library(lubridate)
minute(tdt$Timestamp) <- 10

但这并没有利用数据表的超快速度(我需要).我的笔记本电脑上有:

> system.time(minute(tdt$Timestamp) <- 10)
   user  system elapsed 
  11.29    0.16   11.45 

所以,我的问题是:我们可以在数据表语法中以某种方式使用替换函数,以便它可以使用我想要data.table的速度吗？如果答案是否定的,data.table那么快速完成此任务的任何其他解决方案都是可以接受的.

如果你想知道我尝试的其中一件事是:

tdt[, Timestamp2 := minute(Timestamp) <- 10]

这不起作用.

预期输出(但使用数据表语法): …

我知道有一个快捷方式R可以lm()在所有数据帧上运行回归,如下所示:

reg<-lm(y~.,data=df)

df具有解释变量x1,x2,... x5,所以它与写入相同

reg<-lm(y~x1+x2+x3+x4+x5,data=df)

但这不包括像x1:x2这样的交互术语,...是否有快捷方式在R数据框的所有列上运行回归？我正在寻找2个具有相同效果的快捷方式

reg<-lm(y~x1*x2,x1*x3,x1*x4,x1*x5,x2*x3,...)
reg<-lm(y~x1*x2*x3*x4*x5) # this one will have interactions between the 5 variables

我是R的初学者.这是一个非常简单的代码,我试图保存剩余项:

# Create variables for child's EA:

dat$cldeacdi <- rowMeans(dat[,c('cdcresp', 'cdcinv')],na.rm=T)
dat$cldeacu <- rowMeans(dat[,c('cucresp', 'cucinv')],na.rm=T)

# Create a residual score for child EA:

dat$cldearesid <- resid(lm(cldeacu ~ cldeacdi, data = dat))

我收到以下消息:

Error in `$<-.data.frame`(`*tmp*`, cldearesid, value = c(-0.18608488908881,  : 
  replacement has 366 rows, data has 367

我搜索了这个错误,但找不到任何可以解决这个问题的东西.另外,我为妈妈的EA创建了完全相同的代码,它保存了残差,没有错误.如果有人能帮我解决这个问题,我将不胜感激.

我有以下程序:

timeStart<-Sys.time()
timeEnd<-Sys.time()
difference<-timeEnd-timeStart
anyVector<-c(difference)

最后我需要把数据放到一个向量中,我所遇到的问题就是当差值以秒为单位时,值就像:

4.46809 seconds

当它通过几分钟时,值就像:

2.344445 minutes

我希望答案在任何情况下都会转换为分钟,但是当我做这样的事情时:

anyVector<-c(difference/60)

对于差异的值以秒为单位工作正常的情况,但它也将在几分钟内转换数据给我一个不正确的数字.

那么,只有当答案在几秒钟内而不是在几分钟内,我才能如何转换为分钟？

我有以下矩阵/数据帧:

> e
  V1 V2 V3 V4 V5
1  0  2  3  4  5
2  0  0  6  8 10
3  0  0  0 12 15
4  0  0  0  0 20
5  0  0  0  0  0

在这种情况下,N = 5(行数=列数).我想填写这个对称矩阵中的缺失值(e [1,2] = e [2,1]等).有没有一种最有效的方法来填补缺失的值(N在我的情况下矩阵大小相当大)？有没有比嵌套循环更好的方法？

我在R中使用randomForest包,它允许计算邻近矩阵(P).在封装的描述中描述了参数为:" 如果接近= TRUE时随机森林被调用时,接近测量输入(基于频率对数据点是在同一个终端节点)中的矩阵. "

我获得随机森林的邻近矩阵如下:

P <- randomForest(x, y, ntree = 1000, proximity=TRUE)$proximity

当我研究P矩阵时,我看到像P(i,j)= 0.971014493这样的值,其中i和j是我的训练数据集(x)中的两个数据实例.这样的值没有意义,因为当它乘以1000(森林中的树数)时,得到的数字不是整数,因此是"频率".有人可以帮我理解,为什么我会在邻近矩阵中得到这样的实数？