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 computationFri, 29 Aug 2008 04:31:13 -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/2008/Aug/29/t1220005875aj2z7e4pz8g6sfo.htm/, Retrieved Wed, 15 May 2024 05:32:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14279, Retrieved Wed, 15 May 2024 05:32:04 +0000
QR Codes:

Original text written by user:no comments
IsPrivate?No (this computation is public)
User-defined keywordskey1,key2
Estimated Impact247
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [R console] [my R test (array ...] [2008-08-29 10:31:13] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
1.08271899846961
-0.786438156555126
-1.07140748542034
0.760081280792096
-0.083824572435783
-0.0137396248148388
0.414381311400838
-1.23703641992627
-1.31006435948531
0.448306593808746
Dataseries Y:
NA
NA
NA
Dataseries Z:
NA
NA
NA
> first_number = 5

> second_number = 7

> strpar = 'hello'

> {
+     myfun <- function(x, y) {
+             x + y
+         }
+ 
+     print(myfun(first_number, second_number))
+     print(strpar)
+     print .... [TRUNCATED] 
[1] 12
[1] 'hello'
            [,1]        [,2]
[1,]  1.08271900 -0.01373962
[2,] -0.78643816  0.41438131
[3,] -1.07140749 -1.23703642
[4,]  0.76008128 -1.31006436
[5,] -0.08382457  0.44830659
[1] 0.4320655
Parameters (Session):
par1 = 5 ; par2 = 7 ; par3 = hello ;
Parameters (R input):
R code (body of R function):
{
myfun <- function(x, y) {
x + y
}
print(myfun(par1, par2))
print(par3)
print(x)
print(cor(y, z))
}