我正在尝试从字符串中提取数字.
并做一些类似于[0-9]+字符串"aaa12xxx"和得到的东西"12".
我以为它会是这样的:
> grep("[0-9]+", "aaa12xxx", value=TRUE)
[1] "aaa12xxx"
然后我想...
> sub("[0-9]+", "\\1", "aaa12xxx")
[1] "aaaxxx"
但我做了某种形式的回应:
> sub("[0-9]+", "ARGH!", "aaa12xxx")
[1] "aaaARGH!xxx"
我缺少一个小细节.
是否有一个工具或脚本可以轻松地将一堆JAR文件合并到一个JAR文件中？奖励是轻松设置主文件清单并使其可执行.
具体案例是Java重组文本工具.我想用以下的方式运行它:
java -jar rst.jar
据我所知,它没有依赖关系,表明它不应该是一个简单的单文件工具,但下载的ZIP文件包含很多库.
0 11-30-07 10:01 jrst-0.8.1/
922 11-30-07 09:53 jrst-0.8.1/jrst.bat
898 11-30-07 09:53 jrst-0.8.1/jrst.sh
2675 11-30-07 09:42 jrst-0.8.1/readmeEN.txt
108821 11-30-07 09:59 jrst-0.8.1/jrst-0.8.1.jar
2675 11-30-07 09:42 jrst-0.8.1/readme.txt
0 11-30-07 10:01 jrst-0.8.1/lib/
81508 11-30-07 09:49 jrst-0.8.1/lib/batik-util-1.6-1.jar
2450757 11-30-07 09:49 jrst-0.8.1/lib/icu4j-2.6.1.jar
559366 11-30-07 09:49 jrst-0.8.1/lib/commons-collections-3.1.jar
83613 11-30-07 09:49 jrst-0.8.1/lib/commons-io-1.3.1.jar
207723 11-30-07 09:49 jrst-0.8.1/lib/commons-lang-2.1.jar
52915 11-30-07 09:49 jrst-0.8.1/lib/commons-logging-1.1.jar
260172 11-30-07 09:49 jrst-0.8.1/lib/commons-primitives-1.0.jar
313898 11-30-07 09:49 jrst-0.8.1/lib/dom4j-1.6.1.jar
1994150 11-30-07 09:49 jrst-0.8.1/lib/fop-0.93-jdk15.jar
55147 11-30-07 09:49 jrst-0.8.1/lib/activation-1.0.2.jar
355030 11-30-07 …我不明白为什么R给我一个关于"较长的物体长度不是较短物体长度的倍数"的警告
我有这个对象,它通过在xts系列上进行聚合生成,给出工作日中位数:
u <- aggregate(d, list(Ukedag = format(index(d),"%w")), median)
1 314.0
2 282.5
3 270.0
4 267.0
5 240.5
然后我尝试将它应用到我的原始xts系列,看起来像这样(只是更长)
head(d)
2009-01-02 116
2009-01-05 256
2009-01-06 286
使用:
coredata(d) <- coredat(d) - u[format(index(d),"%w")];
这会导致警告.
目的是减去工作日的平均值.尽管有警告,它似乎仍然有效,但我应该担心什么？
apply.daily(d, function(x) coredata(x) - u[format(index(x), "%w")] )
我确实有一个严重的错误.这没有给出任何警告,我通过这样做测试:
apply.daily(d, function(x) u[format(index(x), "%w")] )
然后检查一些日期,它似乎与日历一致.
我正在寻找具有基本数学支持和文件IO的语言的编译器或解释器,它可以直接从Linux或Windows中的记忆棒执行.内置的基本数据结构和排序/搜索功能将是一个加号.
(我读过有关可移动的python,但它只支持windows)
谢谢
是否有一个很好的方法来处理时间段,如05:30(5分30秒)？
或者,用几秒钟将其转换为整数的最快方法是什么？
我只能转换为日期,并且无法真正找到时间的数据类型.
我和动物园一起使用R.
非常感谢 !
秒是解决这个问题的最好方法.我将Shane的代码改编成了我的目的,这是结果.
# time - time in the format of dd hh:mm:ss
# (That's the format used in cvs export from Alcatel CCS reports)
#
time.to.seconds <- function(time) {
t <- strsplit(as.character(time), " |:")[[1]]
seconds <- NaN
if (length(t) == 1 )
seconds <- as.numeric(t[1])
else if (length(t) == 2)
seconds <- as.numeric(t[1]) * 60 + as.numeric(t[2])
else if (length(t) == 3)
seconds <- (as.numeric(t[1]) * 60 * 60
+ as.numeric(t[2]) * 60 + as.numeric(t[3])) …