Simon/EACompanion
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Chapter 6 figure refinements #1

Merged
Simon merged 2 commits from chapter-update into main 2026-08-20 10:07:14 +00:00
Conversation 0 Commits 2 Files changed 2 +5 -5
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 6613da3b6e - Show all commits

10
Chapter_6.Rmd
View file

@ -30,7 +30,7 @@ rownames(dt) <-
"Kyakki W",
"Shoptlu",
"Hawwik B",
"Te\\'alla",
"Te\'alla",
"Site X",
"Tetlnat"
)
@ -51,7 +51,7 @@ for (s in seq_len(series_col)) {
ylim = c(0.5, n_phase + 0.5),
axes = FALSE,
xlab = "Width = relative frequency (%)",
ylab = ifelse(s == 1, "Phase", ""),
ylab = "",
main = colnames(dt)[s]
)
@ -71,15 +71,15 @@ for (s in seq_len(series_col)) {
}
if(s==1)
text(-(max(dt_pct[,s]/2)),seq((0.55+1.45)/2, (0.55+1.45)/2*n_phase ,length.out=n_phase),phase_labels,pos=2,font=2,,cex=2)
text(-(max(dt_pct[,s]/2)),seq((0.55+1.45)/2, (0.55+1.45)/2*n_phase ,length.out=n_phase),phase_labels,pos=2,font=2,cex=1.2)
}
```
A more common wa to represent tht would be to plot the freuecny through time, using
```{r}
matplot(cbind(1:nrow(dt) ,1:nrow(dt) ,1:nrow(dt)) ,dt,type="l",lwd=3,col=ship_cols,lty=1)
matplot(cbind(1:nrow(dt) ,1:nrow(dt) ,1:nrow(dt)) ,dt,type="l",lwd=3,col=ship_cols,lty=1,ylab="frequency",xlab="time")
```
This should remind you of the plot about chnges in allele frquency seen in Chapter 3, we will see later how we cna use these describption of the dt to test hypothese about the cultural transmission process
This should remind you of the plot about changes in allele frequency seen in Chapter 3, we will see later how we can use these describption of the data to test hypothese about the cultural transmission process.