楼主: cbw1243
44365 504

[问答] 接受各种R语言难题   [推广有奖]

271
残风_ 发表于 2016-7-25 12:22:40
cbw1243 发表于 2016-7-25 11:20
SUR模型的假设是disturbances are contemporaneously correlated。 这个方程的拟合是先对方差矩阵进行估计 ...
eq1 <- AB ~ a1*D^b1*H^c1
eq2 <- RB ~ a2*D^b2*H^c2*AB
就是代码中的以上两行,是我的系统方程组,我需要对每个方程组两边同乘一个权函数(例如sqrt(f(x)))进行加权回归(例如systemfit中就有一个参数是weights让你设置权函数)。
加权回归的目的是消除异方差

272
baoyuzeng 发表于 2016-7-25 13:58:59
cbw1243 发表于 2016-7-25 11:08
到这个里面去找一下get_idf_cpp的函数。
https://github.com/qinwf/jiebaR/tree/master/R
您好,按照您给的链接,我并没有找到呢……会不会这个是用c语言开发的?如果是这样的话,应该怎样可以找到呢?

273
ZengTheta 发表于 2016-7-25 18:24:59
我有一个问题:我在写r包中用到了cppfunction,我自己写的函数直接运行是可以的,但是把它打成包,在调用的时候就会报错。
library(inline)
library(Rcpp)
cppFunction('
  int add1(int a1,int a2)
{
int s;
s=a1+a2;
return s;

}

            ')
这是我做的一个小测试,报错的内容是:
Error in .Primitive(".Call")(<pointer: (nil)>, a1, a2) :
  NULL value passed as symbol address
请问你觉得是调用的问题还是打包的问题?这个应该怎么解决呢?谢谢!

274
cbw1243 发表于 2016-7-26 01:41:26
由于新学期马上开始,同时楼主开始加入新一轮的研究项目,此贴暂时关闭,暂不再接受各类问题。
还有剩下的问题楼主会抽出时间跟进。
感谢大家的热情,希望本版块,尤其是R语言,会给大家带来更多的快乐!

275
baoyuzeng 发表于 2016-7-26 08:40:11
cbw1243 发表于 2016-7-25 11:08
到这个里面去找一下get_idf_cpp的函数。
https://github.com/qinwf/jiebaR/tree/master/R
我已经找到了,谢谢楼主的热心解答

276
MengweiYuan 发表于 2016-7-26 19:43:12
我的是MAC的系统,在Rstudio里面read.table时会出错,
Unable to open file 'BLOOD.DAT.xls'.
Error in xls2sep(xls, sheet, verbose = verbose, ..., method = method,  :
  Intermediate file '/var/folders/jz/fm2tzctx5kqg4dgw9r_prplr0000gn/T//RtmpEoVSNg/file1c0e58a1b.csv' missing!
In addition: Warning message:
running command ''/usr/bin/perl' '/Library/Frameworks/R.framework/Versions/3.3/Resources/library/gdata/perl/xls2csv.pl'  'BLOOD.DAT.xls' '/var/folders/jz/fm2tzctx5kqg4dgw9r_prplr0000gn/T//RtmpEoVSNg/file1c0e58a1b.csv' '1'' had status 2
Error in file.exists(tfn) : invalid 'file' argument
这样显示的。 另外,在读取链接里面的数据时也会说无法进入

277
鸟儿找虫吃 发表于 2016-7-27 09:21:18
请教一个标题居中问题,谢谢楼主

library(ggplot2)
library(ggthemes)
ggplot(gradel,aes(x=First, y=Math,fill=First))+geom_bar(stat="identity",width=0.5)+theme_economist()+
geom_text(aes(label=Math,vjust=-0.8,hjust=0.5,color=First),show.legend=FALSE)+ylim(min(gradel$Math,0)*1.1, max(gradel$Math)*1.1)+
labs(x="学生",y="数学")+ggtitle("学生成绩")

标题就是ggtitle("学生成绩"),如何居中显示 1.png
在你不同的阶段,会有适合你的不同工具,时机到了自然会想去学。

278
阿大刚 发表于 2016-7-27 12:02:03
小白求教 关于非线性回归中模型检验的一个问题,拟合模型后一般选择RSS较小 AIC较小的模型 请问决定系数R方在非线性回归中是不是检验模型的标准 如果是 还是用线性回归中的那个公式吗?

279
因为答案 发表于 2016-8-2 10:55:29
才刚刚学习R,打开一个代码,中文乱码,怎么修改。用的不是RStudio,是RGui,虽然并不明白俩有啥区别。搜索一上午,无解(说要设置成UTF-8,还是不知道怎么弄啊。刚学习,楼主谅解下小小小······菜鸟吧)。求助,很感谢

280
olilaco 发表于 2016-8-2 11:32:47
大神 小白刚接触R R在和c混用的时候都说有.c()和.call()这两种常用的方法。在使用.call(),c文件中会添加一些标准库之外的头文件,如:#include<Rcpp.h> #include <Rinternals . h> ,此时c的编译都不能通过生成不了需要调用的.dll,所以不知道怎么办,即附件的第二个例子我都不能运行实现出来,很伤脑筋,希望大神指点一二附上bug截图
即附件

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-1-1 02:31