小编csg*_*pie的帖子

我正在尝试编写一个函数,它限制了R变量的范围.例如,

source("LimitScope.R")
y = 0
f = function(){
   #Raises an error as y is a global variable
   x = y
}

我想过测试变量环境,但不确定如何做到这一点.

为什么呢

我教R给本科生.在他们的前几个实践中,他们中的一些人总是忘记变量范围,因此他们提交的函数不起作用.例如,我总是得到类似的东西:

n = 10
f = function(x){
  #Raises an error
  #as I just source f and test it for a few test cases.
  return(x*n)
}

我正在完成一个能够"关闭"范围的快速功能.你可以想象它不一定特别强大,因为它只是为少数实用提供.

好像我错过了什么,但我还是想不出来.问题是我申请display: none;了#nav-icon.但它仍占用空间.这是我的编码.

HTML

<div id="nav">
  <a href="" id="nav-icon"> <img src="navigation.png" alt="nav-menu"</a>
  <ul>
    <li> <a href="#"> LINK </a> </li>
    <li> <a href="#"> LINK </a> </li>
    <li> <a href="#"> LINK </a> </li>
    <li class="navimage"> <a href="twitter.com"> <img src="twitter-icon.png" alt="twitter-icon" /> </a> </li>
    <li class="navimage"> <a href="facebook.com"> <img src="facebook-icon.png" alt="facebook-icon" /> </a> </li>
    </ul>
  </div>

CSS

#nav {
    border-bottom:1px solid #FFF;
    margin-bottom:20px;
    padding:0;
    text-align:center;
    max-width:95%;
    margin:0 auto;
}

#nav li {
    display:inline;
}

#nav a {
    display:inline-block;
    padding:15px;
    font-weight:bold; …

公式是R统计和图形函数的一个非常有用的特性.像所有人一样,我是这些功能的用户.但是,我从未编写过将公式对象作为参数的函数.我想知道是否有人可以通过链接到R编程的这一方面的可读介绍,或通过提供一个自包含的示例来帮助我.

现在,默认情况下的图例看起来像这样:

Legend Title
x-1 
y-2 
z-3 

但有可能让它看起来像这样吗？

Legend Title 
x-1 y-2 z-3

我正在寻找一种在某些条件下提前终止应用函数的方法.使用for循环,类似于:

FDP_HCFA = function(FaultMatrix, TestCosts, GenerateNeighbors, RandomSeed) {    
  set.seed(RandomSeed)

  ## number of tests, mind the summary column
  nT = ncol(FaultMatrix) - 1
  StartingSequence = sample(1:nT)
  BestAPFD = APFD_C(StartingSequence, FaultMatrix, TestCosts)
  BestPrioritization = StartingSequence
  MakingProgress = TRUE
  NumberOfIterations = 0
  while(MakingProgress) {
    BestPrioritizationBefore = BestPrioritization
    AllCurrentNeighbors = GenerateNeighbors(BestPrioritization)

    for(CurrentNeighbor in AllCurrentNeighbors) {
      CurrentAPFD = APFD_C(CurrentNeighbor, FaultMatrix, TestCosts)

      if(CurrentAPFD > BestAPFD) {
        BestAPFD = CurrentAPFD
        BestPrioritization = CurrentNeighbor            
        break
      }
    }

    if(length(union(list(BestPrioritizationBefore),
                    list(BestPrioritization))) == 1)
      MakingProgress = FALSE

    NumberOfIterations = NumberOfIterations + …

我想生成一个包含该范围内所有业务日期的时间序列:

startDate = "1990-01-01"
endDate = "1990-12-31"

例如"1990-01-01","1990-01-02",......

我可以用字节码编译我的R包吗？我有一个R包,我想用它编译

R CMD INSTALL --build mypackage.tar.gz 

但我希望将R代码编译成字节码.这在R 2.14.0中是否可行？

例如,假设我的包中有一个函数闭包

f = function(x) {
    x = x
    g = function(y) x <<- y
    h = function() x
    list(g = g, h = h)
}

l = f(5)
l$g(10)
l$h()

记录此功能的正确方法(在官方CRAN意义上)是什么？特别是,

1. 我想用 roxygen2
2. 我想提供功能g和文档h

我试图得到R中股票价格对数的密度估计值.我知道我可以用它来绘制它plot(density(x)).但是,我实际上想要函数的值.

我正在尝试实现核密度估计公式.这是我到目前为止所拥有的:

a <- read.csv("boi_new.csv", header=FALSE)
S = a[,3] # takes column of increments in stock prices
dS=S[!is.na(S)] # omits first empty field

N = length(dS)                  # Sample size
rseed = 0                       # Random seed
x = rep(c(1:5),N/5)             # Inputted data

set.seed(rseed)   # Sets random seed for reproducibility

QL <- function(dS){
    h = density(dS)$bandwidth
    r = log(dS^2)
    f = 0*x
    for(i in 1:N){
        f[i] = 1/(N*h) * sum(dnorm((x-r[i])/h))
    }
    return(f)
}

QL(dS)

任何帮助将非常感激.已经好几天了!

无法让 Chrome/任何浏览器发送使用 Report-To 标头生成的报告

嗨，我正在尝试收集浏览器访问触发事件的网页时生成的弃用/崩溃/干预报告。我有一个端点设置，当浏览器访问页面时，它当前接收 CSP 报告，但即使控制台和日志查看器中存在弃用错误，也生成了弃用报告，它不是由 chrome（或Safari 或 Firefox）。

该Report-To头被传递，与NEL头（也无法发送报告，但不是我的重点），如可以通过扫描我的网页与securityheaders.com可以看出一起：

（测试的最大年龄在这里很短，但我已经尝试了整整一年）

日志

使用chrome://net-export/和访问带有弃用 JS 的页面，我可以看到在“Per origin config”部分中设置了正确的信息：

并且已弃用的 JS 正在生成弃用报告：

但由于某种原因，报告从未发送。有时，在日志转储中，它表示已多次尝试发送报告。

测试

我已经使用与命令行标志的镀铬尝试--enable-features=Reporting和--enable-blink-features=Reporting（虽然我觉得这三个报告类型反正启用;干预，弃用和崩溃）。我还使用了 safari 和 firefox，并在控制台中收到了弃用警报，但发送的唯一报告是 CSP 报告。