在AucTeX中,编辑逐项列表时:
\begin{itemize}
\item My item % note to self
\end{itemize}
当我在"自我"之后做Cc Cj时,我得到:
\begin{itemize}
\item My item % note to self
% \item
\end{itemize}
当我想要的时候:
\begin{itemize}
\item My item % note to self
\item
\end{itemize}
是否有可以修改的设置以使其正常工作？
我在R中有一个数据框,结构如下.
> testData
date exch.code comm.code oi
1 1997-12-30 CBT 1 468710
2 1997-12-23 CBT 1 457165
3 1997-12-19 CBT 1 461520
4 1997-12-16 CBT 1 444190
5 1997-12-09 CBT 1 446190
6 1997-12-02 CBT 1 443085
....
77827 2004-10-26 NYME 967 10038
77828 2004-10-19 NYME 967 9910
77829 2004-10-12 NYME 967 10195
77830 2004-09-28 NYME 967 9970
77831 2004-08-31 NYME 967 9155
77832 2004-08-24 NYME 967 8655
我想要做的是生成一个表格,显示给定日期和商品的每个交换代码的总oi.因此,行将由行组成
unique(testData$date)
而列将是
unique(testData$comm.code)
并且每个单元格将是给定日期所有exch.codes的总oi.
谢谢,
在Emacs中,我正在处理一个文本文档,从unicode明文转换为LaTeX.
例如,我想运行几组正则表达式
M-x replace-string ± RET \pm RET
M-x replace-string µ RET \textmu
如何保存这些正则表达式,以便我可以重复运行它们？
谢谢
说我有一个功能交给我,我无法改变,必须按原样使用.此函数以形式获取多个对象
oldFunction( object1, object2, object3, ...)
其中......是其他论点.我想写一个包装器来获取对象列表.我的想法是这样的.
sjb.ListWrapper <- function(myList,...) {
lLen <- length(myList)
myStr <- ""
for( i in 1:lLen) {
myStr <- paste(myStr, "myList[[", i , "]],",sep="")
}
myCode <- paste("oldFunction(", myStr, "...)")
eval({myCode})
}
但问题是我想从Sweave中使用它,我需要打印oldFunction的输出.这样做的正确方法是什么？
谢谢.
在Emacs中编辑Rnw文件时,我经常想让该区域覆盖一个包含R块的文本块.举个简单的例子,
ewr
<<>>=
@
wer
我使用瞬态标记模式,以突出显示该区域.但是,如果我把点放在第一行并点击C-SPC,然后使用Cn将点向下移动,当我试图超越<<时,突出显示消失.我想要的区域仍然被选中,但是当突破<<时,突出显示似乎失败了.我怎样才能解决这个问题？
谢谢和最好的问候
我在Haskell中使用Numeric.Integration.TanhSinh进行数值积分.这定义了一个函数
parTrap :: (Double -> Double) -> Double -> Double -> [Result]
其中第一个参数是要集成的1维函数,然后是上限和下限.我有一个包装器,将此功能转换为
ttrap f xmin xmax = (ans, err)
where
res = absolute 1e-6 $ parTrap f xmin xmax
ans = result res
err = errorEstimate res
为了集成二维功能,我可以使用
ttrap2 f y1 y2 g1 g2 = ttrap h y1 y2 -- f ylower yupper (fn for x lower) (fn for x upper)
where
h y = fst $ ttrap (flip f y) (g1 y) (g2 y)
ttrap2_fixed f …我有一个简单的函数Control.Monad.Random用于创建一个可以对随机数进行采样的函数.
import Control.Monad.Random
import Data.Random
unif_bound :: (RandomGen g, Monad m) => Double -> Double -> RandT g m Double
unif_bound lb ub = getRandomR (lb,ub)
并且,我运行此操作以在GHCI中生成随机数:
> gen <- newStdGen
> runRandT (unif_bound 1.0 3.0) gen
(1.7569726469904563,1700403094 44073136)
> runRandT (unif_bound 3.0, 1.0) gen
(1.7569726469904563,1700403094 44073136)
但是,我想修改此代码以检查它lb < ub,并将其包装在MaybeT中.这个想法是抽样lb > ub应该返回的地方Nothing.我意识到这是monad变形金刚进来的地方,但我之前从未使用过,也不知道从哪里开始.
供参考,RandT定义为
-- | A monad transformer which adds a random number generator to an
-- existing monad.
newtype …我有一个数据框,其中包含有关此类选项的信息
> chData
myIdx strike_price date exdate cp_flag strike_price return
1 8355342 605000 1996-04-02 1996-05-18 P 605000 0.002340
2 8355433 605000 1996-04-02 1996-05-18 C 605000 0.002340
3 8356541 605000 1996-04-09 1996-05-18 P 605000 -0.003182
4 8356629 605000 1996-04-09 1996-05-18 C 605000 -0.003182
5 8358033 605000 1996-04-16 1996-05-18 P 605000 0.003907
6 8358119 605000 1996-04-16 1996-05-18 C 605000 0.003907
7 8359391 605000 1996-04-23 1996-05-18 P 605000 0.005695
其中cp_flag表示某个选项是call或put.有什么方法可以确保每个日期都有一个调用和一个put,并删除不存在的行？我可以用for循环来做,但是有更聪明的方法吗？
我正在研究的项目的一部分涉及使用Pandoc创建PDF.我有程序的一部分制作PDF.为了弄清楚如何做到这一点,我试图fuel.hs从JGM BayHack 2014进行修改.
但是,我遇到了困难.我有以下功能:
export :: (MonadIO m) => Pandoc -> m (Either BL.ByteString BL.ByteString)
export = liftIO . makePDF "xelatex" writeLaTeX def { writerStandalone = True }
在我修改的fuel.hs的正文中,
pdfbytes <- export letter
print pdfbytes
我得到以下输出:
$ stack runghc fuel.hs
Run from outside a project, using implicit global project config
Using resolver: lts-3.7 from implicit global project's config file: /home/stevejb/.stack/global/stack.yaml
Left "! Emergency stop.\n<*> /tmp/tex2pdf.8283/input.tex\n \nNo pages of output.\nTranscript written on /tmp/tex2pdf.8283/input.log.\n"
"Fail"
但是,正在引用的日志文件不存在.我不知道如何调试这个.我安装了xelatex.
假设我有可索引的数据X和Y的来源,比如说矩阵.我想运行一组独立的回归并存储结果.我最初的做法是
results = matrix(nrow=nrow(X), ncol=(2))
for(i in 1:ncol(X)) {
matrix[i,] = coefficients(lm(Y[i,] ~ X[i,])
}
但是,循环很糟糕,所以我可以用lapply来做
out <- lapply(1:nrow(X), function(i) { coefficients(lm(Y[i,] ~ X[i,])) } )
有一个更好的方法吗？