check fake CAMS

load drawn CAMs

Load R packages, drawn CAMs:

# sets the directory of location of this script as the current directory
# setwd(dirname(rstudioapi::getSourceEditorContext()$path))

### load packages
require(pacman)
p_load('igraph')


### load drawn CAM data
## t1
CAMdrawn_t1 <- readRDS(file = "CAMdrawn_t1.rds")
CAMdrawn_t1_fake <- readRDS(file = "CAMdrawn_t1_fake.rds")

## t2
CAMdrawn_t2 <- readRDS(file = "CAMdrawn_t2.rds")
CAMdrawn_t2_fake <- readRDS(file = "CAMdrawn_t2_fake.rds")

## t2 control group
CAMdrawn_t2_controlGroup <- readRDS(file = "CAMdrawn_t2_controlGroup.rds")
CAMdrawn_t2_controlGroup_fake <- readRDS(file = "CAMdrawn_t2_controlGroup_fake.rds")

drawn fake CAMs

t1

for(i in 1:length(CAMdrawn_t1_fake$ID_fakeCAMs)){
  print(CAMdrawn_t1_fake$ID_fakeCAMs[i])
  plot(CAMdrawn_t1[[CAMdrawn_t1_fake$ID_fakeCAMs[i]]], edge.arrow.size = .5,
     layout=layout_nicely, vertex.frame.color="black", asp = .5, margin = -0.1,
     vertex.size = 5, vertex.label.cex = .9)
}

[1] "3a2da12f5e62f5b58f138d32ce0e3e47"

[1] "6df8127677e1310f54b46fce7ecbe7c0"

[1] "9d8fe0ec0b475ae065a952185f90eb65"

[1] "8d85797df94194aeca0e5447a6976048"

[1] "b5abd2c73a431e994075a7c41ed815ef"

[1] "e9535e561025ce17933945b0e5ecc5a3"

[1] "11346b4391ffbaa84aa85630920666bd"

[1] "3f7f1bf1016c54b19fc012720b4eb561"

[1] "e6a5e189327871664ce6e8fc1aa3b371"

[1] "f91814c463ebd493738afff4c9b6699b"

[1] "ea2f58e96380c62ce970e4ca3354c2b6"

[1] "ff10552a54d97af4bf47171fc0063da7"

[1] "022a64b7f97d00d54a70ed8581954150"

[1] "502c50f7bc56d6725fe137fff6407d79"

[1] "c4a575cf4976b51fe377ef56dc6a9e69"

[1] "dc73d1cfdfc4962b0f28056ce3406ac2"

[1] "9f0f5e9a24ed92dbf912bed3d8eaec9b"

[1] "81ae26cc86ae22e0b529e4aaeb7389e6"

[1] "ad3773bed551f65d9217a81cbd96668e"

[1] "46a8351463a9fbe17bcddb622c748f5a"

[1] "b2379960bd2842ce7313dd27e0d5ed38"

[1] "08f270b4df37241e554b4c7565b0f8c9"

[1] "a84724aba4777944eec007a709296f07"

[1] "b4c6ee0d8e3f85c2600ee5240d61e469"

[1] "0bd12289c2ab8ef15dfa0a400805f3d1"

[1] "d86958bb4a48a0251c1e250990eda9a7"

[1] "229f5f8b4620cba1ed6c3f6bb7afe00f"

[1] "60ac1c4f664ed5acd4abde2641d83858"

[1] "f32c73f24a0b9ec398e79364c918d216"

[1] "49c61ca284cdc2697b6f6ebb3866d75b"

[1] "1a7061a9feaa62e1a2d0f81429b64c44"

[1] "5f805391c91f6d9546faf19d584c0b84"

[1] "f70c20248d26c8ffe699147e0345d778"

[1] "3533682accb03ed655e6005cd0377c3f"

[1] "da78b25df084a728deafa86125a4f2e5"

[1] "f04d36af5c918329e2e430cb6a00870d"

[1] "51c22d9b1016cc23be9bbbe5d4f60102"

[1] "3f3febef723ed5e70c9c2eb095bf3992"

[1] "a3a42478f532e5e1e061ed248e10ba73"

[1] "d0446ead0e072286117c0a945c5d5f1d"

[1] "73b5010364011484587f504d79f13771"

[1] "90504081eb1ac2bf8761805ea2511948"

[1] "8bac1ca505d44cb87b8f23d75db1f045"

[1] "31004c8a7292fc28ba966741cf49d182"

[1] "4da5648c71bf541f13d984dfbd774d45"

[1] "66c8b26872e584fed014084837e2a3ae"

[1] "26682743812c29da6c02aa7c1aa6cee0"

[1] "08e8b7528aaf793b81f4cb4fc36e1be5"

[1] "0c706c3210d3df86d5bd0fcfeef8896e"

[1] "60004e7899270fb62ffcec012b27a579"

[1] "5ce1353c2e55bff7e2f9fe645fa5e015"

[1] "686762cae436b3ff202b94a007536f65"

[1] "3e538006aad80f6ff0313de54607bd55"

[1] "84fa4c2913549e24f459f79da4d478cc"

