Reposted by James A Campbell
Quick oceans update: yah, sea surface temperatures remain in new territory this year.
See more at zacklabe.com/climate-chan.... This data (extrapolar ocean) is provided by @copernicusecmwf.bsky.social ERA5. 🌊
James A Campbell
@rtbecard.bsky.social
1.8K followers 1K following 443 posts
(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: www.msca-ribes.eu
![```{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)
