##Polaarkoordinaatide teisendusfunktsioonid ringy ja ringx #vastavalt nurkade arvule n ja hulgnurga nurkade kaugusele r #arvutatakse välja x- ja y-koordinaadid nurkadele. ringy<-function(n,r){ vahe=360/n fii=seq(1,n) fii=vahe*fii fii=2*pi*fii/360 y=r*sin(fii) return (y) } ringx<-function(n,r){ vahe=360/n fii=seq(1,n) fii=vahe*fii fii=2*pi*fii/360 x=r*cos(fii) return (x) } ##Funktsiooni definitsioon ring.korr<-function(andmestik, sig=FALSE, col=FALSE, sig.level=0.05, r=20, kir=FALSE, rtext=8, cex=1, main=paste(deparse(substitute(andmestik)))){ M=as.matrix(cor(andmestik)) n=sqrt(length(M)) #Värvivektori seadistamine palette abil n <- ncol(andmestik) #Korrelatsioonikordajatele vastavad p-väärtused p.mat <- matrix(NA, n, n) for(i in 1:(n-1)){ for(j in (i+1):n){ tmp <- cor.test(andmestik[,i], andmestik[,j]) p.mat[i,j] <- p.mat[j,i] <- tmp$p.value }} diag(p.mat) <- 0 #Statistilise olulisuse määramine p.mat[sig.level