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 computationSat, 15 May 2010 09:21:06 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/May/15/t12739152679d7az4vf8f775ho.htm/, Retrieved Sat, 27 Apr 2024 17:20:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=76002, Retrieved Sat, 27 Apr 2024 17:20:49 +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 Impact225
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [R console] [correlation test] [2010-05-15 09:21:06] [256f657a32c6b2b7628dddcfa9a822d0] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.193658968969317	-1.56291767651005
-1.56101582938463	-0.120136562316512
-0.655923274372401	-1.05405319037731
-1.79516574022027	0.497413356361943
0.675261441159947	-2.08206975976507
-0.116907512698428	-0.41189685946586
-0.56857267015378	-1.35227811342698
0.209997530333179	-0.709316927755979
-1.65563867066571	-0.85181812317329
-0.0597476717627718	-0.942138723747253
-1.54298551782292	-1.02576992323648
1.34447325874633	0.80259046209889
-1.58209333198605	-0.12988542054065
0.147263689732856	-0.68237720516084
-0.302771317632254	-0.70711202964352
-0.555933725027692	0.271469432893465
-0.271893588661277	0.0440069133234952
-2.6256221148547	0.325314355932137
-0.0398933339289593	-0.535146994616416
-1.09612161326598	-1.26806847436777
-2.16105743929344	0.651574162368173
0.161192512728076	0.343975840948519
-0.000835206812541822	-0.0702443632661913
-0.156835656444442	-1.42364081245226
0.135328071149058	-1.501569355993
-1.5047797175671	0.723390136050332
-1.68456766899721	-1.15483844192139
0.237330727615567	1.18623154856591
0.65962604139588	-1.05294343114897
-1.65609591663968	-1.66018451446753
0.369802852577283	-1.44415528948017
-0.216356756368831	1.13408294114573
0.355099006490209	-0.258655256688935
0.0106885919151405	-1.44062851706984
1.67471836759809	-0.83398750781356
1.62322350321882	-1.37854085908018
-1.04086764365834	0.118480787576225
-0.167404124209026	-0.0900967208281025
-0.297602062804638	1.4020412706012
-1.17490083844889	0.326690525678335
-1.47710897238624	0.415941255678969
0.432002440163692	-1.46103856157798
0.304740464654803	-0.0731099142170977
0.166550805014331	2.21246535707601
0.0797776478940312	-1.02131619325141
1.66236505480566	0.104811574758136
0.0666538402361283	0.985661098430082
0.291829773060841	0.310220266750719
-0.490488573399096	1.69038616909503
0.633608488782118	0.744825329052953
> 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.6552, df = 48, p-value = 0.5154
alternative hypothesis: true correlation is not equal to 0 
95 percent confidence interval:
 -0.3629886  0.1891510 
sample estimates:
        cor 
-0.09415393 


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)
}