Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- R> combined <- read.csv("~/selfexperiment/combined.csv", header=TRUE, colClasses=c("Date", rep(NA, 103)))
- R> library(blavaan)
- Loading required package: runjags
- Loading required package: lavaan
- This is lavaan 0.5-20
- lavaan is BETA software! Please report any bugs.
- This is blavaan 0.1-3
- blavaan is more BETA than lavaan!
- R> modelS <- '
- + # Environment latent variables
- + ## Sleep quality
- + Sleep =~ ZQ + Total.Z + Time.to.Z + Time.in.Wake + Time.in.REM + Time.in.Light + Time.in.Deep + Awakenings + Morning.Feel
- + ## Room brightness
- + Light =~ Webcam.Brightness + Webcam.Color.L + Webcam.Color.A + Webcam.Color.B + CloudCover + DayLength
- + ## heat/rain/pressure
- + Weather =~ Max.TemperatureF + Mean.TemperatureF + Min.TemperatureF + Mean.Humidity + Mean.Sea.Level.PressureIn + Mean.Wind.SpeedMPH + PrecipitationIn
- +
- + # unproductive latent variables
- + Music =~ Music.new + Time.Rec_Music_New + Time.Rec_Music_Old
- + IRC =~ IRC.line.count + Time.Rec_IRC
- + # master:
- + Rec =~ Music + Time.Rec_Video + Time.Rec_Fiction + Time.Rec + Time.Rec_Game + Media.consumption
- +
- + # productive latent variables
- + Mnemosyne =~ Time.SRS + Mnemosyne.cards.log + Thinking.time.log + Mnemosyne.score
- + Gwern.net =~ Gwernnet.pageviews + Gwernnet.sessions + Gwernnet.visitors + Gwernnet.sessionDuration + Gwernnet.avgSessionDuration + Gwernnet.bounceRate
- + Writing =~ Patch.count.log + Gwern.net + Time.Statistics + Time.Rec_Nonfiction + Time.Writing + Time.Programming
- + Email =~ Time.Mail + Emails.sent + Emails.received
- + Bitcoin =~ Time.Bitcoin + Bitcoin.price.log + Bitcoin.30DayVolatility
- + Fitness =~ Workout.previous + Weight + Weight.BMI + Weight.body.fat + Weight.muscle + Weight.resting.metabolism + Weight.visceral.fat
- +
- + # master: is Productivity a latent variable or must we consider it a composite variable?
- + # Productivity.latent =~ MP + Creativity + Personal.log + Workout + Time.Wiki + Time.DNB + Time.Blackmarkets + CLI.commands + Mnemosyne + Gwern.net + Email + Writing + Bitcoin + Ledger.txs + Meditate
- +
- + # regression on composite variable: do the unproductive latent variables compete with productive ones? what are the effects of various randomized experiments or the environment?
- + # Productivity.latent ~ Sleep + Rise.Time + Start.of.Night + Glucose.mg.dl + Fitness + Light + Music + IRC + Rec + Meditate.previous + Lithium.r + LSD.r + Noopept.r + LLLT.r # + Magtein + Magnesium.citrate.r + Potassium.evening.r + Potassium.morning.r + HRV + Y2009+Y2010+Y2011+Y2012
- + # Productivity.latent ~ Sleep + Rise.Time + Start.of.Night + Glucose.mg.dl + Light + Weather + Music + IRC + Rec + Meditate.previous + Lithium.r + LSD.r + Noopept.r + LLLT.r + Magtein + Magnesium.citrate.r + Potassium.evening.r + Potassium.morning.r + HRV
- +
- + # out of curiosity: regression effects on just sleep & MP:
- + ## Sleep ~ Lithium.r + LSD.r + Noopept.r + LLLT.r + Magtein + Magnesium.citrate.r + Potassium.evening.r + Potassium.morning.r + Meditate
- + ## MP ~ Y2009+Y2010+Y2011+Y2012+Y2013+Y2014+Y2015+Y2016 + Sleep + Rise.Time + Start.of.Night + Glucose.mg.dl + Light + Weather + Music + IRC + Rec + Workout.previous + Meditate.previous + Lithium.r + LSD.r + Noopept.r + LLLT.r + Magtein + Magnesium.citrate.r + Potassium.evening.r + Potassium.morning.r + HRV
- + '
- R> s4 <- sem(model = modelS, se="bootstrap", bootstrap=50, missing="FIML", data = scale(combined[-1])); summary(s4) # logged Time.Rec_Music_New, Time.Rec_Music_Old, Time.Rec_Video, Time.Rec_Fiction, Time.Rec, Time.Rec_Game to see if that improves the Music and Rec latent variables
- lavaan (0.5-20) converged normally after 1889 iterations
- Number of observations 2954
- Number of missing patterns 65
- Estimator ML
- Minimum Function Test Statistic 46633.382
- Degrees of freedom 1663
- P-value (Chi-square) 0.000
- Parameter Estimates:
- Information Observed
- Standard Errors Bootstrap
- Number of requested bootstrap draws 50
- Number of successful bootstrap draws 50
- Latent Variables:
- Estimate Std.Err Z-value P(>|z|)
- Sleep =~
- ZQ 1.000
- Total.Z 1.742 0.114 15.308 0.000
- Time.to.Z 0.001 0.001 1.300 0.194
- Time.in.Wake 0.161 0.012 13.144 0.000
- Time.in.REM 1.168 0.068 17.088 0.000
- Time.in.Light 1.285 0.058 22.201 0.000
- Time.in.Deep 0.666 0.036 18.431 0.000
- Awakenings 0.186 0.008 22.023 0.000
- Morning.Feel -0.000 0.001 -0.105 0.916
- Light =~
- Webcm.Brghtnss 1.000
- Webcam.Color.L 1.616 0.104 15.541 0.000
- Webcam.Color.A 0.158 0.019 8.171 0.000
- Webcam.Color.B 0.272 0.030 8.948 0.000
- CloudCover -0.082 0.017 -4.800 0.000
- DayLength 0.005 0.020 0.254 0.799
- Weather =~
- Max.TemperatrF 1.000
- Mean.TempertrF 1.046 0.004 284.300 0.000
- Min.TemperatrF 0.999 0.006 153.911 0.000
- Mean.Humidity 0.146 0.014 10.348 0.000
- Mn.S.Lvl.PrssI -0.196 0.012 -16.479 0.000
- Men.Wnd.SpdMPH -0.117 0.018 -6.528 0.000
- PrecipitatinIn 0.003 0.011 0.265 0.791
- Music =~
- Music.new 1.000
- Time.Rc_Msc_Nw 1.086 0.165 6.586 0.000
- Tim.Rc_Msc_Old 0.274 0.084 3.257 0.001
- IRC =~
- IRC.line.count 1.000
- Time.Rec_IRC 1.087 0.180 6.022 0.000
- Rec =~
- Music 1.000
- Time.Rec_Video 0.678 0.104 6.536 0.000
- Time.Rec_Fictn 0.672 0.139 4.818 0.000
- Time.Rec 1.654 0.366 4.522 0.000
- Time.Rec_Game 0.115 0.062 1.854 0.064
- Media.consmptn -0.036 0.053 -0.678 0.498
- Mnemosyne =~
- Time.SRS 1.000
- Mnmsyn.crds.lg 85.850 13209.400 0.006 0.995
- Thinking.tm.lg 136.386 19923.937 0.007 0.995
- Mnemosyne.scor -10.440 2532.374 -0.004 0.997
- Gwern.net =~
- Gwernnet.pgvws 1.000
- Gwernnet.sssns 1.007 0.013 75.320 0.000
- Gwernnet.vstrs 1.005 0.016 64.691 0.000
- Gwrnnt.sssnDrt 0.922 0.050 18.508 0.000
- Gwrnnt.vgSssnD 0.162 0.034 4.817 0.000
- Gwernnet.bncRt 0.221 0.030 7.418 0.000
- Writing =~
- Patch.count.lg 1.000
- Gwern.net 1.894 0.459 4.130 0.000
- Time.Statistcs 2.729 0.868 3.145 0.002
- Time.Rc_Nnfctn 2.949 0.983 2.999 0.003
- Time.Writing 1.927 0.516 3.738 0.000
- Time.Progrmmng 0.686 0.201 3.405 0.001
- Email =~
- Time.Mail 1.000
- Emails.sent 0.840 0.109 7.690 0.000
- Emails.receivd 0.481 0.383 1.257 0.209
- Bitcoin =~
- Time.Bitcoin 1.000
- Bitcoin.prc.lg 140.309 77.210 1.817 0.069
- Btcn.30DyVltlt 1.951 0.584 3.340 0.001
- Fitness =~
- Workout.previs 1.000
- Weight -3.911 0.351 -11.142 0.000
- Weight.BMI -4.231 0.378 -11.190 0.000
- Weight.body.ft -2.508 0.227 -11.052 0.000
- Weight.muscle 2.358 0.215 10.951 0.000
- Wght.rstng.mtb -4.213 0.378 -11.150 0.000
- Weght.vscrl.ft -3.793 0.324 -11.704 0.000
- Covariances:
- Estimate Std.Err Z-value P(>|z|)
- Sleep ~~
- Light 0.000 0.000 0.556 0.578
- Weather 0.000 0.000 1.013 0.311
- IRC -0.000 0.000 -0.452 0.651
- Rec 0.000 0.001 0.402 0.688
- Mnemosyne 0.000 0.000 0.081 0.936
- Writing 0.000 0.000 0.602 0.547
- Email 0.000 0.000 0.886 0.376
- Bitcoin -0.000 0.000 -0.194 0.846
- Fitness 0.000 0.000 0.094 0.925
- Light ~~
- Weather -0.030 0.007 -4.192 0.000
- IRC -0.019 0.013 -1.452 0.147
- Rec 0.127 0.032 3.959 0.000
- Mnemosyne -0.001 0.008 -0.161 0.872
- Writing 0.019 0.004 5.224 0.000
- Email -0.094 0.023 -4.168 0.000
- Bitcoin 0.001 0.003 0.415 0.678
- Fitness 0.084 0.012 6.740 0.000
- Weather ~~
- IRC -0.009 0.012 -0.741 0.458
- Rec -0.065 0.016 -4.128 0.000
- Mnemosyne 0.000 0.003 0.120 0.904
- Writing -0.019 0.007 -2.939 0.003
- Email 0.020 0.019 1.063 0.288
- Bitcoin -0.000 0.001 -0.354 0.723
- Fitness -0.008 0.007 -1.050 0.294
- IRC ~~
- Rec 0.137 0.059 2.326 0.020
- Mnemosyne -0.000 0.002 -0.155 0.877
- Writing 0.087 0.028 3.122 0.002
- Email 0.181 0.036 5.064 0.000
- Bitcoin 0.000 0.001 0.088 0.930
- Fitness 0.006 0.018 0.337 0.736
- Rec ~~
- Mnemosyne -0.005 0.013 -0.345 0.730
- Writing 0.133 0.031 4.284 0.000
- Email -0.129 0.048 -2.703 0.007
- Bitcoin 0.004 0.007 0.581 0.561
- Fitness 0.152 0.037 4.158 0.000
- Mnemosyne ~~
- Writing -0.001 0.005 -0.188 0.851
- Email 0.002 0.013 0.169 0.866
- Bitcoin -0.000 0.002 -0.022 0.982
- Fitness -0.001 0.010 -0.137 0.891
- Writing ~~
- Email 0.038 0.025 1.530 0.126
- Bitcoin 0.001 0.001 0.473 0.637
- Fitness 0.011 0.003 3.546 0.000
- Email ~~
- Bitcoin -0.003 0.006 -0.474 0.636
- Fitness -0.120 0.018 -6.592 0.000
- Bitcoin ~~
- Fitness 0.002 0.004 0.480 0.632
- Intercepts:
- Estimate Std.Err Z-value P(>|z|)
- ZQ 0.000 0.022 0.004 0.996
- Total.Z 0.000 0.022 0.008 0.993
- Time.to.Z 0.000 0.023 0.000 1.000
- Time.in.Wake 0.000 0.022 0.001 0.999
- Time.in.REM 0.000 0.020 0.006 0.995
- Time.in.Light 0.000 0.023 0.006 0.995
- Time.in.Deep 0.000 0.026 0.003 0.998
- Awakenings 0.000 0.025 0.001 0.999
- Morning.Feel 0.000 0.024 0.000 1.000
- Webcm.Brghtnss -0.074 0.021 -3.474 0.001
- Webcam.Color.L -0.120 0.022 -5.471 0.000
- Webcam.Color.A -0.012 0.019 -0.605 0.545
- Webcam.Color.B -0.020 0.019 -1.091 0.275
- CloudCover -0.000 0.017 -0.001 0.999
- DayLength 0.000 0.017 0.000 1.000
- Max.TemperatrF -0.000 0.017 -0.001 0.999
- Mean.TempertrF -0.000 0.017 -0.001 0.999
- Min.TemperatrF -0.000 0.018 -0.001 0.999
- Mean.Humidity -0.000 0.020 -0.000 1.000
- Mn.S.Lvl.PrssI 0.000 0.016 0.000 1.000
- Men.Wnd.SpdMPH 0.000 0.017 0.000 1.000
- PrecipitatinIn -0.000 0.021 -0.000 1.000
- Music.new -0.508 0.125 -4.076 0.000
- Time.Rc_Msc_Nw -0.518 0.098 -5.296 0.000
- Tim.Rc_Msc_Old -0.131 0.061 -2.155 0.031
- IRC.line.count -0.042 0.037 -1.148 0.251
- Time.Rec_IRC -0.049 0.037 -1.341 0.180
- Time.Rec_Video -0.323 0.074 -4.341 0.000
- Time.Rec_Fictn -0.320 0.083 -3.853 0.000
- Time.Rec -0.789 0.212 -3.728 0.000
- Time.Rec_Game -0.055 0.037 -1.488 0.137
- Media.consmptn 0.011 0.026 0.412 0.681
- Time.SRS 0.004 0.036 0.109 0.913
- Mnmsyn.crds.lg -0.000 0.018 -0.015 0.988
- Thinking.tm.lg -0.031 0.021 -1.463 0.143
- Mnemosyne.scor 0.002 0.021 0.114 0.910
- Gwernnet.pgvws 0.000 0.016 0.003 0.998
- Gwernnet.sssns 0.000 0.017 0.003 0.998
- Gwernnet.vstrs 0.000 0.017 0.003 0.998
- Gwrnnt.sssnDrt 0.000 0.018 0.003 0.998
- Gwrnnt.vgSssnD 0.000 0.021 0.000 1.000
- Gwernnet.bncRt -0.039 0.018 -2.178 0.029
- Patch.count.lg 0.000 0.019 0.001 0.999
- Time.Statistcs -0.247 0.062 -4.007 0.000
- Time.Rc_Nnfctn -0.266 0.060 -4.447 0.000
- Time.Writing -0.174 0.045 -3.839 0.000
- Time.Progrmmng -0.062 0.028 -2.235 0.025
- Time.Mail 0.285 0.063 4.532 0.000
- Emails.sent -0.000 0.018 -0.013 0.990
- Emails.receivd -0.000 0.015 -0.009 0.993
- Time.Bitcoin -0.072 0.022 -3.311 0.001
- Bitcoin.prc.lg 0.001 0.017 0.036 0.971
- Btcn.30DyVltlt 0.000 0.018 0.000 1.000
- Workout.previs 0.000 0.020 0.014 0.989
- Weight 0.870 0.081 10.708 0.000
- Weight.BMI 1.443 0.087 16.541 0.000
- Weight.body.ft 0.856 0.064 13.323 0.000
- Weight.muscle -0.804 0.064 -12.633 0.000
- Wght.rstng.mtb 1.437 0.087 16.613 0.000
- Weght.vscrl.ft 1.294 0.085 15.255 0.000
- Sleep 0.000
- Light 0.000
- Weather 0.000
- Music 0.000
- IRC 0.000
- Rec 0.000
- Mnemosyne 0.000
- Gwern.net 0.000
- Writing 0.000
- Email 0.000
- Bitcoin 0.000
- Fitness 0.000
- Variances:
- Estimate Std.Err Z-value P(>|z|)
- ZQ 0.596 0.023 26.409 0.000
- Total.Z -0.236 0.015 -15.685 0.000
- Time.to.Z 0.999 0.065 15.452 0.000
- Time.in.Wake 0.989 0.088 11.299 0.000
- Time.in.REM 0.444 0.023 19.250 0.000
- Time.in.Light 0.327 0.015 22.298 0.000
- Time.in.Deep 0.819 0.039 21.213 0.000
- Awakenings 0.985 0.025 39.432 0.000
- Morning.Feel 0.999 0.040 24.972 0.000
- Webcm.Brghtnss 0.407 0.039 10.479 0.000
- Webcam.Color.L -0.549 0.099 -5.542 0.000
- Webcam.Color.A 0.985 0.033 29.504 0.000
- Webcam.Color.B 0.956 0.045 21.369 0.000
- CloudCover 0.996 0.022 45.820 0.000
- DayLength 1.000 0.013 74.378 0.000
- Max.TemperatrF 0.058 0.002 31.793 0.000
- Mean.TempertrF -0.030 0.001 -28.550 0.000
- Min.TemperatrF 0.061 0.002 32.249 0.000
- Mean.Humidity 0.980 0.022 45.024 0.000
- Mn.S.Lvl.PrssI 0.964 0.029 33.675 0.000
- Men.Wnd.SpdMPH 0.987 0.033 29.909 0.000
- PrecipitatinIn 1.000 0.178 5.625 0.000
- Music.new 0.671 0.067 10.009 0.000
- Time.Rc_Msc_Nw 0.543 0.072 7.553 0.000
- Tim.Rc_Msc_Old 0.970 0.033 29.605 0.000
- IRC.line.count 0.366 5.935 0.062 0.951
- Time.Rec_IRC 0.333 0.298 1.119 0.263
- Time.Rec_Video 0.890 0.037 24.055 0.000
- Time.Rec_Fictn 0.892 0.040 22.572 0.000
- Time.Rec 0.346 0.072 4.838 0.000
- Time.Rec_Game 0.996 0.034 29.375 0.000
- Media.consmptn 0.999 0.160 6.247 0.000
- Time.SRS 1.000 0.162 6.176 0.000
- Mnmsyn.crds.lg 0.836 0.046 18.122 0.000
- Thinking.tm.lg 0.627 0.102 6.181 0.000
- Mnemosyne.scor 0.997 0.047 21.418 0.000
- Gwernnet.pgvws 0.013 0.002 6.760 0.000
- Gwernnet.sssns -0.002 0.000 -6.347 0.000
- Gwernnet.vstrs 0.003 0.000 6.829 0.000
- Gwrnnt.sssnDrt 0.160 0.027 6.016 0.000
- Gwrnnt.vgSssnD 0.974 0.043 22.534 0.000
- Gwernnet.bncRt 0.945 0.108 8.773 0.000
- Patch.count.lg 0.950 0.031 30.775 0.000
- Time.Statistcs 0.745 0.063 11.841 0.000
- Time.Rc_Nnfctn 0.702 0.048 14.677 0.000
- Time.Writing 0.872 0.045 19.568 0.000
- Time.Progrmmng 0.983 0.124 7.944 0.000
- Time.Mail 0.461 0.184 2.513 0.012
- Emails.sent 0.505 0.155 3.249 0.001
- Emails.receivd 0.837 0.143 5.842 0.000
- Time.Bitcoin 1.012 0.168 6.015 0.000
- Bitcoin.prc.lg -15.300 8.362 -1.830 0.067
- Btcn.30DyVltlt 0.997 0.030 32.676 0.000
- Workout.previs 0.876 0.047 18.764 0.000
- Weight 0.004 0.001 6.457 0.000
- Weight.BMI 0.002 0.000 5.584 0.000
- Weight.body.ft 0.648 0.075 8.600 0.000
- Weight.muscle 0.689 0.029 23.748 0.000
- Wght.rstng.mtb 0.010 0.001 7.164 0.000
- Weght.vscrl.ft 0.198 0.015 13.387 0.000
- Sleep 0.409 0.077 5.319 0.000
- Light 0.606 0.051 11.867 0.000
- Weather 0.941 0.021 44.287 0.000
- Music 0.148 0.062 2.400 0.016
- IRC 0.635 5.967 0.106 0.915
- Rec 0.642 0.246 2.615 0.009
- Mnemosyne 0.000 0.006 0.003 0.997
- Gwern.net 0.808 0.159 5.077 0.000
- Writing 0.050 0.024 2.083 0.037
- Email 0.701 0.292 2.403 0.016
- Bitcoin 0.001 0.003 0.268 0.789
- Fitness 0.124 0.017 7.101 0.000
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement