我有一个如下所示的数据集
set.seed(503)
foo <- data.table(group = rep(LETTERS[1:6], 150),
y = rnorm(n = 6 * 150, mean = 5, sd = 2),
x1 = rnorm(n = 6 * 150, mean = 5, sd = 10),
x2 = rnorm(n = 6 * 150, mean = 25, sd = 10),
x3 = rnorm(n = 6 * 150, mean = 50, sd = 10),
x4 = rnorm(n = 6 * 150, mean = 0.5, sd = 10),
x5 = sample(c(1, 0), size = 6 …我需要使用不同的"密钥"访问同一网页,以获取它提供的特定内容.
我有一个键列表,x我使用包中的GET命令httr来访问网页,然后检索我需要的信息y.
library(httr)
library(stringr)
library(XML)
for (i in 1:20){
h1 = GET ( paste0("http:....categories=&query=", x[i]),timeout(10))
par = htmlParse(file = h1)
y[i]=xpathSApply(doc = par, path = "//h3/a" , fun=xmlValue)
}
问题是经常会达到超时,并且会中断循环.
因此,如果达到超时,我想刷新网页或重试GET命令,因为我怀疑问题出在我试图访问的网站的互联网连接上.
我的代码工作方式,超时打破了循环.我需要忽略错误并转到下一次迭代或重试访问该网站.
我的问题基本上是这样的:
我有一个列表L,其中每个元素是一个相同维度的矩阵.我需要将此列表中的每个矩阵乘以外部向量h中的相应元素,然后对所有矩阵求和.
set.seed(101)
L <- replicate(3, matrix(rnorm(4), 2), simplify = FALSE)
h <- 2:4
# I need this
L[[1]] * h[1] + L[[2]] * h[2] + L[[3]] * h[3]
鉴于我需要尝试不同数量的矩阵,并且我有一堆它们,我必须以聪明的方式做到这一点.我的想法是
L1 <- lapply(L, function(x) x * h[x])
L2 <- Reduce('+', L1)
其中"h [x]"将向量h索引列表L内的矩阵x的索引,所以我会得到
L1 = list(L[[1]] * h[1], L[[2]] * h[2], L[[3]] * h[3])
那么,问题是,如何通过使用元素本身获取列表中元素的索引？像h [L [[m1]]]得到h [1].
或者,如果您有任何其他方法来解决我的问题,我该怎么做？
我运行了类型的回归
model <- lm(y~x1+x2+x3, weights = wei, data=data1)
然后创建我的表
,t <- stargazer(model, omit="x2", omit.labels="x1")
但我还没有找到一种方法来省略表中的拦截结果.我在回归中需要它,但我不想在表格中显示它.
有没有办法通过观星者来做到这一点？
我有一个具有以下“梯形图”结构的data.frame
a1 c1 p1 q1 s1 id
596 <NA> <NA> <NA> <NA> <NA> 2
597 <NA> <NA> <NA> <NA> <NA> 2
598 <NA> <NA> <NA> <NA> <NA> 2
599 <NA> <NA> 719800 <NA> <NA> 2
600 <NA> <NA> <NA> <NA> <NA> 2
601 <NA> <NA> <NA> <NA> <NA> 2
602 <NA> <NA> <NA> <NA> <NA> 2
603 44 <NA> <NA> 1 1 2
604 <NA> <NA> <NA> <NA> <NA> 2
每个变量对于每个id只会出现一次，并且不同的变量可以出现在不同的行中。
我希望每个ID都有一行。我的想法是按ID在每列中重复值，然后删除重复项，因此我将得到以下内容。
a1 c1 p1 q1 s1 id
44 NA …