Hello @LEK ,
I do not understand why you say "Hopefully this code will work for you".
You did not try to run the code yourself? When you did I should expect that you would see
the error message in the render panel in RStudio:
processing file: LEK.Rmd
(*) NOTE: I saw chunk options "Welch's_T-Test"
please go to Options - Chunk options and package options - Yihui Xie | 谢益辉
(it is likely that you forgot to quote "character" options)
Error in parse(text = code, keep.source = FALSE) :
:1:15: unexpected symbol
1: alist( 'Welch's_T
^
Calls: ... parse_params -> withCallingHandlers -> eval -> parse_only -> parse
Execution halted
You still have the quote in chunkname for the Welch's T-Test . Remove it.
The easiest way to avoid these problems is by using names without spaces and quotes.
I understand that you want to give your sections well readable identifications.
For that I would use the (sub-) title facility by using one or more "#" in the text (outside the code chunk).
As an example:
### Welch's T-Test
In this section blabla ...
```{r Welch_T-Test}
t.test(c1rrscal~p1disabl,data=ecls, var.equal=F)
```
Full example below with:
- your code
- corrected chunknames
- added subtitle (for Welch test only)
- an
ecls table generated by me (instead of the one read from txt file)
In the resulting word-file I see that the plots will have to be fine-tuned 
---
title: "2.22.22 T6"
author: "LEK"
date: "2/22/2022"
output: word_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r Reading_Code}
library(dplyr)
#ecls=read.table("ecls200.txt",header=TRUE)
set.seed(2022)
ecls = data.frame(
p1disabl = rep(c(1,2),times=3),
c1rrscal = runif(6)
)
ecls$p1disabl=recode(ecls$p1disabl, "1"="Disability","2"="No Disability")
table(ecls$p1disabl)
```
```{r Histogram}
library(ggplot2)
ggplot(ecls,aes(x=c1rrscal))+
geom_histogram(aes(y=..density..),colour=1,binwidth=2.5,fill="white")+
geom_density()+facet_grid(p1disabl~.)+xlab("Reading Test Score")+
ylab("Frequency")+
ggtitle("Standardized Scores Among Disabled and Not Disabled Kindergarteners")
```
```{r Boxplot}
library(ggplot2)
ggplot(ecls, aes(x=p1disabl, y=c1rrscal)) +
geom_boxplot(width=.5) +
coord_flip()+xlab("Reading Test Score")+ylab("Frequency")+
ggtitle("Standardized Scores Among Disabled and Not Disabled Kindergarteners")
```
# Welch's T-Test
In this section blabla ...
```{r Welch_T-Test}
t.test(c1rrscal~p1disabl,data=ecls, var.equal=F)
```
```{r Wilcoxon_Rank-Sum_Test}
w=wilcox.test(c1rrscal~p1disabl,data=ecls,conf.int=T)
w
```
```{r Generating_Mean_and_Median}
ecls %>% group_by(p1disabl) %>% summarize(mean=mean(c1rrscal),
median=median(c1rrscal))
```