diff --git a/Dokumentacja.pdf b/Dokumentacja.pdf index a5c214d..454cada 100644 Binary files a/Dokumentacja.pdf and b/Dokumentacja.pdf differ diff --git a/app/klasyfikator.R b/app/klasyfikator.R index 3b92b26..9103a2a 100644 --- a/app/klasyfikator.R +++ b/app/klasyfikator.R @@ -21,7 +21,7 @@ klasyui <- function(id){ max = 100, value = 1), selectInput("select1",strong("Zaburzenia polykania"),choices = list("Nie"=0,"Tak"=1),selected=0), - selectInput("select2",strong("Ból przy polykaniu"),choices = list("Nie"=0,"Tak"=1),selected=0), + selectInput("select2",strong("Bol przy polykaniu"),choices = list("Nie"=0,"Tak"=1),selected=0), selectInput("select3",strong("Kaszel"),choices = list("Nie"=0,"Tak"=1),selected=0), selectInput("select4",strong("Dusznosci i swiszczacy oddech"),choices = list("Nie"=0,"Tak"=1),selected=0), selectInput("select5",strong("Odkrztuszanie wydzieliny z krwia i chrypka"),choices = list("Nie"=0,"Tak"=1),selected=0), @@ -60,7 +60,7 @@ klasyserver <- function(input, output,session) { } #print(pi*100) z=100-(k+p+pi)/3 - x=c("Rak krtani","Rak piersi","Rak pÅ‚uc","Zdrowy") + x=c("Rak krtani","Rak piersi","Rak pluc","Zdrowy") y=c(k,pi,p,z) d=data.frame(x,y) print(d) @@ -68,7 +68,7 @@ klasyserver <- function(input, output,session) { g=ggplot(d, aes(x,y,fill=x))+ geom_col()+ - labs(x="",y="Prawdopodobieñstwo [%]") + labs(x="",y="Prawdopodobienstwo [%]") ggplotly(g)