小编Fab*_*olz的帖子

我想在R中设置一个3D矩阵.我想这很简单.但是,到目前为止我还没有找到解决方案.假设我们要创建一个365x6x4矩阵.同样重要的是我如何更改矩阵中的一个条目.假设我们想要将值204分配给元素[304,5,2].我非常感谢你的回答!

谢谢!最好的,F

我们得到了一个lm对象,并希望提取标准错误

lm_aaa<- lm(aaa~x+y+z)

我知道函数摘要,名称和系数.但是,摘要似乎是手动访问标准错误的唯一方法.你知道我怎么能输出se吗？

谢谢!

我们希望将数组中的所有值设置为负值.我尝试了很多东西,但还没有找到一个有效的解决方案.我想到了一个带有条件的for循环,但这似乎不起作用.

#pred_precipitation is our array
pred_precipitation <-rnorm(25,2,4)     

for (i in nrow(pred_precipitation))
{
  if (pred_precipitation[i]<0) {pred_precipitation[i] = 0}
  else{pred_precipitation[i] = pred_precipitation[i]}
}

谢谢你的提示!

我们想得到一个如下所示的数组:

1,1,1,2,2,2,3,3,3,4,4,4,1,1,1,2,2,2,3,3,3,4,4,4,1,1,1,2,2,2,3,3,3,4,4,4

最简单的方法是什么？

在我的例子中,我有一个数字向量(future_prices).我使用另一个向量的日期向量(这里:pred_commodity_prices $ futuredays)来创建月份的数字.之后我使用cbind将月份绑定到数字向量.然而,发生的是数字向量变为非数字.你知道这是什么原因吗？当我使用as.numeric(future_prices)时,我得到了奇怪的值.什么可以替代？谢谢

head(future_prices)
pred_peak_month_3a pred_peak_quarter_3a 
1           68.33907             62.37888
2           68.08553             62.32658

is.numeric(future_prices)
[1] TRUE
> month = format(as.POSIXlt.date(pred_commodity_prices$futuredays), "%m")
> future_prices <- cbind (future_prices, month)
> head(future_prices)
  pred_peak_month_3a     pred_peak_quarter_3a   month
  1 "68.3390747063745"   "62.3788824938719"     "01"
 is.numeric(future_prices)
 [1] FALSE 

我想选择Excel工作表的格式化范围.要定义最后一行和第一行,我使用以下函数:

lastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

在下一步中,我想选择此区域:公式应如下所示:

Range(cells(1, 1), cells(lastRow, lastColumn).Select

但是,这不起作用.也许有人知道它有什么问题.非常感谢!

我们试图在带有值的365 X 1向量前面放置730个零值.我从另一个矩阵中剪切出这个矢量.因此,行索引号现在不再有用且令人困惑,例如,具有值的向量以50开始.如果我创建具有零值的另一个向量或数组,然后使用rbind将其绑定到具有将生成的值的向量之前由于混合了行索引号而产生的奇怪值,并将其作为3d元素处理.

感谢任何想法如何实现或如何重置行索引号.最好的法比安!

示例:这是带有值的向量

 pred_mean_temp
 366     -3.0538333
 367     -2.8492875
 368     -3.1645825
 369     -3.5301074
 370     -1.2463058
 371     -1.7036682
 372     -2.0127239
 373     -2.9040319
 ....

我想在它前面添加一个带有730行的零向量.所以看起来应该是这样的:

 1        0
 2        0
  ....
 731     -3.0538333   
 732     -2.8492875
 733     -3.1645825
  .... 

我建立了一个尺寸为365x7x4的3维矩阵.

x <- array(rep(1, 365*5*4), dim=c(365, 5, 4))

现在我想使用for循环用一个值填充每个元素.让我们说每个元素的值应该是行,列和深度的总和.我想这相对容易.

谢谢!最好的,F

我们想要计算线性图中积分的值.为了更好地理解照片.假设总面积为1.我们想要找出某个部分的值是什么.例如,我们想要知道,如果一切都是指月份,那么总体100%中有多少%位于第10个月和第11个月内,而A最大值是24个.我们可以计算积分然后应该能够通过以下方式获得搜索区域: F(x) - F(x-1)我对以下代码感兴趣:

a <- 24
tab <-matrix(0,a,1)
tab <-cbind(seq(1,a),tab)
tab<-data.frame(tab)

#initialization for first point
tab[1,2] <- (2*tab[1,1] / a - tab[1,1]^2 / a^2)

#for loop for calculation of integral of each point - integral until to the area
for(i in 2:nrow(tab))
{tab[i,2] <- (2*tab[i,1] / a - tab[i,1]^2/ a^2) - sum(tab[1,2]:tab[i-1,2])}
#plotting
plot(tab[,2], type="l")

如果你看到情节 - 这很令人困惑.任何想法如何处理这个正确吗？

我得到了一张包含各种数据的表格.在一栏中,我们发现了某种不时出现的项目编号.我想创建包含每个项目编号的列表.

所以我考虑创建一个数组并将数字添加到它中,如果现有数组中还没有它.

最后,数组应该显示在表格中

这是我到目前为止所得到的:

Sub ChoseNumbers()
' Chosing the Numbers in the AreaDim Arr() As Integer
Dim i As Integer
Dim area As Range

Set area = Columns("N").cells

i = 0
For Each cell In area
    If IsEmpty(cell) Then
        Exit For
    ElseIf i = 0 Then
        ReDim Preserve Arr(i)
        Arr(UBound(Arr)) = cell.Value
        i = i + 1
    ElseIf IsInArray(cell.Value, Arr) = False Then
        ReDim Preserve Arr(i)
        Arr(UBound(Arr)) = cell
        i = i + 1
    End If
Next cell


'Giving the …

可能重复:
计算一对向量的最小值

我有两个相同长度的向量:

a <- rnorm(40)
b <- rnorm(40)

现在,我想创建第三个向量c,其中每个点都有a和b的次要值.这可能是一个解决方案:

for (i in 1:40)
{c[i] <- min(a[i],b[i])}

但是,我想有一种更简单的方法可以做到这一点.