This is a test post.

# R code highlite test
library(dplyr)
iris %>%
  summarize(Mean.Sepal.Length = mean(Sepal.Length), .by = Species)
f <- function(x) sum(dbinom(x, size = 10, prob = 0.5, log = TRUE))
// Rust code highlite test
fn main() {
  println!("Hello world!");
}