小编ema*_*ele的帖子

R中的移动方差

我知道filter()R 中的函数计算移动平均线.我想知道是否存在一个函数,它返回移动方差或标准偏差,以便在filter()函数输出中并排显示它.

r

22
推荐指数
3
解决办法
1万
查看次数

R中的无序组合

我正在寻找一个函数,它返回一个向量的无序组合.例如

x<-c('red','blue','black')
uncomb(x)
[1]'red'
[2]'blue'
[3]'black'
[4]'red','blue'
[5]'blue','black'
[6]'red','black'
[7]'red','blue','black'
Run Code Online (Sandbox Code Playgroud)

我想在某个库中有一个函数可以执行此操作,但是找不到它.我正在尝试permutations,gtool但它不是我正在寻找的功能.

combinations r

13
推荐指数
2
解决办法
978
查看次数

使用R创建3D直方图

如何用R创建3D直方图?

例如,我有两个变量要计算它们落入定义的二维bin的次数.所以我在X和Y轴上有两个变量,而Z轴是两个变量的计数.

r histogram

11
推荐指数
1
解决办法
1万
查看次数

R中的加权采样

我有一个数据框data.在每一行都i分配了一个重量data$ww.现在,我想提出一个样品new_datadata,按加权df$ww.我试过subset但很慢.

# sample data
data <- data.frame(var1 = log(sample(1:5000)))
ndata <- nrow(data)
maxW <- max(data$var1)

nsample <- 4000
rr <- runif(ndata)
data$ww <- cumsum(exp(data$var1))
new_data <- data[0, ]
i <- 1
while(nrow(new_data) < nsample) {
  new_data[i, ] <- subset(data, data$ww > rr[i] * maxW)[1,]
  i <- i + 1
}
Run Code Online (Sandbox Code Playgroud)

有更快的方法吗?

r

11
推荐指数
1
解决办法
9644
查看次数

赫斯特与R指数

我想用R计算Hurst指数.是否有可以执行此操作的库或内置函数?任何建议将不胜感激(甚至参考的网站链接).感谢名单

更新:thanx到Ben Bolker的评论,我在函数的例子中找到了这个脚本

hurst.est(wspec, range, nvoice, plot=TRUE)
Run Code Online (Sandbox Code Playgroud)

在此页面http://finzi.psych.upenn.edu/R/library/Rwave/html/hurst.est.html

脚本:

wnoise <- rnorm(8192)
plot.ts(wnoise)
spwnoise <- fft(wnoise)
spwnoise <- Mod(spwnoise)
spwnoise <- spwnoise*spwnoise
plot(spwnoise[1:4096], log="xy", type="l")
lswnoise <- lsfit(log10(1:4096), log10(spwnoise[1:4096]))
abline(lswnoise$coef)
cwtwnoise <- DOG(wnoise, 10, 5, 1, plot=FALSE)
mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise
wspwnoise <- tfmean(mcwtwnoise, plot=FALSE)
wspec.pl(wspwnoise, 5)
hurst.est(wspwnoise, 1:50, 5)
Run Code Online (Sandbox Code Playgroud)

我猜第一部分会产生一个具有记忆效应的信号,但是我无法理解第二部分代码的一部分对于扩展赫斯特指数是非常必要的.谁能帮助我并解释一下?我对此表示怀疑

mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise 
Run Code Online (Sandbox Code Playgroud)

r time-series

8
推荐指数
2
解决办法
1万
查看次数

将字符串转换为R中的唯一整数

我有这种类型的数据框

string1,string2,value1
string3,string1,value2
string3,string5,value3
...
...
Run Code Online (Sandbox Code Playgroud)

我会用独特的整数转换srings:

1,2,value1
3,1,value2
3,5,value3
...
...
Run Code Online (Sandbox Code Playgroud)

我正在尝试使用c()运算符,将字符串转换为唯一的整数.问题是如何管理数据框的两列.我怎样才能做到这一点?

r

5
推荐指数
1
解决办法
6282
查看次数

无法删除youtube中的相关视频

我用magnificpopup脚本嵌入了一个视频.我无法在嵌入的youtbe复制结束时删除相关视频.

这是我尝试过的代码:

<a class="popup-youtube" href="https://www.youtube.com/watch?rel=0&feature=player_detailpage&v=83UHRghhars">
Run Code Online (Sandbox Code Playgroud)

但不起作用.以下代码也不重现视频

<a class="popup-youtube" href="https://www.youtube.com/watch?feature=player_detailpage&v=83UHRghhars&rel=0">
Run Code Online (Sandbox Code Playgroud)

如果我把youtube告诉我的嵌入代码:

//www.youtube.com/embed/83UHRghhars?rel=0
Run Code Online (Sandbox Code Playgroud)

视频不起作用.我做错了什么?

youtube magnific-popup

5
推荐指数
1
解决办法
4786
查看次数

将 xml 文件转换为 html 文件的基本步骤

我想将 xml 文件转换为 html 文件。我可以在哪里找到在 shell 脚本中执行此操作的分步教程(适用于 Linux),或者需要遵循哪些步骤。抱歉问了这个非常基本的问题,但我在这方面绝对是初学者。谢谢

html xml linux shell

4
推荐指数
1
解决办法
1万
查看次数

mongodb中的逻辑运算符使用python进行查询

我试图在我的mongo db中查询python2.7中的项目

output = collection.find_one({ $and : [{'name' : data['name']},{'phone_1' : data['phone_1']}]})
Run Code Online (Sandbox Code Playgroud)

当我尝试运行脚本python告诉我

File "./test.py", line 113
output = collection.find_one({ $and : [{'name' : data['name']},{'phone_1' : data['phone_1']}]})
                               ^
SyntaxError: invalid syntax
Run Code Online (Sandbox Code Playgroud)

我检查了手册和mongo的版本.我已经安装了mongodb 2.0.6,所以上面的语法应该没问题.我错过了什么吗?

python mongodb pymongo python-2.7

4
推荐指数
1
解决办法
2250
查看次数

用sed替换行中的最后一个字符

我试图用相同的字符和引号替换行中的最后一个字符 '

这是sed代码

 sed "s/\([A-Za-z]\)$/\1'/g" file1.txt > file2.txt
Run Code Online (Sandbox Code Playgroud)

但不起作用.错误在哪里?

sed

3
推荐指数
1
解决办法
3万
查看次数