dsquintana

library(shiny)
library(synthpop)
library(DT)

ui <- fluidPage(
  titlePanel("Creating synthetic data"),
  sidebarLayout(
    sidebarPanel(
      
      p("This is an application that creates default data synthesis using the 'synthpop' package. Upload some data and inspect the synthesized data. Your file must be in csv format to upload."),

dsquintana

install.packages("europepmc")
install.packages("cowplot")
install.packages("tidyverse")

library(europepmc)
library(cowplot)
library(tidyverse)

hrv_trend <- europepmc::epmc_hits_trend(query = "heart rate variability", 
                                       period = 1978:2018)

dsquintana

install.packages("europepmc")
install.packages("cowplot")
install.packages("tidyverse")

library(europepmc)
library(cowplot)
library(tidyverse)

svb_trend <- europepmc::epmc_hits_trend(query = "sympathovagal balance", 
                                       period = 2008:2021)

dsquintana

library("dlstats")
library("ggplot2")

pack <- cran_stats(c("metafor", "meta", "rmeta", "psychmeta"))

if (!is.null(pack)) {
  print(head(pack))
  ggplot(pack, aes(end, downloads, group=package, color=package)) +
    geom_line() + 
    geom_point() +