Nothing
pageWithSidebar(
# Application title
headerPanel("Diagnósticos para la regresión lineal simple"),
sidebarPanel(
radioButtons("type", "Seleccione una tendencia:",
list("Línea ascendente" = "linear.up",
"Línea descendente" = "linear.down",
"Curvado hacia arriba" = "curved.up",
"Curvado hacia abajo" = "curved.down",
"En forma de abanico" = "fan.shaped")),
br(),
checkboxInput("show.resid", "Mostrar residuales", FALSE),
br(),
helpText("En esta aplicación que utilizan mínimos cuadrados ordinarios (MCO) para adaptarse a los datos seleccionados con una línea de regresión.
Está diseñada para ayudarle a practicar, evaluando si el modelo lineal es un ajuste apropiado a los datos.
Las tres parcelas de diagnóstico en la mitad inferior de la página son producidas para ayudarle a identificar patrones indeseables
en los residuos que puedan derivarse de las tendencias no lineales en los datos."),
br(),
helpText("Para saber más sobre regresión lineal leer ",
a(href="http://es.wikipedia.org/wiki/Regresi%C3%B3n_lineal", target="_blank", "esto,"),
" Y recuerda visitar la página de", a(href="http://www.inegi.info/sofi", target="_blank", "Sofi.")),
br(),
helpText(a(href="https://duke.qualtrics.com/SE/?SID=SV_3L8WjmwQo32cVk9", target="_blank", "Rate this app!")),
helpText(a(href="https://github.com/ShinyEd/ShinyEd/tree/master/slr_diag", target="_blank", "View code")),
helpText(a(href="http://stat.duke.edu/~mc301/shiny/applets.html", target="_blank", "Check out other apps")),
helpText(a(href="https://www.coursera.org/course/statistics", target="_blank", "Want to learn more for free?"))),
# Show the main display
mainPanel(
plotOutput("scatter"),
br(),
br(),
plotOutput("residuals")
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.