library(foreign)
setwd("C:/kursa/turniirid/")

?read.csv
turniir_737734 <- as.matrix(read.csv('turniir_737734_8sept2010.csv', header = FALSE, sep = ","))
turniir_737734

turniir <- turniir_737734

# install package matlib

load(matlib)
powerMethod(turniir_737724)

# eigen() meetod annab antud näitele kompleksarvudega omavektori, seda me ei taha.
# eigen()
ev <- eigen(turniir_737734)
ev
vectors <- ev$vectors
rank(vectors[,1])
rank(vectors[,1])-1

mode(turniir)<-"double"

# qz.dgeev meetod annab antud näitele kompleksarvudega omavektori, seda me ei taha.
# install package QZ
load(QZ)

qz.dgeev(mode(turniir)<-"double"), vl = TRUE, vr = TRUE, LWORK = NULL)
turniir_double <- mode(turniir)<-"double"
omav1 <- qz.dgeev(turniir_737734)