1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
# CROSSTABULACIJA 3 SPREMENLJIVK
# preberemo parametre 1->folderpath
params <- commandArgs(trailingOnly=TRUE)
path <- params[1]
# preberemo sfiltrirano tabelo s podatki
dataTable <- read.table(
file = paste(path, 'admin/survey/R/TempData/crosstab_data.tmp', sep=''),
sep = ',',
colClasses = 'numeric',
comment.char = '',
quote = '',
header = FALSE
)
# iz tabele pobrisemo vrstice z vrednostmi manjsimi od 0 in sfiltriramo vse stolpce ki jih ne rabimo
dataTableClean <- dataTable[apply(dataTable[,1:4], MARGIN = 1, function(x) all(x > -1)), 1:4]
# izvedemo krostabulacijo
crosstabTable <- xtabs(~dataTableClean[,1]+dataTableClean[,2]+dataTableClean[,3]+dataTableClean[,4], data=dataTableClean)
# Vrednosti katerim pripadajo frekvence
vars <- dimnames(crosstabTable)
# izracunamo vsoto
sumsVrstica <- apply(crosstabTable, c(3), sum)
sumsStolpec <- apply(crosstabTable, c(4), sum)
sums <- sum(crosstabTable)
delezCol <- 5
# POVPRECJE
if(params[2] == '1'){
#dataTableAvg <- dataTableClean[sapply(dataTableClean[,5], function(x) all(x > -1)), ]
dataTableAvg <- dataTableClean
dataTableAvg[,5][dataTableAvg[,5] < 0] <- 0
avgTable <- xtabs(dataTableAvg[,5]~dataTableAvg[,1]+dataTableAvg[,2]+dataTableAvg[,3]+dataTableAvg[,4], dataTableAvg) / crosstabTable
delezCol <- delezCol + 1
}
# DELEZ
if(length(params) > 2){
# array, ki vsebuje vrednosti stolpca, za katere racunamo delez
delez <- params[3]
delez <- unlist(strsplit(delez, ","))
delez <- sapply(delez, strtoi)
# ce je -1 gre za checxbox stolpce ki imajo samo vrednost 1 in jih je vec
if(delez[1] == -1){
dataTableDelez <- dataTableClean
dataTableDelez[,delezCol][!(rowSums(dataTableDelez[delezCol:ncol(dataTableDelez)]) == ncol(dataTableDelez)-delezCol+1)] <- 0
dataTableDelez[,delezCol][(rowSums(dataTableDelez[delezCol:ncol(dataTableDelez)]) == ncol(dataTableDelez)-delezCol+1)] <- 1
}
else{
#dataTableDelez <- dataTableClean[sapply(dataTableClean[,delezCol], function(x) all(x %in% delez)), ]
dataTableDelez[,delezCol][!(dataTableDelez[,delezCol] %in% delez)] <- 0
dataTableDelez[,delezCol][(dataTableDelez[,delezCol] %in% delez)] <- 1
}
delezTable <- xtabs(dataTableDelez[,delezCol]~dataTableDelez[,1]+dataTableDelez[,2]+dataTableDelez[,3]+dataTableDelez[,4], dataTableDelez) / crosstabTable
}
# vsako variablo (vrstico) pretvorimo v csv string
vars <- sapply(vars, paste, collapse=",")
# naredimo 2-d tabelo podatkov
crosstabTable <- ftable(crosstabTable)
crosstabTable <- sapply(crosstabTable, paste, collapse=", ")
# podatke vrnemo v obliki var11,var12,var13..._var2...DATAfreq1_freq2...
cat(paste(vars, sep="", collapse="_"))
cat("--")
cat(paste(crosstabTable, sep="", collapse="_"))
cat("--")
cat(paste(sumsVrstica, sep="", collapse="_"))
cat("--")
cat(paste(sumsStolpec, sep="", collapse="_"))
cat("--")
cat(paste(sums, sep="", collapse="_"))
cat("--")
cat(paste(x2, sep="", collapse="_"))
# rezultati povprecja
if(params[2] == '1'){
cat("--")
cat(paste(avgTable, sep="", collapse="_"))
}
# rezultati deleza
if(length(params) > 2){
cat("--")
cat(paste(delezTable, sep="", collapse="_"))
}
|