[1] "9294a3bd0e5c3f31e35f03d44b2d58cf"

[1] "3f1dec74636486eec5ddcca1ce83a0cd"

[1] "731886335fbc33a3aed7bfe1c12b2eab"

[1] "4ec482fcac978dfba778cd21d31c8285"

[1] "0cc72f36d75fc9a08e749293193592a1"

[1] "52d400886e0c408032221bc8ff8b431d"

[1] "83f1ce22d757e8d4cb21d82e38be3acf"

[1] "e1a502e3bf385515403167dc94dd1392"

[1] "647edc207bb1da37bb723330dba5a325"

[1] "a1da5477f1baa65a2e5c4ff82efa82f7"

[1] "3aadb02b620826a41a91e067739e5a4f"

[1] "dcf60f8b4a1d275c0bc16111027ff7c5"

[1] "e385fffd87b1665f3c5626e7d5328783"

[1] "893aacabe030392c25b26c941240e30d"

[1] "554cfe3dc749c78353b92eeb257bf91d"

[1] "7ffdde304941c89749bf3b796bffb9b6"

[1] "e8e93251e47955a32b4887e9d0678ed0"

[1] "ba5eff7832dc7bc99fb22f4c919e29e2"

[1] "55dc00e212962a5aeaa0280581943acd"

[1] "843b52986239666bb382b230989d9aec"

[1] "64eb2a903ffbf6ca5dc06d53f9373a7d"

[1] "2caa1286c8cf5c5f4c7a2613b207e4ae"

[1] "a6d689e0d97576ef9d63cd404bca4a02"

[1] "17a0849c937dc5ab6944e3731fe276d0"

[1] "9b6fe0827438ecb3e3d7fca733a620bb"

[1] "d08c69e3aa3bd8d8855b8997a17104f3"

[1] "7a1157f8a79e6a5b3b907776f9b642f9"

[1] "22fd4bcff97e520558cdaf204819e5ab"

[1] "7244cb36118ccf3a56f903e046b1d4cc"

[1] "a2983d2ceadf92931f16db540fab62c8"

[1] "b1eeb85634907a6f3f34b8263cf46c95"

[1] "f0713eafc868f18d91f762e2d7ce545a"

[1] "57b5a61aa6f76f178f5da3e0c5ee7b16"

[1] "8d395f4579289ef36560794fe6f9324c"

[1] "1ee741e9424774e64830365bc7d30a46"

[1] "d9f65c3e776ac69d677387d73c5731ed"

[1] "4a5ceee496ef7a1fa6205604643fa37f"

[1] "3008d1e21ea49d1c8c5207be1be703bc"

[1] "5c8ae580a2568e0cdd297f0ce579e52d"

[1] "0f201afd156160ebb16b8ec58100eecf"

[1] "beb16d01834a93db70522a89325d485e"

[1] "14c75345fc4a30c6aa2ad1b45c0cafdf"

[1] "f0ae4c551636fbae37461234d3f515d6"

[1] "674e92e1ad74d74b5eae470bd364556d"

[1] "6f2289203a98bc01e7862a0182302aa3"

[1] "afeef7d7e277927577139490ae564aa8"

[1] "b2d402c3a42185526bacccdf0c187c16"

[1] "7a6929fa815be39e944491eadd585da9"

[1] "4b56d22a2c60c1f79bee45d8f347c8ab"

[1] "4e9143392d28492266e25fd871f206e8"

[1] "dbfad6727b13dcf4ceaf6d7f8a5aaa87"

[1] "de787e00debf4c03a11f453dfe05806a"

[1] "b331412f2750a5acfd0c1c7edcbb4bbc"

[1] "14fe06e63a20acdde11f49131f604347"

[1] "c394470f5578e3cc3eaf5310d4da1483"

[1] "9fdd76d975eed6738d4e8eeebaef89ef"

[1] "2bb8506c29e8ebf78f4d7ff0bd7761be"

[1] "939619ad1928f345d9568a1b4059f3d3"

[1] "26f194bdfcf85689c2d0c6cf6e4434cd"

[1] "e3969f289428d1a8ea9bd34ecf26fafa"

[1] "53a5fc1046e8af7a53ec14fb11747935"

[1] "4cae1471ca4bb297f05b8bd3e8788866"

[1] "b6e63aaf975f488901ec86212c67846b"

[1] "5a691b7b310b3621dd70d81a5c163649"

[1] "bbb6be6a1ffcdbc38a9cce7a35bed18c"

[1] "7a2a884dc7d9621210fb5db8f3e977f8"

[1] "18bb2e604239a661fe6e620fb3c19bfd"

[1] "79cbdec01f3c5f01dcf35c715d479a28"

[1] "48e9e6db61c7d08387d5a96f23e8e1fa"

[1] "276c7971571afb27c6ccf0288d462535"

[1] "ee7e4d5aa37ffbcd94316410af63502f"

t2

