• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

Popularity	FindingFriends	KnowingPeople	Liked	Celebrity
13	13	14	13	3
12	12	8	13	5
15	10	12	16	6
12	9	7	12	6
10	10	10	11	5
12	12	7	12	3
15	13	16	18	8
9	12	11	11	4
12	12	14	14	4
11	6	6	9	4
11	5	16	14	6
11	12	11	12	6
15	11	16	11	5
7	14	12	12	4
11	14	7	13	6
11	12	13	11	4
10	12	11	12	6
14	11	15	16	6
10	11	7	9	4
6	7	9	11	4
11	9	7	13	2
15	11	14	15	7
11	11	15	10	5
12	12	7	11	4
14	12	15	13	6
15	11	17	16	6
9	11	15	15	7
13	8	14	14	5
13	9	14	14	6
16	12	8	14	4
13	10	8	8	4
12	10	14	13	7
14	12	14	15	7
11	8	8	13	4
9	12	11	11	4
16	11	16	15	6
12	12	10	15	6
10	7	8	9	5
13	11	14	13	6
16	11	16	16	7
14	12	13	13	6
15	9	5	11	3
5	15	8	12	3
8	11	10	12	4
11	11	8	12	6
16	11	13	14	7
17	11	15	14	5
9	15	6	8	4
9	11	12	13	5
13	12	16	16	6
10	12	5	13	6
6	9	15	11	6
12	12	12	14	5
8	12	8	13	4
14	13	13	13	5
12	11	14	13	5
11	9	12	12	4
16	9	16	16	6
8	11	10	15	2
15	11	15	15	8
7	12	8	12	3
16	12	16	14	6
14	9	19	12	6
16	11	14	15	6
9	9	6	12	5
14	12	13	13	5
11	12	15	12	6
13	12	7	12	5
15	12	13	13	6
5	14	4	5	2
15	11	14	13	5
13	12	13	13	5
11	11	11	14	5
11	6	14	17	6
12	10	12	13	6
12	12	15	13	6
12	13	14	12	5
12	8	13	13	5
14	12	8	14	4
6	12	6	11	2
7	12	7	12	4
14	6	13	12	6
14	11	13	16	6
10	10	11	12	5
13	12	5	12	3
12	13	12	12	6
9	11	8	10	4
12	7	11	15	5
16	11	14	15	8
10	11	9	12	4
14	11	10	16	6
10	11	13	15	6
16	12	16	16	7
15	10	16	13	6
12	11	11	12	5
10	12	8	11	4
8	7	4	13	6
8	13	7	10	3
11	8	14	15	5
13	12	11	13	6
16	11	17	16	7
16	12	15	15	7
14	14	17	18	6
11	10	5	13	3
4	10	4	10	2
14	13	10	16	8
9	10	11	13	3
14	11	15	15	8
8	10	10	14	3
8	7	9	15	4
11	10	12	14	5
12	8	15	13	7
11	12	7	13	6
14	12	13	15	6
15	12	12	16	7
16	11	14	14	6
16	12	14	14	6
11	12	8	16	6
14	12	15	14	6
14	11	12	12	4
12	12	12	13	4
14	11	16	12	5
8	11	9	12	4
13	13	15	14	6
16	12	15	14	6
12	12	6	14	5
16	12	14	16	8
12	12	15	13	6
11	8	10	14	5
4	8	6	4	4
16	12	14	16	8
15	11	12	13	6
10	12	8	16	4
13	13	11	15	6
15	12	13	14	6
12	12	9	13	4
14	11	15	14	6
7	12	13	12	3
19	12	15	15	6
12	10	14	14	5
12	11	16	13	4
13	12	14	14	6
15	12	14	16	4
8	10	10	6	4
12	12	10	13	4
10	13	4	13	6
8	12	8	14	5
10	15	15	15	6
15	11	16	14	6
16	12	12	15	8
13	11	12	13	7
16	12	15	16	7
9	11	9	12	4
14	10	12	15	6
14	11	14	12	6
12	11	11	14	2

panel.tau <- function(x, y, digits=2, prefix='', cex.cor)
{
usr <- par('usr'); on.exit(par(usr))
par(usr = c(0, 1, 0, 1))
rr <- cor.test(x, y, method=par1)
r <- round(rr$p.value,2)
txt <- format(c(r, 0.123456789), digits=digits)[1]
txt <- paste(prefix, txt, sep='')
if(missing(cex.cor)) cex <- 0.5/strwidth(txt)
text(0.5, 0.5, txt, cex = cex)
}
panel.hist <- function(x, ...)
{
usr <- par('usr'); on.exit(par(usr))
par(usr = c(usr[1:2], 0, 1.5) )
h <- hist(x, plot = FALSE)
breaks <- h$breaks; nB <- length(breaks)
y <- h$counts; y <- y/max(y)
rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...)
}
bitmap(file='test1.png')
pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main)
dev.off()
load(file='createtable')
n <- length(y[,1])
n
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ',header=TRUE)
for (i in 1:n) {
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
}
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
for (j in 1:n) {
r <- cor.test(y[i,],y[j,],method=par1)
a<-table.element(a,round(r$estimate,3))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'pair',1,TRUE)
a<-table.element(a,'Pearson r',1,TRUE)
a<-table.element(a,'Spearman rho',1,TRUE)
a<-table.element(a,'Kendall tau',1,TRUE)
a<-table.row.end(a)
cor.test(y[1,],y[2,],method=par1)
for (i in 1:(n-1))
{
for (j in (i+1):n)
{
a<-table.row.start(a)
dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='')
a<-table.element(a,dum,header=TRUE)
rp <- cor.test(y[i,],y[j,],method='pearson')
a<-table.element(a,round(rp$estimate,4))
rs <- cor.test(y[i,],y[j,],method='spearman')
a<-table.element(a,round(rs$estimate,4))
rk <- cor.test(y[i,],y[j,],method='kendall')
a<-table.element(a,round(rk$estimate,4))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=T)
a<-table.element(a,paste('(',round(rp$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rs$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rk$p.value,4),')',sep=''))
a<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable1.tab')