title: R3
# Set the working directory to the location on your computer to which you downloaded the files from OSF. You will also need to download the datasets to this exact same location - Do NOT rename the files!!!
x <- getwd()
setwd(x)library(knitr)
library(reshape2)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(lattice)
library(magrittr)
library(lme4)## Warning: package 'lme4' was built under R version 3.6.2## Loading required package: Matrixlibrary(lmerTest)## Warning: package 'lmerTest' was built under R version 3.6.2##
## Attaching package: 'lmerTest'## The following object is masked from 'package:lme4':
##
## lmer## The following object is masked from 'package:stats':
##
## steplibrary(knitr)
opts_chunk$set(fig.path='figure/',fig.ext=NULL)data <- read.table("judgementdata.political.csv", header = T, sep = ",")
names(data)## [1] "JID" "SECS_1Target1" "SECS_2Target1"
## [4] "SECS_3Target1" "SECS_4Target1" "SECS_5Target1"
## [7] "SECS_6Target1" "SECS_7Target1" "SECS_8Target1"
## [10] "SECS_9Target1" "SECS_10Target1" "SECS_11Target1"
## [13] "SECS_12Target1" "PartyTarget1" "SECS_1Target2"
## [16] "SECS_2Target2" "SECS_3Target2" "SECS_4Target2"
## [19] "SECS_5Target2" "SECS_6Target2" "SECS_7Target2"
## [22] "SECS_8Target2" "SECS_9Target2" "SECS_10Target2"
## [25] "SECS_11Target2" "SECS_12Target2" "PartyTarget2"
## [28] "SECS_1Target3" "SECS_2Target3" "SECS_3Target3"
## [31] "SECS_4Target3" "SECS_5Target3" "SECS_6Target3"
## [34] "SECS_7Target3" "SECS_8Target3" "SECS_9Target3"
## [37] "SECS_10Target3" "SECS_11Target3" "SECS_12Target3"
## [40] "PartyTarget3" "SECS_1Target4" "SECS_2Target4"
## [43] "SECS_3Target4" "SECS_4Target4" "SECS_5Target4"
## [46] "SECS_6Target4" "SECS_7Target4" "SECS_8Target4"
## [49] "SECS_9Target4" "SECS_10Target4" "SECS_11Target4"
## [52] "SECS_12Target4" "PartyTarget4" "SECS_1Target5"
## [55] "SECS_2Target5" "SECS_3Target5" "SECS_4Target5"
## [58] "SECS_5Target5" "SECS_6Target5" "SECS_7Target5"
## [61] "SECS_8Target5" "SECS_9Target5" "SECS_10Target5"
## [64] "SECS_11Target5" "SECS_12Target5" "PartyTarget5"
## [67] "SECS_1Target6" "SECS_2Target6" "SECS_3Target6"
## [70] "SECS_4Target6" "SECS_5Target6" "SECS_6Target6"
## [73] "SECS_7Target6" "SECS_8Target6" "SECS_9Target6"
## [76] "SECS_10Target6" "SECS_11Target6" "SECS_12Target6"
## [79] "PartyTarget6" "SECS_1Target7" "SECS_2Target7"
## [82] "SECS_3Target7" "SECS_4Target7" "SECS_5Target7"
## [85] "SECS_6Target7" "SECS_7Target7" "SECS_8Target7"
## [88] "SECS_9Target7" "SECS_10Target7" "SECS_11Target7"
## [91] "SECS_12Target7" "PartyTarget7" "SECS_1Target8"
## [94] "SECS_2Target8" "SECS_3Target8" "SECS_4Target8"
## [97] "SECS_5Target8" "SECS_6Target8" "SECS_7Target8"
## [100] "SECS_8Target8" "SECS_9Target8" "SECS_10Target8"
## [103] "SECS_11Target8" "SECS_12Target8" "PartyTarget8"
## [106] "SECS_1Target9" "SECS_2Target9" "SECS_3Target9"
## [109] "SECS_4Target9" "SECS_5Target9" "SECS_6Target9"
## [112] "SECS_7Target9" "SECS_8Target9" "SECS_9Target9"
## [115] "SECS_10Target9" "SECS_11Target9" "SECS_12Target9"
## [118] "PartyTarget9" "SECS_1Target10" "SECS_2Target10"
## [121] "SECS_3Target10" "SECS_4Target10" "SECS_5Target10"
## [124] "SECS_6Target10" "SECS_7Target10" "SECS_8Target10"
## [127] "SECS_9Target10" "SECS_10Target10" "SECS_11Target10"
## [130] "SECS_12Target10" "PartyTarget10" "SECS_1Target11"
## [133] "SECS_2Target11" "SECS_3Target11" "SECS_4Target11"
## [136] "SECS_5Target11" "SECS_6Target11" "SECS_7Target11"
## [139] "SECS_8Target11" "SECS_9Target11" "SECS_10Target11"
## [142] "SECS_11Target11" "SECS_12Target11" "PartyTarget11"
## [145] "SECS_1Target12" "SECS_2Target12" "SECS_3Target12"
## [148] "SECS_4Target12" "SECS_5Target12" "SECS_6Target12"
## [151] "SECS_7Target12" "SECS_8Target12" "SECS_9Target12"
## [154] "SECS_10Target12" "SECS_11Target12" "SECS_12Target12"
## [157] "PartyTarget12" "SECS_1Target13" "SECS_2Target13"
## [160] "SECS_3Target13" "SECS_4Target13" "SECS_5Target13"
## [163] "SECS_6Target13" "SECS_7Target13" "SECS_8Target13"
## [166] "SECS_9Target13" "SECS_10Target13" "SECS_11Target13"
## [169] "SECS_12Target13" "PartyTarget13" "SECS_1Target14"
## [172] "SECS_2Target14" "SECS_3Target14" "SECS_4Target14"
## [175] "SECS_5Target14" "SECS_6Target14" "SECS_7Target14"
## [178] "SECS_8Target14" "SECS_9Target14" "SECS_10Target14"
## [181] "SECS_11Target14" "SECS_12Target14" "PartyTarget14"
## [184] "SECS_1Target15" "SECS_2Target15" "SECS_3Target15"
## [187] "SECS_4Target15" "SECS_5Target15" "SECS_6Target15"
## [190] "SECS_7Target15" "SECS_8Target15" "SECS_9Target15"
## [193] "SECS_10Target15" "SECS_11Target15" "SECS_12Target15"
## [196] "PartyTarget15" "SECS_1Target16" "SECS_2Target16"
## [199] "SECS_3Target16" "SECS_4Target16" "SECS_5Target16"
## [202] "SECS_6Target16" "SECS_7Target16" "SECS_8Target16"
## [205] "SECS_9Target16" "SECS_10Target16" "SECS_11Target16"
## [208] "SECS_12Target16" "PartyTarget16" "SECS_1Target17"
## [211] "SECS_2Target17" "SECS_3Target17" "SECS_4Target17"
## [214] "SECS_5Target17" "SECS_6Target17" "SECS_7Target17"
## [217] "SECS_8Target17" "SECS_9Target17" "SECS_10Target17"
## [220] "SECS_11Target17" "SECS_12Target17" "PartyTarget17"
## [223] "SECS_1Target18" "SECS_2Target18" "SECS_3Target18"
## [226] "SECS_4Target18" "SECS_5Target18" "SECS_6Target18"
## [229] "SECS_7Target18" "SECS_8Target18" "SECS_9Target18"
## [232] "SECS_10Target18" "SECS_11Target18" "SECS_12Target18"
## [235] "PartyTarget18" "SECS_1Target19" "SECS_2Target19"
## [238] "SECS_3Target19" "SECS_4Target19" "SECS_5Target19"
## [241] "SECS_6Target19" "SECS_7Target19" "SECS_8Target19"
## [244] "SECS_9Target19" "SECS_10Target19" "SECS_11Target19"
## [247] "SECS_12Target19" "PartyTarget19" "SECS_1Target20"
## [250] "SECS_2Target20" "SECS_3Target20" "SECS_4Target20"
## [253] "SECS_5Target20" "SECS_6Target20" "SECS_7Target20"
## [256] "SECS_8Target20" "SECS_9Target20" "SECS_10Target20"
## [259] "SECS_11Target20" "SECS_12Target20" "PartyTarget20"
## [262] "SECS_1Target21" "SECS_2Target21" "SECS_3Target21"
## [265] "SECS_4Target21" "SECS_5Target21" "SECS_6Target21"
## [268] "SECS_7Target21" "SECS_8Target21" "SECS_9Target21"
## [271] "SECS_10Target21" "SECS_11Target21" "SECS_12Target21"
## [274] "PartyTarget21" "SECS_1Target22" "SECS_2Target22"
## [277] "SECS_3Target22" "SECS_4Target22" "SECS_5Target22"
## [280] "SECS_6Target22" "SECS_7Target22" "SECS_8Target22"
## [283] "SECS_9Target22" "SECS_10Target22" "SECS_11Target22"
## [286] "SECS_12Target22" "PartyTarget22" "SECS_1Target23"
## [289] "SECS_2Target23" "SECS_3Target23" "SECS_4Target23"
## [292] "SECS_5Target23" "SECS_6Target23" "SECS_7Target23"
## [295] "SECS_8Target23" "SECS_9Target23" "SECS_10Target23"
## [298] "SECS_11Target23" "SECS_12Target23" "PartyTarget23"
## [301] "SECS_1Target24" "SECS_2Target24" "SECS_3Target24"
## [304] "SECS_4Target24" "SECS_5Target24" "SECS_6Target24"
## [307] "SECS_7Target24" "SECS_8Target24" "SECS_9Target24"
## [310] "SECS_10Target24" "SECS_11Target24" "SECS_12Target24"
## [313] "PartyTarget24" "SECS_1Target25" "SECS_2Target25"
## [316] "SECS_3Target25" "SECS_4Target25" "SECS_5Target25"
## [319] "SECS_6Target25" "SECS_7Target25" "SECS_8Target25"
## [322] "SECS_9Target25" "SECS_10Target25" "SECS_11Target25"
## [325] "SECS_12Target25" "PartyTarget25" "SECS_1Target26"
## [328] "SECS_2Target26" "SECS_3Target26" "SECS_4Target26"
## [331] "SECS_5Target26" "SECS_6Target26" "SECS_7Target26"
## [334] "SECS_8Target26" "SECS_9Target26" "SECS_10Target26"
## [337] "SECS_11Target26" "SECS_12Target26" "PartyTarget26"
## [340] "SECS_1Target27" "SECS_2Target27" "SECS_3Target27"
## [343] "SECS_4Target27" "SECS_5Target27" "SECS_6Target27"
## [346] "SECS_7Target27" "SECS_8Target27" "SECS_9Target27"
## [349] "SECS_10Target27" "SECS_11Target27" "SECS_12Target27"
## [352] "PartyTarget27" "SECS_1Target28" "SECS_2Target28"
## [355] "SECS_3Target28" "SECS_4Target28" "SECS_5Target28"
## [358] "SECS_6Target28" "SECS_7Target28" "SECS_8Target28"
## [361] "SECS_9Target28" "SECS_10Target28" "SECS_11Target28"
## [364] "SECS_12Target28" "PartyTarget28" "SECS_1Target23.1"
## [367] "SECS_2Target23.1" "SECS_3Target23.1" "SECS_4Target23.1"
## [370] "SECS_5Target23.1" "SECS_6Target23.1" "SECS_7Target23.1"
## [373] "SECS_8Target23.1" "SECS_9Target23.1" "SECS_10Target23.1"
## [376] "SECS_11Target23.1" "SECS_12Target23.1" "PartyTarget29"
## [379] "SECS_1Target30" "SECS_2Target30" "SECS_3Target30"
## [382] "SECS_4Target30" "SECS_5Target30" "SECS_6Target30"
## [385] "SECS_7Target30" "SECS_8Target30" "SECS_9Target30"
## [388] "SECS_10Target30" "SECS_11Target30" "SECS_12Target30"
## [391] "PartyTarget30" "SECS_1Target31" "SECS_2Target31"
## [394] "SECS_3Target31" "SECS_4Target31" "SECS_5Target31"
## [397] "SECS_6Target31" "SECS_7Target31" "SECS_8Target31"
## [400] "SECS_9Target31" "SECS_10Target31" "SECS_11Target31"
## [403] "SECS_12Target31" "PartyTarget31" "SECS_1Target32"
## [406] "SECS_2Target32" "SECS_3Target32" "SECS_4Target32"
## [409] "SECS_5Target32" "SECS_6Target32" "SECS_7Target32"
## [412] "SECS_8Target32" "SECS_9Target32" "SECS_10Target32"
## [415] "SECS_11Target32" "SECS_12Target32" "PartyTarget32"
## [418] "SECS_1Target33" "SECS_2Target33" "SECS_3Target33"
## [421] "SECS_4Target33" "SECS_5Target33" "SECS_6Target33"
## [424] "SECS_7Target33" "SECS_8Target33" "SECS_9Target33"
## [427] "SECS_10Target33" "SECS_11Target33" "SECS_12Target33"
## [430] "PartyTarget33" "SECS_1Target34" "SECS_2Target34"
## [433] "SECS_3Target34" "SECS_4Target34" "SECS_5Target34"
## [436] "SECS_6Target34" "SECS_7Target34" "SECS_8Target34"
## [439] "SECS_9Target34" "SECS_10Target34" "SECS_11Target34"
## [442] "SECS_12Target34" "PartyTarget34" "SECS_1Target35"
## [445] "SECS_2Target35" "SECS_3Target35" "SECS_4Target35"
## [448] "SECS_5Target35" "SECS_6Target35" "SECS_7Target35"
## [451] "SECS_8Target35" "SECS_9Target35" "SECS_10Target35"
## [454] "SECS_11Target35" "SECS_12Target35" "PartyTarget35"
## [457] "SECS_1Target36" "SECS_2Target36" "SECS_3Target36"
## [460] "SECS_4Target36" "SECS_5Target36" "SECS_6Target36"
## [463] "SECS_7Target36" "SECS_8Target36" "SECS_9Target36"
## [466] "SECS_10Target36" "SECS_11Target36" "SECS_12Target36"
## [469] "PartyTarget36" "SECS_1Target37" "SECS_2Target37"
## [472] "SECS_3Target37" "SECS_4Target37" "SECS_5Target37"
## [475] "SECS_6Target37" "SECS_7Target37" "SECS_8Target37"
## [478] "SECS_9Target37" "SECS_10Target37" "SECS_11Target37"
## [481] "SECS_12Target37" "PartyTarget37" "SECS_1Target38"
## [484] "SECS_2Target38" "SECS_3Target38" "SECS_4Target38"
## [487] "SECS_5Target38" "SECS_6Target38" "SECS_7Target38"
## [490] "SECS_8Target38" "SECS_9Target38" "SECS_10Target38"
## [493] "SECS_11Target38" "SECS_12Target38" "PartyTarget38"
## [496] "SECS_1Target39" "SECS_2Target39" "SECS_3Target39"
## [499] "SECS_4Target39" "SECS_5Target39" "SECS_6Target39"
## [502] "SECS_7Target39" "SECS_8Target39" "SECS_9Target39"
## [505] "SECS_10Target39" "SECS_11Target39" "SECS_12Target39"
## [508] "PartyTarget39" "SECS_1Target40" "SECS_2Target40"
## [511] "SECS_3Target40" "SECS_4Target40" "SECS_5Target40"
## [514] "SECS_6Target40" "SECS_7Target40" "SECS_8Target40"
## [517] "SECS_9Target40" "SECS_10Target40" "SECS_11Target40"
## [520] "SECS_12Target40" "PartyTarget40" "SECS_1Target41"
## [523] "SECS_2Target41" "SECS_3Target41" "SECS_4Target41"
## [526] "SECS_5Target41" "SECS_6Target41" "SECS_7Target41"
## [529] "SECS_8Target41" "SECS_9Target41" "SECS_10Target41"
## [532] "SECS_11Target41" "SECS_12Target41" "PartyTarget41"
## [535] "SECS_1Target42" "SECS_2Target42" "SECS_3Target42"
## [538] "SECS_4Target42" "SECS_5Target42" "SECS_6Target42"
## [541] "SECS_7Target42" "SECS_8Target42" "SECS_9Target42"
## [544] "SECS_10Target42" "SECS_11Target42" "SECS_12Target42"
## [547] "PartyTarget42" "SECS_1Target43" "SECS_2Target43"
## [550] "SECS_3Target43" "SECS_4Target43" "SECS_5Target43"
## [553] "SECS_6Target43" "SECS_7Target43" "SECS_8Target43"
## [556] "SECS_9Target43" "SECS_10Target43" "SECS_11Target43"
## [559] "SECS_12Target43" "PartyTarget43" "SECS_1Target44"
## [562] "SECS_2Target44" "SECS_3Target44" "SECS_4Target44"
## [565] "SECS_5Target44" "SECS_6Target44" "SECS_7Target44"
## [568] "SECS_8Target44" "SECS_9Target44" "SECS_10Target44"
## [571] "SECS_11Target44" "SECS_12Target44" "PartyTarget44"
## [574] "SECS_1Target45" "SECS_2Target45" "SECS_3Target45"
## [577] "SECS_4Target45" "SECS_5Target45" "SECS_6Target45"
## [580] "SECS_7Target45" "SECS_8Target45" "SECS_9Target45"
## [583] "SECS_10Target45" "SECS_11Target45" "SECS_12Target45"
## [586] "PartyTarget45" "SECS_1Target46" "SECS_2Target46"
## [589] "SECS_3Target46" "SECS_4Target46" "SECS_5Target46"
## [592] "SECS_6Target46" "SECS_7Target46" "SECS_8Target46"
## [595] "SECS_9Target46" "SECS_10Target46" "SECS_11Target46"
## [598] "SECS_12Target46" "PartyTarget46" "SECS_1Target47"
## [601] "SECS_2Target47" "SECS_3Target47" "SECS_4Target47"
## [604] "SECS_5Target47" "SECS_6Target47" "SECS_7Target47"
## [607] "SECS_8Target47" "SECS_9Target47" "SECS_10Target47"
## [610] "SECS_11Target47" "SECS_12Target47" "PartyTarget47"
## [613] "SECS_1Target48" "SECS_2Target48" "SECS_3Target48"
## [616] "SECS_4Target48" "SECS_5Target48" "SECS_6Target48"
## [619] "SECS_7Target48" "SECS_8Target48" "SECS_9Target48"
## [622] "SECS_10Target48" "SECS_11Target48" "SECS_12Target48"
## [625] "PartyTarget48" "SECS_1Target49" "SECS_2Target49"
## [628] "SECS_3Target49" "SECS_4Target49" "SECS_5Target49"
## [631] "SECS_6Target49" "SECS_7Target49" "SECS_8Target49"
## [634] "SECS_9Target49" "SECS_10Target49" "SECS_11Target49"
## [637] "SECS_12Target49" "PartyTarget49" "SECS_1Target50"
## [640] "SECS_2Target50" "SECS_3Target50" "SECS_4Target50"
## [643] "SECS_5Target50" "SECS_6Target50" "SECS_7Target50"
## [646] "SECS_8Target50" "SECS_9Target50" "SECS_10Target50"
## [649] "SECS_11Target50" "SECS_12Target50" "PartyTarget50"
## [652] "SECS_1Target51" "SECS_2Target51" "SECS_3Target51"
## [655] "SECS_4Target51" "SECS_5Target51" "SECS_6Target51"
## [658] "SECS_7Target51" "SECS_8Target51" "SECS_9Target51"
## [661] "SECS_10Target51" "SECS_11Target51" "SECS_12Target51"
## [664] "PartyTarget51" "SECS_1Target52" "SECS_2Target52"
## [667] "SECS_3Target52" "SECS_4Target52" "SECS_5Target52"
## [670] "SECS_6Target52" "SECS_7Target52" "SECS_8Target52"
## [673] "SECS_9Target52" "SECS_10Target52" "SECS_11Target52"
## [676] "SECS_12Target52" "PartyTarget52" "SECS_1Target53"
## [679] "SECS_2Target53" "SECS_3Target53" "SECS_4Target53"
## [682] "SECS_5Target53" "SECS_6Target53" "SECS_7Target53"
## [685] "SECS_8Target53" "SECS_9Target53" "SECS_10Target53"
## [688] "SECS_11Target53" "SECS_12Target53" "PartyTarget53"
## [691] "SECS_1Target54" "SECS_2Target54" "SECS_3Target54"
## [694] "SECS_4Target54" "SECS_5Target54" "SECS_6Target54"
## [697] "SECS_7Target54" "SECS_8Target54" "SECS_9Target54"
## [700] "SECS_10Target54" "SECS_11Target54" "SECS_12Target54"
## [703] "PartyTarget54" "SECS_1Target55" "SECS_2Target55"
## [706] "SECS_3Target55" "SECS_4Target55" "SECS_5Target55"
## [709] "SECS_6Target55" "SECS_7Target55" "SECS_8Target55"
## [712] "SECS_9Target55" "SECS_10Target55" "SECS_11Target55"
## [715] "SECS_12Target55" "PartyTarget55" "SECS_1Target56"
## [718] "SECS_2Target56" "SECS_3Target56" "SECS_4Target56"
## [721] "SECS_5Target56" "SECS_6Target56" "SECS_7Target56"
## [724] "SECS_8Target56" "SECS_9Target56" "SECS_10Target56"
## [727] "SECS_11Target56" "SECS_12Target56" "PartyTarget56"
## [730] "SECS_1Target57" "SECS_2Target57" "SECS_3Target57"
## [733] "SECS_4Target57" "SECS_5Target57" "SECS_6Target57"
## [736] "SECS_7Target57" "SECS_8Target57" "SECS_9Target57"
## [739] "SECS_10Target57" "SECS_11Target57" "SECS_12Target57"
## [742] "PartyTarget57" "SECS_1Target58" "SECS_2Target58"
## [745] "SECS_3Target58" "SECS_4Target58" "SECS_5Target58"
## [748] "SECS_6Target58" "SECS_7Target58" "SECS_8Target58"
## [751] "SECS_9Target58" "SECS_10Target58" "SECS_11Target58"
## [754] "SECS_12Target58" "PartyTarget58" "SECS_1Target59"
## [757] "SECS_2Target59" "SECS_3Target59" "SECS_4Target59"
## [760] "SECS_5Target59" "SECS_6Target59" "SECS_7Target59"
## [763] "SECS_8Target59" "SECS_9Target59" "SECS_10Target59"
## [766] "SECS_11Target59" "SECS_12Target59" "PartyTarget59"
## [769] "SECS_1Target60" "SECS_2Target60" "SECS_3Target60"
## [772] "SECS_4Target60" "SECS_5Target60" "SECS_6Target60"
## [775] "SECS_7Target60" "SECS_8Target60" "SECS_9Target60"
## [778] "SECS_10Target60" "SECS_11Target60" "SECS_12Target60"
## [781] "PartyTarget60" "SECS_1Target61" "SECS_2Target61"
## [784] "SECS_3Target61" "SECS_4Target61" "SECS_5Target61"
## [787] "SECS_6Target61" "SECS_7Target61" "SECS_8Target61"
## [790] "SECS_9Target61" "SECS_10Target61" "SECS_11Target61"
## [793] "SECS_12Target61" "PartyTarget61" "SECS_1Target62"
## [796] "SECS_2Target62" "SECS_3Target62" "SECS_4Target62"
## [799] "SECS_5Target62" "SECS_6Target62" "SECS_7Target62"
## [802] "SECS_8Target62" "SECS_9Target62" "SECS_10Target62"
## [805] "SECS_11Target62" "SECS_12Target62" "PartyTarget62"
## [808] "SECS_1Target63" "SECS_2Target63" "SECS_3Target63"
## [811] "SECS_4Target63" "SECS_5Target63" "SECS_6Target63"
## [814] "SECS_7Target63" "SECS_8Target63" "SECS_9Target63"
## [817] "SECS_10Target63" "SECS_11Target63" "SECS_12Target63"
## [820] "PartyTarget63" "SECS_1Target64" "SECS_2Target64"
## [823] "SECS_3Target64" "SECS_4Target64" "SECS_5Target64"
## [826] "SECS_6Target64" "SECS_7Target64" "SECS_8Target64"
## [829] "SECS_9Target64" "SECS_10Target64" "SECS_11Target64"
## [832] "SECS_12Target64" "PartyTarget64" "SECS_1Target65"
## [835] "SECS_2Target65" "SECS_3Target65" "SECS_4Target65"
## [838] "SECS_5Target65" "SECS_6Target65" "SECS_7Target65"
## [841] "SECS_8Target65" "SECS_9Target65" "SECS_10Target65"
## [844] "SECS_11Target65" "SECS_12Target65" "PartyTarget65"
## [847] "SECS_1Target66" "SECS_2Target66" "SECS_3Target66"
## [850] "SECS_4Target66" "SECS_5Target66" "SECS_6Target66"
## [853] "SECS_7Target66" "SECS_8Target66" "SECS_9Target66"
## [856] "SECS_10Target66" "SECS_11Target66" "SECS_12Target66"
## [859] "PartyTarget66" "SECS_1Target67" "SECS_2Target67"
## [862] "SECS_3Target67" "SECS_4Target67" "SECS_5Target67"
## [865] "SECS_6Target67" "SECS_7Target67" "SECS_8Target67"
## [868] "SECS_9Target67" "SECS_10Target67" "SECS_11Target67"
## [871] "SECS_12Target67" "PartyTarget67" "SECS_1Target68"
## [874] "SECS_2Target68" "SECS_3Target68" "SECS_4Target68"
## [877] "SECS_5Target68" "SECS_6Target68" "SECS_7Target68"
## [880] "SECS_8Target68" "SECS_9Target68" "SECS_10Target68"
## [883] "SECS_11Target68" "SECS_12Target68" "PartyTarget68"
## [886] "SECS_1Target69" "SECS_2Target69" "SECS_3Target69"
## [889] "SECS_4Target69" "SECS_5Target69" "SECS_6Target69"
## [892] "SECS_7Target69" "SECS_8Target69" "SECS_9Target69"
## [895] "SECS_10Target69" "SECS_11Target69" "SECS_12Target69"
## [898] "PartyTarget69" "SECS_1Target70" "SECS_2Target70"
## [901] "SECS_3Target70" "SECS_4Target70" "SECS_5Target70"
## [904] "SECS_6Target70" "SECS_7Target70" "SECS_8Target70"
## [907] "SECS_9Target70" "SECS_10Target70" "SECS_11Target70"
## [910] "SECS_12Target70" "PartyTarget70" "SECS_1Target71"
## [913] "SECS_2Target71" "SECS_3Target71" "SECS_4Target71"
## [916] "SECS_5Target71" "SECS_6Target71" "SECS_7Target71"
## [919] "SECS_8Target71" "SECS_9Target71" "SECS_10Target71"
## [922] "SECS_11Target71" "SECS_12Target71" "PartyTarget71"
## [925] "SECS_1Target72" "SECS_2Target72" "SECS_3Target72"
## [928] "SECS_4Target72" "SECS_5Target72" "SECS_6Target72"
## [931] "SECS_7Target72" "SECS_8Target72" "SECS_9Target72"
## [934] "SECS_10Target72" "SECS_11Target72" "SECS_12Target72"
## [937] "PartyTarget72" "SECS_1Target73" "SECS_2Target73"
## [940] "SECS_3Target73" "SECS_4Target73" "SECS_5Target73"
## [943] "SECS_6Target73" "SECS_7Target73" "SECS_8Target73"
## [946] "SECS_9Target73" "SECS_10Target73" "SECS_11Target73"
## [949] "SECS_12Target73" "PartyTarget73" "SECS_1Target74"
## [952] "SECS_2Target74" "SECS_3Target74" "SECS_4Target74"
## [955] "SECS_5Target74" "SECS_6Target74" "SECS_7Target74"
## [958] "SECS_8Target74" "SECS_9Target74" "SECS_10Target74"
## [961] "SECS_11Target74" "SECS_12Target74" "PartyTarget74"
## [964] "SECS_1Target75" "SECS_2Target75" "SECS_3Target75"
## [967] "SECS_4Target75" "SECS_5Target75" "SECS_6Target75"
## [970] "SECS_7Target75" "SECS_8Target75" "SECS_9Target75"
## [973] "SECS_10Target75" "SECS_11Target75" "SECS_12Target75"
## [976] "PartyTarget75" "SECS_1Target76" "SECS_2Target76"
## [979] "SECS_3Target76" "SECS_4Target76" "SECS_5Target76"
## [982] "SECS_6Target76" "SECS_7Target76" "SECS_8Target76"
## [985] "SECS_9Target76" "SECS_10Target76" "SECS_11Target76"
## [988] "SECS_12Target76" "PartyTarget76" "SECS_1Target77"
## [991] "SECS_2Target77" "SECS_3Target77" "SECS_4Target77"
## [994] "SECS_5Target77" "SECS_6Target77" "SECS_7Target77"
## [997] "SECS_8Target77" "SECS_9Target77" "SECS_10Target77"
## [1000] "SECS_11Target77" "SECS_12Target77" "PartyTarget77"
## [1003] "SECS_1Target78" "SECS_2Target78" "SECS_3Target78"
## [1006] "SECS_4Target78" "SECS_5Target78" "SECS_6Target78"
## [1009] "SECS_7Target78" "SECS_8Target78" "SECS_9Target78"
## [1012] "SECS_10Target78" "SECS_11Target78" "SECS_12Target78"
## [1015] "PartyTarget78" "SECS_1Target79" "SECS_2Target79"
## [1018] "SECS_3Target79" "SECS_4Target79" "SECS_5Target79"
## [1021] "SECS_6Target79" "SECS_7Target79" "SECS_8Target79"
## [1024] "SECS_9Target79" "SECS_10Target79" "SECS_11Target79"
## [1027] "SECS_12Target79" "PartyTarget79" "SECS_1Target80"
## [1030] "SECS_2Target80" "SECS_3Target80" "SECS_4Target80"
## [1033] "SECS_5Target80" "SECS_6Target80" "SECS_7Target80"
## [1036] "SECS_8Target80" "SECS_9Target80" "SECS_10Target80"
## [1039] "SECS_11Target80" "SECS_12Target80" "PartyTarget80"
## [1042] "SECS_1Target81" "SECS_2Target81" "SECS_3Target81"
## [1045] "SECS_4Target81" "SECS_5Target81" "SECS_6Target81"
## [1048] "SECS_7Target81" "SECS_8Target81" "SECS_9Target81"
## [1051] "SECS_10Target81" "SECS_11Target81" "SECS_12Target81"
## [1054] "PartyTarget81" "SECS_1Target82" "SECS_2Target82"
## [1057] "SECS_3Target82" "SECS_4Target82" "SECS_5Target82"
## [1060] "SECS_6Target82" "SECS_7Target82" "SECS_8Target82"
## [1063] "SECS_9Target82" "SECS_10Target82" "SECS_11Target82"
## [1066] "SECS_12Target82" "PartyTarget82" "SECS_1Target83"
## [1069] "SECS_2Target83" "SECS_3Target83" "SECS_4Target83"
## [1072] "SECS_5Target83" "SECS_6Target83" "SECS_7Target83"
## [1075] "SECS_8Target83" "SECS_9Target83" "SECS_10Target83"
## [1078] "SECS_11Target83" "SECS_12Target83" "PartyTarget83"
## [1081] "SECS_1Target84" "SECS_2Target84" "SECS_3Target84"
## [1084] "SECS_4Target84" "SECS_5Target84" "SECS_6Target84"
## [1087] "SECS_7Target84" "SECS_8Target84" "SECS_9Target84"
## [1090] "SECS_10Target84" "SECS_11Target84" "SECS_12Target84"
## [1093] "PartyTarget84" "SECS_1Target85" "SECS_2Target85"
## [1096] "SECS_3Target85" "SECS_4Target85" "SECS_5Target85"
## [1099] "SECS_6Target85" "SECS_7Target85" "SECS_8Target85"
## [1102] "SECS_9Target85" "SECS_10Target85" "SECS_11Target85"
## [1105] "SECS_12Target85" "PartyTarget85" "SECS_1Target86"
## [1108] "SECS_2Target86" "SECS_3Target86" "SECS_4Target86"
## [1111] "SECS_5Target86" "SECS_6Target86" "SECS_7Target86"
## [1114] "SECS_8Target86" "SECS_9Target86" "SECS_10Target86"
## [1117] "SECS_11Target86" "SECS_12Target86" "PartyTarget86"
## [1120] "SECS_1Target87" "SECS_2Target87" "SECS_3Target87"
## [1123] "SECS_4Target87" "SECS_5Target87" "SECS_6Target87"
## [1126] "SECS_7Target87" "SECS_8Target87" "SECS_9Target87"
## [1129] "SECS_10Target87" "SECS_11Target87" "SECS_12Target87"
## [1132] "PartyTarget87" "SECS_1Target88" "SECS_2Target88"
## [1135] "SECS_3Target88" "SECS_4Target88" "SECS_5Target88"
## [1138] "SECS_6Target88" "SECS_7Target88" "SECS_8Target88"
## [1141] "SECS_9Target88" "SECS_10Target88" "SECS_11Target88"
## [1144] "SECS_12Target88" "PartyTarget88" "SECS_1Target89"
## [1147] "SECS_2Target89" "SECS_3Target89" "SECS_4Target89"
## [1150] "SECS_5Target89" "SECS_6Target89" "SECS_7Target89"
## [1153] "SECS_8Target89" "SECS_9Target89" "SECS_10Target89"
## [1156] "SECS_11Target89" "SECS_12Target89" "PartyTarget89"
## [1159] "SECS_1Target90" "SECS_2Target90" "SECS_3Target90"
## [1162] "SECS_4Target90" "SECS_5Target90" "SECS_6Target90"
## [1165] "SECS_7Target90" "SECS_8Target90" "SECS_9Target90"
## [1168] "SECS_10Target90" "SECS_11Target90" "SECS_12Target90"
## [1171] "PartyTarget90" "SECS_1Target91" "SECS_2Target91"
## [1174] "SECS_3Target91" "SECS_4Target91" "SECS_5Target91"
## [1177] "SECS_6Target91" "SECS_7Target91" "SECS_8Target91"
## [1180] "SECS_9Target91" "SECS_10Target91" "SECS_11Target91"
## [1183] "SECS_12Target91" "PartyTarget91" "SECS_1Target92"
## [1186] "SECS_2Target92" "SECS_3Target92" "SECS_4Target92"
## [1189] "SECS_5Target92" "SECS_6Target92" "SECS_7Target92"
## [1192] "SECS_8Target92" "SECS_9Target92" "SECS_10Target92"
## [1195] "SECS_11Target92" "SECS_12Target92" "PartyTarget92"
## [1198] "SECS_1Target93" "SECS_2Target93" "SECS_3Target93"
## [1201] "SECS_4Target93" "SECS_5Target93" "SECS_6Target93"
## [1204] "SECS_7Target93" "SECS_8Target93" "SECS_9Target93"
## [1207] "SECS_10Target93" "SECS_11Target93" "SECS_12Target93"
## [1210] "PartyTarget93" "SECS_1Target94" "SECS_2Target94"
## [1213] "SECS_3Target94" "SECS_4Target94" "SECS_5Target94"
## [1216] "SECS_6Target94" "SECS_7Target94" "SECS_8Target94"
## [1219] "SECS_9Target94" "SECS_10Target94" "SECS_11Target94"
## [1222] "SECS_12Target94" "PartyTarget94" "SECS_1Target95"
## [1225] "SECS_2Target95" "SECS_3Target95" "SECS_4Target95"
## [1228] "SECS_5Target95" "SECS_6Target95" "SECS_7Target95"
## [1231] "SECS_8Target95" "SECS_9Target95" "SECS_10Target95"
## [1234] "SECS_11Target95" "SECS_12Target95" "PartyTarget95"
## [1237] "SECS_1Target96" "SECS_2Target96" "SECS_3Target96"
## [1240] "SECS_4Target96" "SECS_5Target96" "SECS_6Target96"
## [1243] "SECS_7Target96" "SECS_8Target96" "SECS_9Target96"
## [1246] "SECS_10Target96" "SECS_11Target96" "SECS_12Target96"
## [1249] "PartyTarget96" "SECS_1Target97" "SECS_2Target97"
## [1252] "SECS_3Target97" "SECS_4Target97" "SECS_5Target97"
## [1255] "SECS_6Target97" "SECS_7Target97" "SECS_8Target97"
## [1258] "SECS_9Target97" "SECS_10Target97" "SECS_11Target97"
## [1261] "SECS_12Target97" "PartyTarget97" "SECS_1Target98"
## [1264] "SECS_2Target98" "SECS_3Target98" "SECS_4Target98"
## [1267] "SECS_5Target98" "SECS_6Target98" "SECS_7Target98"
## [1270] "SECS_8Target98" "SECS_9Target98" "SECS_10Target98"
## [1273] "SECS_11Target98" "SECS_12Target98" "PartyTarget98"
## [1276] "SECS_1Target99" "SECS_2Target99" "SECS_3Target99"
## [1279] "SECS_4Target99" "SECS_5Target99" "SECS_6Target99"
## [1282] "SECS_7Target99" "SECS_8Target99" "SECS_9Target99"
## [1285] "SECS_10Target99" "SECS_11Target99" "SECS_12Target99"
## [1288] "PartyTarget99" "SECS_1Target100" "SECS_2Target100"
## [1291] "SECS_3Target100" "SECS_4Target100" "SECS_5Target100"
## [1294] "SECS_6Target100" "SECS_7Target100" "SECS_8Target100"
## [1297] "SECS_9Target100" "SECS_10Target100" "SECS_11Target100"
## [1300] "SECS_12Target100" "PartyTarget100" "SECS_1Target101"
## [1303] "SECS_2Target101" "SECS_3Target101" "SECS_4Target101"
## [1306] "SECS_5Target101" "SECS_6Target101" "SECS_7Target101"
## [1309] "SECS_8Target101" "SECS_9Target101" "SECS_10Target101"
## [1312] "SECS_11Target101" "SECS_12Target101" "PartyTarget101"
## [1315] "SECS_1Target102" "SECS_2Target102" "SECS_3Target102"
## [1318] "SECS_4Target102" "SECS_5Target102" "SECS_6Target102"
## [1321] "SECS_7Target102" "SECS_8Target102" "SECS_9Target102"
## [1324] "SECS_10Target102" "SECS_11Target102" "SECS_12Target102"
## [1327] "PartyTarget102" "SECS_1Target103" "SECS_2Target103"
## [1330] "SECS_3Target103" "SECS_4Target103" "SECS_5Target103"
## [1333] "SECS_6Target103" "SECS_7Target103" "SECS_8Target103"
## [1336] "SECS_9Target103" "SECS_10Target103" "SECS_11Target103"
## [1339] "SECS_12Target103" "PartyTarget103" "SECS_1Target104"
## [1342] "SECS_2Target104" "SECS_3Target104" "SECS_4Target104"
## [1345] "SECS_5Target104" "SECS_6Target104" "SECS_7Target104"
## [1348] "SECS_8Target104" "SECS_9Target104" "SECS_10Target104"
## [1351] "SECS_11Target104" "SECS_12Target104" "PartyTarget104"
## [1354] "SECS_1Target105" "SECS_2Target105" "SECS_3Target105"
## [1357] "SECS_4Target105" "SECS_5Target105" "SECS_6Target105"
## [1360] "SECS_7Target105" "SECS_8Target105" "SECS_9Target105"
## [1363] "SECS_10Target105" "SECS_11Target105" "SECS_12Target105"
## [1366] "PartyTarget105" "SECS_1Target106" "SECS_2Target106"
## [1369] "SECS_3Target106" "SECS_4Target106" "SECS_5Target106"
## [1372] "SECS_6Target106" "SECS_7Target106" "SECS_8Target106"
## [1375] "SECS_9Target106" "SECS_10Target106" "SECS_11Target106"
## [1378] "SECS_12Target106" "PartyTarget106" "SECS_1Target107"
## [1381] "SECS_2Target107" "SECS_3Target107" "SECS_4Target107"
## [1384] "SECS_5Target107" "SECS_6Target107" "SECS_7Target107"
## [1387] "SECS_8Target107" "SECS_9Target107" "SECS_10Target107"
## [1390] "SECS_11Target107" "SECS_12Target107" "PartyTarget107"
## [1393] "SECS_1Target108" "SECS_2Target108" "SECS_3Target108"
## [1396] "SECS_4Target108" "SECS_5Target108" "SECS_6Target108"
## [1399] "SECS_7Target108" "SECS_8Target108" "SECS_9Target108"
## [1402] "SECS_10Target108" "SECS_11Target108" "SECS_12Target108"
## [1405] "PartyTarget108" "SECS_1Target109" "SECS_2Target109"
## [1408] "SECS_3Target109" "SECS_4Target109" "SECS_5Target109"
## [1411] "SECS_6Target109" "SECS_7Target109" "SECS_8Target109"
## [1414] "SECS_9Target109" "SECS_10Target109" "SECS_11Target109"
## [1417] "SECS_12Target109" "PartyTarget109" "SECS_1Target110"
## [1420] "SECS_2Target110" "SECS_3Target110" "SECS_4Target110"
## [1423] "SECS_5Target110" "SECS_6Target110" "SECS_7Target110"
## [1426] "SECS_8Target110" "SECS_9Target110" "SECS_10Target110"
## [1429] "SECS_11Target110" "SECS_12Target110" "PartyTarget110"
## [1432] "SECS_1Target111" "SECS_2Target111" "SECS_3Target111"
## [1435] "SECS_4Target111" "SECS_5Target111" "SECS_6Target111"
## [1438] "SECS_7Target111" "SECS_8Target111" "SECS_9Target111"
## [1441] "SECS_10Target111" "SECS_11Target111" "SECS_12Target111"
## [1444] "PartyTarget111" "SECS_1Target112" "SECS_2Target112"
## [1447] "SECS_3Target112" "SECS_4Target112" "SECS_5Target112"
## [1450] "SECS_6Target112" "SECS_7Target112" "SECS_8Target112"
## [1453] "SECS_9Target112" "SECS_10Target112" "SECS_11Target112"
## [1456] "SECS_12Target112" "PartyTarget112" "SECS_1Target113"
## [1459] "SECS_2Target113" "SECS_3Target113" "SECS_4Target113"
## [1462] "SECS_5Target113" "SECS_6Target113" "SECS_7Target113"
## [1465] "SECS_8Target113" "SECS_9Target113" "SECS_10Target113"
## [1468] "SECS_11Target113" "SECS_12Target113" "PartyTarget113"
## [1471] "SECS_1Target114" "SECS_2Target114" "SECS_3Target114"
## [1474] "SECS_4Target114" "SECS_5Target114" "SECS_6Target114"
## [1477] "SECS_7Target114" "SECS_8Target114" "SECS_9Target114"
## [1480] "SECS_10Target114" "SECS_11Target114" "SECS_12Target114"
## [1483] "PartyTarget114" "SECS_1Target115" "SECS_2Target115"
## [1486] "SECS_3Target115" "SECS_4Target115" "SECS_5Target115"
## [1489] "SECS_6Target115" "SECS_7Target115" "SECS_8Target115"
## [1492] "SECS_9Target115" "SECS_10Target115" "SECS_11Target115"
## [1495] "SECS_12Target115" "PartyTarget115" "SECS_1Target116"
## [1498] "SECS_2Target116" "SECS_3Target116" "SECS_4Target116"
## [1501] "SECS_5Target116" "SECS_6Target116" "SECS_7Target116"
## [1504] "SECS_8Target116" "SECS_9Target116" "SECS_10Target116"
## [1507] "SECS_11Target116" "SECS_12Target116" "PartyTarget116"
## [1510] "SECS_1Target117" "SECS_2Target117" "SECS_3Target117"
## [1513] "SECS_4Target117" "SECS_5Target117" "SECS_6Target117"
## [1516] "SECS_7Target117" "SECS_8Target117" "SECS_9Target117"
## [1519] "SECS_10Target117" "SECS_11Target117" "SECS_12Target117"
## [1522] "PartyTarget117" "SECS_1Target118" "SECS_2Target118"
## [1525] "SECS_3Target118" "SECS_4Target118" "SECS_5Target118"
## [1528] "SECS_6Target118" "SECS_7Target118" "SECS_8Target118"
## [1531] "SECS_9Target118" "SECS_10Target118" "SECS_11Target118"
## [1534] "SECS_12Target118" "PartyTarget118" "SECS_1Target119"
## [1537] "SECS_2Target119" "SECS_3Target119" "SECS_4Target119"
## [1540] "SECS_5Target119" "SECS_6Target119" "SECS_7Target119"
## [1543] "SECS_8Target119" "SECS_9Target119" "SECS_10Target119"
## [1546] "SECS_11Target119" "SECS_12Target119" "PartyTarget119"
## [1549] "SECS_1Target120" "SECS_2Target120" "SECS_3Target120"
## [1552] "SECS_4Target120" "SECS_5Target120" "SECS_6Target120"
## [1555] "SECS_7Target120" "SECS_8Target120" "SECS_9Target120"
## [1558] "SECS_10Target120" "SECS_11Target120" "SECS_12Target120"
## [1561] "PartyTarget120" "SECS_1Target121" "SECS_2Target121"
## [1564] "SECS_3Target121" "SECS_4Target121" "SECS_5Target121"
## [1567] "SECS_6Target121" "SECS_7Target121" "SECS_8Target121"
## [1570] "SECS_9Target121" "SECS_10Target121" "SECS_11Target121"
## [1573] "SECS_12Target121" "PartyTarget121" "SECS_1Target122"
## [1576] "SECS_2Target122" "SECS_3Target122" "SECS_4Target122"
## [1579] "SECS_5Target122" "SECS_6Target122" "SECS_7Target122"
## [1582] "SECS_8Target122" "SECS_9Target122" "SECS_10Target122"
## [1585] "SECS_11Target122" "SECS_12Target122" "PartyTarget122"
## [1588] "SECS_1Target123" "SECS_2Target123" "SECS_3Target123"
## [1591] "SECS_4Target123" "SECS_5Target123" "SECS_6Target123"
## [1594] "SECS_7Target123" "SECS_8Target123" "SECS_9Target123"
## [1597] "SECS_10Target123" "SECS_11Target123" "SECS_12Target123"
## [1600] "PartyTarget123" "SECS_1Target124" "SECS_2Target124"
## [1603] "SECS_3Target124" "SECS_4Target124" "SECS_5Target124"
## [1606] "SECS_6Target124" "SECS_7Target124" "SECS_8Target124"
## [1609] "SECS_9Target124" "SECS_10Target124" "SECS_11Target124"
## [1612] "SECS_12Target124" "PartyTarget124" "SECS_1Target125"
## [1615] "SECS_2Target125" "SECS_3Target125" "SECS_4Target125"
## [1618] "SECS_5Target125" "SECS_6Target125" "SECS_7Target125"
## [1621] "SECS_8Target125" "SECS_9Target125" "SECS_10Target125"
## [1624] "SECS_11Target125" "SECS_12Target125" "PartyTarget125"
## [1627] "SECS_1Target126" "SECS_2Target126" "SECS_3Target126"
## [1630] "SECS_4Target126" "SECS_5Target126" "SECS_6Target126"
## [1633] "SECS_7Target126" "SECS_8Target126" "SECS_9Target126"
## [1636] "SECS_10Target126" "SECS_11Target126" "SECS_12Target126"
## [1639] "PartyTarget126" "SECS_1Target127" "SECS_2Target127"
## [1642] "SECS_3Target127" "SECS_4Target127" "SECS_5Target127"
## [1645] "SECS_6Target127" "SECS_7Target127" "SECS_8Target127"
## [1648] "SECS_9Target127" "SECS_10Target127" "SECS_11Target127"
## [1651] "SECS_12Target127" "PartyTarget127" "SECS_1Target128"
## [1654] "SECS_2Target128" "SECS_3Target128" "SECS_4Target128"
## [1657] "SECS_5Target128" "SECS_6Target128" "SECS_7Target128"
## [1660] "SECS_8Target128" "SECS_9Target128" "SECS_10Target128"
## [1663] "SECS_11Target128" "SECS_12Target128" "PartyTarget128"
## [1666] "SECS_1Target129" "SECS_2Target129" "SECS_3Target129"
## [1669] "SECS_4Target129" "SECS_5Target129" "SECS_6Target129"
## [1672] "SECS_7Target129" "SECS_8Target129" "SECS_9Target129"
## [1675] "SECS_10Target129" "SECS_11Target129" "SECS_12Target129"
## [1678] "PartyTarget129" "SECS_1Target130" "SECS_2Target130"
## [1681] "SECS_3Target130" "SECS_4Target130" "SECS_5Target130"
## [1684] "SECS_6Target130" "SECS_7Target130" "SECS_8Target130"
## [1687] "SECS_9Target130" "SECS_10Target130" "SECS_11Target130"
## [1690] "SECS_12Target130" "PartyTarget130" "SECS_1Target131"
## [1693] "SECS_2Target131" "SECS_3Target131" "SECS_4Target131"
## [1696] "SECS_5Target131" "SECS_6Target131" "SECS_7Target131"
## [1699] "SECS_8Target131" "SECS_9Target131" "SECS_10Target131"
## [1702] "SECS_11Target131" "SECS_12Target131" "PartyTarget131"
## [1705] "SECS_1Target132" "SECS_2Target132" "SECS_3Target132"
## [1708] "SECS_4Target132" "SECS_5Target132" "SECS_6Target132"
## [1711] "SECS_7Target132" "SECS_8Target132" "SECS_9Target132"
## [1714] "SECS_10Target132" "SECS_11Target132" "SECS_12Target132"
## [1717] "PartyTarget132" "SECS_1Target133" "SECS_2Target133"
## [1720] "SECS_3Target133" "SECS_4Target133" "SECS_5Target133"
## [1723] "SECS_6Target133" "SECS_7Target133" "SECS_8Target133"
## [1726] "SECS_9Target133" "SECS_10Target133" "SECS_11Target133"
## [1729] "SECS_12Target133" "PartyTarget133" "SECS_1Target134"
## [1732] "SECS_2Target134" "SECS_3Target134" "SECS_4Target134"
## [1735] "SECS_5Target134" "SECS_6Target134" "SECS_7Target134"
## [1738] "SECS_8Target134" "SECS_9Target134" "SECS_10Target134"
## [1741] "SECS_11Target134" "SECS_12Target134" "PartyTarget134"
## [1744] "SECS_1Target135" "SECS_2Target135" "SECS_3Target135"
## [1747] "SECS_4Target135" "SECS_5Target135" "SECS_6Target135"
## [1750] "SECS_7Target135" "SECS_8Target135" "SECS_9Target135"
## [1753] "SECS_10Target135" "SECS_11Target135" "SECS_12Target135"
## [1756] "PartyTarget135" "SECS_1Target136" "SECS_2Target136"
## [1759] "SECS_3Target136" "SECS_4Target136" "SECS_5Target136"
## [1762] "SECS_6Target136" "SECS_7Target136" "SECS_8Target136"
## [1765] "SECS_9Target136" "SECS_10Target136" "SECS_11Target136"
## [1768] "SECS_12Target136" "PartyTarget136" "SECS_1Target137"
## [1771] "SECS_2Target137" "SECS_3Target137" "SECS_4Target137"
## [1774] "SECS_5Target137" "SECS_6Target137" "SECS_7Target137"
## [1777] "SECS_8Target137" "SECS_9Target137" "SECS_10Target137"
## [1780] "SECS_11Target137" "SECS_12Target137" "PartyTarget137"
## [1783] "SECS_1Target138" "SECS_2Target138" "SECS_3Target138"
## [1786] "SECS_4Target138" "SECS_5Target138" "SECS_6Target138"
## [1789] "SECS_7Target138" "SECS_8Target138" "SECS_9Target138"
## [1792] "SECS_10Target138" "SECS_11Target138" "SECS_12Target138"
## [1795] "PartyTarget138" "SECS_1Target139" "SECS_2Target139"
## [1798] "SECS_3Target139" "SECS_4Target139" "SECS_5Target139"
## [1801] "SECS_6Target139" "SECS_7Target139" "SECS_8Target139"
## [1804] "SECS_9Target139" "SECS_10Target139" "SECS_11Target139"
## [1807] "SECS_12Target139" "PartyTarget139" "SECS_1Target140"
## [1810] "SECS_2Target140" "SECS_3Target140" "SECS_4Target140"
## [1813] "SECS_5Target140" "SECS_6Target140" "SECS_7Target140"
## [1816] "SECS_8Target140" "SECS_9Target140" "SECS_10Target140"
## [1819] "SECS_11Target140" "SECS_12Target140" "PartyTarget140"
## [1822] "SECS_1Target141" "SECS_2Target141" "SECS_3Target141"
## [1825] "SECS_4Target141" "SECS_5Target141" "SECS_6Target141"
## [1828] "SECS_7Target141" "SECS_8Target141" "SECS_9Target141"
## [1831] "SECS_10Target141" "SECS_11Target141" "SECS_12Target141"
## [1834] "PartyTarget141" "SECS_1Target142" "SECS_2Target142"
## [1837] "SECS_3Target142" "SECS_4Target142" "SECS_5Target142"
## [1840] "SECS_6Target142" "SECS_7Target142" "SECS_8Target142"
## [1843] "SECS_9Target142" "SECS_10Target142" "SECS_11Target142"
## [1846] "SECS_12Target142" "PartyTarget142" "SECS_1Target143"
## [1849] "SECS_2Target143" "SECS_3Target143" "SECS_4Target143"
## [1852] "SECS_5Target143" "SECS_6Target143" "SECS_7Target143"
## [1855] "SECS_8Target143" "SECS_9Target143" "SECS_10Target143"
## [1858] "SECS_11Target143" "SECS_12Target143" "PartyTarget143"
## [1861] "SECS_1Target144" "SECS_2Target144" "SECS_3Target144"
## [1864] "SECS_4Target144" "SECS_5Target144" "SECS_6Target144"
## [1867] "SECS_7Target144" "SECS_8Target144" "SECS_9Target144"
## [1870] "SECS_10Target144" "SECS_11Target144" "SECS_12Target144"
## [1873] "PartyTarget144" "SECS_1Target145" "SECS_2Target145"
## [1876] "SECS_3Target145" "SECS_4Target145" "SECS_5Target145"
## [1879] "SECS_6Target145" "SECS_7Target145" "SECS_8Target145"
## [1882] "SECS_9Target145" "SECS_10Target145" "SECS_11Target145"
## [1885] "SECS_12Target145" "Q387" "SECS_1Target146"
## [1888] "SECS_2Target146" "SECS_3Target146" "SECS_4Target146"
## [1891] "SECS_5Target146" "SECS_6Target146" "SECS_7Target146"
## [1894] "SECS_8Target146" "SECS_9Target146" "SECS_10Target146"
## [1897] "SECS_11Target146" "SECS_12Target146" "PoliticalParty146"
## [1900] "SECS_1Target147" "SECS_2Target147" "SECS_3Target147"
## [1903] "SECS_4Target147" "SECS_5Target147" "SECS_6Target147"
## [1906] "SECS_7Target147" "SECS_8Target147" "SECS_9Target147"
## [1909] "SECS_10Target147" "SECS_11Target147" "SECS_12Target147"
## [1912] "PoliticalParty147" "SECS_1Target148" "SECS_2Target148"
## [1915] "SECS_3Target148" "SECS_4Target148" "SECS_5Target148"
## [1918] "SECS_6Target148" "SECS_7Target148" "SECS_8Target148"
## [1921] "SECS_9Target148" "SECS_10Target148" "SECS_11Target148"
## [1924] "SECS_12Target148" "PoliticalParty148" "SECS_1Target149"
## [1927] "SECS_2Target149" "SECS_3Target149" "SECS_4Target149"
## [1930] "SECS_5Target149" "SECS_6Target149" "SECS_7Target149"
## [1933] "SECS_8Target149" "SECS_9Target149" "SECS_10Target149"
## [1936] "SECS_11Target149" "SECS_12Target149" "PoliticalParty149"
## [1939] "SECS_1Target150" "SECS_2Target150" "SECS_3Target150"
## [1942] "SECS_4Target150" "SECS_5Target150" "SECS_6Target150"
## [1945] "SECS_7Target150" "SECS_8Target150" "SECS_9Target150"
## [1948] "SECS_10Target150" "SECS_11Target150" "SECS_12Target150"
## [1951] "PoliticalParty150"IG.Cond <- read.table("IGCon2.csv", header = T, sep = ",")
TW.Cond <- read.table("TWCon2.csv", header = T, sep = ",")
# Each target has a realistic accuracy criterion composed of a self-rating of the SECS.
sr.targets = read.table("targets.political.csv", fill= TRUE, header = T, sep = ",")
# Create dataframes for those targets that have validity ratings based on the SECS.
sr.1 <- sr.targets %>% filter(TID == "1")
sr.2 <- sr.targets %>% filter(TID == "2")
sr.3 <- sr.targets %>% filter(TID == "3")
sr.4 <- sr.targets %>% filter(TID == "4")
sr.5 <- sr.targets %>% filter(TID == "5")
sr.6 <- sr.targets %>% filter(TID == "6")
sr.7 <- sr.targets %>% filter(TID == "7")
sr.8 <- sr.targets %>% filter(TID == "8")
sr.9 <- sr.targets %>% filter(TID == "9")
sr.10 <- sr.targets %>% filter(TID == "10")
sr.11 <- sr.targets %>% filter(TID == "11")
sr.12 <- sr.targets %>% filter(TID == "12")
sr.13 <- sr.targets %>% filter(TID == "13")
sr.14 <- sr.targets %>% filter(TID == "14")
sr.15 <- sr.targets %>% filter(TID == "15")
sr.16 <- sr.targets %>% filter(TID == "16")
sr.17 <- sr.targets %>% filter(TID == "17")
sr.18 <- sr.targets %>% filter(TID == "18")
sr.19 <- sr.targets %>% filter(TID == "19")
sr.20 <- sr.targets %>% filter(TID == "20")
sr.21 <- sr.targets %>% filter(TID == "21")
sr.22 <- sr.targets %>% filter(TID == "22")
sr.23 <- sr.targets %>% filter(TID == "23")
sr.24 <- sr.targets %>% filter(TID == "24")
sr.25 <- sr.targets %>% filter(TID == "25")
sr.26 <- sr.targets %>% filter(TID == "26")
sr.27 <- sr.targets %>% filter(TID == "27")
sr.28 <- sr.targets %>% filter(TID == "28")
sr.29 <- sr.targets %>% filter(TID == "29")
sr.30 <- sr.targets %>% filter(TID == "30")
sr.31 <- sr.targets %>% filter(TID == "31")
sr.32 <- sr.targets %>% filter(TID == "32")
sr.33 <- sr.targets %>% filter(TID == "33")
sr.34 <- sr.targets %>% filter(TID == "34")
sr.35 <- sr.targets %>% filter(TID == "35")
sr.36 <- sr.targets %>% filter(TID == "36")
sr.37 <- sr.targets %>% filter(TID == "37")
sr.38 <- sr.targets %>% filter(TID == "38")
sr.39 <- sr.targets %>% filter(TID == "39")
sr.40 <- sr.targets %>% filter(TID == "40")
sr.41 <- sr.targets %>% filter(TID == "41")
sr.42 <- sr.targets %>% filter(TID == "42")
sr.43 <- sr.targets %>% filter(TID == "43")
sr.44 <- sr.targets %>% filter(TID == "44")
sr.45 <- sr.targets %>% filter(TID == "45")
sr.46 <- sr.targets %>% filter(TID == "46")
sr.47 <- sr.targets %>% filter(TID == "47")
sr.48 <- sr.targets %>% filter(TID == "48")
sr.49 <- sr.targets %>% filter(TID == "49")
sr.50 <- sr.targets %>% filter(TID == "50")
sr.51 <- sr.targets %>% filter(TID == "51")
sr.52 <- sr.targets %>% filter(TID == "52")
sr.53 <- sr.targets %>% filter(TID == "53")
sr.54 <- sr.targets %>% filter(TID == "54")
sr.55 <- sr.targets %>% filter(TID == "55")
sr.56 <- sr.targets %>% filter(TID == "56")
sr.57 <- sr.targets %>% filter(TID == "57")
sr.58 <- sr.targets %>% filter(TID == "58")
sr.59 <- sr.targets %>% filter(TID == "59")
sr.60 <- sr.targets %>% filter(TID == "60")
sr.61 <- sr.targets %>% filter(TID == "61")
sr.62 <- sr.targets %>% filter(TID == "62")
sr.63 <- sr.targets %>% filter(TID == "63")
sr.64 <- sr.targets %>% filter(TID == "64")
sr.65 <- sr.targets %>% filter(TID == "65")
sr.66 <- sr.targets %>% filter(TID == "66")
sr.67 <- sr.targets %>% filter(TID == "67")
sr.68 <- sr.targets %>% filter(TID == "68")
sr.69 <- sr.targets %>% filter(TID == "69")
sr.70 <- sr.targets %>% filter(TID == "70")
sr.71 <- sr.targets %>% filter(TID == "71")
sr.72 <- sr.targets %>% filter(TID == "72")
sr.73 <- sr.targets %>% filter(TID == "73")
sr.74 <- sr.targets %>% filter(TID == "74")
sr.75 <- sr.targets %>% filter(TID == "75")
sr.76 <- sr.targets %>% filter(TID == "76")
sr.77 <- sr.targets %>% filter(TID == "77")
sr.78 <- sr.targets %>% filter(TID == "78")
sr.79 <- sr.targets %>% filter(TID == "79")
sr.80 <- sr.targets %>% filter(TID == "80")
sr.81 <- sr.targets %>% filter(TID == "81")
sr.82 <- sr.targets %>% filter(TID == "82")
sr.83 <- sr.targets %>% filter(TID == "83")
sr.84 <- sr.targets %>% filter(TID == "84")
sr.85 <- sr.targets %>% filter(TID == "85")
sr.86 <- sr.targets %>% filter(TID == "86")
sr.87 <- sr.targets %>% filter(TID == "87")
sr.88 <- sr.targets %>% filter(TID == "88")
sr.89 <- sr.targets %>% filter(TID == "89")
sr.90 <- sr.targets %>% filter(TID == "90")
sr.91 <- sr.targets %>% filter(TID == "91")
sr.92 <- sr.targets %>% filter(TID == "92")
sr.93 <- sr.targets %>% filter(TID == "93")
sr.94 <- sr.targets %>% filter(TID == "94")
sr.95 <- sr.targets %>% filter(TID == "95")
sr.96 <- sr.targets %>% filter(TID == "96")
sr.97 <- sr.targets %>% filter(TID == "97")
sr.98 <- sr.targets %>% filter(TID == "98")
sr.99 <- sr.targets %>% filter(TID == "99")
sr.100 <- sr.targets %>% filter(TID == "100")
sr.101 <- sr.targets %>% filter(TID == "101")
sr.102 <- sr.targets %>% filter(TID == "102")
sr.103 <- sr.targets %>% filter(TID == "103")
sr.104 <- sr.targets %>% filter(TID == "104")
sr.105 <- sr.targets %>% filter(TID == "105")
sr.106 <- sr.targets %>% filter(TID == "106")
sr.107 <- sr.targets %>% filter(TID == "107")
sr.108 <- sr.targets %>% filter(TID == "108")
sr.109 <- sr.targets %>% filter(TID == "109")
sr.110 <- sr.targets %>% filter(TID == "110")
sr.111 <- sr.targets %>% filter(TID == "111")
sr.112 <- sr.targets %>% filter(TID == "112")
sr.113 <- sr.targets %>% filter(TID == "113")
sr.114 <- sr.targets %>% filter(TID == "114")
sr.115 <- sr.targets %>% filter(TID == "115")
sr.116 <- sr.targets %>% filter(TID == "116")
sr.117 <- sr.targets %>% filter(TID == "117")
sr.118 <- sr.targets %>% filter(TID == "118")
sr.119 <- sr.targets %>% filter(TID == "119")
sr.120 <- sr.targets %>% filter(TID == "120")
sr.121 <- sr.targets %>% filter(TID == "121")
sr.122 <- sr.targets %>% filter(TID == "122")
sr.123 <- sr.targets %>% filter(TID == "123")
sr.124 <- sr.targets %>% filter(TID == "124")
sr.125 <- sr.targets %>% filter(TID == "125")
sr.126 <- sr.targets %>% filter(TID == "126")
sr.127 <- sr.targets %>% filter(TID == "127")
sr.128 <- sr.targets %>% filter(TID == "128")
sr.129 <- sr.targets %>% filter(TID == "129")
sr.130 <- sr.targets %>% filter(TID == "130")
sr.131 <- sr.targets %>% filter(TID == "131")
sr.132 <- sr.targets %>% filter(TID == "132")
sr.133 <- sr.targets %>% filter(TID == "133")
sr.134 <- sr.targets %>% filter(TID == "134")
sr.135 <- sr.targets %>% filter(TID == "135")
sr.136 <- sr.targets %>% filter(TID == "136")
sr.137 <- sr.targets %>% filter(TID == "137")
sr.138 <- sr.targets %>% filter(TID == "138")
sr.139 <- sr.targets %>% filter(TID == "139")
sr.140 <- sr.targets %>% filter(TID == "140")
sr.141 <- sr.targets %>% filter(TID == "141")
sr.142 <- sr.targets %>% filter(TID == "142")
sr.143 <- sr.targets %>% filter(TID == "143")
sr.144 <- sr.targets %>% filter(TID == "144")
sr.145 <- sr.targets %>% filter(TID == "145")
sr.146 <- sr.targets %>% filter(TID == "146")
sr.147 <- sr.targets %>% filter(TID == "147")
sr.148 <- sr.targets %>% filter(TID == "148")
sr.149 <- sr.targets %>% filter(TID == "149")
sr.150 <- sr.targets %>% filter(TID == "150")
# This is the SECS normative profile, which is the averaged realistic accuracy criteria from the study.
normsecs = read.table("normative.political.csv", fill=TRUE, header = T, sep = ",")longcrit.1.secs <- melt(sr.1, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.2.secs <- melt(sr.2, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.3.secs <- melt(sr.3, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.4.secs <- melt(sr.4, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.5.secs <- melt(sr.5, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.6.secs <- melt(sr.6, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.7.secs <- melt(sr.7, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.8.secs <- melt(sr.8, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.9.secs <- melt(sr.9, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.10.secs <- melt(sr.10, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.11.secs <- melt(sr.11, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.12.secs <- melt(sr.12, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.13.secs <- melt(sr.13, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.14.secs <- melt(sr.14, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.15.secs <- melt(sr.15, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.16.secs <- melt(sr.16, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.17.secs <- melt(sr.17, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.18.secs <- melt(sr.18, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.19.secs <- melt(sr.19, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.20.secs <- melt(sr.20, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.21.secs <- melt(sr.21, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.22.secs <- melt(sr.22, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.23.secs <- melt(sr.23, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.24.secs <- melt(sr.24, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.25.secs <- melt(sr.25, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.26.secs <- melt(sr.26, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.27.secs <- melt(sr.27, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.28.secs <- melt(sr.28, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.29.secs <- melt(sr.29, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.30.secs <- melt(sr.30, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.31.secs <- melt(sr.13, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.32.secs <- melt(sr.32, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.33.secs <- melt(sr.33, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.34.secs <- melt(sr.34, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.35.secs <- melt(sr.35, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.36.secs <- melt(sr.36, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.37.secs <- melt(sr.37, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.38.secs <- melt(sr.38, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.39.secs <- melt(sr.39, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.40.secs <- melt(sr.40, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.41.secs <- melt(sr.41, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.42.secs <- melt(sr.42, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.43.secs <- melt(sr.43, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.44.secs <- melt(sr.44, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.45.secs <- melt(sr.45, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.46.secs <- melt(sr.46, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.47.secs <- melt(sr.47, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.48.secs <- melt(sr.48, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.49.secs <- melt(sr.49, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.50.secs <- melt(sr.50, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.51.secs <- melt(sr.51, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.52.secs <- melt(sr.52, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.53.secs <- melt(sr.53, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.54.secs <- melt(sr.54, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.55.secs <- melt(sr.55, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.56.secs <- melt(sr.56, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.57.secs <- melt(sr.57, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.58.secs <- melt(sr.58, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.59.secs <- melt(sr.59, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.60.secs <- melt(sr.60, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.61.secs <- melt(sr.61, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.62.secs <- melt(sr.62, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.63.secs <- melt(sr.63, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.64.secs <- melt(sr.64, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.65.secs <- melt(sr.65, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.66.secs <- melt(sr.66, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.67.secs <- melt(sr.67, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.68.secs <- melt(sr.68, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.69.secs <- melt(sr.69, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.70.secs <- melt(sr.70, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.71.secs <- melt(sr.71, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.72.secs <- melt(sr.72, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.73.secs <- melt(sr.73, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.74.secs <- melt(sr.74, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.75.secs <- melt(sr.75, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.76.secs <- melt(sr.76, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.77.secs <- melt(sr.77, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.78.secs <- melt(sr.78, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.79.secs <- melt(sr.79, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.80.secs <- melt(sr.80, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.81.secs <- melt(sr.81, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.82.secs <- melt(sr.82, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.83.secs <- melt(sr.83, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.84.secs <- melt(sr.84, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.85.secs <- melt(sr.85, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.86.secs <- melt(sr.86, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.87.secs <- melt(sr.87, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.88.secs <- melt(sr.88, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.89.secs <- melt(sr.89, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.90.secs <- melt(sr.90, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.91.secs <- melt(sr.91, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.92.secs <- melt(sr.92, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.93.secs <- melt(sr.93, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.94.secs <- melt(sr.94, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.95.secs <- melt(sr.95, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.96.secs <- melt(sr.96, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.97.secs <- melt(sr.97, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.98.secs <- melt(sr.98, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.99.secs <- melt(sr.99, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.100.secs <- melt(sr.100, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.101.secs <- melt(sr.101, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.102.secs <- melt(sr.102, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.103.secs <- melt(sr.103, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.104.secs <- melt(sr.104, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.105.secs <- melt(sr.105, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.106.secs <- melt(sr.106, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.107.secs <- melt(sr.107, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.108.secs <- melt(sr.108, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.109.secs <- melt(sr.109, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.110.secs <- melt(sr.110, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.111.secs <- melt(sr.111, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.112.secs <- melt(sr.112, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.113.secs <- melt(sr.113, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.114.secs <- melt(sr.114, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.115.secs <- melt(sr.115, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.116.secs <- melt(sr.116, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.117.secs <- melt(sr.117, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.118.secs <- melt(sr.118, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.119.secs <- melt(sr.119, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.120.secs <- melt(sr.120, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.121.secs <- melt(sr.121, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.122.secs <- melt(sr.122, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.123.secs <- melt(sr.123, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.124.secs <- melt(sr.124, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.125.secs <- melt(sr.125, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.126.secs <- melt(sr.126, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.127.secs <- melt(sr.127, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.128.secs <- melt(sr.128, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.129.secs <- melt(sr.129, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.130.secs <- melt(sr.130, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.131.secs <- melt(sr.113, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.132.secs <- melt(sr.132, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.133.secs <- melt(sr.133, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.134.secs <- melt(sr.134, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.135.secs <- melt(sr.135, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.136.secs <- melt(sr.136, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.137.secs <- melt(sr.137, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.138.secs <- melt(sr.138, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.139.secs <- melt(sr.139, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.140.secs <- melt(sr.140, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.141.secs <- melt(sr.141, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.142.secs <- melt(sr.142, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.143.secs <- melt(sr.143, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.144.secs <- melt(sr.144, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.145.secs <- melt(sr.145, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.146.secs <- melt(sr.146, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.147.secs <- melt(sr.147, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.148.secs <- melt(sr.148, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.149.secs <- melt(sr.149, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")
longcrit.150.secs <- melt(sr.150, id.vars = c(1), measure.vars = c(2:13), variable.name = "Sr.item", value.name = "Sr")longnorm.secs <- melt(normsecs, measure.vars = c(1:12), variable.name = "Norm.item", value.name = "Norm")longratings.1.secs <- melt(data, id.vars = c(1), measure.vars = c(2:13), variable.name = "Rating.item", value.name = "Rating")
longratings.1.secs <- longratings.1.secs[order(longratings.1.secs$JID, longratings.1.secs$Rating.item),]
longratings.2.secs <- melt(data, id.vars = c(1), measure.vars = c(15:26), variable.name = "Rating.item", value.name = "Rating")
longratings.2.secs <- longratings.2.secs[order(longratings.2.secs$JID, longratings.2.secs$Rating.item),]
longratings.3.secs <- melt(data, id.vars = c(1), measure.vars = c(28:39), variable.name = "Rating.item", value.name = "Rating")
longratings.3.secs <- longratings.3.secs[order(longratings.3.secs$JID, longratings.3.secs$Rating.item),]
longratings.4.secs <- melt(data, id.vars = c(1), measure.vars = c(41:52), variable.name = "Rating.item", value.name = "Rating")
longratings.4.secs <- longratings.4.secs[order(longratings.4.secs$JID, longratings.4.secs$Rating.item),]
longratings.5.secs <- melt(data, id.vars = c(1), measure.vars = c(54:65), variable.name = "Rating.item", value.name = "Rating")
longratings.5.secs <- longratings.5.secs[order(longratings.5.secs$JID, longratings.5.secs$Rating.item),]
longratings.6.secs <- melt(data, id.vars = c(1), measure.vars = c(67:78), variable.name = "Rating.item", value.name = "Rating")
longratings.6.secs <- longratings.6.secs[order(longratings.6.secs$JID, longratings.6.secs$Rating.item),]
longratings.7.secs <- melt(data, id.vars = c(1), measure.vars = c(80:91), variable.name = "Rating.item", value.name = "Rating")
longratings.7.secs <- longratings.7.secs[order(longratings.7.secs$JID, longratings.7.secs$Rating.item),]
longratings.8.secs <- melt(data, id.vars = c(1), measure.vars = c(93:104), variable.name = "Rating.item", value.name = "Rating")
longratings.8.secs <- longratings.8.secs[order(longratings.8.secs$JID, longratings.8.secs$Rating.item),]
longratings.9.secs <- melt(data, id.vars = c(1), measure.vars = c(106:117), variable.name = "Rating.item", value.name = "Rating")
longratings.9.secs <- longratings.9.secs[order(longratings.9.secs$JID, longratings.9.secs$Rating.item),]
longratings.10.secs <- melt(data, id.vars = c(1), measure.vars = c(119:130), variable.name = "Rating.item", value.name = "Rating")
longratings.10.secs <- longratings.10.secs[order(longratings.10.secs$JID, longratings.10.secs$Rating.item),]
longratings.11.secs <- melt(data, id.vars = c(1), measure.vars = c(132:143), variable.name = "Rating.item", value.name = "Rating")
longratings.11.secs <- longratings.11.secs[order(longratings.11.secs$JID, longratings.11.secs$Rating.item),]
longratings.12.secs <- melt(data, id.vars = c(1), measure.vars = c(145:156), variable.name = "Rating.item", value.name = "Rating")
longratings.12.secs <- longratings.12.secs[order(longratings.12.secs$JID, longratings.12.secs$Rating.item),]
longratings.13.secs <- melt(data, id.vars = c(1), measure.vars = c(158:169), variable.name = "Rating.item", value.name = "Rating")
longratings.13.secs <- longratings.13.secs[order(longratings.13.secs$JID, longratings.13.secs$Rating.item),]
longratings.14.secs <- melt(data, id.vars = c(1), measure.vars = c(171:182), variable.name = "Rating.item", value.name = "Rating")
longratings.14.secs <- longratings.14.secs[order(longratings.14.secs$JID, longratings.14.secs$Rating.item),]
longratings.15.secs <- melt(data, id.vars = c(1), measure.vars = c(184:195), variable.name = "Rating.item", value.name = "Rating")
longratings.15.secs <- longratings.15.secs[order(longratings.15.secs$JID, longratings.15.secs$Rating.item),]
longratings.16.secs <- melt(data, id.vars = c(1), measure.vars = c(197:208), variable.name = "Rating.item", value.name = "Rating")
longratings.16.secs <- longratings.16.secs[order(longratings.16.secs$JID, longratings.16.secs$Rating.item),]
longratings.17.secs <- melt(data, id.vars = c(1), measure.vars = c(210:221), variable.name = "Rating.item", value.name = "Rating")
longratings.17.secs <- longratings.17.secs[order(longratings.17.secs$JID, longratings.17.secs$Rating.item),]
longratings.18.secs <- melt(data, id.vars = c(1), measure.vars = c(223:234), variable.name = "Rating.item", value.name = "Rating")
longratings.18.secs <- longratings.18.secs[order(longratings.18.secs$JID, longratings.18.secs$Rating.item),]
longratings.19.secs <- melt(data, id.vars = c(1), measure.vars = c(236:247), variable.name = "Rating.item", value.name = "Rating")
longratings.19.secs <- longratings.19.secs[order(longratings.19.secs$JID, longratings.19.secs$Rating.item),]
longratings.20.secs <- melt(data, id.vars = c(1), measure.vars = c(249:260), variable.name = "Rating.item", value.name = "Rating")
longratings.20.secs <- longratings.20.secs[order(longratings.20.secs$JID, longratings.20.secs$Rating.item),]
longratings.21.secs <- melt(data, id.vars = c(1), measure.vars = c(262:273), variable.name = "Rating.item", value.name = "Rating")
longratings.21.secs <- longratings.21.secs[order(longratings.21.secs$JID, longratings.21.secs$Rating.item),]
longratings.22.secs <- melt(data, id.vars = c(1), measure.vars = c(275:286), variable.name = "Rating.item", value.name = "Rating")
longratings.22.secs <- longratings.22.secs[order(longratings.22.secs$JID, longratings.22.secs$Rating.item),]
longratings.23.secs <- melt(data, id.vars = c(1), measure.vars = c(288:299), variable.name = "Rating.item", value.name = "Rating")
longratings.23.secs <- longratings.23.secs[order(longratings.23.secs$JID, longratings.23.secs$Rating.item),]
longratings.24.secs <- melt(data, id.vars = c(1), measure.vars = c(301:312), variable.name = "Rating.item", value.name = "Rating")
longratings.24.secs <- longratings.24.secs[order(longratings.24.secs$JID, longratings.24.secs$Rating.item),]
longratings.25.secs <- melt(data, id.vars = c(1), measure.vars = c(314:325), variable.name = "Rating.item", value.name = "Rating")
longratings.25.secs <- longratings.25.secs[order(longratings.25.secs$JID, longratings.25.secs$Rating.item),]
longratings.26.secs <- melt(data, id.vars = c(1), measure.vars = c(327:338), variable.name = "Rating.item", value.name = "Rating")
longratings.26.secs <- longratings.26.secs[order(longratings.26.secs$JID, longratings.26.secs$Rating.item),]
longratings.27.secs <- melt(data, id.vars = c(1), measure.vars = c(340:351), variable.name = "Rating.item", value.name = "Rating")
longratings.27.secs <- longratings.27.secs[order(longratings.27.secs$JID, longratings.27.secs$Rating.item),]
longratings.28.secs <- melt(data, id.vars = c(1), measure.vars = c(353:364), variable.name = "Rating.item", value.name = "Rating")
longratings.28.secs <- longratings.28.secs[order(longratings.28.secs$JID, longratings.28.secs$Rating.item),]
longratings.29.secs <- melt(data, id.vars = c(1), measure.vars = c(366:377), variable.name = "Rating.item", value.name = "Rating")
longratings.29.secs <- longratings.29.secs[order(longratings.29.secs$JID, longratings.29.secs$Rating.item),]
longratings.30.secs <- melt(data, id.vars = c(1), measure.vars = c(379:390), variable.name = "Rating.item", value.name = "Rating")
longratings.30.secs <- longratings.30.secs[order(longratings.30.secs$JID, longratings.30.secs$Rating.item),]
longratings.31.secs <- melt(data, id.vars = c(1), measure.vars = c(392:403), variable.name = "Rating.item", value.name = "Rating")
longratings.31.secs <- longratings.31.secs[order(longratings.31.secs$JID, longratings.31.secs$Rating.item),]
longratings.32.secs <- melt(data, id.vars = c(1), measure.vars = c(405:416), variable.name = "Rating.item", value.name = "Rating")
longratings.32.secs <- longratings.32.secs[order(longratings.32.secs$JID, longratings.32.secs$Rating.item),]
longratings.33.secs <- melt(data, id.vars = c(1), measure.vars = c(418:429), variable.name = "Rating.item", value.name = "Rating")
longratings.33.secs <- longratings.33.secs[order(longratings.33.secs$JID, longratings.33.secs$Rating.item),]
longratings.34.secs <- melt(data, id.vars = c(1), measure.vars = c(431:442), variable.name = "Rating.item", value.name = "Rating")
longratings.34.secs <- longratings.34.secs[order(longratings.34.secs$JID, longratings.34.secs$Rating.item),]
longratings.35.secs <- melt(data, id.vars = c(1), measure.vars = c(444:455), variable.name = "Rating.item", value.name = "Rating")
longratings.35.secs <- longratings.35.secs[order(longratings.35.secs$JID, longratings.35.secs$Rating.item),]
longratings.36.secs <- melt(data, id.vars = c(1), measure.vars = c(457:468), variable.name = "Rating.item", value.name = "Rating")
longratings.36.secs <- longratings.36.secs[order(longratings.36.secs$JID, longratings.36.secs$Rating.item),]
longratings.37.secs <- melt(data, id.vars = c(1), measure.vars = c(470:481), variable.name = "Rating.item", value.name = "Rating")
longratings.37.secs <- longratings.37.secs[order(longratings.37.secs$JID, longratings.37.secs$Rating.item),]
longratings.38.secs <- melt(data, id.vars = c(1), measure.vars = c(483:494), variable.name = "Rating.item", value.name = "Rating")
longratings.38.secs <- longratings.38.secs[order(longratings.38.secs$JID, longratings.38.secs$Rating.item),]
longratings.39.secs <- melt(data, id.vars = c(1), measure.vars = c(496:507), variable.name = "Rating.item", value.name = "Rating")
longratings.39.secs <- longratings.39.secs[order(longratings.39.secs$JID, longratings.39.secs$Rating.item),]
longratings.40.secs <- melt(data, id.vars = c(1), measure.vars = c(509:520), variable.name = "Rating.item", value.name = "Rating")
longratings.40.secs <- longratings.40.secs[order(longratings.40.secs$JID, longratings.40.secs$Rating.item),]
longratings.41.secs <- melt(data, id.vars = c(1), measure.vars = c(522:533), variable.name = "Rating.item", value.name = "Rating")
longratings.41.secs <- longratings.1.secs[order(longratings.41.secs$JID, longratings.41.secs$Rating.item),]
longratings.42.secs <- melt(data, id.vars = c(1), measure.vars = c(535:546), variable.name = "Rating.item", value.name = "Rating")
longratings.42.secs <- longratings.42.secs[order(longratings.42.secs$JID, longratings.42.secs$Rating.item),]
longratings.43.secs <- melt(data, id.vars = c(1), measure.vars = c(548:559), variable.name = "Rating.item", value.name = "Rating")
longratings.43.secs <- longratings.43.secs[order(longratings.43.secs$JID, longratings.43.secs$Rating.item),]
longratings.44.secs <- melt(data, id.vars = c(1), measure.vars = c(561:572), variable.name = "Rating.item", value.name = "Rating")
longratings.44.secs <- longratings.44.secs[order(longratings.44.secs$JID, longratings.44.secs$Rating.item),]
longratings.45.secs <- melt(data, id.vars = c(1), measure.vars = c(574:585), variable.name = "Rating.item", value.name = "Rating")
longratings.45.secs <- longratings.45.secs[order(longratings.45.secs$JID, longratings.45.secs$Rating.item),]
longratings.46.secs <- melt(data, id.vars = c(1), measure.vars = c(587:598), variable.name = "Rating.item", value.name = "Rating")
longratings.46.secs <- longratings.46.secs[order(longratings.46.secs$JID, longratings.46.secs$Rating.item),]
longratings.47.secs <- melt(data, id.vars = c(1), measure.vars = c(600:611), variable.name = "Rating.item", value.name = "Rating")
longratings.47.secs <- longratings.47.secs[order(longratings.47.secs$JID, longratings.47.secs$Rating.item),]
longratings.48.secs <- melt(data, id.vars = c(1), measure.vars = c(613:624), variable.name = "Rating.item", value.name = "Rating")
longratings.48.secs <- longratings.48.secs[order(longratings.48.secs$JID, longratings.48.secs$Rating.item),]
longratings.49.secs <- melt(data, id.vars = c(1), measure.vars = c(626:637), variable.name = "Rating.item", value.name = "Rating")
longratings.49.secs <- longratings.49.secs[order(longratings.49.secs$JID, longratings.49.secs$Rating.item),]
longratings.50.secs <- melt(data, id.vars = c(1), measure.vars = c(639:650), variable.name = "Rating.item", value.name = "Rating")
longratings.50.secs <- longratings.50.secs[order(longratings.50.secs$JID, longratings.50.secs$Rating.item),]
longratings.51.secs <- melt(data, id.vars = c(1), measure.vars = c(652:663), variable.name = "Rating.item", value.name = "Rating")
longratings.51.secs <- longratings.51.secs[order(longratings.51.secs$JID, longratings.51.secs$Rating.item),]
longratings.52.secs <- melt(data, id.vars = c(1), measure.vars = c(665:676), variable.name = "Rating.item", value.name = "Rating")
longratings.52.secs <- longratings.52.secs[order(longratings.52.secs$JID, longratings.52.secs$Rating.item),]
longratings.53.secs <- melt(data, id.vars = c(1), measure.vars = c(678:689), variable.name = "Rating.item", value.name = "Rating")
longratings.53.secs <- longratings.53.secs[order(longratings.53.secs$JID, longratings.53.secs$Rating.item),]
longratings.54.secs <- melt(data, id.vars = c(1), measure.vars = c(691:702), variable.name = "Rating.item", value.name = "Rating")
longratings.54.secs <- longratings.54.secs[order(longratings.54.secs$JID, longratings.54.secs$Rating.item),]
longratings.55.secs <- melt(data, id.vars = c(1), measure.vars = c(704:715), variable.name = "Rating.item", value.name = "Rating")
longratings.55.secs <- longratings.55.secs[order(longratings.55.secs$JID, longratings.55.secs$Rating.item),]
longratings.56.secs <- melt(data, id.vars = c(1), measure.vars = c(717:728), variable.name = "Rating.item", value.name = "Rating")
longratings.56.secs <- longratings.56.secs[order(longratings.56.secs$JID, longratings.56.secs$Rating.item),]
longratings.57.secs <- melt(data, id.vars = c(1), measure.vars = c(730:741), variable.name = "Rating.item", value.name = "Rating")
longratings.57.secs <- longratings.57.secs[order(longratings.57.secs$JID, longratings.57.secs$Rating.item),]
longratings.58.secs <- melt(data, id.vars = c(1), measure.vars = c(743:754), variable.name = "Rating.item", value.name = "Rating")
longratings.58.secs <- longratings.58.secs[order(longratings.58.secs$JID, longratings.58.secs$Rating.item),]
longratings.59.secs <- melt(data, id.vars = c(1), measure.vars = c(756:767), variable.name = "Rating.item", value.name = "Rating")
longratings.59.secs <- longratings.59.secs[order(longratings.59.secs$JID, longratings.59.secs$Rating.item),]
longratings.60.secs <- melt(data, id.vars = c(1), measure.vars = c(769:780), variable.name = "Rating.item", value.name = "Rating")
longratings.60.secs <- longratings.60.secs[order(longratings.60.secs$JID, longratings.60.secs$Rating.item),]
longratings.61.secs <- melt(data, id.vars = c(1), measure.vars = c(782:793), variable.name = "Rating.item", value.name = "Rating")
longratings.61.secs <- longratings.61.secs[order(longratings.61.secs$JID, longratings.61.secs$Rating.item),]
longratings.62.secs <- melt(data, id.vars = c(1), measure.vars = c(795:806), variable.name = "Rating.item", value.name = "Rating")
longratings.62.secs <- longratings.62.secs[order(longratings.62.secs$JID, longratings.62.secs$Rating.item),]
longratings.63.secs <- melt(data, id.vars = c(1), measure.vars = c(808:819), variable.name = "Rating.item", value.name = "Rating")
longratings.63.secs <- longratings.63.secs[order(longratings.63.secs$JID, longratings.63.secs$Rating.item),]
longratings.64.secs <- melt(data, id.vars = c(1), measure.vars = c(821:832), variable.name = "Rating.item", value.name = "Rating")
longratings.64.secs <- longratings.64.secs[order(longratings.64.secs$JID, longratings.64.secs$Rating.item),]
longratings.65.secs <- melt(data, id.vars = c(1), measure.vars = c(834:845), variable.name = "Rating.item", value.name = "Rating")
longratings.65.secs <- longratings.65.secs[order(longratings.65.secs$JID, longratings.65.secs$Rating.item),]
longratings.66.secs <- melt(data, id.vars = c(1), measure.vars = c(847:858), variable.name = "Rating.item", value.name = "Rating")
longratings.66.secs <- longratings.66.secs[order(longratings.66.secs$JID, longratings.66.secs$Rating.item),]
longratings.67.secs <- melt(data, id.vars = c(1), measure.vars = c(860:871), variable.name = "Rating.item", value.name = "Rating")
longratings.67.secs <- longratings.67.secs[order(longratings.67.secs$JID, longratings.67.secs$Rating.item),]
longratings.68.secs <- melt(data, id.vars = c(1), measure.vars = c(873:884), variable.name = "Rating.item", value.name = "Rating")
longratings.68.secs <- longratings.68.secs[order(longratings.68.secs$JID, longratings.68.secs$Rating.item),]
longratings.69.secs <- melt(data, id.vars = c(1), measure.vars = c(886:897), variable.name = "Rating.item", value.name = "Rating")
longratings.69.secs <- longratings.69.secs[order(longratings.69.secs$JID, longratings.69.secs$Rating.item),]
longratings.70.secs <- melt(data, id.vars = c(1), measure.vars = c(899:910), variable.name = "Rating.item", value.name = "Rating")
longratings.70.secs <- longratings.70.secs[order(longratings.70.secs$JID, longratings.70.secs$Rating.item),]
longratings.71.secs <- melt(data, id.vars = c(1), measure.vars = c(912:923), variable.name = "Rating.item", value.name = "Rating")
longratings.71.secs <- longratings.71.secs[order(longratings.71.secs$JID, longratings.71.secs$Rating.item),]
longratings.72.secs <- melt(data, id.vars = c(1), measure.vars = c(925:936), variable.name = "Rating.item", value.name = "Rating")
longratings.72.secs <- longratings.72.secs[order(longratings.72.secs$JID, longratings.72.secs$Rating.item),]
longratings.73.secs <- melt(data, id.vars = c(1), measure.vars = c(938:949), variable.name = "Rating.item", value.name = "Rating")
longratings.73.secs <- longratings.73.secs[order(longratings.73.secs$JID, longratings.73.secs$Rating.item),]
longratings.74.secs <- melt(data, id.vars = c(1), measure.vars = c(951:962), variable.name = "Rating.item", value.name = "Rating")
longratings.74.secs <- longratings.74.secs[order(longratings.74.secs$JID, longratings.74.secs$Rating.item),]
longratings.75.secs <- melt(data, id.vars = c(1), measure.vars = c(964:975), variable.name = "Rating.item", value.name = "Rating")
longratings.75.secs <- longratings.75.secs[order(longratings.75.secs$JID, longratings.75.secs$Rating.item),]
longratings.76.secs <- melt(data, id.vars = c(1), measure.vars = c(977:988), variable.name = "Rating.item", value.name = "Rating")
longratings.76.secs <- longratings.76.secs[order(longratings.76.secs$JID, longratings.76.secs$Rating.item),]
longratings.77.secs <- melt(data, id.vars = c(1), measure.vars = c(990:1001), variable.name = "Rating.item", value.name = "Rating")
longratings.77.secs <- longratings.77.secs[order(longratings.77.secs$JID, longratings.77.secs$Rating.item),]
longratings.78.secs <- melt(data, id.vars = c(1), measure.vars = c(1003:1014), variable.name = "Rating.item", value.name = "Rating")
longratings.78.secs <- longratings.78.secs[order(longratings.78.secs$JID, longratings.78.secs$Rating.item),]
longratings.79.secs <- melt(data, id.vars = c(1), measure.vars = c(1016:1027), variable.name = "Rating.item", value.name = "Rating")
longratings.79.secs <- longratings.79.secs[order(longratings.79.secs$JID, longratings.79.secs$Rating.item),]
longratings.80.secs <- melt(data, id.vars = c(1), measure.vars = c(1028:1039), variable.name = "Rating.item", value.name = "Rating")
longratings.80.secs <- longratings.80.secs[order(longratings.80.secs$JID, longratings.80.secs$Rating.item),]
longratings.81.secs <- melt(data, id.vars = c(1), measure.vars = c(1041:1052), variable.name = "Rating.item", value.name = "Rating")
longratings.81.secs <- longratings.81.secs[order(longratings.81.secs$JID, longratings.81.secs$Rating.item),]
longratings.82.secs <- melt(data, id.vars = c(1), measure.vars = c(1054:1065), variable.name = "Rating.item", value.name = "Rating")
longratings.82.secs <- longratings.82.secs[order(longratings.82.secs$JID, longratings.82.secs$Rating.item),]
longratings.83.secs <- melt(data, id.vars = c(1), measure.vars = c(1067:1078), variable.name = "Rating.item", value.name = "Rating")
longratings.83.secs <- longratings.83.secs[order(longratings.83.secs$JID, longratings.83.secs$Rating.item),]
longratings.84.secs <- melt(data, id.vars = c(1), measure.vars = c(1080:1091), variable.name = "Rating.item", value.name = "Rating")
longratings.84.secs <- longratings.84.secs[order(longratings.84.secs$JID, longratings.84.secs$Rating.item),]
longratings.85.secs <- melt(data, id.vars = c(1), measure.vars = c(1093:1104), variable.name = "Rating.item", value.name = "Rating")
longratings.85.secs <- longratings.85.secs[order(longratings.85.secs$JID, longratings.85.secs$Rating.item),]
longratings.86.secs <- melt(data, id.vars = c(1), measure.vars = c(1106:1117), variable.name = "Rating.item", value.name = "Rating")
longratings.86.secs <- longratings.86.secs[order(longratings.86.secs$JID, longratings.86.secs$Rating.item),]
longratings.87.secs <- melt(data, id.vars = c(1), measure.vars = c(1119:1130), variable.name = "Rating.item", value.name = "Rating")
longratings.87.secs <- longratings.87.secs[order(longratings.87.secs$JID, longratings.87.secs$Rating.item),]
longratings.88.secs <- melt(data, id.vars = c(1), measure.vars = c(1132:1143), variable.name = "Rating.item", value.name = "Rating")
longratings.88.secs <- longratings.88.secs[order(longratings.88.secs$JID, longratings.88.secs$Rating.item),]
longratings.89.secs <- melt(data, id.vars = c(1), measure.vars = c(1145:1156), variable.name = "Rating.item", value.name = "Rating")
longratings.89.secs <- longratings.89.secs[order(longratings.89.secs$JID, longratings.89.secs$Rating.item),]
longratings.90.secs <- melt(data, id.vars = c(1), measure.vars = c(1158:1169), variable.name = "Rating.item", value.name = "Rating")
longratings.90.secs <- longratings.90.secs[order(longratings.90.secs$JID, longratings.90.secs$Rating.item),]
longratings.91.secs <- melt(data, id.vars = c(1), measure.vars = c(1171:1182), variable.name = "Rating.item", value.name = "Rating")
longratings.91.secs <- longratings.91.secs[order(longratings.91.secs$JID, longratings.91.secs$Rating.item),]
longratings.92.secs <- melt(data, id.vars = c(1), measure.vars = c(1184:1195), variable.name = "Rating.item", value.name = "Rating")
longratings.92.secs <- longratings.92.secs[order(longratings.92.secs$JID, longratings.92.secs$Rating.item),]
longratings.93.secs <- melt(data, id.vars = c(1), measure.vars = c(1197:1208), variable.name = "Rating.item", value.name = "Rating")
longratings.93.secs <- longratings.93.secs[order(longratings.93.secs$JID, longratings.93.secs$Rating.item),]
longratings.94.secs <- melt(data, id.vars = c(1), measure.vars = c(1210:1221), variable.name = "Rating.item", value.name = "Rating")
longratings.94.secs <- longratings.94.secs[order(longratings.94.secs$JID, longratings.94.secs$Rating.item),]
longratings.95.secs <- melt(data, id.vars = c(1), measure.vars = c(1223:1234), variable.name = "Rating.item", value.name = "Rating")
longratings.95.secs <- longratings.95.secs[order(longratings.95.secs$JID, longratings.95.secs$Rating.item),]
longratings.96.secs <- melt(data, id.vars = c(1), measure.vars = c(1236:1247), variable.name = "Rating.item", value.name = "Rating")
longratings.96.secs <- longratings.96.secs[order(longratings.96.secs$JID, longratings.96.secs$Rating.item),]
longratings.97.secs <- melt(data, id.vars = c(1), measure.vars = c(1249:1260), variable.name = "Rating.item", value.name = "Rating")
longratings.97.secs <- longratings.97.secs[order(longratings.97.secs$JID, longratings.97.secs$Rating.item),]
longratings.98.secs <- melt(data, id.vars = c(1), measure.vars = c(1262:1273), variable.name = "Rating.item", value.name = "Rating")
longratings.98.secs <- longratings.98.secs[order(longratings.98.secs$JID, longratings.98.secs$Rating.item),]
longratings.99.secs <- melt(data, id.vars = c(1), measure.vars = c(1275:1286), variable.name = "Rating.item", value.name = "Rating")
longratings.99.secs <- longratings.99.secs[order(longratings.99.secs$JID, longratings.99.secs$Rating.item),]
longratings.100.secs <- melt(data, id.vars = c(1), measure.vars = c(1288:1299), variable.name = "Rating.item", value.name = "Rating")
longratings.100.secs <- longratings.100.secs[order(longratings.100.secs$JID, longratings.100.secs$Rating.item),]
longratings.101.secs <- melt(data, id.vars = c(1), measure.vars = c(1301:1312), variable.name = "Rating.item", value.name = "Rating")
longratings.101.secs <- longratings.101.secs[order(longratings.101.secs$JID, longratings.101.secs$Rating.item),]
longratings.102.secs <- melt(data, id.vars = c(1), measure.vars = c(1314:1325), variable.name = "Rating.item", value.name = "Rating")
longratings.102.secs <- longratings.102.secs[order(longratings.102.secs$JID, longratings.102.secs$Rating.item),]
longratings.103.secs <- melt(data, id.vars = c(1), measure.vars = c(1327:1338), variable.name = "Rating.item", value.name = "Rating")
longratings.103.secs <- longratings.103.secs[order(longratings.103.secs$JID, longratings.103.secs$Rating.item),]
longratings.104.secs <- melt(data, id.vars = c(1), measure.vars = c(1340:1351), variable.name = "Rating.item", value.name = "Rating")
longratings.104.secs <- longratings.104.secs[order(longratings.104.secs$JID, longratings.104.secs$Rating.item),]
longratings.105.secs <- melt(data, id.vars = c(1), measure.vars = c(1353:1364), variable.name = "Rating.item", value.name = "Rating")
longratings.105.secs <- longratings.105.secs[order(longratings.105.secs$JID, longratings.105.secs$Rating.item),]
longratings.106.secs <- melt(data, id.vars = c(1), measure.vars = c(1366:1377), variable.name = "Rating.item", value.name = "Rating")
longratings.106.secs <- longratings.106.secs[order(longratings.106.secs$JID, longratings.106.secs$Rating.item),]
longratings.107.secs <- melt(data, id.vars = c(1), measure.vars = c(1379:1390), variable.name = "Rating.item", value.name = "Rating")
longratings.107.secs <- longratings.107.secs[order(longratings.107.secs$JID, longratings.107.secs$Rating.item),]
longratings.108.secs <- melt(data, id.vars = c(1), measure.vars = c(1392:1403), variable.name = "Rating.item", value.name = "Rating")
longratings.108.secs <- longratings.108.secs[order(longratings.108.secs$JID, longratings.108.secs$Rating.item),]
longratings.109.secs <- melt(data, id.vars = c(1), measure.vars = c(1405:1416), variable.name = "Rating.item", value.name = "Rating")
longratings.109.secs <- longratings.109.secs[order(longratings.109.secs$JID, longratings.109.secs$Rating.item),]
longratings.110.secs <- melt(data, id.vars = c(1), measure.vars = c(1418:1429), variable.name = "Rating.item", value.name = "Rating")
longratings.110.secs <- longratings.110.secs[order(longratings.110.secs$JID, longratings.110.secs$Rating.item),]
longratings.111.secs <- melt(data, id.vars = c(1), measure.vars = c(1431:1442), variable.name = "Rating.item", value.name = "Rating")
longratings.111.secs <- longratings.111.secs[order(longratings.111.secs$JID, longratings.111.secs$Rating.item),]
longratings.112.secs <- melt(data, id.vars = c(1), measure.vars = c(1444:1455), variable.name = "Rating.item", value.name = "Rating")
longratings.112.secs <- longratings.112.secs[order(longratings.112.secs$JID, longratings.112.secs$Rating.item),]
longratings.113.secs <- melt(data, id.vars = c(1), measure.vars = c(1457:1468), variable.name = "Rating.item", value.name = "Rating")
longratings.113.secs <- longratings.113.secs[order(longratings.113.secs$JID, longratings.113.secs$Rating.item),]
longratings.114.secs <- melt(data, id.vars = c(1), measure.vars = c(1470:1481), variable.name = "Rating.item", value.name = "Rating")
longratings.114.secs <- longratings.114.secs[order(longratings.114.secs$JID, longratings.114.secs$Rating.item),]
longratings.115.secs <- melt(data, id.vars = c(1), measure.vars = c(1483:1494), variable.name = "Rating.item", value.name = "Rating")
longratings.115.secs <- longratings.115.secs[order(longratings.115.secs$JID, longratings.115.secs$Rating.item),]
longratings.116.secs <- melt(data, id.vars = c(1), measure.vars = c(1496:1507), variable.name = "Rating.item", value.name = "Rating")
longratings.116.secs <- longratings.116.secs[order(longratings.116.secs$JID, longratings.116.secs$Rating.item),]
longratings.117.secs <- melt(data, id.vars = c(1), measure.vars = c(1509:1520), variable.name = "Rating.item", value.name = "Rating")
longratings.117.secs <- longratings.117.secs[order(longratings.117.secs$JID, longratings.117.secs$Rating.item),]
longratings.118.secs <- melt(data, id.vars = c(1), measure.vars = c(1522:1533), variable.name = "Rating.item", value.name = "Rating")
longratings.118.secs <- longratings.118.secs[order(longratings.118.secs$JID, longratings.118.secs$Rating.item),]
longratings.119.secs <- melt(data, id.vars = c(1), measure.vars = c(1535:1546), variable.name = "Rating.item", value.name = "Rating")
longratings.119.secs <- longratings.119.secs[order(longratings.119.secs$JID, longratings.119.secs$Rating.item),]
longratings.120.secs <- melt(data, id.vars = c(1), measure.vars = c(1548:1559), variable.name = "Rating.item", value.name = "Rating")
longratings.120.secs <- longratings.120.secs[order(longratings.120.secs$JID, longratings.120.secs$Rating.item),]
longratings.121.secs <- melt(data, id.vars = c(1), measure.vars = c(1561:1572), variable.name = "Rating.item", value.name = "Rating")
longratings.121.secs <- longratings.121.secs[order(longratings.121.secs$JID, longratings.121.secs$Rating.item),]
longratings.122.secs <- melt(data, id.vars = c(1), measure.vars = c(1574:1585), variable.name = "Rating.item", value.name = "Rating")
longratings.122.secs <- longratings.112.secs[order(longratings.112.secs$JID, longratings.122.secs$Rating.item),]
longratings.123.secs <- melt(data, id.vars = c(1), measure.vars = c(1587:1598), variable.name = "Rating.item", value.name = "Rating")
longratings.123.secs <- longratings.123.secs[order(longratings.123.secs$JID, longratings.123.secs$Rating.item),]
longratings.124.secs <- melt(data, id.vars = c(1), measure.vars = c(1600:1611), variable.name = "Rating.item", value.name = "Rating")
longratings.124.secs <- longratings.124.secs[order(longratings.124.secs$JID, longratings.124.secs$Rating.item),]
longratings.125.secs <- melt(data, id.vars = c(1), measure.vars = c(1613:1624), variable.name = "Rating.item", value.name = "Rating")
longratings.125.secs <- longratings.125.secs[order(longratings.125.secs$JID, longratings.125.secs$Rating.item),]
longratings.126.secs <- melt(data, id.vars = c(1), measure.vars = c(1626:1637), variable.name = "Rating.item", value.name = "Rating")
longratings.126.secs <- longratings.126.secs[order(longratings.126.secs$JID, longratings.126.secs$Rating.item),]
longratings.127.secs <- melt(data, id.vars = c(1), measure.vars = c(1639:1650), variable.name = "Rating.item", value.name = "Rating")
longratings.127.secs <- longratings.127.secs[order(longratings.127.secs$JID, longratings.127.secs$Rating.item),]
longratings.128.secs <- melt(data, id.vars = c(1), measure.vars = c(1652:1663), variable.name = "Rating.item", value.name = "Rating")
longratings.128.secs <- longratings.128.secs[order(longratings.128.secs$JID, longratings.128.secs$Rating.item),]
longratings.129.secs <- melt(data, id.vars = c(1), measure.vars = c(1665:1676), variable.name = "Rating.item", value.name = "Rating")
longratings.129.secs <- longratings.129.secs[order(longratings.129.secs$JID, longratings.129.secs$Rating.item),]
longratings.130.secs <- melt(data, id.vars = c(1), measure.vars = c(1678:1689), variable.name = "Rating.item", value.name = "Rating")
longratings.130.secs <- longratings.130.secs[order(longratings.130.secs$JID, longratings.130.secs$Rating.item),]
longratings.131.secs <- melt(data, id.vars = c(1), measure.vars = c(1691:1702), variable.name = "Rating.item", value.name = "Rating")
longratings.131.secs <- longratings.131.secs[order(longratings.131.secs$JID, longratings.131.secs$Rating.item),]
longratings.132.secs <- melt(data, id.vars = c(1), measure.vars = c(1704:1715), variable.name = "Rating.item", value.name = "Rating")
longratings.132.secs <- longratings.132.secs[order(longratings.132.secs$JID, longratings.132.secs$Rating.item),]
longratings.133.secs <- melt(data, id.vars = c(1), measure.vars = c(1717:1728), variable.name = "Rating.item", value.name = "Rating")
longratings.133.secs <- longratings.133.secs[order(longratings.133.secs$JID, longratings.133.secs$Rating.item),]
longratings.134.secs <- melt(data, id.vars = c(1), measure.vars = c(1730:1741), variable.name = "Rating.item", value.name = "Rating")
longratings.134.secs <- longratings.134.secs[order(longratings.134.secs$JID, longratings.134.secs$Rating.item),]
longratings.135.secs <- melt(data, id.vars = c(1), measure.vars = c(1743:1754), variable.name = "Rating.item", value.name = "Rating")
longratings.135.secs <- longratings.135.secs[order(longratings.135.secs$JID, longratings.135.secs$Rating.item),]
longratings.136.secs <- melt(data, id.vars = c(1), measure.vars = c(1756:1767), variable.name = "Rating.item", value.name = "Rating")
longratings.136.secs <- longratings.136.secs[order(longratings.136.secs$JID, longratings.136.secs$Rating.item),]
longratings.137.secs <- melt(data, id.vars = c(1), measure.vars = c(1769:1780), variable.name = "Rating.item", value.name = "Rating")
longratings.137.secs <- longratings.137.secs[order(longratings.137.secs$JID, longratings.137.secs$Rating.item),]
longratings.138.secs <- melt(data, id.vars = c(1), measure.vars = c(1782:1793), variable.name = "Rating.item", value.name = "Rating")
longratings.138.secs <- longratings.138.secs[order(longratings.138.secs$JID, longratings.138.secs$Rating.item),]
longratings.139.secs <- melt(data, id.vars = c(1), measure.vars = c(1795:1806), variable.name = "Rating.item", value.name = "Rating")
longratings.139.secs <- longratings.139.secs[order(longratings.139.secs$JID, longratings.139.secs$Rating.item),]
longratings.140.secs <- melt(data, id.vars = c(1), measure.vars = c(1808:1819), variable.name = "Rating.item", value.name = "Rating")
longratings.140.secs <- longratings.140.secs[order(longratings.140.secs$JID, longratings.140.secs$Rating.item),]
longratings.141.secs <- melt(data, id.vars = c(1), measure.vars = c(1821:1832), variable.name = "Rating.item", value.name = "Rating")
longratings.141.secs <- longratings.141.secs[order(longratings.141.secs$JID, longratings.141.secs$Rating.item),]
longratings.142.secs <- melt(data, id.vars = c(1), measure.vars = c(1834:1845), variable.name = "Rating.item", value.name = "Rating")
longratings.142.secs <- longratings.142.secs[order(longratings.142.secs$JID, longratings.142.secs$Rating.item),]
longratings.143.secs <- melt(data, id.vars = c(1), measure.vars = c(1847:1858), variable.name = "Rating.item", value.name = "Rating")
longratings.143.secs <- longratings.143.secs[order(longratings.143.secs$JID, longratings.143.secs$Rating.item),]
longratings.144.secs <- melt(data, id.vars = c(1), measure.vars = c(1860:1871), variable.name = "Rating.item", value.name = "Rating")
longratings.144.secs <- longratings.144.secs[order(longratings.144.secs$JID, longratings.144.secs$Rating.item),]
longratings.145.secs <- melt(data, id.vars = c(1), measure.vars = c(1873:1884), variable.name = "Rating.item", value.name = "Rating")
longratings.145.secs <- longratings.145.secs[order(longratings.145.secs$JID, longratings.145.secs$Rating.item),]
longratings.146.secs <- melt(data, id.vars = c(1), measure.vars = c(1886:1897), variable.name = "Rating.item", value.name = "Rating")
longratings.146.secs <- longratings.146.secs[order(longratings.146.secs$JID, longratings.146.secs$Rating.item),]
longratings.147.secs <- melt(data, id.vars = c(1), measure.vars = c(1899:1910), variable.name = "Rating.item", value.name = "Rating")
longratings.147.secs <- longratings.147.secs[order(longratings.147.secs$JID, longratings.147.secs$Rating.item),]
longratings.148.secs <- melt(data, id.vars = c(1), measure.vars = c(1912:1923), variable.name = "Rating.item", value.name = "Rating")
longratings.148.secs <- longratings.148.secs[order(longratings.148.secs$JID, longratings.148.secs$Rating.item),]
longratings.149.secs <- melt(data, id.vars = c(1), measure.vars = c(1925:1936), variable.name = "Rating.item", value.name = "Rating")
longratings.149.secs <- longratings.149.secs[order(longratings.149.secs$JID, longratings.149.secs$Rating.item),]
longratings.150.secs <- melt(data, id.vars = c(1), measure.vars = c(1938:1949), variable.name = "Rating.item", value.name = "Rating")
longratings.150.secs <- longratings.150.secs[order(longratings.150.secs$JID, longratings.150.secs$Rating.item),]SAM.1IG.secs <- cbind(longratings.1.secs,longnorm.secs,longcrit.1.secs, IG.Cond)
SAM.2TW.secs <- cbind(longratings.2.secs,longnorm.secs,longcrit.2.secs, TW.Cond)
SAM.3IG.secs <- cbind(longratings.3.secs,longnorm.secs,longcrit.3.secs,IG.Cond)
SAM.4TW.secs <- cbind(longratings.4.secs,longnorm.secs,longcrit.4.secs, TW.Cond)
SAM.5IG.secs <- cbind(longratings.5.secs,longnorm.secs,longcrit.5.secs,IG.Cond)
SAM.6TW.secs <- cbind(longratings.6.secs,longnorm.secs,longcrit.6.secs, TW.Cond)
SAM.7TW.secs <- cbind(longratings.7.secs,longnorm.secs,longcrit.7.secs, TW.Cond)
SAM.8IG.secs <- cbind(longratings.8.secs,longnorm.secs,longcrit.8.secs,IG.Cond)
SAM.9TW.secs <- cbind(longratings.9.secs,longnorm.secs,longcrit.9.secs, TW.Cond)
SAM.10IG.secs <- cbind(longratings.10.secs,longnorm.secs,longcrit.10.secs,IG.Cond)
SAM.11TW.secs <- cbind(longratings.11.secs,longnorm.secs,longcrit.11.secs, TW.Cond)
SAM.12IG.secs <- cbind(longratings.12.secs,longnorm.secs,longcrit.12.secs,IG.Cond)
SAM.13IG.secs <- cbind(longratings.13.secs,longnorm.secs,longcrit.13.secs,IG.Cond)
SAM.14TW.secs <- cbind(longratings.14.secs,longnorm.secs,longcrit.14.secs, TW.Cond)
SAM.15IG.secs <- cbind(longratings.15.secs,longnorm.secs,longcrit.15.secs,IG.Cond)
SAM.16TW.secs <- cbind(longratings.16.secs,longnorm.secs,longcrit.16.secs, TW.Cond)
SAM.17IG.secs <- cbind(longratings.17.secs,longnorm.secs,longcrit.17.secs,IG.Cond)
SAM.18TW.secs <- cbind(longratings.18.secs,longnorm.secs,longcrit.18.secs, TW.Cond)
SAM.19IG.secs <- cbind(longratings.19.secs,longnorm.secs,longcrit.19.secs,IG.Cond)
SAM.20TW.secs <- cbind(longratings.20.secs,longnorm.secs,longcrit.20.secs, TW.Cond)
SAM.21IG.secs <- cbind(longratings.21.secs,longnorm.secs,longcrit.21.secs,IG.Cond)
SAM.22TW.secs <- cbind(longratings.22.secs,longnorm.secs,longcrit.22.secs, TW.Cond)
SAM.23IG.secs <- cbind(longratings.23.secs,longnorm.secs,longcrit.23.secs,IG.Cond)
SAM.24TW.secs <- cbind(longratings.24.secs,longnorm.secs,longcrit.24.secs, TW.Cond)
SAM.25TW.secs <- cbind(longratings.25.secs,longnorm.secs,longcrit.25.secs, TW.Cond)
SAM.26IG.secs <- cbind(longratings.26.secs,longnorm.secs,longcrit.26.secs,IG.Cond)
SAM.27TW.secs <- cbind(longratings.27.secs,longnorm.secs,longcrit.27.secs, TW.Cond)
SAM.28IG.secs <- cbind(longratings.28.secs,longnorm.secs,longcrit.28.secs,IG.Cond)
SAM.29TW.secs <- cbind(longratings.29.secs,longnorm.secs,longcrit.29.secs, TW.Cond)
SAM.30IG.secs <- cbind(longratings.30.secs,longnorm.secs,longcrit.30.secs,IG.Cond)
SAM.31IG.secs <- cbind(longratings.31.secs,longnorm.secs,longcrit.31.secs,IG.Cond)
SAM.32TW.secs <- cbind(longratings.32.secs,longnorm.secs,longcrit.32.secs, TW.Cond)
SAM.33IG.secs <- cbind(longratings.33.secs,longnorm.secs,longcrit.33.secs,IG.Cond)
SAM.34TW.secs <- cbind(longratings.34.secs,longnorm.secs,longcrit.34.secs, TW.Cond)
SAM.35IG.secs <- cbind(longratings.35.secs,longnorm.secs,longcrit.35.secs,IG.Cond)
SAM.36TW.secs <- cbind(longratings.36.secs,longnorm.secs,longcrit.36.secs, TW.Cond)
SAM.37IG.secs <- cbind(longratings.37.secs,longnorm.secs,longcrit.37.secs,IG.Cond)
SAM.38TW.secs <- cbind(longratings.38.secs,longnorm.secs,longcrit.38.secs, TW.Cond)
SAM.39IG.secs <- cbind(longratings.39.secs,longnorm.secs,longcrit.39.secs,IG.Cond)
SAM.40TW.secs <- cbind(longratings.40.secs,longnorm.secs,longcrit.40.secs, TW.Cond)
SAM.41IG.secs <- cbind(longratings.41.secs,longnorm.secs,longcrit.41.secs,IG.Cond)
SAM.42TW.secs <- cbind(longratings.42.secs,longnorm.secs,longcrit.42.secs, TW.Cond)
SAM.43TW.secs <- cbind(longratings.43.secs,longnorm.secs,longcrit.43.secs, TW.Cond)
SAM.44IG.secs <- cbind(longratings.44.secs,longnorm.secs,longcrit.44.secs,IG.Cond)
SAM.45TW.secs <- cbind(longratings.45.secs,longnorm.secs,longcrit.45.secs, TW.Cond)
SAM.46IG.secs <- cbind(longratings.46.secs,longnorm.secs,longcrit.46.secs,IG.Cond)
SAM.47TW.secs <- cbind(longratings.47.secs,longnorm.secs,longcrit.47.secs, TW.Cond)
SAM.48IG.secs <- cbind(longratings.48.secs,longnorm.secs,longcrit.48.secs,IG.Cond)
SAM.49IG.secs <- cbind(longratings.49.secs,longnorm.secs,longcrit.49.secs,IG.Cond)
SAM.50TW.secs <- cbind(longratings.50.secs,longnorm.secs,longcrit.50.secs, TW.Cond)
SAM.51IG.secs <- cbind(longratings.51.secs,longnorm.secs,longcrit.51.secs,IG.Cond)
SAM.52TW.secs <- cbind(longratings.52.secs,longnorm.secs,longcrit.52.secs, TW.Cond)
SAM.53IG.secs <- cbind(longratings.53.secs,longnorm.secs,longcrit.53.secs,IG.Cond)
SAM.54TW.secs <- cbind(longratings.54.secs,longnorm.secs,longcrit.54.secs, TW.Cond)
SAM.55IG.secs <- cbind(longratings.55.secs,longnorm.secs,longcrit.55.secs,IG.Cond)
SAM.56TW.secs <- cbind(longratings.56.secs,longnorm.secs,longcrit.56.secs, TW.Cond)
SAM.57IG.secs <- cbind(longratings.57.secs,longnorm.secs,longcrit.57.secs,IG.Cond)
SAM.58TW.secs <- cbind(longratings.58.secs,longnorm.secs,longcrit.58.secs, TW.Cond)
SAM.59IG.secs <- cbind(longratings.59.secs,longnorm.secs,longcrit.59.secs,IG.Cond)
SAM.60TW.secs <- cbind(longratings.60.secs,longnorm.secs,longcrit.60.secs, TW.Cond)
SAM.61TW.secs <- cbind(longratings.61.secs,longnorm.secs,longcrit.61.secs, TW.Cond)
SAM.62IG.secs <- cbind(longratings.62.secs,longnorm.secs,longcrit.62.secs,IG.Cond)
SAM.63TW.secs <- cbind(longratings.63.secs,longnorm.secs,longcrit.63.secs, TW.Cond)
SAM.64IG.secs <- cbind(longratings.64.secs,longnorm.secs,longcrit.64.secs,IG.Cond)
SAM.65TW.secs <- cbind(longratings.65.secs,longnorm.secs,longcrit.65.secs, TW.Cond)
SAM.66IG.secs <- cbind(longratings.66.secs,longnorm.secs,longcrit.66.secs,IG.Cond)
SAM.67IG.secs <- cbind(longratings.67.secs,longnorm.secs,longcrit.67.secs,IG.Cond)
SAM.68TW.secs <- cbind(longratings.68.secs,longnorm.secs,longcrit.68.secs, TW.Cond)
SAM.69IG.secs <- cbind(longratings.69.secs,longnorm.secs,longcrit.69.secs,IG.Cond)
SAM.70TW.secs <- cbind(longratings.70.secs,longnorm.secs,longcrit.70.secs, TW.Cond)
SAM.71IG.secs <- cbind(longratings.71.secs,longnorm.secs,longcrit.71.secs,IG.Cond)
SAM.72TW.secs <- cbind(longratings.72.secs,longnorm.secs,longcrit.72.secs, TW.Cond)
SAM.73IG.secs <- cbind(longratings.73.secs,longnorm.secs,longcrit.73.secs,IG.Cond)
SAM.74TW.secs <- cbind(longratings.74.secs,longnorm.secs,longcrit.74.secs, TW.Cond)
SAM.75IG.secs <- cbind(longratings.75.secs,longnorm.secs,longcrit.75.secs,IG.Cond)
SAM.76TW.secs <- cbind(longratings.76.secs,longnorm.secs,longcrit.76.secs, TW.Cond)
SAM.77IG.secs <- cbind(longratings.77.secs,longnorm.secs,longcrit.77.secs,IG.Cond)
SAM.78TW.secs <- cbind(longratings.78.secs,longnorm.secs,longcrit.78.secs, TW.Cond)
SAM.79TW.secs <- cbind(longratings.79.secs,longnorm.secs,longcrit.79.secs, TW.Cond)
SAM.80IG.secs <- cbind(longratings.80.secs,longnorm.secs,longcrit.80.secs,IG.Cond)
SAM.81TW.secs <- cbind(longratings.81.secs,longnorm.secs,longcrit.81.secs, TW.Cond)
SAM.82IG.secs <- cbind(longratings.82.secs,longnorm.secs,longcrit.82.secs,IG.Cond)
SAM.83TW.secs <- cbind(longratings.83.secs,longnorm.secs,longcrit.83.secs, TW.Cond)
SAM.84IG.secs <- cbind(longratings.84.secs,longnorm.secs,longcrit.84.secs,IG.Cond)
SAM.85IG.secs <- cbind(longratings.85.secs,longnorm.secs,longcrit.85.secs,IG.Cond)
SAM.86TW.secs <- cbind(longratings.86.secs,longnorm.secs,longcrit.86.secs, TW.Cond)
SAM.87IG.secs <- cbind(longratings.87.secs,longnorm.secs,longcrit.87.secs,IG.Cond)
SAM.88TW.secs <- cbind(longratings.88.secs,longnorm.secs,longcrit.88.secs, TW.Cond)
SAM.89IG.secs <- cbind(longratings.89.secs,longnorm.secs,longcrit.89.secs,IG.Cond)
SAM.90TW.secs <- cbind(longratings.90.secs,longnorm.secs,longcrit.90.secs, TW.Cond)
SAM.91IG.secs <- cbind(longratings.91.secs,longnorm.secs,longcrit.91.secs,IG.Cond)
SAM.92TW.secs <- cbind(longratings.92.secs,longnorm.secs,longcrit.92.secs, TW.Cond)
SAM.93IG.secs <- cbind(longratings.93.secs,longnorm.secs,longcrit.93.secs,IG.Cond)
SAM.94TW.secs <- cbind(longratings.94.secs,longnorm.secs,longcrit.94.secs, TW.Cond)
SAM.95IG.secs <- cbind(longratings.95.secs,longnorm.secs,longcrit.95.secs,IG.Cond)
SAM.96TW.secs <- cbind(longratings.96.secs,longnorm.secs,longcrit.96.secs, TW.Cond)
SAM.97TW.secs <- cbind(longratings.97.secs,longnorm.secs,longcrit.97.secs, TW.Cond)
SAM.98IG.secs <- cbind(longratings.98.secs,longnorm.secs,longcrit.98.secs,IG.Cond)
SAM.99TW.secs <- cbind(longratings.99.secs,longnorm.secs,longcrit.99.secs, TW.Cond)
SAM.100IG.secs <- cbind(longratings.100.secs,longnorm.secs,longcrit.100.secs,IG.Cond)
SAM.101TW.secs <- cbind(longratings.101.secs,longnorm.secs,longcrit.101.secs, TW.Cond)
SAM.102IG.secs <- cbind(longratings.102.secs,longnorm.secs,longcrit.102.secs,IG.Cond)
SAM.103IG.secs <- cbind(longratings.103.secs,longnorm.secs,longcrit.103.secs,IG.Cond)
SAM.104TW.secs <- cbind(longratings.104.secs,longnorm.secs,longcrit.104.secs, TW.Cond)
SAM.105IG.secs <- cbind(longratings.105.secs,longnorm.secs,longcrit.105.secs,IG.Cond)
SAM.106TW.secs <- cbind(longratings.106.secs,longnorm.secs,longcrit.106.secs, TW.Cond)
SAM.107IG.secs <- cbind(longratings.107.secs,longnorm.secs,longcrit.107.secs,IG.Cond)
SAM.108TW.secs <- cbind(longratings.108.secs,longnorm.secs,longcrit.108.secs, TW.Cond)
SAM.109IG.secs <- cbind(longratings.109.secs,longnorm.secs,longcrit.109.secs,IG.Cond)
SAM.110TW.secs <- cbind(longratings.110.secs,longnorm.secs,longcrit.110.secs, TW.Cond)
SAM.111IG.secs <- cbind(longratings.111.secs,longnorm.secs,longcrit.111.secs,IG.Cond)
SAM.112TW.secs <- cbind(longratings.112.secs,longnorm.secs,longcrit.112.secs, TW.Cond)
SAM.113IG.secs <- cbind(longratings.113.secs,longnorm.secs,longcrit.113.secs,IG.Cond)
SAM.114TW.secs <- cbind(longratings.114.secs,longnorm.secs,longcrit.114.secs, TW.Cond)
SAM.115TW.secs <- cbind(longratings.115.secs,longnorm.secs,longcrit.115.secs, TW.Cond)
SAM.116IG.secs <- cbind(longratings.116.secs,longnorm.secs,longcrit.116.secs,IG.Cond)
SAM.117TW.secs <- cbind(longratings.117.secs,longnorm.secs,longcrit.117.secs, TW.Cond)
SAM.118IG.secs <- cbind(longratings.118.secs,longnorm.secs,longcrit.118.secs,IG.Cond)
SAM.119TW.secs <- cbind(longratings.119.secs,longnorm.secs,longcrit.119.secs, TW.Cond)
SAM.120IG.secs <- cbind(longratings.120.secs,longnorm.secs,longcrit.120.secs,IG.Cond)
SAM.121IG.secs <- cbind(longratings.121.secs,longnorm.secs,longcrit.121.secs,IG.Cond)
SAM.122TW.secs <- cbind(longratings.122.secs,longnorm.secs,longcrit.122.secs, TW.Cond)
SAM.123IG.secs <- cbind(longratings.123.secs,longnorm.secs,longcrit.123.secs,IG.Cond)
SAM.124TW.secs <- cbind(longratings.124.secs,longnorm.secs,longcrit.124.secs, TW.Cond)
SAM.125IG.secs <- cbind(longratings.125.secs,longnorm.secs,longcrit.125.secs,IG.Cond)
SAM.126TW.secs <- cbind(longratings.126.secs,longnorm.secs,longcrit.126.secs, TW.Cond)
SAM.127IG.secs <- cbind(longratings.127.secs,longnorm.secs,longcrit.127.secs,IG.Cond)
SAM.128TW.secs <- cbind(longratings.128.secs,longnorm.secs,longcrit.128.secs, TW.Cond)
SAM.129IG.secs <- cbind(longratings.129.secs,longnorm.secs,longcrit.129.secs,IG.Cond)
SAM.130TW.secs <- cbind(longratings.130.secs,longnorm.secs,longcrit.130.secs, TW.Cond)
SAM.131IG.secs <- cbind(longratings.131.secs,longnorm.secs,longcrit.131.secs,IG.Cond)
SAM.132TW.secs <- cbind(longratings.132.secs,longnorm.secs,longcrit.132.secs, TW.Cond)
SAM.133TW.secs <- cbind(longratings.133.secs,longnorm.secs,longcrit.133.secs, TW.Cond)
SAM.134IG.secs <- cbind(longratings.134.secs,longnorm.secs,longcrit.134.secs,IG.Cond)
SAM.135TW.secs <- cbind(longratings.135.secs,longnorm.secs,longcrit.135.secs, TW.Cond)
SAM.136IG.secs <- cbind(longratings.136.secs,longnorm.secs,longcrit.136.secs,IG.Cond)
SAM.137TW.secs <- cbind(longratings.137.secs,longnorm.secs,longcrit.137.secs, TW.Cond)
SAM.138IG.secs <- cbind(longratings.138.secs,longnorm.secs,longcrit.138.secs,IG.Cond)
SAM.139IG.secs <- cbind(longratings.139.secs,longnorm.secs,longcrit.139.secs,IG.Cond)
SAM.140TW.secs <- cbind(longratings.140.secs,longnorm.secs,longcrit.140.secs, TW.Cond)
SAM.141IG.secs <- cbind(longratings.141.secs,longnorm.secs,longcrit.141.secs,IG.Cond)
SAM.142TW.secs <- cbind(longratings.142.secs,longnorm.secs,longcrit.142.secs, TW.Cond)
SAM.143IG.secs <- cbind(longratings.143.secs,longnorm.secs,longcrit.143.secs,IG.Cond)
SAM.144TW.secs <- cbind(longratings.144.secs,longnorm.secs,longcrit.144.secs, TW.Cond)
SAM.145IG.secs <- cbind(longratings.145.secs,longnorm.secs,longcrit.145.secs,IG.Cond)
SAM.146TW.secs <- cbind(longratings.146.secs,longnorm.secs,longcrit.146.secs, TW.Cond)
SAM.147IG.secs <- cbind(longratings.147.secs,longnorm.secs,longcrit.147.secs,IG.Cond)
SAM.148TW.secs <- cbind(longratings.148.secs,longnorm.secs,longcrit.148.secs, TW.Cond)
SAM.149IG.secs <- cbind(longratings.149.secs,longnorm.secs,longcrit.149.secs,IG.Cond)
SAM.150TW.secs <- cbind(longratings.150.secs,longnorm.secs,longcrit.150.secs, TW.Cond)
SAM.secs<- rbind(SAM.1IG.secs,SAM.2TW.secs,SAM.3IG.secs,SAM.4TW.secs,
SAM.5IG.secs,
SAM.6TW.secs,
SAM.7TW.secs,
SAM.8IG.secs,
SAM.9TW.secs,
SAM.10IG.secs,
SAM.11TW.secs,
SAM.12IG.secs,
SAM.13IG.secs,
SAM.14TW.secs,
SAM.15IG.secs,
SAM.16TW.secs,
SAM.17IG.secs,
SAM.18TW.secs,
SAM.19IG.secs,
SAM.20TW.secs,
SAM.21IG.secs,
SAM.22TW.secs,
SAM.23IG.secs,
SAM.24TW.secs,
SAM.25TW.secs,
SAM.26IG.secs,
SAM.27TW.secs,
SAM.28IG.secs,
SAM.29TW.secs,
SAM.30IG.secs,
SAM.31IG.secs,
SAM.32TW.secs,
SAM.33IG.secs,
SAM.34TW.secs,
SAM.35IG.secs,
SAM.36TW.secs,
SAM.37IG.secs,
SAM.38TW.secs,
SAM.39IG.secs,
SAM.40TW.secs,
SAM.41IG.secs,
SAM.42TW.secs,
SAM.43TW.secs,
SAM.44IG.secs,
SAM.45TW.secs,
SAM.46IG.secs,
SAM.47TW.secs,
SAM.48IG.secs,
SAM.49IG.secs,
SAM.50TW.secs,
SAM.51IG.secs,
SAM.52TW.secs,
SAM.53IG.secs,
SAM.54TW.secs,
SAM.55IG.secs,
SAM.56TW.secs,
SAM.57IG.secs,
SAM.58TW.secs,
SAM.59IG.secs,
SAM.60TW.secs,
SAM.61TW.secs,
SAM.62IG.secs,
SAM.63TW.secs,
SAM.64IG.secs,
SAM.65TW.secs,
SAM.66IG.secs,
SAM.67IG.secs,
SAM.68TW.secs,
SAM.69IG.secs,
SAM.70TW.secs,
SAM.71IG.secs,
SAM.72TW.secs,
SAM.73IG.secs,
SAM.74TW.secs,
SAM.75IG.secs,
SAM.76TW.secs,
SAM.77IG.secs,
SAM.78TW.secs,
SAM.79TW.secs,
SAM.80IG.secs,
SAM.81TW.secs,
SAM.82IG.secs,
SAM.83TW.secs,
SAM.84IG.secs,
SAM.85IG.secs,
SAM.86TW.secs,
SAM.87IG.secs,
SAM.88TW.secs,
SAM.89IG.secs,
SAM.90TW.secs,
SAM.91IG.secs,
SAM.92TW.secs,
SAM.93IG.secs,
SAM.94TW.secs,
SAM.95IG.secs,
SAM.96TW.secs,
SAM.97TW.secs,
SAM.98IG.secs,
SAM.99TW.secs,
SAM.100IG.secs,
SAM.101TW.secs,
SAM.102IG.secs,
SAM.103IG.secs,
SAM.104TW.secs,
SAM.105IG.secs,
SAM.106TW.secs,
SAM.107IG.secs,
SAM.108TW.secs,
SAM.109IG.secs,
SAM.110TW.secs,
SAM.111IG.secs,
SAM.112TW.secs,
SAM.113IG.secs,
SAM.114TW.secs,
SAM.115TW.secs,
SAM.116IG.secs,
SAM.117TW.secs,
SAM.118IG.secs,
SAM.119TW.secs,
SAM.120IG.secs,
SAM.121IG.secs,
SAM.122TW.secs,
SAM.123IG.secs,
SAM.124TW.secs,
SAM.125IG.secs,
SAM.126TW.secs,
SAM.127IG.secs,
SAM.128TW.secs,
SAM.129IG.secs,
SAM.130TW.secs,
SAM.131IG.secs,
SAM.132TW.secs,
SAM.133TW.secs,
SAM.134IG.secs,
SAM.135TW.secs,
SAM.136IG.secs,
SAM.137TW.secs,
SAM.138IG.secs,
SAM.139IG.secs,
SAM.140TW.secs,
SAM.141IG.secs,
SAM.142TW.secs,
SAM.143IG.secs,
SAM.144TW.secs,
SAM.145IG.secs,
SAM.146TW.secs,
SAM.147IG.secs,
SAM.148TW.secs,
SAM.149IG.secs,
SAM.150TW.secs)
SAM.secs.IG <- rbind(SAM.1IG.secs, SAM.3IG.secs,
SAM.5IG.secs,
SAM.8IG.secs,
SAM.10IG.secs,
SAM.12IG.secs,
SAM.13IG.secs,
SAM.15IG.secs,
SAM.17IG.secs,
SAM.19IG.secs,
SAM.21IG.secs,
SAM.23IG.secs,
SAM.26IG.secs,
SAM.28IG.secs,
SAM.30IG.secs,
SAM.31IG.secs,
SAM.33IG.secs,
SAM.35IG.secs,
SAM.37IG.secs,
SAM.39IG.secs,
SAM.41IG.secs,
SAM.44IG.secs,
SAM.46IG.secs,
SAM.48IG.secs,
SAM.49IG.secs,
SAM.51IG.secs,
SAM.53IG.secs,
SAM.55IG.secs,
SAM.57IG.secs,
SAM.59IG.secs,
SAM.62IG.secs,
SAM.64IG.secs,
SAM.66IG.secs,
SAM.67IG.secs,
SAM.69IG.secs,
SAM.71IG.secs,
SAM.73IG.secs,
SAM.75IG.secs,
SAM.77IG.secs,
SAM.80IG.secs,
SAM.82IG.secs,
SAM.84IG.secs,
SAM.85IG.secs,
SAM.87IG.secs,
SAM.89IG.secs,
SAM.91IG.secs,
SAM.93IG.secs,
SAM.95IG.secs,
SAM.98IG.secs,
SAM.100IG.secs,
SAM.102IG.secs,
SAM.103IG.secs,
SAM.105IG.secs,
SAM.107IG.secs,
SAM.109IG.secs,
SAM.111IG.secs,
SAM.113IG.secs,
SAM.116IG.secs,
SAM.118IG.secs,
SAM.120IG.secs,
SAM.121IG.secs,
SAM.123IG.secs,
SAM.125IG.secs,
SAM.127IG.secs,
SAM.129IG.secs,
SAM.131IG.secs,
SAM.134IG.secs,
SAM.136IG.secs,
SAM.138IG.secs,
SAM.139IG.secs,
SAM.141IG.secs,
SAM.143IG.secs,
SAM.145IG.secs,
SAM.147IG.secs,
SAM.149IG.secs)
SAM.secs.TW <- rbind(SAM.2TW.secs, SAM.4TW.secs,
SAM.6TW.secs,
SAM.7TW.secs,
SAM.9TW.secs,
SAM.11TW.secs,
SAM.14TW.secs,
SAM.16TW.secs,
SAM.18TW.secs,
SAM.20TW.secs,
SAM.22TW.secs,
SAM.24TW.secs,
SAM.25TW.secs,
SAM.27TW.secs,
SAM.29TW.secs,
SAM.32TW.secs,
SAM.34TW.secs,
SAM.36TW.secs,
SAM.38TW.secs,
SAM.40TW.secs,
SAM.42TW.secs,
SAM.43TW.secs,
SAM.45TW.secs,
SAM.47TW.secs,
SAM.50TW.secs,
SAM.52TW.secs,
SAM.54TW.secs,
SAM.56TW.secs,
SAM.58TW.secs,
SAM.60TW.secs,
SAM.61TW.secs,
SAM.63TW.secs,
SAM.65TW.secs,
SAM.68TW.secs,
SAM.70TW.secs,
SAM.72TW.secs,
SAM.74TW.secs,
SAM.76TW.secs,
SAM.78TW.secs,
SAM.79TW.secs,
SAM.81TW.secs,
SAM.83TW.secs,
SAM.86TW.secs,
SAM.88TW.secs,
SAM.90TW.secs,
SAM.92TW.secs,
SAM.94TW.secs,
SAM.96TW.secs,
SAM.97TW.secs,
SAM.99TW.secs,
SAM.101TW.secs,
SAM.104TW.secs,
SAM.106TW.secs,
SAM.108TW.secs,
SAM.110TW.secs,
SAM.112TW.secs,
SAM.114TW.secs,
SAM.115TW.secs,
SAM.117TW.secs,
SAM.119TW.secs,
SAM.122TW.secs,
SAM.124TW.secs,
SAM.126TW.secs,
SAM.128TW.secs,
SAM.130TW.secs,
SAM.132TW.secs,
SAM.133TW.secs,
SAM.135TW.secs,
SAM.137TW.secs,
SAM.140TW.secs,
SAM.142TW.secs,
SAM.144TW.secs,
SAM.146TW.secs,
SAM.148TW.secs,
SAM.150TW.secs)#Subtract the Normative profile from the predictors and then mean center predictors for each personality measure
SAM.secs$Norm.MC <- SAM.secs$Norm - mean(SAM.secs$Norm, na.rm=TRUE)
SAM.secs$SRminusNorm <- SAM.secs$Sr - SAM.secs$Norm
SAM.secs$SR.MC <- SAM.secs$SRminusNorm - (mean(SAM.secs$SRminusNorm, na.rm=TRUE))
SAM.secs.IG$Norm.MC <- SAM.secs.IG$Norm - mean(SAM.secs.IG$Norm, na.rm=TRUE)
SAM.secs.IG$SRminusNorm <- SAM.secs.IG$Sr - SAM.secs.IG$Norm
SAM.secs.IG$SR.MC <- SAM.secs.IG$SRminusNorm - (mean(SAM.secs.IG$SRminusNorm, na.rm=TRUE))
SAM.secs.TW$Norm.MC <- SAM.secs.TW$Norm - mean(SAM.secs.TW$Norm, na.rm=TRUE)
SAM.secs.TW$SRminusNorm <- SAM.secs.TW$Sr - SAM.secs.TW$Norm
SAM.secs.TW$SR.MC <- SAM.secs.TW$SRminusNorm - (mean(SAM.secs.TW$SRminusNorm, na.rm=TRUE))summary(secs.full <- lmer(Rating ~ 1 + SR.MC + Norm.MC + (1 + SR.MC + Norm.MC | JID) + (1 + SR.MC + Norm.MC | TID), data = SAM.secs, control = lmerControl(optimizer ='bobyqa')))## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: Rating ~ 1 + SR.MC + Norm.MC + (1 + SR.MC + Norm.MC | JID) +
## (1 + SR.MC + Norm.MC | TID)
## Data: SAM.secs
## Control: lmerControl(optimizer = "bobyqa")
##
## REML criterion at convergence: 84106.7
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -4.0568 -0.5500 0.0349 0.6698 3.4473
##
## Random effects:
## Groups Name Variance Std.Dev. Corr
## JID (Intercept) 0.935771 0.96735
## SR.MC 0.009784 0.09891 -0.21
## Norm.MC 0.047907 0.21888 0.51 0.57
## TID (Intercept) 0.216334 0.46512
## SR.MC 0.023952 0.15476 0.35
## Norm.MC 0.026337 0.16229 0.91 0.54
## Residual 4.860686 2.20470
## Number of obs: 18708, groups: JID, 277; TID, 147
##
## Fixed effects:
## Estimate Std. Error df t value Pr(>|t|)
## (Intercept) 5.99041 0.07219 360.48396 82.986 < 2e-16 ***
## SR.MC 0.06611 0.01578 174.79927 4.191 4.41e-05 ***
## Norm.MC 0.40308 0.02859 156.56312 14.100 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) SR.MC
## SR.MC 0.085
## Norm.MC 0.419 0.339summary(secs.IG <- lmer(Rating ~ 1 + SR.MC + Norm.MC + (1 + SR.MC + Norm.MC | JID) + (1 + SR.MC + Norm.MC | TID), data = SAM.secs.IG, control = lmerControl(optimizer ='bobyqa')))## boundary (singular) fit: see ?isSingular## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: Rating ~ 1 + SR.MC + Norm.MC + (1 + SR.MC + Norm.MC | JID) +
## (1 + SR.MC + Norm.MC | TID)
## Data: SAM.secs.IG
## Control: lmerControl(optimizer = "bobyqa")
##
## REML criterion at convergence: 42600.6
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -3.7904 -0.5460 0.0300 0.6746 3.5096
##
## Random effects:
## Groups Name Variance Std.Dev. Corr
## JID (Intercept) 0.981803 0.99086
## SR.MC 0.015549 0.12470 -0.15
## Norm.MC 0.042025 0.20500 0.68 0.62
## TID (Intercept) 0.134761 0.36710
## SR.MC 0.024167 0.15546 0.11
## Norm.MC 0.009679 0.09838 0.99 0.24
## Residual 4.795567 2.18988
## Number of obs: 9455, groups: JID, 273; TID, 73
##
## Fixed effects:
## Estimate Std. Error df t value Pr(>|t|)
## (Intercept) 6.11149 0.07829 210.21677 78.061 < 2e-16 ***
## SR.MC 0.08238 0.02196 82.17334 3.751 0.000327 ***
## Norm.MC 0.47008 0.03452 213.00094 13.618 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) SR.MC
## SR.MC 0.002
## Norm.MC 0.375 0.182
## convergence code: 0
## boundary (singular) fit: see ?isSingularsummary(secs.TW <- lmer(Rating ~ 1 + SR.MC + Norm.MC + (1 + SR.MC + Norm.MC | JID) + (1 + SR.MC + Norm.MC | TID), data = SAM.secs.TW, control = lmerControl(optimizer ='bobyqa')))## boundary (singular) fit: see ?isSingular## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: Rating ~ 1 + SR.MC + Norm.MC + (1 + SR.MC + Norm.MC | JID) +
## (1 + SR.MC + Norm.MC | TID)
## Data: SAM.secs.TW
## Control: lmerControl(optimizer = "bobyqa")
##
## REML criterion at convergence: 41519.8
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -3.9537 -0.5385 0.0351 0.6292 3.5189
##
## Random effects:
## Groups Name Variance Std.Dev. Corr
## JID (Intercept) 1.14770 1.0713
## SR.MC 0.01181 0.1087 -0.16
## Norm.MC 0.03935 0.1984 0.72 0.58
## TID (Intercept) 0.22946 0.4790
## SR.MC 0.02457 0.1568 0.61
## Norm.MC 0.05785 0.2405 0.73 0.62
## Residual 4.67860 2.1630
## Number of obs: 9253, groups: JID, 272; TID, 74
##
## Fixed effects:
## Estimate Std. Error df t value Pr(>|t|)
## (Intercept) 5.86900 0.08947 188.18664 65.600 < 2e-16 ***
## SR.MC 0.04930 0.02186 79.75368 2.255 0.0269 *
## Norm.MC 0.33484 0.04266 81.56394 7.849 1.44e-11 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) SR.MC
## SR.MC 0.289
## Norm.MC 0.452 0.419
## convergence code: 0
## boundary (singular) fit: see ?isSingularnames(SAM.secs)## [1] "JID" "Rating.item" "Rating" "PoltiicalParty"
## [5] "Norm.item" "Norm" "TID" "Sr.item"
## [9] "Sr" "ï..ConType" "Norm.MC" "SRminusNorm"
## [13] "SR.MC"names(SAM.secs)[names(SAM.secs) == "ï..ConType"] <- "ConType"
SAM.secs$ConIG <-0
SAM.secs$ConIG [SAM.secs$ConType==1]<-1
summary(secs.comparison <- lmer(Rating ~ 1 + SR.MC*ConIG + Norm.MC*ConIG +(1 + SR.MC + Norm.MC | JID) + (1 + SR.MC + Norm.MC | TID), data = SAM.secs, control = lmerControl(optimizer ='bobyqa')))## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula:
## Rating ~ 1 + SR.MC * ConIG + Norm.MC * ConIG + (1 + SR.MC + Norm.MC |
## JID) + (1 + SR.MC + Norm.MC | TID)
## Data: SAM.secs
## Control: lmerControl(optimizer = "bobyqa")
##
## REML criterion at convergence: 84109
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -4.0780 -0.5509 0.0350 0.6705 3.4463
##
## Random effects:
## Groups Name Variance Std.Dev. Corr
## JID (Intercept) 0.936714 0.96784
## SR.MC 0.009768 0.09883 -0.21
## Norm.MC 0.047503 0.21795 0.51 0.57
## TID (Intercept) 0.202467 0.44996
## SR.MC 0.024010 0.15495 0.34
## Norm.MC 0.022655 0.15052 0.89 0.54
## Residual 4.860723 2.20470
## Number of obs: 18708, groups: JID, 277; TID, 147
##
## Fixed effects:
## Estimate Std. Error df t value Pr(>|t|)
## (Intercept) 5.87118 0.08254 329.57835 71.132 < 2e-16 ***
## SR.MC 0.05146 0.02155 156.85915 2.388 0.01813 *
## ConIG 0.23923 0.08271 125.05791 2.893 0.00451 **
## Norm.MC 0.33773 0.03753 166.60294 8.999 4.97e-16 ***
## SR.MC:ConIG 0.02938 0.02919 133.38398 1.006 0.31609
## ConIG:Norm.MC 0.13063 0.04962 135.67686 2.633 0.00946 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) SR.MC ConIG Nrm.MC SR.MC:
## SR.MC 0.144
## ConIG -0.499 -0.186
## Norm.MC 0.399 0.305 -0.272
## SR.MC:ConIG -0.137 -0.681 0.263 -0.184
## CnIG:Nrm.MC -0.206 -0.188 0.410 -0.662 0.280library(MASS)##
## Attaching package: 'MASS'## The following object is masked from 'package:dplyr':
##
## selectPPAJ <- read.table("politicalpartychi.csv", header = T, sep = ",")
colnames(PPAJ)## [1] "SNS" "Match" "Aisle"tbl = table(PPAJ$SNS, PPAJ$Match)
tbl##
## 0 1
## IG 643 146
## TW 598 187chisq.test(tbl)##
## Pearson's Chi-squared test with Yates' continuity correction
##
## data: tbl
## X-squared = 6.3547, df = 1, p-value = 0.01171tbl2 = table (PPAJ$SNS, PPAJ$Aisle)
tbl2##
## 0 1
## IG 486 303
## TW 455 330chisq.test(tbl2)##
## Pearson's Chi-squared test with Yates' continuity correction
##
## data: tbl2
## X-squared = 2.0142, df = 1, p-value = 0.1558#ztests
#IG
prop.test(x = c(113, 146), n = c(789, 789))##
## 2-sample test for equality of proportions with continuity
## correction
##
## data: c(113, 146) out of c(789, 789)
## X-squared = 4.73, df = 1, p-value = 0.02964
## alternative hypothesis: two.sided
## 95 percent confidence interval:
## -0.079584429 -0.004065761
## sample estimates:
## prop 1 prop 2
## 0.1432193 0.1850444#Twitter
prop.test(x=c(112,187), n = c(785,785))##
## 2-sample test for equality of proportions with continuity
## correction
##
## data: c(112, 187) out of c(785, 785)
## X-squared = 22.623, df = 1, p-value = 1.971e-06
## alternative hypothesis: two.sided
## 95 percent confidence interval:
## -0.13537190 -0.05571091
## sample estimates:
## prop 1 prop 2
## 0.1426752 0.2382166