标签: rstudio

我想处理两个光栅图像（Ra 和 Rb），Ra 是像素值本身，Rb 是其邻居的值。以 sum 为例，假设有一个 3*3 的邻居，对于 Ra 中的每个像素，我会将其值添加到 Rb 中的邻居像素的值中，最终我将得到另一幅图像。

R 光栅包提供了一个焦点函数，该函数仅适用于一个图像输入，我尝试修改 C++ 代码（在此处输入链接描述）以使用 Rcpp 接受两个图像输入。如果 Rb 的输入图像中没有缺失值，则修改后的代码可以很好地工作。然而，如果 Rb 中存在 NA，R 总是会中止。具体来说，在第二次或第三次测试时中止。它可能与这篇文章类似。然而，如果输入 Rb 中没有 NA，它不会崩溃。看来我没有正确处理 NA。我对 C++ 没有深入的了解，有人可以帮我检查一下吗？

这是我的.cpp 文件：

#include <Rcpp.h>
#include <R.h>
#include <Rinternals.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <Rmath.h>
#include "Rdefines.h"
#include "R_ext/Rdynload.h"

using namespace Rcpp;
// [[Rcpp::export]]
NumericVector focal_quantile(NumericVector xd, int ngbb, NumericVector sf) {
  //the imges are transfered to vector, ngbb is the size of the …

创建对象

.object <- 2

确认对象存在于全局命名空间中

.object 
# [1] 2

然而

我正在尝试创建一个仅显示获胜团队的新专栏。

这是一些示例数据：

results <- data.frame(
  home_team = c("Scotland", "England", "Scotland", "England", "Scotland", "Scotland",
                "England", "Wales", "Scotland", "Scotland", "England"),
  away_team = c("England", "Scotland", "England", "Scotland", "England", "Wales",
                "Scotland", "Scotland", "England", "Wales", "Wales"),
  home_score = c(0, 4, 2, 2, 3, 4, 1, 0, 7, 9, 2),
  away_score = c(0, 2, 1, 2, 0, 0, 3, 2, 2, 0, 1),
  stringsAsFactors = FALSE
)

到目前为止，这是我的代码：

results <- intl.football.results
first6home <- head(results$home_team)
first6away <- head(results$away_team)
homescore <- (results$home_score)
awayscore <- (results$away_score)

data.frame('winning_team' = 0, …

当我尝试使用knitr编译PDF时,我收到以下错误:

there is no package called 'knitr' Error: object 'opts_knit' not found
Execution halted

我正在使用RStudio 0.97.332和R版本2.15.3.

可能是什么问题呢？

嗨,我正在尝试将YAML文件(*.yamloo)导入R Studio进行分析.

我正在为RStudio使用YAML包.这是我试过的:

library(yaml)
data -> yaml.load_file("vn.yamloo")

我收到此错误消息:

Error in yaml.load_file("vn.yamloo") <- data : 
target of assignment expands to non-language object

.yaml文件与.yamloo文件相同; 是否总体上可以为​​RStudio做这个？

编辑:那真的是一个迟钝的问题,抱歉浪费你的时间.

我有以下多重集 X，我想在其中找到所有数字之间的距离。有什么方法可以将其集成到 FOR 循环中，这样如果给我一个不同大小的多重集，我就不必像下面那样手动执行此操作？

对于此示例，最终答案是 [0,2, 2, 3, 3, 4, 5, 6, 7, 8, 10] （已排序）

X=c(0,10,8,3,6)
L=length(X)
print(L)

##for(i in seq(from=1, to=L )){}

print(abs(X[1]-X[2]),  abs(X[1]-X[3]),
    abs(X[1]-X[4]),  abs(X[1]-X[5]),
    abs(X[1]-X[6]),  

    abs(X[2]-X[3]), abs(X[2]-X[4]),
    abs(X[2]-X[5]),  abs(X[2]-X[6]),


    abs(X[3]-X[4]),  abs(X[3]-X[5]),
    abs(X[3]-X[6]),  


    abs(X[4]-X[5]), abs(X[4]-X[6]),


    abs(X[5]-X[6])  

        )

基于R的Web控制台有哪些功能？它们的优点和缺点是什么？

我使用 RStudio。

每行的默认标题是“无标题”，如第一张图片所示。

今天发现每一行的标题都可以修改。正如我们所看到的，第二张图片中的标题是不同的。

但我不知道如何设置标题。谁能告诉我该怎么做？非常感谢！！:-)

我需要对Portmanteau主要测试文章进行深入研究，为此，我必须在不同的场景，样本量和不同的ARMA模型（p，q）下评估它们，从而生成180个场景，这需要我花费6个小时。用R和Rcpp编程我的函数，但是我发现惊奇的是，在C ++中，它速度慢，我的问题是为什么？

我的R代码：

Portmanteau <- function(x,h=1,type = c("Box-Pierce","Ljun-Box","Monti"),fitdf = 0){
  Ti <- length(x)
  df <- h-fitdf
  ri <- acf(x, lag.max = h, plot = FALSE, na.action = na.pass)
  pi <- pacf(x, lag.max = h, plot = FALSE, na.action = na.pass)
  if(type == "Monti"){d<-0} else{d<-1}
  if(type == "Box-Pierce"){wi <- 1} else{wi <- (Ti+2)/seq(Ti-1,Ti-h)}
  Q <- Ti*(d*sum(wi*identity(ri$acf[-1]^2))+(1-d)*sum(wi*identity(pi$acf^2)))
  pv <- pchisq(Q,df,lower.tail = F)
  result <- cbind(Statistic = Q, df,p.value = pv)
  rownames(result) <- paste(type,"test")
  return(result)
  }

我的Rcpp代码

#include <Rcpp.h>
using namespace …

我正在使用R Studio,我遇到了一个问题:ctrl + shift + enter正在运行整个代码,而不是仅运行选定的行.我总是可以使用"运行",但我习惯用ctrl + shift +输入...有人知道如何解决这个问题吗？