for(i in 1:length(CAMdrawn_t2_fake$ID_fakeCAMs)){
  print(CAMdrawn_t2_fake$ID_fakeCAMs[i])
  plot(CAMdrawn_t2[[CAMdrawn_t2_fake$ID_fakeCAMs[i]]], edge.arrow.size = .5,
     layout=layout_nicely, vertex.frame.color="black", asp = .5, margin = -0.1,
     vertex.size = 5, vertex.label.cex = .9)
}

[1] "8d74dad48888b10c0dd3b46324ff027c"

[1] "893fb166543b966acb5f29b709fac669"

[1] "2762b7046f18205fd11a33278ab028e2"

[1] "b8e9087a55519124efbfb7763e3f3bde"

[1] "95c42ecfe379b9ffc7d8e4b240a59e86"

[1] "961a401f3586bc1a93a6ce046a46d101"

[1] "f4420c141043c65905b2cb77dac04d55"

[1] "94b43d99038a8831126e8deed76cb102"

[1] "88d4753fa3080db46813d34cb29e19a2"

[1] "0b28f7266f8780d5b5ddeeae18162d70"

[1] "769bc168a2271f8be9a93faf0cc59f76"

[1] "7e7c2cb61ddba01f1ba976e467ccb503"

[1] "ee20f0f96c2cf5f9a283889a2b18791f"

[1] "599477b06a0f0013ac8ba65094c7db7a"

[1] "c5ac73ff0e2ed88c227f6b812fce33bb"

[1] "2eb3729a5da3424ef431a8b541506a3d"

[1] "e6ae515b9ccc5626ad3c04fd8cbe15f2"

[1] "a2d54d4a0c5ca37d1a2de36a3938c8f2"

[1] "9480de64e0f93e5f2fcf6d61bd5a1a85"

[1] "2ea70a19ff43cc7cda7bc9d36d458b9b"

[1] "8fbe7354cb8e8567fd44419d0fcfc832"

[1] "e4aa58d4c2953bcd405f2fe6162a2913"

[1] "1125e219980e009eec27701adf71c5b4"

[1] "89fd7035c769d2e328ce810edaba6253"

[1] "54390dca902be29e1bc12acf35fa7faf"

[1] "9ad277b403f0cab35eeb01592a6e63ea"

[1] "0f651c83d9b5c3ed5c16a95ba3692612"

[1] "9d7e4891bb9cb356746b6b411e8bc44c"

[1] "46616184cf4ab29e9b5c0e70ae2c19be"

[1] "a2dbe20c5fb208f2203d5b6fa9ccdee8"

[1] "179ce9447d02d7ca0a4c55b3cfa4e854"

[1] "9c646a402946182f3fbbce03cabedb81"

[1] "f0cb06e6f07914631e6a4ab03f068628"

[1] "158150a5eb4d4330f5910bd71beb8fd7"

[1] "51fccb38498bde2ef6661e675e6010cb"

[1] "51faf2bb8ee417744f1fc613706c9ef8"

[1] "98db25bdd3c8dca027bb309c56f049f3"

[1] "14610f28c6a723e918cc4724e79be2fe"

[1] "ddde09e8ac4604983c2e313df3672338"

[1] "b50adb7f8d458f70c5d0439b00a673c5"

[1] "87b0356a7bf91ad2e2ec23befd0ed29d"

[1] "3748a01168821be600af685a8f4162f9"

[1] "e7c23f3d41da04a9895440587ddbc34b"

[1] "f60b9cbeb69415803c1b5b379da9a65b"

[1] "dff74c8504d931186e9cf977a3792e6b"

[1] "378a4d80e040b887de77c0629d701f51"

[1] "33cf628b6127e4b1818126a5fca713b6"

[1] "124b1fc0b74e805590147c8eead26303"

[1] "0e68e5f82e3b54c9672c8188b8818e4a"

[1] "b66d4b631a31ba2386203679507f58c3"

[1] "2331a5742b138d26d6a11b5f2c266d77"

t2 control group

for(i in 1:length(CAMdrawn_t2_controlGroup_fake$ID_fakeCAMs)){
  print(CAMdrawn_t2_controlGroup_fake$ID_fakeCAMs[i])
  plot(CAMdrawn_t2_controlGroup[[CAMdrawn_t2_controlGroup_fake$ID_fakeCAMs[i]]], edge.arrow.size = .5,
     layout=layout_nicely, vertex.frame.color="black", asp = .5, margin = -0.1,
     vertex.size = 5, vertex.label.cex = .9)
}

[1] "523aa001f490a2e04b04eac38f3bf6f9"

[1] "e8dd08111d340b58cc6a5dfe5301bb61"

[1] "9dbb76441b2f4bd8702d3b2d98f38558"

[1] "cda05ccda2e1de63b46a2a2bbe77d658"

[1] "9a95f0b3b6b122310e6ef674bdb77836"

[1] "1d0f48968dd27c6b9d642cbbabc8d25f"

[1] "1ac1c242d7bf3b2229149d786213a27b"

[1] "6fb19b00ee3f25faf3164298b0b4cbce"

[1] "9e8b92320f09a3d52031a46210db9a46"

[1] "1ff7f550e06e9267fe4f1050b59e625f"

[1] "163291b38fc470668eca137ff7d404c0"