3
나는 R 코드를 삽입하고 작성하는 텍스트로 knitr을 사용하고 있습니다. 내 교과서에서는 어두운 회색 배경의 R 코드를 먼저 작성한 다음 밝은 배경의 다음 청크에서 R 코드를 실행합니다.니트로 루트 환경 후에 동일한 수직 공간 확보
<<eval = F, background = "gray90">>=
2+2
@
\vspace{-.6cm}
<<eval = T, echo = F, background = "gray95">>=
2+2
@
내가 두 덩어리 사이의 간격이 작게 만들 \vspace{-.6cm}를 사용 : 나는 기본적으로 다음을 수행합니다.
그러나 이것은 현재 페이지에있는 텍스트, 이미지 등의 영향을 받기 때문에 동일한 수직 간격을 보장하지 않습니다.
아래 스크린 샷은이 문제를 보여줍니다.
처음 두 덩어리
가에 의해 만들어진 :<<eval = F, background = "gray90">>=
cor(latent_est)
@
\vspace{-.6cm}
<<eval = T, echo = F, background = "gray95">>=
cor(latent_est)
@
마지막 두 덩어리했다 :
<<eval = F, background = "gray90">>=
rmsd(latent_est$MLE, latent_est$MAP)
rmsd(latent_est$MLE, latent_est$EAP)
rmsd(latent_est$MAP, latent_est$EAP)
@
\vspace{-.6cm}
<<eval = T, echo = F, background = "gray95">>=
rmsd(latent_est$MLE, latent_est$MAP)
rmsd(latent_est$MLE, latent_est$EAP)
rmsd(latent_est$MAP, latent_est$EAP)
@
나는 이것이 아마 수직 삽입하는 가장 좋은 방법은 아니라는 것을 알고 공간이 있지만 청크 후 동일한 세로 공간을 일관되게 추가하는 방법이 있는지 궁금합니다.
다음은이를 재생산 한 예입니다. 이번에는 \section{}이 수직 간격을 어지럽 힌다. 청크 이후에 항상 간격을 동일하게 유지하려면 어떻게해야합니까?
\documentclass{article}
\usepackage[english]{babel}
\usepackage{blindtext}
\begin{document}
% Misbehaving chunks!
\begin{equation}
RMSD=\sqrt{\frac{\sum_{j=1}^{N}(\hat{\theta}_{1j}-\hat{\theta}_{2j})^2}{N}},
\end{equation}
\blindtext
<<eval = F, background = "gray90">>=
ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2, 10, 20, labels = c("Ctl","Trt"))
weight <- c(ctl, trt)
lm.D9 <- lm(weight ~ group)
summary(lm.D9)
@
\vspace{-.6cm}
<<eval = T, echo = F, background = "gray95">>=
ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2, 10, 20, labels = c("Ctl","Trt"))
weight <- c(ctl, trt)
lm.D9 <- lm(weight ~ group)
summary(lm.D9)
@
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
\section{Model Diagnostics}
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
\newpage
% Correct chunks!
\begin{equation}
RMSD=\sqrt{\frac{\sum_{j=1}^{N}(\hat{\theta}_{1j}-\hat{\theta}_{2j})^2}{N}},
\end{equation}
\blindtext
<<eval = F, background = "gray90">>=
ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2, 10, 20, labels = c("Ctl","Trt"))
weight <- c(ctl, trt)
lm.D9 <- lm(weight ~ group)
summary(lm.D9)
@
\vspace{-.6cm}
<<eval = T, echo = F, background = "gray95">>=
ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2, 10, 20, labels = c("Ctl","Trt"))
weight <- c(ctl, trt)
lm.D9 <- lm(weight ~ group)
summary(lm.D9)
@
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
\end{document}
