我使用以下R代码(利用Java参数来增加内存):
library(xlsx)
options(java.parameters = "-Xmx1g")
library(XLConnect)
NiVe <- read.xlsx("version1.xlsx",1)
该version1.xlsx文件大小为13 MB.我收到以下错误:
Error in .jcall("RJavaTools", "Ljava/lang/Object;", "invokeMethod", cl, :
java.lang.OutOfMemoryError: Java heap space
有人可以帮忙吗？
我需要像这样运行一个sed命令作为shell脚本的一部分
sed's/brad/pitt/g'
我应该提供brad作为命令行参数并运行这样的命令
sed s/$ 1/pitt/g
虽然这个命令正在运行,但我想知道的是如何在不删除引号的情况下执行此命令,因为我可能在替换字符串中有一些需要引号的内容.
我对引号不太自信,这就是为什么我想通过一些调整来看看事情是如何工作的？
我有一个带有水平图例的情节:
legend("bottomleft", inset = c(0, -0.3), bty = "n",
x.intersp=0, xjust=0,yjust=0,
legend=c("AAPL", "Information Technology",
"Technology Hardware and Equipment", "S&P 500"),
col=c("black", "red", "blue3", "olivedrab3"),
lwd=2, cex = 0.5, xpd = TRUE, ncol = 4)
问题是图例的第一项"AAPL"和第二项"信息技术"之间存在巨大的间距.
我尝试使用调整间距txt.width(),但它根本不起作用.或者我可能没有按照指示使用此选项.这就是我在txt.width内部引入选项的方法legend():
txt.width = c(2,1,1)
我不确定它是否相关,但我的x轴是日期轴!
有没有一种简单的方法来自定义图例中文本之间的空格？
谢谢!
我正在制作我的第一个闪亮的应用程序,并且无法链接外部.css文件.我已经看过一些教程和参考文献,人们已经解释了如何做,甚至展示了示例代码,但我没有运气.我见过它的大部分例子都使用了有光泽的UI或fluidPage函数,就像这样使用主题:
shinyUI(fluidPage(theme = "bootstrap.css",
headerPanel("New Application"),
sidebarPanel(
sliderInput("obs", "Number of observations:",
min = 1, max = 1000, value = 500)
),
mainPanel(plotOutput("distPlot"))
)
)
或者这个使用tags$link:
shinyUI(fluidPage(
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "bootstrap.css")
),
headerPanel("New Application")
)
)
或使用 includeCSS
我fluidPage没有使用有光泽的UI而单独使用,但没有一个选项有效.我已经确认我的工作目录和app-Directory是我认为应该的位置,并且包含保存.css文件的"www"子目录.唯一有效的是我tags$style在我的内部添加一个和一个HTMLtags$head:
fluidPage(
tags$head(
tags$style(
HTML(
"h1 {color:purple;}
.blue-item {color:blue;}
#dark {color:navy;}"
)
)
)
)
但它没有解决问题,因为我没有将CSS样式表与此命令链接,因此我不会更改我的应用程序的外观.
我正在尝试创建此解决方案的更简约版本,这需要在表单中指定公式的RHS d1 + d1:d2.
鉴于*在公式的上下文是一个精辟的替身充分互动(即d1 * d2给出了d1 + d2 + d1:d2),我的方法是尝试和定义代替负责人,说%+:%使用中缀方法,我已经习惯于在其他应用中,一拉:
"%+:%" <- function(d1,d2) d1 + d2 + d1:d2
然而,这可以预见失败,因为我没有注意评估; 让我们举一个例子来说明我的进展:
set.seed(1029)
v1 <- runif(1000)
v2 <- runif(1000)
y <- .8*(v1 < .3) + .2 * (v2 > .25 & v2 < .8) -
.4 * (v2 > .8) + .1 * (v1 > .3 & v2 > .8)
通过这个例子,希望很清楚为什么简单地写出这两个术语可能是不可取的:
y ~ cut(v2, breaks = c(0, .25, …我有一个矩阵,其中每行至少有一个NA单元格,每列也至少有一个NA单元格.我需要的是找到不包含NA的该矩阵的最大子集.
例如,对于这个矩阵 A
A <-
structure(c(NA, NA, NA, NA, 2L, NA,
1L, 1L, 1L, 0L, NA, NA,
1L, 8L, NA, 1L, 1L, NA,
NA, 1L, 1L, 6L, 1L, 3L,
NA, 1L, 5L, 1L, 1L, NA),
.Dim = c(6L, 5L),
.Dimnames =
list(paste0("R", 1:6),
paste0("C", 1:5)))
A
C1 C2 C3 C4 C5
R1 NA 1 1 NA NA
R2 NA 1 8 1 1
R3 NA 1 NA 1 5
R4 NA 0 1 6 1
R5 2 NA 1 1 …一直在尝试更改DT生成的表中所有文本的字体大小.但是,我只能弄清楚如何使用更改记录的大小
formatStyle(names(datCalc), fontSize = '12px').列标题和按钮具有相同大小的文本.在RStudio中使用R Markdown.
我试图用Zeppelin在Spark ML中建立一个模型.我是这个领域的新手,想要一些帮助.我想我需要将正确的数据类型设置为列并将第一列设置为标签.非常感谢任何帮助,谢谢
val training = sc.textFile("hdfs:///ford/fordTrain.csv")
val header = training.first
val inferSchema = true
val df = training.toDF
val lr = new LogisticRegression()
.setMaxIter(10)
.setRegParam(0.3)
.setElasticNetParam(0.8)
val lrModel = lr.fit(df)
// Print the coefficients and intercept for multinomial logistic regression
println(s"Coefficients: \n${lrModel.coefficientMatrix}")
println(s"Intercepts: ${lrModel.interceptVector}")
我正在使用的csv文件的片段是:
IsAlert,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2
0,34.7406,9.84593,1400,42.8571,0.290601,572,104.895,0,0,0,
我正在努力设置knitr.我在Windows 7 Enterprise盒子上安装了最新版本的R(2.15.1),Lyx 2.0,包括MiKTex 2.9发行版和RStudio 0.96.304.如果我打开Lyx并只是查看教程,我可以获得pdflatex输出,因此基本系统正在运行.然后我下载了最小的Rnw示例,将其保存在我的工作目录中作为testknitr.Snw,在RStudio中打开该文件,然后按下编译PDF按钮.knitr输出完成一个关于解析器包的警告,并生成一个文件testknitr.tex.然后pdflatex.exe运行,但失败,并且日志文件中的特定错误似乎是
! LaTeX Error: Environment alltt undefined.
尝试使用TexWorks编译testknitr.tex时收到了同样的错误.我使用knit("testknitr.Rnw")从R内部创建了该文件 - 由于RStudio中的默认值而不同的扩展名.我确实告诉MikTek在编译时自动更新包.对CTAN的一些研究表明,alltt环境是ltxbase软件包的一部分,在我查看软件包管理器时会安装它.事实上,它似乎是整个事情的核心部分!
好的 - 我正在阅读最小示例页面上的注释,并发现了该问题的解决方法,并且它是19小时前的已知错误.是的,我认为RStudio设置为使用knitr,而不是sweave.我现在得到一个新错误:
! LaTeX Error: Command \textquotesingle unavailable in encoding T1.
编辑:好的!事实证明,错误并不是致命的 - 如果需要时间来查看,那么可以在工作目录中找到最小例子的可爱pdf.RStudio认为编译失败时有点令人担忧吗？