寻求R挑战

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有什么R问题请在下方留言，谢谢。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

没有挑战的意思啊，真心请问：R用deSolve模拟dde方程组时，绝对误差和步长的设置，是否有标准可循？比如，用time span设定输出结果都是150个，为什么步长设成1、0.1和0.01，结果却完全不同呢？

问一下如何通过RDCOMClient包调用VBA将pptx格式的文件转化成pdf格式的文件？我试着写了下，可是始终不成功。代码如下：

1. # 调用VBA将PPT文件转为PDF格式
   
2. library(RDCOMClient)
   
3. pptFile = "path/to/test.pptx"  # 这里使用绝对路径
   
4. pptApp = COMCreate("PowerPoint.Application")
   
5. pptApp[["Visible"]] = TRUE
   
6. pptApp[["Presentations"]]$Open(Filename = pptFile)
   
7. 
   
8. pdfFile = "path/to/test.pdf"  # 这里使用绝对路径
   
9. if (file.exists(pdfFile) == TRUE)  file.remove(pdfFile)
   
10. 
    
11. pptApp[["ActivePresentation"]]$ExportAsFixedFormat(pdfFile, 2L)
    
12. pptApp$Quit() # 关闭PPT文件

复制代码

llb_321 发表于 2020-5-6 07:33
没有挑战的意思啊，真心请问：R用deSolve模拟dde方程组时，绝对误差和步长的设置，是否有标准可循？比如，用 ...

你的这个问题不是R的问题， 是一个数学上求解ODE方程的问题。我不是数学专业的，所以爱莫能助。Sorry

楼主能否看一下我发的求助帖子？关于坐标轴数字方向调整问题。

martylife 发表于 2020-5-7 11:27
楼主能否看一下我发的求助帖子？关于坐标轴数字方向调整问题。

你用的那个函数包很烂，不take las argument (shame on the authors)。 我稍微改进了一下， 在以下函数放进R里，然后：
plot.regsubsets(leaps,scale="adjr2")
你可以选择xlas 和ylas的值任意调整方向。

1. plot.regsubsets<-function(x,labels=obj$xnames,main=NULL,
   
2.                           scale=c("bic","Cp","adjr2","r2"),
   
3.                           col=gray(seq(0,0.9,length=10)),xlas=1, ylas=1){
   
4.   obj<-x
   
5.   lsum<-summary(obj)
   
6.   par(mar=c(7,5,6,3)+0.1)
   
7.   nmodels<-length(lsum$rsq)
   
8.   np<-obj$np
   
9.   propscale<-FALSE
   
10.   sscale<-pmatch(scale[1],c("bic","Cp","adjr2","r2"),nomatch=0)
    
11.   if (sscale==0)
    
12.     stop(paste("Unrecognised scale=",scale))
    
13.   if (propscale)
    
14.     stop(paste("Proportional scaling only for probabilities"))
    
15.   
    
16.   yscale<-switch(sscale,lsum$bic,lsum$cp,lsum$adjr2,lsum$rsq)
    
17.   up<-switch(sscale,-1,-1,1,1)
    
18.   
    
19.   index<-order(yscale*up)
    
20.   
    
21.   colorscale<- switch(sscale,
    
22.                       yscale,yscale,
    
23.                       -log(pmax(yscale,0.0001)),-log(pmax(yscale,0.0001)))
    
24.   
    
25.   image(z=t(ifelse(lsum$which[index,],
    
26.                    colorscale[index],NA+max(colorscale)*1.5)),
    
27.         xaxt="n",yaxt="n",x=(1:np),y=1:nmodels,xlab="",ylab=scale[1],col=col)
    
28.   
    
29.   laspar<-par("las")
    
30.   on.exit(par(las=laspar))
    
31.   par(las=2)
    
32.   axis(1,at=1:np,labels=labels, las = xlas)
    
33.   axis(2,at=1:nmodels,labels=signif(yscale[index],2), las = ylas)
    
34.   
    
35.   if (!is.null(main))
    
36.     title(main=main)
    
37.   box()
    
38.   invisible(NULL)
    
39. }

复制代码

bwchen 发表于 2020-5-7 12:51
你用的那个函数包很烂，不take las argument (shame on the authors)。 我稍微改进了一下， 在以下函数放 ...

很烂的函数包是指leaps吗？按照你的操作运行代码提示：找不到对象'lsumcp'。请问是手滑写错了还是其他问题？感谢大佬回复。

martylife 发表于 2020-5-8 17:17
很烂的函数包是指leaps吗？按照你的操作运行代码提示：找不到对象'lsumcp'。请问是手滑写错了还是其他问题 ...

不知道为什么插入代码老是出错。你把中间的 yscale<-.... 换成下面一行，应该就可以了。
yscale<-switch(sscale,lsum$bic,lsum$cp,lsum$adjr2,lsum$rsq)

你的代码里面的那个plot函数是leaps函数包的，这个函数包不行。我对里面的函数进行了稍微改进。

bwchen 发表于 2020-5-9 03:37
不知道为什么插入代码老是出错。你把中间的 yscale

好的，多谢楼主

楼主，请问Markdown各种启动不了咋办，caTools is not avaliable，安装包里也没有