s426228/TakeCareApp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

klasyfikator polish

Browse Source
This commit is contained in:
Rafał Piskorski 2021-01-17 22:37:26 +01:00
commit 77643a111c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Dokumentacja.pdf
View File

Binary file not shown.

6
app/klasyfikator.R
View File

@ -21,7 +21,7 @@ klasyui <- function(id){
max = 100, max = 100,
value = 1), value = 1),
selectInput("select1",strong("Zaburzenia polykania"),choices = list("Nie"=0,"Tak"=1),selected=0), 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("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("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), 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) #print(pi*100)
z=100-(k+p+pi)/3 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) y=c(k,pi,p,z)
d=data.frame(x,y) d=data.frame(x,y)
print(d) print(d)
@ -68,7 +68,7 @@ klasyserver <- function(input, output,session) {
g=ggplot(d, aes(x,y,fill=x))+ g=ggplot(d, aes(x,y,fill=x))+
geom_col()+ geom_col()+
labs(x="",y="Prawdopodobieństwo [%]") labs(x="",y="Prawdopodobienstwo [%]")
ggplotly(g) ggplotly(g)