我在C中有以下代码.我是Rcpp的新手,我想将我拥有的C代码转换为Rcpp.
C代码:
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
void calculate(const double *d, double *w, int col, int x) {
int i,j;
for (i = 0; i < col; i++){
for (j = 0; j < x; j++){
w[j * col + i]++;
}
}
}
int main(){
int i, col = 2, row = 6;
int x = 5, y = 3, a = 0;
double d[] = {1.0, 0.8, 0.2, 1.0, 0.4, 0.6, 0.6, 0.4, 0.8, 1.0, 1.0, 0.2}; …我在Perl中有以下数据序列:
143:0.0209090909090909
270:0.0909090909090909
32:0.0779090909090909
326:0.3009090909090909
请问,我怎样才能根据冒号前的数字对它们进行排序,以此作为输出？
32:0.0779090909090909
143:0.0209090909090909
270:0.0909090909090909
326:0.3009090909090909
请问如何使用正则表达式检查单词是否以符号字符开头或结尾,以及如何处理符号中的文本.
例:
(text) or te-xt, or tex't. or text?
改为
(<t>text</t>) or <t>te-xt</t>, or <t>tex't</t>. or <t>text</t>?
帮帮我？
谢谢
我有一个7000行×160列的矩阵,我想取每行20个值的平均值使其成为1值,即列平均值(1:20)=第1个新值,平均值(21:40)=第2个新值值..... avg(141:160)第1行的第8个和最后一个新值,将对所有行做同样的敌人,最后我的矩阵将是7000 x 8即.160/20 = 8.在R中存档这个的最快方法是什么？
例如.在末尾
1st 2 4 5 6 7 7 9 4
2nd 3 6 5 3 6 7 4 3
...............
7000th 5 6 7 4 5 6 7 6
我试过这个,但它的工作原理却太慢了!
res <- matrix(T, nrow = 7000, ncol = 8)
for (i in 1:nrow(m)){
s <- 0
k <- 1
for (j in 1:ncol(m)){
s <- s + m[i,j]
if(j %% 20 == 0){
a <- s/20
res[i,k] <- a
k <- k + 1 …我是 R 的新手，我觉得它很有趣。
我有 MATLAB 代码来根据顺序对向量进行排名，效果很好。现在我想将其转换为 R 代码，这是一个典型的矛兵排名：
# MATLAB CODE
function r=drank(x)
u = unique(x);
[xs,z1] = sort(x);
[z1,z2] = sort(z1);
r = (1:length(x))';
r=r(z2);
for i=1:length(u)
s=find(u(i)==x);
r(s,1) = mean(r(s));
end
这是我尝试过的：
# R CODE
x = c(10.5, 8.2, 11.3, 9.1, 13.0, 11.3, 8.2, 10.1)
drank <- function(x){
u = unique(x)
xs = order(x)
r=r[xs]
for(i in 1:length(u)){
s=which(u[i]==x)
r[i] = mean(r[s])
}
return(r)
}
r <- 喝了(x)
结果：
r = 5, 1.5, 6.5, 3, 8, 6.5, 1.5, …my $search = "Sony's";
my $string = "in TV sony's walkman";
如何sony's在$string使用正则表达式时得到" " 匹配.