TakeCareApp/.Rhistory
2021-01-19 23:04:09 +01:00

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')