Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleRscript (source code is shown below)
Title produced by softwareR console
Date of computationTue, 25 Aug 2009 00:40:29 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Aug/25/t1251182430gdxb3okienssy8g.htm/, Retrieved Thu, 02 May 2024 02:30:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=42972, Retrieved Thu, 02 May 2024 02:30:13 +0000
QR Codes:

Original text written by user:This example is used in the manual files of the RC package.
IsPrivate?No (this computation is public)
User-defined keywordsblogtest
Estimated Impact215
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [R console] [correlation test] [2009-08-25 06:40:29] [256f657a32c6b2b7628dddcfa9a822d0] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.149740946948193	0.453663351944265
0.592726316805276	2.30403662047636
0.0096281706594247	-1.78898733887061
0.711097257274028	0.0594493806225047
-0.642739816610714	-0.165065007278559
0.613172182998035	0.366740926921234
0.641317766167852	-0.468922415565081
-0.060114853776613	0.65586448443248
-0.145431636390320	0.0264519592318701
0.548419336389621	-2.1544722982866
1.81800960239767	-0.732326428918145
-0.0722805729440817	-0.376892164904811
-0.675636612727065	1.26235533745996
-0.703992665364105	-0.435113773277804
-0.529190206388555	-1.25351275154854
0.526813524905378	0.723213245703455
3.04853847675741	-0.675794656702312
1.07499067017394	-0.639511097764907
0.333723589197663	-0.659539249569589
0.363567169521178	-0.0622577391625692
-0.999335870238269	0.454988438021458
1.17664544547281	1.75281313249843
0.068110725642609	1.0139802370411
-0.151471205224960	-1.65899260718338
-1.39497816319632	-0.350045736906241
0.420638956536038	0.861481800098012
1.73081244414943	1.29930502196448
0.193722403353259	1.05615086395414
-1.86501776191437	-0.209949455056160
1.35843220334813	0.105344766827173
-0.516485734310711	-0.168719391171273
-0.667595925868945	0.868411081750013
0.850200751005115	1.02612746801627
0.60655837331607	0.315494666051815
1.14463304377678	-0.586823861858503
-0.188640518938324	0.242122196068331
0.088967127140576	1.12645681550799
0.163952801235486	-1.48499912018862
-0.49854911406733	-0.706809612988441
-1.16885787334100	1.95432926608169
-0.888273100066577	-0.105462962236498
-0.447808314113346	-0.776502736391748
-2.12961988426500	1.58579583872010
-0.0284073405768983	0.142301301973002
2.53880919818434	-0.731534400532504
-0.659124569246759	0.413518977409458
-0.184833351463259	1.58047375240909
0.100827549576415	-1.56527479590573
-0.804552652309115	0.0890084265111613
-0.471663498536752	-0.661799729506258
> title = 'my title'


> {
+     plot(RCx$X1, RCx$X2, main = title)
+     res <- cor.test(RCx$X1, RCx$X2)
+     print(res)
+ }

	Pearson's product-moment correlation

data:  RCx$X1 and RCx$X2 
t = -0.8095, df = 48, p-value = 0.4222
alternative hypothesis: true correlation is not equal to 0 
95 percent confidence interval:
 -0.3820580  0.1677136 
sample estimates:
       cor 
-0.1160518 


Parameters (Session):
par1 = 'mytitle' ;
Parameters (R input):
R code (body of R function):
{

plot(x$X1, x$X2, main = par1)

res <- cor.test(x$X1, x$X2)
print(res)
}