小编RHe*_*tel的帖子

R markdown中的德国变形金刚字符

如何在R-markdown中显示非英文字符?在另一份英文文档中,我想在它上面渲染一个带有两个圆点('变形金刚')的'u'. 这是"穆勒"这个名字中" 你"的正确拼写.

r r-markdown

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

如何将当前日期与android中的所选日期与java进行比较

我使用下面的代码获取当前日期

long millis=System.currentTimeMillis();
java.sql.Date date=new java.sql.Date(millis);
Run Code Online (Sandbox Code Playgroud)

我正在选择约会

CalendarView cal.setOnDateChangeListener(new OnDateChangeListener() {
            @Override
            public void onSelectedDayChange(CalendarView view, int year, int month, int dayOfMonth)

String s = +year + " : " + (month + 1) + " : " +dayOfMonth ;
Run Code Online (Sandbox Code Playgroud)

并将其传递给下一个活动 -

Intent in = new Intent(MainActivity.this, sec.class);
in.putExtra("TextBox", s.toString());
startActivity(in);
Run Code Online (Sandbox Code Playgroud)

我想在这里查看用户是否从当前日期选择了上一个日期然后给出了一条消息而不进行下一个活动.

android

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

R - 错误安装包 - curl :: curl_fetch_memory中的错误(url,handle = handle):无法连接到服务器

我想在R中安装BTYplus软件包

devtools::install_github("mplatzer/BTYDplus", dependencies=TRUE)
library(BTYDplus)
demo(package="BTYDplus")
Run Code Online (Sandbox Code Playgroud)

但它给了我以下错误:

下载github repo mplatzer/BTYDplus @ master curl :: curl_fetch_memory中的错误(url,handle = handle):无法连接到服务器

在R上安装软件包时有没有人遇到过类似的问题?

r

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

如何计算ggplot2绘制的椭圆面积?

在ggplot2中,在使用stat_ellipse绘制椭圆图之后,有没有办法计算这个椭圆的面积?这是代码和情节:

library(ggplot2)
set.seed(1234)
x <- rnorm (1:1000)
y <- rnorm (1:1000)
data <- cbind(x, y)
data <- as.data.frame(data)
ggplot (data, aes (x = x, y = y))+
  geom_point()+
  stat_ellipse()
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

r ggplot2 r-car

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

将 Eigen::VectorXd 转换为 std::vector&lt;double&gt;

正如标题所示,我正在尝试将 Eigen::VectorXd 转换为 std::vector。该向量是通过对矩阵进行对角化,然后取该过程的第一个特征向量来获得的。

#include <iostream>
#include <vector>
#include <cmath>
#include <iomanip>
#include <Eigen/Dense>

using namespace std;
using namespace Eigen;

using namespace std;

int main()
{
    vector<double> vec;
    MatrixXd ones = MatrixXd::Ones(3,3);
    VectorXd firstEvector;
    SelfAdjointEigenSolver<MatrixXd> es(ones);
    firstEvector = es.eigenvectors().col(1);
    cout << "The first eigenvector of the 3x3 matrix of ones is:" << endl << firstEvector << endl;
    vec(&firstEvector[0], firstEvector.data() + firstEvector.cols()*firstEvector.rows());
    return 0;
}
Run Code Online (Sandbox Code Playgroud)

我以为这是可行的方法,但是,它不起作用。我收到以下错误。

C:\CBProjects\eigenVectors\main.cpp|20|error: no match for call to '(std::vector<double>) (Eigen::DenseCoeffsBase<Eigen::Matrix<double, -1, 1>, 1>::Scalar*, Eigen::PlainObjectBase<Eigen::Matrix<double, -1, 1> >::Scalar*)'| …
Run Code Online (Sandbox Code Playgroud)

c++ vector eigen

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

使用R查找第二个字符串为9的字符串

我有一个数字列表,我想找到他们的第二个字符串是9的数字.grep()代码找到任何数字有9但我正在寻找一个代码,找到第二个字符串是9的数字所以下面返回:

p <- c(34405, 09098424, 6908347, 8900333, 453434)
grep(9, p)
[1] 1 2 3 4
Run Code Online (Sandbox Code Playgroud)

我正在寻找回归的东西:

[1] 2 3 4 
Run Code Online (Sandbox Code Playgroud)

谢谢Majran

r

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

使用列名称中的时间值重新整形R中的数据

我有一个看起来像这样的数据框(简化):

     data1.time1 data1.time2 data2.time1 data2.time2 data3.time1 group
 1          1.53        2.01        6.49        5.22        3.46    A
 ...
 24         2.12        3.14        4.96        4.89        3.81    C
Run Code Online (Sandbox Code Playgroud)

其中实际上dataK.timeT在1..27 中有K而在T中有一些(但可能不是全部)为1..8.

我想将数据重新排列成K个数据帧,这样我就可以为每个K绘制三个A,B和C组中的每一个的汇总数据(现在说平均值和平均值±标准偏差).是的,我想要27个图表,每个图表有三行,并且还标记偏差.

一旦我重新排列数据,它应该很容易按组折叠,计算汇总统计数据等.但我不确定如何将数据转换为这种形式.我查看了reshape包,它建议将其熔化为键值存储格式并从那里重新排列,但它似乎不支持包含T值的列,就像我在这里一样.

有没有办法做到这一点?我非常愿意使用R之外的其他东西来做这件事,因为我可以在转换后将结果导入R中.

database statistics r reshape

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

将YYYYMM因子格式转换为YYYY-MM格式

我有格式的数据,YYYYMM我希望将其转换为YYYY-MM格式.

例如: 201805应采用的格式2018-05

我怎么能这样做?

r

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

在 R 中使用语料库时出错(wordcloud)

我是 R 新手,正在尝试使用以空格分隔的文本文件进行 wordcloud 。我已经安装tmtmap打包了。我收到以下错误:

错误:找不到函数“Corpus”
错误:找不到函数“tm_map”

有人可以帮我吗?

r word-cloud tm

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

Eigen3 根据列条件选择行

我的特征矩阵有一个二维矩阵,例如:

122 443 544 456 0.9
324 435 5465 645 0.8
32 434 545 546 0.778
435 546 6565 656 0.6878
546 6565 656 3453 54 0.7788
5456 546 545 6565 3434 0.244
435 5456 656 656 6565 0.445
.....
Run Code Online (Sandbox Code Playgroud)

当最后一列值大于 0.3 时,我想选择所有行(或获取其行索引)。

我知道我可以通过迭代所有行并判断最后一个元素来做到这一点,但我可能有 10000 行,要做到这一点,迭代会非常慢。

有没有更好的方法来做到这一点?

c++ eigen eigen3

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

"rpart"对象错误的预测无效

我正在使用这个CRAN文档(https://cran.r-project.org/web/packages/FSelector/FSelector.pdf)第4页的最佳首次搜索的确切代码,该文档使用了iris数据集.它在虹膜数据集上运行得很好,但不适用于我的ndata.我的数据有37个预测变量(数字和分类),第38列是类预测.

我收到错误:

Error in predict.rpart(tree, test, type = "c") : 
   Invalid prediction for "rpart" object
Run Code Online (Sandbox Code Playgroud)

我认为这个来自这一行:

     error.rate = sum(test$Class != predict(tree, test, type="c")) / nrow(test)
Run Code Online (Sandbox Code Playgroud)

我已经尝试过调试和回溯,但我不明白为什么会发生这种错误(就像我说的那样,它不能用虹膜数据重现).

这是我的一些数据,因此您可以看到我正在使用的内容:

> head(data)
Numeric Binary Binary.1 Categorical Binary.2 Numeric.1 Numeric.2 Numeric.3     Numeric.4 Numeric.5 Numeric.6
1      42      1        0           1        0  27.38953  38.93202  27.09122  38.15687  9.798653  18.57313
2      43      1        0           3        0  76.34071  75.18190  73.66722  72.39449 23.546124  54.29957
3      67      0        0           1        0 485.87158 287.35052 471.58863 281.55261 73.454080 389.40092
4      49 …
Run Code Online (Sandbox Code Playgroud)

r prediction rpart fselector

0
推荐指数
1
解决办法
9896
查看次数

C++ 如何在已排序的向量中插入新元素?

我正在创建一个分数表,其中分数存储在向量中。当添加一个新分数并且它比向量中的当前分数更大时,我希望添加该分数(我已经完成了),但随后我希望该分数后面的所有分数基本上向后移动,以便为新分数。

所以基本上我想说的是,当一个新元素添加到 Vector 中时,我希望该新元素后面的所有元素基本上都被推回,但我无法找到一种方法来做到这一点。

我想知道是否有人有想法?

编辑: 为了让我更清楚我想要什么。假设您有 10 个不同的分数,如下所示:

500 400 385 350 300 265 200 100 50 20
Run Code Online (Sandbox Code Playgroud)

我想向这个数组添加一个新分数,它等于 425。所以我想要发生的是将新分数 425 放置在分数 1 和 2 之间,并且分数为 2,3,4,5,6, 7、8、9 和 10 会被推后,所以分数 2 现在是分数 3,分数 3 现在是分数 4,依此类推,直到我们得到分数 10,其中原始分数 10(即 20)不再存在,并且已被替换为分数 9,即 50

c++ vector

0
推荐指数
1
解决办法
6761
查看次数