我有一个像这样的数字条目的数据框
test <- data.frame(x = c(26, 21, 20), y = c(34, 29, 28))
Run Code Online (Sandbox Code Playgroud)
我怎样才能获得以下矢量?
> 26, 34, 21, 29, 20, 28
Run Code Online (Sandbox Code Playgroud)
我能够使用以下内容获得它,但我想应该有一个更优雅的方式
X <- test[1, ]
for (i in 2:dim(test)[ 1 ]){
X <- cbind(X, test[i, ])
}
Run Code Online (Sandbox Code Playgroud) 我使用了以下内容但没有成功.事实上,活动工作簿已关闭,但excel窗口仍保持打开状态.
Application.ActiveWindow.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False
Run Code Online (Sandbox Code Playgroud)
哪个命令终止了应用程序?
编辑
再说一点:在工作簿中打开事件我运行一个宏.我想在宏完成时终止应用程序.我也试过这个没有成功.
Private Sub Workbook_Open()
Macro_MyJob
Application.Quit
End Sub
Run Code Online (Sandbox Code Playgroud)
我应该把这个Application.Quit命令放在哪里?
如果想要apply一个功能,即矩阵的每一行,但也希望将该行的数量用作该函数的参数,该怎么办?例如,假设您想获得矩阵每行中数字的第n个根,其中n是行号.是否有另一种方法(apply仅使用)而不是将行号绑定到初始矩阵,就像这样?
test <- data.frame(x=c(26,21,20),y=c(34,29,28))
t(apply(cbind(as.numeric(rownames(test)),test),1,function(x) x[2:3]^(1/x[1])))
Run Code Online (Sandbox Code Playgroud)
PS实际上,如果测试真的是一个矩阵: test <- matrix(c(26,21,20,34,29,28),nrow=3) ,rownames(测试)没有帮助:(谢谢.
绘制与给定函数对应的曲线的方法是:
fun1 <- function(x) sin(cos(x)*exp(-x/2))
plot (fun1, -8, 5)
Run Code Online (Sandbox Code Playgroud)
如何在同一个图中添加另一个函数的曲线(例如fun2,也由其数学公式定义)?
如何在图表的标题中组合文本和数学表达式.如果我使用粘贴,表达式将转换为字符.例如,我想要这样的东西作为标题
$ ARL_1 $曲线$ S ^ 2 $
谢谢
是否有任何IDE - 来自支持R-的IDE,可以访问命令历史记录(至少对当前会话的命令)?或者有没有办法在R中使用这些命令获取(字符或表达式)向量?
对于那些一直在使用MATLAB的人来说,我的意思是像Command History窗口那样.
谢谢
可能重复:
在R中清除控制台的功能
有没有办法以编程方式调用Clear Console(Ctrl+ L)菜单命令?