Plenário Slides

Interatividade

Slides interativos

Simulações em OJS e R rodando no navegador com webR

Felipe Lamarca

IESP-UERJ

26 de setembro de 2026

Duas formas de interagir

OJS · Observable JavaScript

Simulações com sliders, desenhadas com Observable Plot. Rodam instantaneamente e também aparecem no PDF, no estado inicial.

webR · R no navegador

Células de R editáveis durante a aula, sem instalar nada. O primeiro carregamento baixa o R compilado para WebAssembly.

Os dois dispensam servidor: o deck continua sendo um arquivo estático no GitHub Pages.

01Simulações em OJS

OJSRegressão com ruído

import {palette, plotStyle, rng, ols, fmt} from "/_extensions/felipelmc/plenario/ojs/notes.js"
pal = palette()
viewof n = Inputs.range([20, 500], {value: 80, step: 10, label: "observações"})
viewof ruido = Inputs.range([0.2, 3], {value: 1, step: 0.1, label: "desvio do erro"})
dados = {
  const r = rng(7);
  return Array.from({length: n}, () => {
    const x = r.normal(0, 1);
    return {x, y: 1 + 0.8 * x + r.normal(0, ruido)};
  });
}
coef = ols(dados.map(d => [d.x]), dados.map(d => d.y))
Plot.plot({
  style: plotStyle, width: 1050, height: 360, marginLeft: 50,
  x: {domain: [-3.5, 3.5], label: "x"}, y: {domain: [-6, 8], label: "y"},
  marks: [
    Plot.dot(dados, {x: "x", y: "y", r: 4, fill: pal.accent, fillOpacity: 0.5}),
    Plot.line([[-3.5, 1 - 0.8 * 3.5], [3.5, 1 + 0.8 * 3.5]], {stroke: pal.ink3, strokeDasharray: "6,5"}),
    Plot.line([[-3.5, coef[0] - coef[1] * 3.5], [3.5, coef[0] + coef[1] * 3.5]], {stroke: pal.danger, strokeWidth: 3})
  ]
})

Linha tracejada: o modelo verdadeiro (inclinação 0,8). Em vermelho, a reta estimada: inclinação .

OJSDistribuição amostral da média

viewof tamanho = Inputs.range([2, 200], {value: 10, step: 1, label: "tamanho da amostra"})
medias = {
  const r = rng(11);
  return Array.from({length: 2000}, () => {
    let s = 0;
    for (let i = 0; i < tamanho; i++) s += r.exponential(1);
    return s / tamanho;
  });
}
Plot.plot({
  style: plotStyle, width: 1050, height: 380, marginLeft: 60,
  x: {domain: [0, 3], label: "média de amostras de uma exponencial"}, y: {label: "frequência"},
  marks: [
    Plot.rectY(medias, Plot.binX({y: "count"}, {x: d => d, fill: pal.accent, thresholds: 60})),
    Plot.ruleX([1], {stroke: pal.ink, strokeDasharray: "4,4"}),
    Plot.ruleY([0], {stroke: pal.lineStrong})
  ]
})

02R no navegador

webRUma célula editável

Clique em Run Code; edite e rode de novo O primeiro carregamento leva alguns segundos

webRGráficos em R

Obrigado!

Felipe Lamarca

felipelamarca.com

github.com/felipelmc/Slides-Template