296 lines
11 KiB
R
296 lines
11 KiB
R
|
shiny::runApp('ap1')
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
p("Shiny jest dostpny w repozytorium CRAN, wiec mozesz zainstalowac go w zwykly sposob z konsoli R:"),
|
||
|
|
code("install.packages(\"shiny\")"),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
img(src = "rstudio.png", height = 60, width = 200),
|
||
|
|
p("Shiny jest produktem",span("RStudio", style = "color:red"))
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
h1("Wprowadzenie do Shiny", align = "left"),
|
||
|
|
p("Shiny jest nowym pakietem RStudio, ktory",em("bardzo ulatwia"),"tworzenie interaktywnych aplikacji internetowych w R."),
|
||
|
|
br(),
|
||
|
|
p("Duzo informacji i przykladow znajduje sie na",a("stronie Shiny."),""),
|
||
|
|
br(),
|
||
|
|
br(),
|
||
|
|
h2("Ficzery"),
|
||
|
|
p("-Tworz uzyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomosc JavaScriptu"),
|
||
|
|
p("-Aplikacje Shiny aktualizuja sie tak samo" ,strong("szybko"),"jak arkusze danych np. Excel. Wyniki zmieniaja sie natychmiast - gdy uzytkownicy modyfikuja dane wejsciowe, nie ma koniecznosci ponownego przeladowania strony.")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
server <- function(input, output) {
|
||
|
|
}
|
||
|
|
shinyApp(ui = ui, server = server)
|
||
|
|
runApp('ap1')
|
||
|
|
shiny::runApp('C:/Users/plalj/Desktop/TakeCareApp/app')
|
||
|
|
# summarize accuracy
|
||
|
|
table(predictions, iris$Species)
|
||
|
|
library(VGAM)
|
||
|
|
# load data
|
||
|
|
data(iris)
|
||
|
|
# fit model
|
||
|
|
fit <- vglm(Species~., family=multinomial, data=iris)
|
||
|
|
# summarize the fit
|
||
|
|
summary(fit)
|
||
|
|
# make predictions
|
||
|
|
probabilities <- predict(fit, iris[,1:4], type="response")
|
||
|
|
predictions <- apply(probabilities, 1, which.max)
|
||
|
|
predictions[which(predictions=="1")] <- levels(iris$Species)[1]
|
||
|
|
predictions[which(predictions=="2")] <- levels(iris$Species)[2]
|
||
|
|
predictions[which(predictions=="3")] <- levels(iris$Species)[3]
|
||
|
|
# summarize accuracy
|
||
|
|
table(predictions, iris$Species)
|
||
|
|
# load the package
|
||
|
|
library(MASS)
|
||
|
|
data(iris)
|
||
|
|
# fit model
|
||
|
|
fit <- lda(Species~., data=iris)
|
||
|
|
# summarize the fit
|
||
|
|
summary(fit)
|
||
|
|
# make predictions
|
||
|
|
predictions <- predict(fit, iris[,1:4])$class
|
||
|
|
# summarize accuracy
|
||
|
|
table(predictions, iris$Species)
|
||
|
|
# fit model
|
||
|
|
fit <- lda(Species~., data=iris)
|
||
|
|
fit
|
||
|
|
# summarize the fit
|
||
|
|
summary(fit)
|
||
|
|
# make predictions
|
||
|
|
predictions <- predict(fit, iris[,1:4])$class
|
||
|
|
predictions
|
||
|
|
# summarize accuracy
|
||
|
|
table(predictions, iris$Species)
|
||
|
|
shiny::runApp('C:/Users/plalj/Desktop/TakeCareApp/app')
|
||
|
|
setwd("C:/Users/plalj/Desktop/TakeCareApp")
|
||
|
|
shiny::runApp('app')
|
||
|
|
runApp('app')
|