Weddell serum proteomics correlation
library(ggplot2)
#library(dplyr) # easier data wrangling
library(viridis) # colour blind friendly palette, works in B&W also
#library(Interpol.T) # will generate a large dataset on initial load
library(lubridate) # for easy date manipulation
#library(ggExtra) # because remembering ggplot theme options is beyond me
library(tidyr)
library(mgcv)
library(gamm4)
library(pspline)
library(suncalc)
library(lmerTest)
library(MuMIn)
library(parallel)
library(mgcViz)
library(rgl)
library(feather)
library(data.table)
library(car)
library(ggplot2)
library(grid)
library(animation)
library(itsadug)
library(visreg)
setwd("~/Desktop/weddell proteomics")
prot<- read.csv("serum proteomics correls for R.csv")
attach(prot)The following objects are masked from prot (pos = 3):
Hi_01_Early, Hi_01_Late, Hi_02_Early, Hi_02_Late, Hi_03_Early, Hi_03_Late, HiPup_01_Early,
HiPup_01_Late, HiPup_02_Early, HiPup_02_Late, HiPup_03_Early, HiPup_03_Late, ID, Lo_01_Early,
Lo_01_Late, Lo_02_Early, Lo_02_Late, LoPup_01_Early, LoPup_01_Late, LoPup_02_Early, LoPup_02_Late
The following objects are masked from prot (pos = 4):
Hi_01_Early, Hi_01_Late, Hi_02_Early, Hi_02_Late, Hi_03_Early, Hi_03_Late, HiPup_01_Early,
HiPup_01_Late, HiPup_02_Early, HiPup_02_Late, HiPup_03_Early, HiPup_03_Late, ID, Lo_01_Early,
Lo_01_Late, Lo_02_Early, Lo_02_Late, LoPup_01_Early, LoPup_01_Late, LoPup_02_Early, LoPup_02_Latehead(prot)serum.correl.stats<- matrix(nrow=322,ncol=5)
colnames(serum.correl.stats)<-c("Protein","R.squared","Adj.R.squared","F.stat","P.value")
for(i in 6:nrow(prot)) {
x.mom<- as.numeric(prot[i,2:11])
y.pup<- as.numeric(prot[i,12:21])
plot(y.pup~x.mom, main=prot$ID[i])
serum.correl.stats[i,1]<- prot$ID[i]
lm1<-lm(y.pup~x.mom)
serum.correl.stats[i,2]<- summary(lm1)$r.squared
serum.correl.stats[i,3]<- summary(lm1)$adj.r.squared
serum.correl.stats[i,4]<- summary(lm1)$fstatistic[1]
overall_p <- function(lm1) {
f <- summary(lm1)$fstatistic
p <- pf(f[1],f[2],f[3],lower.tail=F)
attributes(p) <- NULL
return(p)
}
serum.correl.stats[i,5]<- overall_p(lm1)
newx <- seq(min(x.mom), max(x.mom), length.out=10)
preds <- predict(lm1, newdata = data.frame(x.mom=newx),
interval = 'confidence')
polygon(c(rev(newx), newx), c(rev(preds[ ,3]), preds[ ,2]), col = 'grey80', border = NA)
abline(lm1, lwd = 2)
points(prot[i,2:6], prot[i,12:16], col = "red", pch =16, cex = 1.3)
points(prot[i,7:11], prot[i,17:21], col = "purple4", pch =16, cex = 1.3)
}
NA
NAserum.correl.stats Protein R.squared Adj.R.squared F.stat P.value
[1,] NA NA NA NA NA
[2,] NA NA NA NA NA
[3,] NA NA NA NA NA
[4,] NA NA NA NA NA
[5,] NA NA NA NA NA
[6,] "LYZ" "0.294611410750594" "0.206437837094418" "3.34126653297962" "0.104972188734942"
[7,] "MB" "0.00212315808970377" "-0.122611447149083" "0.0170214038489101" "0.899418675909204"
[8,] "LOC102745703" "0.0460327153176649" "-0.0732131952676272" "0.386031815193691" "0.551681224125019"
[9,] "CA1" "0.0575757393315223" "-0.0602272932520374" "0.488745816375167" "0.504301788643989"
[10,] "FGG" "0.0216495010480562" "-0.100644311320937" "0.177028589007708" "0.685014434512567"
[11,] "B2M" "0.0218112353691557" "-0.1004623602097" "0.17838058385295" "0.683890959931252"
[12,] "PLA2G7" "0.578299700135441" "0.525587162652371" "10.9708188554038" "0.0106628480594546"
[13,] "LOC102725647" "0.105906801563227" "-0.00585484824136939" "0.947613083274934" "0.358838244456806"
[14,] "ALDOB" "0.00681559261479795" "-0.117332458308352" "0.0548989095206732" "0.82063325222768"
[15,] "LOC102741238" "0.0617040692889478" "-0.0555829220499335" "0.526094740640623" "0.488924129656559"
[16,] "PAM" "0.671259021517276" "0.630166399206935" "16.3352685659187" "0.00372697575329522"
[17,] "ECM1" "0.202660764085233" "0.102993359595887" "2.03337053998328" "0.191711245113368"
[18,] "SERPING1" "0.241466269761448" "0.146649553481629" "2.54666349179235" "0.14919403369504"
[19,] "CD109" "0.636713744155458" "0.59130296217489" "14.021201934552" "0.00566878459524725"
[20,] "MMP19" "0.321443092540902" "0.236623479108515" "3.789725978852" "0.087433867540955"
[21,] "LOC102738533" "0.269469438900027" "0.178153118762531" "2.95094500626265" "0.124153233160238"
[22,] "LDHB" "6.39597610700658e-05" "-0.124928045268796" "0.000511710817462148" "0.982506621182159"
[23,] "SRGN" "0.458770176782887" "0.391116448880748" "6.78115147544413" "0.0314187355723623"
[24,] "TREML1" "0.046230157294316" "-0.0729910730438945" "0.387767825941477" "0.550808604496449"
[25,] "JCHAIN" "0.292790626756317" "0.204389455100857" "3.31206726419256" "0.106266955719796"
[26,] "APOH" "0.45655139588432" "0.38862032036986" "6.72080329108197" "0.031990973800686"
[27,] "ALB" "0.00397972965293838" "-0.120522804140444" "0.0319650494787754" "0.862549234207838"
[28,] "AFM" "0.720010232231215" "0.685011511260117" "20.5724727148115" "0.0019100035589218"
[29,] "LOC102738645" "0.0419597625016568" "-0.0777952671856359" "0.3503799599167" "0.570243801189023"
[30,] "PLEK" "0.00890467947406456" "-0.114982235591677" "0.0718774817287136" "0.795405744319574"
[31,] "LCAT" "0.0489002511070986" "-0.069987217504514" "0.411315437010845" "0.539237952240883"
[32,] "C4BPA" "0.26800155394132" "0.176501748183985" "2.92898494945532" "0.125364312191896"
[33,] "PIGR" "0.586044560503715" "0.534300130566679" "11.3257516068267" "0.00985291102606521"
[34,] "IGSF9B" "0.0074655873791726" "-0.116601214198431" "0.0601739327865472" "0.812396804010622"
[35,] "PRDX2" "0.255403783814277" "0.162329256791061" "2.74407823475237" "0.13620630775959"
[36,] "COL1A2" "0.0705228716463045" "-0.0456617693979076" "0.606989624553458" "0.458347821496058"
[37,] "RARRES2" "0.638040334287252" "0.592795376073158" "14.1019101237341" "0.00558212344581471"
[38,] "LOC102749038" "0.662164959867139" "0.619935579850531" "15.6801961005993" "0.0041780722453166"
[39,] "IGF1" "0.108974470249442" "-0.00240372096937769" "0.97841838745024" "0.351559252472806"
[40,] "RNASE4" "0.147397485119615" "0.0408221707595671" "1.38303589348708" "0.27339246992509"
[41,] "PNP" "0.110532215136222" "-0.000651257971749919" "0.994142493002377" "0.347930636633512"
[42,] "VTN" "0.0426359498289508" "-0.0770345564424304" "0.356277842865173" "0.567085006280004"
[43,] "XDH" "0.120409081352951" "0.0104602165220695" "1.09513710339947" "0.325921502626128"
[44,] "MFAP4" "0.0241258974153596" "-0.0978583654077205" "0.197778769629904" "0.66830563504246"
[45,] "LOC102731149" "0.0764980530843029" "-0.0389396902801593" "0.662678001620162" "0.439172667806368"
[46,] "CFP" "0.580805783622168" "0.528406506574939" "11.0842327671558" "0.0103952350618569"
[47,] "PSMA6" "0.395779538389447" "0.320251980688128" "5.24020040413057" "0.051333043568036"
[48,] "PSMB2" "0.240846572058418" "0.145952393565721" "2.53805423982834" "0.149797156298061"
[49,] "PSMA2" "0.0210143594970392" "-0.101358845565831" "0.17172353609798" "0.689472976882634"
[50,] "HPX" "0.000447872451451696" "-0.124496143492117" "0.00358458504850668" "0.953726671836619"
[51,] "CAMP" "0.115086889843183" "0.00447275107358136" "1.04043561811657" "0.337572317042619"
[52,] "SERPINC1" "8.68748570736041e-05" "-0.124902265785792" "0.000695059239760945" "0.979612809346486"
[53,] "ERAP1" "0.0210493381046115" "-0.101319494632312" "0.172015517626656" "0.689225469824649"
[54,] "IDH1" "0.604065526602178" "0.55457371742745" "12.2053636081389" "0.00815503449212012"
[55,] "VCL" "0.0126689817454325" "-0.110747395536388" "0.102652354772195" "0.756878185585534"
[56,] "TCN2" "0.0192714637816444" "-0.10331960324565" "0.157201207632475" "0.70211239100813"
[57,] "PCOLCE" "0.119448613788829" "0.00937969051243237" "1.08521651918843" "0.327989232345432"
[58,] "LOC102728215" "0.0731585581458115" "-0.0426966220859621" "0.631465576243155" "0.44974741778731"
[59,] "F13B" "0.105710470184392" "-0.0060757210425586" "0.945648733749022" "0.359310240885738"
[60,] "PLG" "0.0421901489947383" "-0.0775360823809195" "0.352388515949866" "0.569163963916234"
[61,] "ACTB" "0.00122412631361842" "-0.123622857897179" "0.00980501308346817" "0.923558427520239"
[62,] "UCHL1" "0.669567772553553" "0.628263744122747" "16.2107135306484" "0.00380786048810192"
[63,] "H6PD" "0.833990015960933" "0.81323876795605" "40.1898727134229" "0.00022309633722232"
[64,] "THBS3" "0.00372331578531709" "-0.120811269741518" "0.02989784540227" "0.867016858923026"
[65,] "PRDX6" "0.0269673767674693" "-0.0946617011365971" "0.221718171609749" "0.650305924614868"
[66,] "AMBP" "0.315768588838414" "0.230239662443216" "3.69195080713819" "0.0909127054179867"
[67,] "MASP2" "0.174013606781006" "0.0707653076286316" "1.6853895726088" "0.230383561547792"
[68,] "VWF" "0.0778339107966437" "-0.0374368503537759" "0.675226831330422" "0.435038941048497"
[69,] "PGLYRP2" "0.319211675105204" "0.234113134493354" "3.75108283655754" "0.0887878225810755"
[70,] "EFEMP1" "0.380316285647962" "0.302855821353957" "4.90981159374999" "0.0575571074605583"
[71,] "C2" "0.0167354830053208" "-0.106172581619014" "0.136162611106702" "0.721701108915695"
[72,] "CFB" "0.149588681289263" "0.0432872664504209" "1.40721251467863" "0.269552600206202"
[73,] "C5" "0.0861303072237513" "-0.0281034043732797" "0.75398326833311" "0.410508852218468"
[74,] "GSN" "0.0801867244733472" "-0.0347899349674845" "0.697417413789207" "0.427886655129346"
[75,] "QSOX1" "0.0615636327058536" "-0.0557409132059146" "0.524818814371945" "0.489435347209432"
[76,] "ITGB1" "0.0116187386789451" "-0.111928918986187" "0.094042565423919" "0.766929371717589"
[77,] "LOC102729538" "0.0283172968115612" "-0.0931430410869936" "0.233140276912552" "0.64214098225558"
[78,] "TGOLN2" "0.0396306752551705" "-0.0804154903379333" "0.330128622262694" "0.581376119402884"
[79,] "TPI1" "0.281314675864409" "0.19147901034746" "3.13143643168464" "0.114758430057511"
[80,] "C1S" "0.205214678258081" "0.105866513040341" "2.06561115455243" "0.188590759773269"
[81,] "C1R" "0.072183821988103" "-0.0437932002633841" "0.622397614516935" "0.452901177426396"
[82,] "C1RL" "0.344458397546298" "0.262515697239585" "4.20364957777794" "0.0744757442256253"
[83,] "C8A" "0.427028098713295" "0.355406611052457" "5.9622902659531" "0.0404520300254549"
[84,] "PSMB8" "0.0111541352849676" "-0.112451597804411" "0.0902396272906055" "0.771530982456134"
[85,] "C1QC" "0.182991376917515" "0.080865299032204" "1.79181831620927" "0.217496309991499"
[86,] "C1QB" "0.053037679055518" "-0.0653326110625423" "0.448065802682575" "0.522100446425738"
[87,] "APOM" "0.00206561829014928" "-0.122676179423582" "0.0165591512067963" "0.900785260583924"
[88,] "APOC2" "0.444301496922417" "0.374839184037719" "6.39629575335222" "0.0353054354161547"
[89,] "APOC1" "0.00230958105147371" "-0.122401721317092" "0.0185194205144942" "0.895115367797012"
[90,] "SLC4A1" "0.283186401708291" "0.193584701921828" "3.16050256170557" "0.113333597557821"
[91,] "LOC102731071" "0.0533658222985547" "-0.0649634499141261" "0.450994257808304" "0.520779784813912"
[92,] "GPLD1" "0.739969763634117" "0.707465984088382" "22.7656529171607" "0.00140619894085771"
[93,] "ASIC4" "0.0116739444908578" "-0.111866812447785" "0.0944946815944772" "0.766389182952126"
[94,] "CLEC11A" "0.0115190264283013" "-0.112041095268161" "0.0932260851652361" "0.767908548626253"
[95,] "LOC102734679" "0.168033636763964" "0.0640378413594591" "1.61577336959034" "0.239394114174269"
[96,] "RAP1B" "0.0122974298441021" "-0.111165391425385" "0.0996043158390167" "0.760381028059259"
[97,] "HSP90B1" "0.0139035197563179" "-0.109358540274142" "0.112796425379246" "0.745621290850384"
[98,] "LOC102740002" "0.0402828440954917" "-0.0796818003925719" "0.335789300817707" "0.578218501103894"
[99,] "TTR" "0.638922946283355" "0.593788314568774" "14.155935741843" "0.0055250406001782"
[100,] "COL1A1" "0.347147201631954" "0.265540601835948" "4.25391086627463" "0.0730755334799212"
[101,] "LOC102729363" "0.0144236657992294" "-0.108773375975867" "0.117078020635923" "0.741041025958405"
[102,] "CFD" "0.0370016720079107" "-0.0833731189911004" "0.307387217047917" "0.594443543217576"
[103,] "APOF" "0.321686934568907" "0.23689780139002" "3.79396418512992" "0.0872870029915938"
[104,] "CPN1" "0.15411632364631" "0.0483808641020989" "1.45756517549223" "0.261798754407086"
[105,] "APMAP" "0.0149139205738537" "-0.108221839354415" "0.121117704414556" "0.736805517929711"
[106,] "LOC102733397" "0.0393601668623214" "-0.0807198122798884" "0.327782925542546" "0.582695361510946"
[107,] "ITIH2" "0.467888710512243" "0.401374799326274" "7.03444891707014" "0.0291536939638571"
[108,] "LOC102738003" "0.0469452960022275" "-0.0721865419974941" "0.394061711717545" "0.547667960636739"
[109,] "SERPINF2" "0.116859295578175" "0.00646670752544709" "1.05857918216718" "0.33363949482382"
[110,] "IGFBP6" "0.0221057623235644" "-0.10013101738599" "0.180843788392411" "0.681857122150667"
[111,] "MASP1" "0.195962946915207" "0.0954583152796082" "1.94979021091996" "0.200135144459641"
[112,] "TFRC" "0.681515334677769" "0.64170475151249" "17.1189487943035" "0.00326456591508789"
[113,] "BST1" "0.136883886767501" "0.0289943726134385" "1.26874134007162" "0.292654332460672"
[114,] "KLKB1" "0.240808457663013" "0.14590951487089" "2.53752518814151" "0.149834324831763"
[115,] "IGFALS" "0.0100653916647064" "-0.113676434377205" "0.081341871109104" "0.782731627127954"
[116,] "APCS" "0.0959657267243938" "-0.0170385574350571" "0.849222022317177" "0.383721283981295"
[117,] "CRP" "0.00143482586282837" "-0.123385820904318" "0.0114951003699335" "0.917258267072453"
[118,] "THBS1" "0.00422884910738921" "-0.120242544754187" "0.0339744657482673" "0.858347784612317"
[119,] "CSF2RB" "0.00545303321563632" "-0.118865337632409" "0.0438634545999768" "0.839342793527244"
[120,] "LOC102743944" "0.0101198615213398" "-0.113615155788493" "0.0817865608407331" "0.782156377581863"
[121,] "GC" "0.175377055957692" "0.0722991879524036" "1.7014036024561" "0.228377884063307"
[122,] "LOC102735205" "0.00142083123013197" "-0.123401564866102" "0.0113828229113353" "0.917661616298501"
[123,] "F9" "0.0398095764796521" "-0.0802142264603913" "0.331680679202762" "0.580506718921448"
[124,] "KRTDAP" "0.0090050655722295" "-0.114869301231242" "0.0726951491628303" "0.794276354167186"
[125,] "CST3" "0.0094143908447957" "-0.114408810299605" "0.0760309114752799" "0.789738649264178"
[126,] "VMO1" "0.510319834276147" "0.449109813560666" "8.33719427490856" "0.020279275384246"
[127,] "KNG1" "0.0289733649491487" "-0.0924049644322078" "0.238702947196758" "0.638255171948035"
[128,] "FETUB" "0.18964145083907" "0.0883466321939532" "1.87217325995196" "0.208417560615662"
[129,] "AHSG" "0.114554117143693" "0.00387338178665464" "1.03499598890593" "0.338765054409906"
[130,] "APOA1" "0.0540071288460892" "-0.0642419800481495" "0.456723347440976" "0.518214362548682"
[131,] "APOC3" "0.608272374928362" "0.559306421794407" "12.4223534108348" "0.00779401969705641"
[132,] "FBLN1" "0.222820034374485" "0.125672538671296" "2.29362612758705" "0.168368779791713"
[133,] "SERPINA4" "0.100834186073963" "-0.0115615406667917" "0.897135407172029" "0.371278864635816"
[134,] "SERPINA5" "0.0899258397991987" "-0.0238334302259016" "0.790492412436869" "0.399895282964861"
[135,] "SERPINA3" "0.11552279334176" "0.00496314250947949" "1.04489108342978" "0.336600093973077"
[136,] "APP" "0.0488580353322787" "-0.0700347102511865" "0.410942106623144" "0.539417648140172"
[137,] "ITIH1" "0.0297020019195535" "-0.0915852478405024" "0.244889730604935" "0.633999870665131"
[138,] "HSPA5" "0.670905337370552" "0.629768504541871" "16.3091150007735" "0.00374377957939568"
[139,] "APOA2" "0.0284496324218505" "-0.0929941635254181" "0.234261719175868" "0.64135294434557"
[140,] "HABP2" "0.596456110731692" "0.546013124573154" "11.8243616437987" "0.00884128735001678"
[141,] "SERPIND1" "0.585646187460883" "0.533851960893493" "11.3071712094957" "0.00989335037907908"
[142,] "CILP2" "0.00540375996104748" "-0.118920770043822" "0.0434649538657886" "0.840062412888524"
[143,] "PSMA7" "0.534396001362648" "0.476195501532979" "9.18198302294007" "0.0163049835100829"
[144,] "TGFBI" "0.00279837784556436" "-0.12185182492374" "0.0224498459159624" "0.884605194401517"
[145,] "BTD" "0.434536937535466" "0.363854054727399" "6.14769687189208" "0.0381440502373209"
[146,] "PGLYRP1" "0.00920186360489142" "-0.114647903444497" "0.0742985943705644" "0.792081392323674"
[147,] "LOC102742613" "0.0456804685004604" "-0.0736094729369821" "0.382936465137054" "0.55324403415067"
[148,] "LOC102742911" "0.00759215268604124" "-0.116458828228204" "0.0612018754715822" "0.810837160138489"
[149,] "LOC102748590" "0.0933245994207157" "-0.020009825651695" "0.823444415596494" "0.390689644002141"
[150,] "SPARC" "0.403906662164831" "0.329394994935434" "5.42071701229472" "0.0482939434627177"
[151,] "LOC102739031" "0.400787555166388" "0.325885999562187" "5.35085756141368" "0.0494420995710552"
[152,] "LOC102733909" "0.12309800556073" "0.0134852562558216" "1.12302634813319" "0.320211762405029"
[153,] "LOC102739733" "0.215840975398574" "0.117821097323396" "2.20201228196826" "0.176124192373721"
[154,] "CANT1" "0.151698147119885" "0.0456604155098711" "1.4306053592112" "0.265910173003073"
[155,] "LRG1" "0.0385727638349363" "-0.0816056406856966" "0.320962522250109" "0.5865678646694"
[156,] "KRT2" "0.0350464948613125" "-0.0855726932810235" "0.2905548893262" "0.604537296208475"
[157,] "KRT5" "0.697864663978923" "0.660097746976288" "18.478200482455" "0.00262061162506863"
[158,] "OLFM4" "0.0493699966171313" "-0.0694587538057272" "0.415471815040093" "0.537245249053269"
[159,] "NID1" "0.0596189787318644" "-0.0579286489266526" "0.507189978389535" "0.49659904118275"
[160,] "IGFBP4" "0.261017819700735" "0.168645047163327" "2.82570082645328" "0.131273784635747"
[161,] "LOC102738924" "0.00691908906578529" "-0.117216024800991" "0.0557383712815612" "0.819295196556978"
[162,] "COL6A3" "0.235554962631626" "0.139999332960579" "2.46510816204687" "0.155040111847413"
[163,] "ICAM1" "0.091145106047569" "-0.0224617556964848" "0.802285219821588" "0.39656126327209"
[164,] "CLEC3B" "0.174592011524282" "0.0714160129648169" "1.69217661047067" "0.229530539083033"
[165,] "LOC102738338" "2.88840828143736e-05" "-0.124967505406834" "0.000231079337029696" "0.988243858403367"
[166,] "LUM" "0.202102826280746" "0.10236567956584" "2.02635460244764" "0.192399586000794"
[167,] "PROC" "0.226342294872283" "0.129635081731318" "2.34049030595429" "0.164578499234136"
[168,] "CPB2" "0.164954575147807" "0.0605738970412834" "1.58031714432307" "0.244173508591487"
[169,] "LCP1" "0.19166043564334" "0.0906179900987579" "1.89683092694718" "0.205736276324952"
[170,] "DKK3" "0.274271827716905" "0.183555806181518" "3.02341111387822" "0.120264258083234"
[171,] "CPN2" "0.0112722569331461" "-0.112318710950211" "0.0912061546745445" "0.770351497471086"
[172,] "SELENOP" "0.229207082881912" "0.132857968242151" "2.37892256445627" "0.161555095839106"
[173,] "APOA4" "0.21852326709458" "0.120838675481403" "2.23702902869179" "0.173104241447187"
[174,] "A1BG" "0.0175196373483188" "-0.105290407983141" "0.14265638695136" "0.71547819425929"
[175,] "S100A9" "0.0982654202251073" "-0.0144514022467543" "0.871790191296761" "0.377780391944544"
[176,] "HMG20A" "0.0664420188466065" "-0.0502527287975676" "0.569365975658147" "0.47213631961968"
[177,] "LOC102743982" "0.0549641486064915" "-0.0631653328176971" "0.465287309686241" "0.514423765671226"
[178,] "IGFBP3" "0.00521491123764676" "-0.119133224857647" "0.0419379928111694" "0.842852345410195"
[179,] "PSMA4" "0.214314223596457" "0.116103501546014" "2.18218763819272" "0.177865481673737"
[180,] "NOTCH2" "0.0853432595120544" "-0.0289888330489387" "0.746450603679155" "0.412755582446996"
[181,] "COMP" "0.097509790227433" "-0.0153014859941378" "0.864362087668572" "0.379719699058011"
[182,] "FBLN2" "0.099669474286848" "-0.0128718414272959" "0.885625635833238" "0.374209461818685"
[183,] "PSAP" "0.133893405580043" "0.0256300812775484" "1.23673835477226" "0.298400031698669"
[184,] "MPO" "0.0086232990658891" "-0.115298788550875" "0.0695864573598627" "0.798607636556855"
[185,] "LOC102750686" "0.126358897988183" "0.0171537602367061" "1.15707832607422" "0.313439772867436"
[186,] "NAPSA" "0.0371914479146924" "-0.0831596210959711" "0.309024657781787" "0.593481397279048"
[187,] "FCGRT" "0.00636957935765661" "-0.117834223222636" "0.0512832878328256" "0.826524183270698"
[188,] "LOC102750502" "3.86762422117476e-05" "-0.124956489227512" "0.000309421904970523" "0.986396414186445"
[189,] "SOD3" "0.241016879343344" "0.146143989261262" "2.54041886080229" "0.149631179708244"
[190,] "PSMA5" "0.00495836205405117" "-0.119421842689192" "0.0398645593507958" "0.846727280061678"
[191,] "LOC102740157" "0.287203830137355" "0.198104308904524" "3.22340486417258" "0.110328433907259"
[192,] "LOC102731025" "0.00611865584384873" "-0.11811651217567" "0.0492505941867235" "0.829932857558797"
[193,] "LOC102745316" "0.00036702680902457" "-0.124587094839847" "0.0029372925373037" "0.958107376003262"
[194,] "LOC102736544" "0.0459475798985486" "-0.0733089726141329" "0.385283482797834" "0.55205823560836"
[195,] "AGT" "0.159691353805353" "0.0546527730310219" "1.52031141917692" "0.252572732578683"
[196,] "CILP" "0.237226734767167" "0.141880076613063" "2.48804456663545" "0.153365572983316"
[197,] "CTSD" "0.542041145048456" "0.484796288179513" "9.46881824317266" "0.0151825024436485"
[198,] "LOC102737664" "0.22338184798296" "0.12630457898083" "2.30107264325759" "0.167758746344842"
[199,] "LOC102729513" "0.129153824215124" "0.0202980522420149" "1.18646739510542" "0.307764039340933"
[200,] "S100A8" "0.114625963902596" "0.00395420939042013" "1.03572916511399" "0.33860392121135"
[ reached getOption("max.print") -- omitted 122 rows ]write.csv(serum.correl.stats,"wedd mom to pup serum correl stats.csv") LS0tCnRpdGxlOiAiV2VkZGVsbCBzZXJ1bSBwcm90ZW9taWNzIGNvcnJlbGF0aW9uIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgoKCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCiNsaWJyYXJ5KGRwbHlyKSAjIGVhc2llciBkYXRhIHdyYW5nbGluZyAKbGlicmFyeSh2aXJpZGlzKSAjIGNvbG91ciBibGluZCBmcmllbmRseSBwYWxldHRlLCB3b3JrcyBpbiBCJlcgYWxzbwojbGlicmFyeShJbnRlcnBvbC5UKSAjICB3aWxsIGdlbmVyYXRlIGEgbGFyZ2UgZGF0YXNldCBvbiBpbml0aWFsIGxvYWQKbGlicmFyeShsdWJyaWRhdGUpICMgZm9yIGVhc3kgZGF0ZSBtYW5pcHVsYXRpb24KI2xpYnJhcnkoZ2dFeHRyYSkgIyBiZWNhdXNlIHJlbWVtYmVyaW5nIGdncGxvdCB0aGVtZSBvcHRpb25zIGlzIGJleW9uZCBtZQpsaWJyYXJ5KHRpZHlyKSAKbGlicmFyeShtZ2N2KQoKbGlicmFyeShnYW1tNCkKbGlicmFyeShwc3BsaW5lKQpsaWJyYXJ5KHN1bmNhbGMpCmxpYnJhcnkobG1lclRlc3QpCmxpYnJhcnkoTXVNSW4pCmxpYnJhcnkocGFyYWxsZWwpCmxpYnJhcnkobWdjVml6KQpsaWJyYXJ5KHJnbCkKbGlicmFyeShmZWF0aGVyKQpsaWJyYXJ5KGRhdGEudGFibGUpCmxpYnJhcnkoY2FyKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoZ3JpZCkKbGlicmFyeShhbmltYXRpb24pCmxpYnJhcnkoaXRzYWR1ZykKbGlicmFyeSh2aXNyZWcpCgpzZXR3ZCgifi9EZXNrdG9wL3dlZGRlbGwgcHJvdGVvbWljcyIpCgpwcm90PC0gcmVhZC5jc3YoInNlcnVtIHByb3Rlb21pY3MgY29ycmVscyBmb3IgUi5jc3YiKQphdHRhY2gocHJvdCkKaGVhZChwcm90KQpgYGAKCgoKYGBge3J9CnNlcnVtLmNvcnJlbC5zdGF0czwtIG1hdHJpeChucm93PTMyMixuY29sPTUpCmNvbG5hbWVzKHNlcnVtLmNvcnJlbC5zdGF0cyk8LWMoIlByb3RlaW4iLCJSLnNxdWFyZWQiLCJBZGouUi5zcXVhcmVkIiwiRi5zdGF0IiwiUC52YWx1ZSIpCgpmb3IoaSBpbiA2Om5yb3cocHJvdCkpIHsKICAKeC5tb208LSBhcy5udW1lcmljKHByb3RbaSwyOjExXSkKeS5wdXA8LSBhcy5udW1lcmljKHByb3RbaSwxMjoyMV0pCnBsb3QoeS5wdXB+eC5tb20sIG1haW49cHJvdCRJRFtpXSkKc2VydW0uY29ycmVsLnN0YXRzW2ksMV08LSBwcm90JElEW2ldCmxtMTwtbG0oeS5wdXB+eC5tb20pCnNlcnVtLmNvcnJlbC5zdGF0c1tpLDJdPC0gc3VtbWFyeShsbTEpJHIuc3F1YXJlZApzZXJ1bS5jb3JyZWwuc3RhdHNbaSwzXTwtIHN1bW1hcnkobG0xKSRhZGouci5zcXVhcmVkCnNlcnVtLmNvcnJlbC5zdGF0c1tpLDRdPC0gc3VtbWFyeShsbTEpJGZzdGF0aXN0aWNbMV0Kb3ZlcmFsbF9wIDwtIGZ1bmN0aW9uKGxtMSkgewogICAgZiA8LSBzdW1tYXJ5KGxtMSkkZnN0YXRpc3RpYwogICAgcCA8LSBwZihmWzFdLGZbMl0sZlszXSxsb3dlci50YWlsPUYpCiAgICBhdHRyaWJ1dGVzKHApIDwtIE5VTEwKICAgIHJldHVybihwKQp9CnNlcnVtLmNvcnJlbC5zdGF0c1tpLDVdPC0gb3ZlcmFsbF9wKGxtMSkKbmV3eCA8LSBzZXEobWluKHgubW9tKSwgbWF4KHgubW9tKSwgbGVuZ3RoLm91dD0xMCkKcHJlZHMgPC0gcHJlZGljdChsbTEsIG5ld2RhdGEgPSBkYXRhLmZyYW1lKHgubW9tPW5ld3gpLCAKICAgICAgICAgICAgICAgICBpbnRlcnZhbCA9ICdjb25maWRlbmNlJykKcG9seWdvbihjKHJldihuZXd4KSwgbmV3eCksIGMocmV2KHByZWRzWyAsM10pLCBwcmVkc1sgLDJdKSwgY29sID0gJ2dyZXk4MCcsIGJvcmRlciA9IE5BKQoKYWJsaW5lKGxtMSwgbHdkID0gMikKcG9pbnRzKHByb3RbaSwyOjZdLCBwcm90W2ksMTI6MTZdLCBjb2wgPSAicmVkIiwgcGNoID0xNiwgY2V4ID0gMS4zKQpwb2ludHMocHJvdFtpLDc6MTFdLCBwcm90W2ksMTc6MjFdLCBjb2wgPSAicHVycGxlNCIsIHBjaCA9MTYsIGNleCA9IDEuMykKfQoKCmBgYAoKCgpgYGB7cn0Kc2VydW0uY29ycmVsLnN0YXRzCmBgYAoKYGBge3J9CndyaXRlLmNzdihzZXJ1bS5jb3JyZWwuc3RhdHMsIndlZGQgbW9tIHRvIHB1cCBzZXJ1bSBjb3JyZWwgc3RhdHMuY3N2IikgIApgYGAKCgoK