a <- c(3,4,2,0,0,3,1,5,2,0,1,1,1,0,1,1,5,1,5,2,8,2,1,1,1,3,0,3)
b <- matrix(a, nrow = 4, ncol = 7)
print(b)
d_iris <- dist(b)
hc_iris <- hclust(d_iris, method = "complete")
print(hc_iris)
dend <- as.dendrogram(hc_iris)
plot(dend,
     main = "Hierarchiczna klasyfikacja słow",
     horiz = TRUE, nodePar = list(cex = .007))
wa <- b[,4] #pierwsza kolumna 1=a itp
wb <- b[,5] #druga kolumna
print(wa)
print(wb)
minWa <- min(wa)
minWb <- min(wb)
sumMinWa<- minWa+minWb
print(sumMinWa)
maxWa <- max(wa)
maxWb <- max(wb)
sumMin<- minWa+minWb
sumMax<-maxWa + maxWb
print(sumMin)
print(sumMax)
print(sumMin/sumMax)