Its obviously AI, as both pre-prints are on ridiculously niche topics that I struggle to get others in my field interested in 🤣 and I got this messages within a day after the pre-prints went up.
Also, there is an AI company called Primary that seems to deal in AI generated news 🙄.
![```{r setup, include=FALSE}
# Set chunk hook
# This will automatically adjust the figure parameters for you
knitr::opts_hooks$set(fig_scale = function(options) {
# --- Store out_width
# HTML and latex output require different units
out_width <- switch(knitr::opts_knit$get("rmarkdown.pandoc.to"),
# html requires pixels
"html" = sprintf("%ipx", options[["fig.width"]] * options[["dpi"]]),
# Latex requires inches
"latex" = sprintf("%.fin", options[["fig.width"]])
)
# Calculate new fig width and height values
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 the modified options
return(options)
})
# Set figure scaling hook for following chunks
knitr::opts_chunk$set(scale = 0.8, fig_scale = TRUE)
```](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:jj7aoaxve4jvjyvunvuq34d4/bafkreiglft3h7m7z5y5c7dtauq3p3e5764ukukvruxv4th7l2ywqcpxsry)
![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.](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:jj7aoaxve4jvjyvunvuq34d4/bafkreifdyvhjsll27x4imwaxshp2dlti3etu5a22meoudx272kq4tr4bji)
![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)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:jj7aoaxve4jvjyvunvuq34d4/bafkreicm55eac6x3rorjdjkloydx6ffovhox5q7uyjiwdomlfedhbevita)
