Skip to content

Instantly share code, notes, and snippets.

View vlgul's full-sized avatar
🏦
Working from office

V. Santiago vlgul

🏦
Working from office
  • GARBAG
  • 20:46 (UTC -07:00)
View GitHub Profile
# initialization
par(mar=c(3,3,3,3))
num <- 0 ;
num1 <- 0
plot(0,0 , xlim=c(0,21) , ylim=c(0.5,6.5), col="white" , yaxt="n" , ylab="" , xlab="")
#fill the graph
for (i in seq(1,20)){
points(i,1 , pch=i , cex=3)
points(i,2 , col=i , pch=16 , cex=3)
@vlgul
vlgul / app.R
Last active March 2, 2024 03:10 — forked from dian161/app.R
Fibonacci Number Shiny App
library(shiny)
ui<-fluidPage(
titlePanel("Fibonacci"),
sidebarLayout(
sidebarPanel(
helpText("Print the Fibonacci Number and it's inverse."),
sliderInput('n', label="Number n for fibonacci:", min=0, max=40, value=5)
),
@vlgul
vlgul / app.R
Last active May 23, 2024 04:59
Practica App Shiny
library(shiny)
library(reactR)
library(shinydashboard)
library(shinydashboardPlus)
ui <- dashboardPage(
dashboardHeader(title = "Mi página web responsiva"),
dashboardSidebar(
sidebarMenu(