小编Lca*_*t91的帖子

从R中的行和中省略inf

所以我试图对矩阵的行求和,其中有inf.如何对行进行求和,省略inf?

r rowsum

20
推荐指数
4
解决办法
8432
查看次数

无法从d3中的csv文件导入数据

我只是在学习d3,我正在尝试从CSV文件导入数据,但我不断收到错误"XMLHttpRequest无法加载文件:///Users/Laura/Desktop/SampleECG.csv.交叉原始请求只是支持HTTP." 我已经搜索了如何修复此错误并在本地Web服务器上运行它,但我找不到适用于d3.v2.js的解决方案.以下是代码示例:

var Time = []
    ECG1 = []

d3.csv("/Desktop/d3Project/Sample.csv", function(data) 
      {
      Time = data.map(function(d) {return [+d["Time"]];});
      ECG1 = data.map(function(d) {return [+d["ECG1"]];});
      console.log(Time)
      console.log(ECG1)
      });
Run Code Online (Sandbox Code Playgroud)

任何帮助都感激不尽.

javascript csv import-from-csv d3.js

13
推荐指数
3
解决办法
1万
查看次数

从列表创建和调用线性模型

所以我试图比较不同的线性模型,以确定一个是否优于另一个.但是我有几个模型,所以我想创建一个模型列表然后调用它们.那可能吗?

 Models <- list(lm(y~a),lm(y~b),lm(y~c)
 Models2 <- list(lm(y~a+b),lm(y~a+c),lm(y~b+c))

 anova(Models2[1],Models[1])
Run Code Online (Sandbox Code Playgroud)

谢谢您的帮助!

r list lm

3
推荐指数
1
解决办法
2322
查看次数

R中的P值故障

我对p值有疑问.我一直在比较不同的线性模型,以确定一个模型是否比另一个更好,在R中具有以下功能.

 anova(model1,model2)
Run Code Online (Sandbox Code Playgroud)

不幸的是,偶尔它不会计算F或p值.这是一个没有给出p值的anova摘要的例子

 Analysis of Variance Table

 Model 1: Influence ~ SortedSums[, Combos2[1, A]] + SortedSums[, Combos2[2,A]]
 Model 2: Influence ~ SortedSums[, B]
    Res.Df   RSS Df Sum of Sq F Pr(>F)
 1    127 3090.9                      
 2    128 2655.2 -1    435.74 
Run Code Online (Sandbox Code Playgroud)

为了对称性,这里也是一个产生p值的anova总结.

 Analysis of Variance Table

 Model 1: Influence ~ SortedSums[, Combos2[1, A]] + SortedSums[, Combos2[2,A]]
 Model 2: Influence ~ SortedSums[, B]
    Res.Df    RSS Df Sum of Sq      F Pr(>F)
  1    127 3090.9                           
  2    128 3157.6 -1   -66.652 2.7386 0.1004
Run Code Online (Sandbox Code Playgroud)

你知道为什么会这样吗?

r anova p-value

3
推荐指数
1
解决办法
4959
查看次数

将3D数据压缩为R中的矩阵

所以我在130X130的降序中一次排序一行矩阵,我想创建一个新的矩阵,其中行名称相同,但每个排序的行列名称是数据的位置和括号中的数据根据列名称旁边.它有点像创建一个尺寸为130x130x2的psuedo3D数组,然后将其压缩成一个没有列名的130x130矩阵.这是一个较小的例子.

例

        A   B   C   D   
    A   14  82  18  50
    B   39  95  27  19
    C   60  40  32  15
    D   70  31  69  31
Run Code Online (Sandbox Code Playgroud)

这就是我要的

    A   B(82)   D(50)   C(18)   A(14)
    B   B(95)   A(39)   C(27)   D(19)
    C   A(60)   B(40)   C(32)   D(15)
    D   A(70)   C(69)   B(31)   D(31)
Run Code Online (Sandbox Code Playgroud)

我希望这是有道理的!

谢谢!

r matrix multidimensional-array reshape

1
推荐指数
1
解决办法
132
查看次数

在R中使用if语句的double for循环出错

我逐个循环遍历矩阵,我想将所有小于1的值更改为负倒数.这是我目前拥有的循环

x <- 1:rowlength
y <- 1:colLength
for (i in x) {
    for (j in y) {
        Cell <- Nmatrix[i,j]
        if (Cell<=1) {Cell = -1/Cell}
    }
}
Run Code Online (Sandbox Code Playgroud)

我尝试运行代码时不断收到以下错误:

Error in if (Cell <= 1) { : missing value where TRUE/FALSE needed
Run Code Online (Sandbox Code Playgroud)

我不确定我做错了什么.任何帮助深表感谢.

谢谢

for-loop if-statement r

1
推荐指数
1
解决办法
94
查看次数

从R中的两个线性模型的比较中提取anova()的p值

我很抱歉没有提供足够的信息来正确访问这个问题.无论如何,我想比较不同的线性模型对并将它们的p值记录到表中.我的麻烦在于我无法仅提取p值.

TC <- matrix(data=NA, nrow=1, ncol=6)
    ML5 <- 1:5
for(B in ML5) {
    Coop <- anova(M6,Models5[[B]])$"Pr(>F)"
    TC[1,B] <- Coop
}

 >Coop
   NA 2.041767e-05
Run Code Online (Sandbox Code Playgroud)

那么我如何才将数字放入表中而不是将NA放入表中?

太感谢了!

r extraction anova

1
推荐指数
1
解决办法
9806
查看次数