SMHS DataSimulation - Revision history

Dinov: /* Simulate New Data to Match the Properties/Characteristics of Observed Data */

2016-08-07T20:50:40Z

‎Simulate New Data to Match the Properties/Characteristics of Observed Data

Dinov: /* Simulate New Data to Match the Properties/Characteristics of Observed Data */

2016-08-07T20:49:44Z

‎Simulate New Data to Match the Properties/Characteristics of Observed Data

Imoubara: /* Simulate New Data to Match the Properties/Characteristics of Observed Data */

2016-05-23T14:00:26Z

‎Simulate New Data to Match the Properties/Characteristics of Observed Data

Imoubara: /* Simulate new data to match the properties/characteristics of observed data */

2016-05-19T13:51:37Z

‎Simulate new data to match the properties/characteristics of observed data

Imoubara at 13:50, 19 May 2016

2016-05-19T13:50:35Z

Imoubara at 15:39, 18 May 2016

2016-05-18T15:39:38Z

Imoubara at 12:05, 17 May 2016

2016-05-17T12:05:17Z

Dinov: /* Testing section */

2016-01-20T20:17:05Z

‎Testing section

Dinov: /* Testing section */

2016-01-20T20:16:34Z

‎Testing section

Dinov: Replace all references to dollar sign ($) by ($\$$)

2016-01-20T20:01:28Z

Replace all references to dollar sign ($) by ($\$$)

@@ Line 74: / Line 74: @@
   # Define data elements
   # Cases
-  Cases <- c(2, 3, 6, 7, 8, 10, 11, 12, 13, 14, 17, 18, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31,
+  Cases <- c(2, 3, 6, 7, 8, 10, 11, 12, 13, 14, 17, 18, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 37, 41, 42, 43, 44, 45, 53, 55, 58, 60, 62, 67, 69, 71, 72, 74, 79, 80, 85, 87, 90, 95, 97, 99, 100, 101, 106, 107, 109, 112, 120, 123, 125, 128, 129, 132, 134, 136, 139, 142, 147, 149, 153, 158, 160, 162, 163, 167, 172, 174, 178, 179, 180, 182, 192, 195, 201, 208, 211, 215, 217, 223, 227, 228, 233, 235, 236, 240, 245, 248, 250, 251, 254, 257, 259, 261, 264, 268, 269, 272, 273, 275, 279, 288, 289, 291, 296, 298, 303, 305, 309, 314, 318, 324, 325, 326, 328, 331, 332, 333, 334, 336, 338, 339, 341, 344, 346, 347, 350, 353, 354, 359, 361, 363, 364, 366, 367, 368, 369,370, 371, 372, 374, 375, 376, 377, 378, 381, 382, 384, 385, 386, 387, 389, 390, 393, 395, 398, 400, 410, 421, 423, 428, 433, 435, 443, 447, 449, 450, 451, 453, 454, 455, 456, 457, 458, 459, 460, 461, 465, 466, 467, 470, 471, 472, 476, 477, 478, 479, 480, 481, 483, 484, 485, 486, 487, 488, 489, 492, 493, 494, 496, 498, 501, 504, 507, 510, 513, 515, 528, 530, 533, 537, 538, 542, 545, 546, 549, 555, 557, 559, 560, 566, 572, 573, 576, 582, 586, 590, 592, 597, 603, 604, 611, 619, 621, 623, 624, 625, 631, 633, 634, 635, 637, 640, 641, 643, 644, 645, 646, 647, 648, 649, 650, 652, 654, 656, 658, 660, 664, 665, 670, 673, 677, 678, 679, 680, 682, 683, 686, 687, 688, 689, 690, 692)
   # Imaging Biomarkers

@@ Line 68: / Line 68: @@
 *racegrp (black, white, other)
   # Demographics variables
   Sex <- ifelse(runif(NumSubj)<.5,0,1)

@@ Line 53: / Line 53: @@
 ==Simulate New Data to Match the Properties/Characteristics of Observed Data==
-<li> i2 [0: 184]</li>
+*i2 [0: 184]
-<li> age m=34,sd=12</li>
+*age m=34,sd=12
-<li>treat {0,1}</li>
+*treat {0,1}
-<li> homeless {0,1}</li>
+*homeless {0,1}
-<li> pcs 14-75</li>
+*pcs 14-75
-<li> mcs 7-62</li>
+*mcs 7-62
-<li> cesd 0–60</li>
+*cesd 0–60
-<li>indtot 4-45</li>
+*indtot 4-45
-<li> pss_fr 0-14</li>
+*pss_fr 0-14
-<li> drugrisk 0-21</li>
+*drugrisk 0-21
-<li> sexrisk</li>
+*sexrisk
-<li> satreat (0=no,1=yes)</li>
+*satreat (0=no,1=yes)
-<li> female (0=no,1=yes)</li>
+*female (0=no,1=yes)
-<li> racegrp (black, white, other)</li>
+*racegrp (black, white, other)
   # Demographics variables

← Older revision		Revision as of 13:51, 19 May 2016
Line 51:		Line 51:


−	==Simulate ~~new data~~ to ~~match~~ the ~~properties~~/~~characteristics~~ of ~~observed data~~==	+	==Simulate New Data to Match the Properties/Characteristics of Observed Data==

	<li> i2 [0: 184]</li>		<li> i2 [0: 184]</li>

← Older revision		Revision as of 13:50, 19 May 2016
Line 51:		Line 51:


−	===Simulate new data to match the properties/characteristics of observed data===	+	==Simulate new data to match the properties/characteristics of observed data==

	<li> i2 [0: 184]</li>		<li> i2 [0: 184]</li>

@@ Line 2: / Line 2: @@
 ===Importing observed data for exploratory analytics===
 Using the [[SOCR_Simulated_HELP_Data|SOCR Health Evaluation and Linkage to Primary (HELP) Care Dataset]] we can [https://umich.instructure.com/files/354289/download?download_frd=1 extract some sample data (00_Tiny_SOCR_HELP_Data_Simmulation.csv)].
@@ Line 21: / Line 22: @@
 ===Fragment of the data===
 <center>
 {| class="wikitable" style="text-align:center; " border="1"
@@ Line 49: / Line 51: @@
-Simulate new data to match the properties/characteristics of observed data
+===Simulate new data to match the properties/characteristics of observed data===
 <li> i2 [0: 184]</li>

@@ Line 70: / Line 70: @@
   Weight <- as.integer(rnorm(NumSubj, 80,10))
   Age <- as.integer(rnorm(NumSubj, 62,10))
-−
   # Diagnosis:
   Dx <- c(rep("PD", 100), rep("HC", 100), rep("SWEDD", 82))
-−
   # Genetics
   chr12_rs34637584_GT <- c(ifelse(runif(100)<.3,0,1), ifelse(runif(100)<.6,0,1), ifelse(runif(82)<.4,0,1))                              # NumSubj Bernoulli trials

@@ Line 9: / Line 9: @@
   attach(data_1)
-  # to ensure all variables are accessible within R, e.g., using age instead of data_1$$age
+  # to ensure all variables are accessible within R, e.g., using age instead of data_1$\$$age
   # i2 maximum number of drinks (standard units) consumed per day (in the past 30 days range 0–184) see also i1
   # treat randomization group (0=usual care, 1=HELP clinic)
@@ Line 45: / Line 45: @@
   hist(x.norm, main="N(10,20) Histogram")
   hist(x.norm, main="N(10,20) Histogram")
-  mean(data_1$$$age)
+  mean(data_1$\$$age)
-  sd(data_1$$$age)
+  sd(data_1$\$$age)