교수님, 항상 감사합니다.

그런데 말씀하신 대로 {r, results='asis'}만 넣으면 전과 동일하게 나오고,

---

title: "Project A"

author: "Noob"

date: "8/22/2019"

output:

  html_document: default

  pdf_document:

    includes:

      in_header: header.tex

  word_document: default

---

```{r}

knitr::opts_chunk$set(echo = TRUE)

```

## Brief Method

Anti-Ly-6G antibody injection.

```{r}

library(moonBook)

library(ztable)

library(dplyr)

library(magrittr)

```

```{r}

setwd("~/Data/Statistics/R/Project/Leukopenia")

```

```{r}

Ly6G <- read.csv("Ly6G-data.csv", na.strings = c("NA","#N/A"), stringsAsFactors = FALSE, header = TRUE)

```

```{r}

summary(Ly6G)

```

```{r, results='asis'}

```

```{r}

Ly6G$Group1 = factor(Ly6G$Group, levels = c("Placebo", "Anti-Ly-6G"))

z <- mytable(Group ~ TTO + Area + Length, data = Ly6G, method = 1, digits = 1, exact =  TRUE, catMethod = 2, max.ylev = 0)

zt <- ztable(z, caption = "Table 1. All animals.", cgroup = c("Placebo", "Anti-Ly-6G")) %>%

     addSigColor(level = 0.05, bg = "yellow", color = "red")

print(zt, type = "html")

```

print.ztable(zt, type = "html")까지 넣으면 아래와 같은 오류가 납니다.

Error in print.ztable(zt, type = "html") : 
  could not find function "print.ztable"
Calls: <Anonymous> ... handle -> withCallingHandlers -> withVisible -> eval -> eval
Execution halted

어떻게 해보면 좋을까요?

공부하는 중이라 하나씩 해보고 있는데, 어느 쪽도 안 되어서요....

이번에는 html로 출력하려던 것이었습니다.