James A Campbell

@rtbecard.bsky.social

(he/him) Former bird dude, current fish guy; currently based in Berlin. I'm into ecology, stats, bioacoustics, and artificial light. Currently working as part of this ETN: https://www.msca-ribes.eu/

Plots with variable scale factors and constant size.

```{r, fig.width=2, fig.height=2}
plot(pressure)
```
```{r, fig.width=2, fig.height=2, scale = 0.5}
plot(pressure)
```

Finally, indexing can be done with the special keywords fs and last. fs will be substituted fro the sample rate and last will give the final sample in the signal.
```{r}
# Extract last 0.5 seconds of data from the pressure channel
head(sig[(last-fs*0.5):last, "p"])
```
See ?Signal for a detailed overview with examples on how indexing works.

$Screenshot of codeblock: # Set chunk hook # This will automatically adjust the figure parameters for you knitr::opts_hooks$set(fig_scale = function(options) { # Calculate out_width out_width <- sprintf("%.fin", options[["fig.width"]]) fig_width <- options[["fig.width"]]/options[["scale"]] fig_height <- options[["fig.height"]]/options[["scale"]] # Store chunk options options$out.width = out_width options$fig.height = fig_height options$fig.width = fig_width return(options) }) # Set figure scaling hook knitr::opts_chunk$set(scale = 0.8, fig_scale = TRUE) # Set random seed for reproducible plots set.seed(1)$