小编qed*_*qed的帖子

矢量是这样的:

c(1,2,3)
#[1] 1 2 3

我需要这样的东西:

list(1,2,3)
#[[1]]
#[1] 1
#
#[[2]]
#[1] 2
#
#[[3]]
#[1] 3

我试过这个:

list(c(1,2,3))
#[[1]]
#[1] 1 2 3

见下文:

 paste("perf.a", "1", sep="")
    [1] "perf.a1"

如果我想分配值perf.a1怎么办？

我尝试了as.name,as.symbol等等,但无济于事:

as.name(paste("perf.a", "1", sep="")) = 5
Error in as.name(paste("perf.a", "1", sep = "")) = 5 : 
  target of assignment expands to non-language object
as.symbol(paste("perf.a", "1", sep="")) = 5
Error in as.symbol(paste("perf.a", "1", sep = "")) = 5 : 
  target of assignment expands to non-language object
noquote(paste("perf.a", "1", sep="")) = 5
Error in noquote(paste("perf.a", "1", sep = "")) = 5 : 
  target of assignment expands to non-language object

我有一个这样的列表:

    x = list(a = 1:4, b = 3:10, c = NULL)
    x
    #$a
    #[1] 1 2 3 4
    #
    #$b
    #[1]  3  4  5  6  7  8  9 10
    #
    #$c
    #NULL

我想提取所有非null的元素.如何才能做到这一点？谢谢.

我的Kubuntu 13.04笔记本电脑上的vim编辑器似乎有一些乳胶编辑的先进功能,即它可以在运行时将乳胶符号转换为unicode字符,并在光标不在线时隐藏源代码.

对某些人来说这可能是一个很好的功能,但我觉得它有点烦人.我不确定这是内置的还是由某些扩展提供的,但我希望我能找到一种方法来禁用它.

我的vim版本是7.4b,安装的扩展名列表:

clang_complete
emmet-vim
HTML-AutoCloseTag
neocomplete.vim
neosnippet
tabular
tagbar
tlib_vim
unite.vim
vim-addon-mw-utils
vim-airline
vim-colorschemes
vim-colors-solarized
vim-commentary
vim-easymotion
vim-eunuch
vim-fugitive
vim-repeat
VimRepress
Vim-R-plugin
vim-snippets
vim-surround
vim-table-mode
vim-unimpaired
vundle

以下是Hands-on Scala.js电子书中的一个示例:

package webpage

import org.scalajs.dom.ext.Ajax

import scala.scalajs.js
import scala.scalajs.js.annotation.JSExport
import scalatags.JsDom.all._
import org.scalajs.dom
import dom.html

@JSExport
object HelloWorld1 extends {
  @JSExport
  def main(target: html.Div) = {

    lazy val box = input(
      `type`:="text",
      placeholder:="Type here!"
    ).render

    lazy val output = div(
      height:="400px",
      overflowY:="scroll"
    ).render

    box.onkeyup = (e: dom.Event) => {
      output.innerHTML = "Loading..."
      fetchWeather(box.value)
    }

    target.appendChild(
      div(
        h1("Weather Search"),
        p(
          "Enter the name of a city to pull the ",
          "latest weather data from api.openweathermap.com!"
        ),
        p(box),
        hr, output, hr …

这是代码:

require(ggplot2)
require(grid)
# pdf("a.pdf")
png('a.png')
a <- qplot(date, unemploy, data = economics, geom = "line") + opts(title='A')
b <- qplot(uempmed, unemploy, data = economics) + geom_smooth(se = F) + opts(title='B')
c <- qplot(uempmed, unemploy, data = economics, geom="path") + opts(title='C')
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)
print(a, vp = vplayout(1, 1:2))
print(b, vp = vplayout(2, 1))
print(c, vp = vplayout(2, 2))
dev.off()

结果:

虽然这是我想要的,即在y轴顶部附近定位标题:

以下是哈德利高级R书中的一个例子:

sample_df <- data.frame(a = 1:5, b = 5:1, c = c(5, 3, 1, 4, 1))

subset2 <- function(x, condition) {
  condition_call <- substitute(condition)
  r <- eval(condition_call, x, parent.frame())
  x[r, ]
}

scramble <- function(x) x[sample(nrow(x)), ]

subscramble <- function(x, condition) {
  scramble(subset2(x, condition))
}

subscramble(sample_df, a >= 4)
# Error in eval(expr, envir, enclos) : object 'a' not found

哈德利解释说:

你能看出问题所在吗？condition_call包含表达式条件.因此,当我们评估condition_call时,它还会计算条件,其值为a> = 4.但是,由于在父环境中没有名为a的对象,因此无法计算.

据我所知,a在父env中没有,但是,eval(condition_call, x, parent.frame())在x中包含了条件调用(包含用作环境的data.frame)parent.frame().只要有一个以ax 命名的列,为什么会有任何问题？

这是来自http://www.tutorialspoint.com/cplusplus/cpp_exceptions_handling.htm

#include <iostream>
#include <exception>
using namespace std;

struct MyException : public exception
{
  const char * what () const throw ()
  {
    return "C++ Exception";
  }
};

我理解const后面的what意思是函数不修改结构的任何成员,但throw()最后的意思是什么？

假设我有这样的测试:

require(testthat)
context("toy test")
test_that("toy", {
            df = my.read.file("test.txt", header=TRUE)
            expect_true(myfunc(df) == 3.14)
})

并且这个测试依赖于外部文件test.txt,那么我应该把这个文件放在哪里呢？

这是我目前正在做的,它有效,但它有点麻烦:

x = np.matrix([[1, 1], [2, -3]])
xmax = x.flat[abs(x).argmax()]