This was inspired by the above post. It turned out pretty well.
I couldn't figure out the right way to do this, so ended up just using a work around to write some of this half-manually in excel. If anyone knows the better way (allow someone to just make sine waves from each entry in the matrix, then concatenate them all, advice would be appreciated).
require(tuneR)
data<-read.csv("mtgox.csv", header = F)
data<-data/max(data)
data<-data*1000
data<-data + 80
data<-as.matrix(data)
data<-round(data)
w1<-sine(data[1], bit =16, duration = 1, xunit = "time")
w2<-sine(data[2], bit =16, duration = 1, xunit = "time")
w3<-sine(data[3], bit =16, duration = 1, xunit = "time")
w4<-sine(data[4], bit =16, duration = 1, xunit = "time")
w5<-sine(data[5], bit =16, duration = 1, xunit = "time")
w6<-sine(data[6], bit =16, duration = 1, xunit = "time")
w7<-sine(data[7], bit =16, duration = 1, xunit = "time")
w8<-sine(data[8], bit =16, duration = 1, xunit = "time")
w9<-sine(data[9], bit =16, duration = 1, xunit = "time")
w10<-sine(data[10], bit =16, duration = 1, xunit = "time")
w11<-sine(data[11], bit =16, duration = 1, xunit = "time")
w12<-sine(data[12], bit =16, duration = 1, xunit = "time")
w13<-sine(data[13], bit =16, duration = 1, xunit = "time")
w14<-sine(data[14], bit =16, duration = 1, xunit = "time")
w15<-sine(data[15], bit =16, duration = 1, xunit = "time")
w16<-sine(data[16], bit =16, duration = 1, xunit = "time")
w17<-sine(data[17], bit =16, duration = 1, xunit = "time")
w18<-sine(data[18], bit =16, duration = 1, xunit = "time")
w19<-sine(data[19], bit =16, duration = 1, xunit = "time")
w20<-sine(data[20], bit =16, duration = 1, xunit = "time")
w21<-sine(data[21], bit =16, duration = 1, xunit = "time")
w22<-sine(data[22], bit =16, duration = 1, xunit = "time")
w23<-sine(data[23], bit =16, duration = 1, xunit = "time")
w24<-sine(data[24], bit =16, duration = 1, xunit = "time")
w25<-sine(data[25], bit =16, duration = 1, xunit = "time")
w26<-sine(data[26], bit =16, duration = 1, xunit = "time")
w27<-sine(data[27], bit =16, duration = 1, xunit = "time")
w28<-sine(data[28], bit =16, duration = 1, xunit = "time")
w29<-sine(data[29], bit =16, duration = 1, xunit = "time")
w30<-sine(data[30], bit =16, duration = 1, xunit = "time")
w31<-sine(data[31], bit =16, duration = 1, xunit = "time")
w32<-sine(data[32], bit =16, duration = 1, xunit = "time")
w33<-sine(data[33], bit =16, duration = 1, xunit = "time")
w34<-sine(data[34], bit =16, duration = 1, xunit = "time")
w35<-sine(data[35], bit =16, duration = 1, xunit = "time")
w36<-sine(data[36], bit =16, duration = 1, xunit = "time")
w37<-sine(data[37], bit =16, duration = 1, xunit = "time")
w38<-sine(data[38], bit =16, duration = 1, xunit = "time")
w39<-sine(data[39], bit =16, duration = 1, xunit = "time")
w40<-sine(data[40], bit =16, duration = 1, xunit = "time")
w41<-sine(data[41], bit =16, duration = 1, xunit = "time")
w42<-sine(data[42], bit =16, duration = 1, xunit = "time")
w43<-sine(data[43], bit =16, duration = 1, xunit = "time")
w44<-sine(data[44], bit =16, duration = 1, xunit = "time")
w45<-sine(data[45], bit =16, duration = 1, xunit = "time")
w46<-sine(data[46], bit =16, duration = 1, xunit = "time")
w47<-sine(data[47], bit =16, duration = 1, xunit = "time")
w48<-sine(data[48], bit =16, duration = 1, xunit = "time")
w49<-sine(data[49], bit =16, duration = 1, xunit = "time")
w50<-sine(data[50], bit =16, duration = 1, xunit = "time")
w51<-sine(data[51], bit =16, duration = 1, xunit = "time")
# ...etc to w722
Gox<-bind(w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12,w13,w14,w15,w16,w17,w18,w19,w20,w21,w22,w23,w24,w25,w26,w27,w28,w29,w30,w31,w32,w33,w34,w35,w36,w37,w38,w39,w40,w41,w42,w43,w44,w45,w46,w47,w48,w49,w50,w51,w52,w53,w54,w55,w56,w57,w58,w59,w60,w61,w62,w63,w64,w65,w66,w67,w68,w69,w70,w71,w72,w73,w74,w75,w76,w77,w78,w79,w80,w81,w82,w83,w84,w85,w86,w87,w88,w89,w90,w91,w92,w93,w94,w95,w96,w97,w98,w99,w100,w101,w102,w103,w104,w105,w106,w107,w108,w109,w110,w111,w112,w113,w114,w115,w116,w117,w118,w119,w120,w121,w122,w123,w124,w125,w126,w127,w128,w129,w130,w131,w132,w133,w134,w135,w136,w137,w138,w139,w140,w141,w142,w143,w144,w145,w146,w147,w148,w149,w150,w151,w152,w153,w154,w155,w156,w157,w158,w159,w160,w161,w162,w163,w164,w165,w166,w167,w168,w169,w170,w171,w172,w173,w174,w175,w176,w177,w178,w179,w180,w181,w182,w183,w184,w185,w186,w187,w188,w189,w190,w191,w192,w193,w194,w195,w196,w197,w198,w199,w200,w201,w202,w203,w204,w205,w206,w207,w208,w209,w210,w211,w212,w213,w214,w215,w216,w217,w218,w219,w220,w221,w222,w223,w224,w225,w226,w227,w228,w229,w230,w231,w232,w233,w234,w235,w236,w237,w238,w239,w240,w241,w242,w243,w244,w245,w246,w247,w248,w249,w250,w251,w252,w253,w254,w255,w256,w257,w258,w259,w260,w261,w262,w263,w264,w265,w266,w267,w268,w269,w270,w271,w272,w273,w274,w275,w276,w277,w278,w279,w280,w281,w282,w283,w284,w285,w286,w287,w288,w289,w290,w291,w292,w293,w294,w295,w296,w297,w298,w299,w300,w301,w302,w303,w304,w305,w306,w307,w308,w309,w310,w311,w312,w313,w314,w315,w316,w317,w318,w319,w320,w321,w322,w323,w324,w325,w326,w327,w328,w329,w330,w331,w332,w333,w334,w335,w336,w337,w338,w339,w340,w341,w342,w343,w344,w345,w346,w347,w348,w349,w350,w351,w352,w353,w354,w355,w356,w357,w358,w359,w360,w361,w362,w363,w364,w365,w366,w367,w368,w369,w370,w371,w372,w373,w374,w375,w376,w377,w378,w379,w380,w381,w382,w383,w384,w385,w386,w387,w388,w389,w390,w391,w392,w393,w394,w395,w396,w397,w398,w399,w400,w401,w402,w403,w404,w405,w406,w407,w408,w409,w410,w411,w412,w413,w414,w415,w416,w417,w418,w419,w420,w421,w422,w423,w424,w425,w426,w427,w428,w429,w430,w431,w432,w433,w434,w435,w436,w437,w438,w439,w440,w441,w442,w443,w444,w445,w446,w447,w448,w449,w450,w451,w452,w453,w454,w455,w456,w457,w458,w459,w460,w461,w462,w463,w464,w465,w466,w467,w468,w469,w470,w471,w472,w473,w474,w475,w476,w477,w478,w479,w480,w481,w482,w483,w484,w485,w486,w487,w488,w489,w490,w491,w492,w493,w494,w495,w496,w497,w498,w499,w500,w501,w502,w503,w504,w505,w506,w507,w508,w509,w510,w511,w512,w513,w514,w515,w516,w517,w518,w519,w520,w521,w522,w523,w524,w525,w526,w527,w528,w529,w530,w531,w532,w533,w534,w535,w536,w537,w538,w539,w540,w541,w542,w543,w544,w545,w546,w547,w548,w549,w550,w551,w552,w553,w554,w555,w556,w557,w558,w559,w560,w561,w562,w563,w564,w565,w566,w567,w568,w569,w570,w571,w572,w573,w574,w575,w576,w577,w578,w579,w580,w581,w582,w583,w584,w585,w586,w587,w588,w589,w590,w591,w592,w593,w594,w595,w596,w597,w598,w599,w600,w601,w602,w603,w604,w605,w606,w607,w608,w609,w610,w611,w612,w613,w614,w615,w616,w617,w618,w619,w620,w621,w622,w623,w624,w625,w626,w627,w628,w629,w630,w631,w632,w633,w634,w635,w636,w637,w638,w639,w640,w641,w642,w643,w644,w645,w646,w647,w648,w649,w650,w651,w652,w653,w654,w655,w656,w657,w658,w659,w660,w661,w662,w663,w664,w665,w666,w667,w668,w669,w670,w671,w672,w673,w674,w675,w676,w677,w678,w679,w680,w681,w682,w683,w684,w685,w686,w687,w688,w689,w690,w691,w692,w693,w694,w695,w696,w697,w698,w699,w700,w701,w702,w703,w704,w705,w706,w707,w708,w709,w710,w711,w712,w713,w714,w715,w716,w717,w718,w719,w720,w721,w722)
plot(data)
data
#play(Gox)