[Distr-commits] r1008 - branches/distr-2.6/pkg/distrSim/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sun May 3 07:15:42 CEST 2015
Author: stamats
Date: 2015-05-03 07:15:42 +0200 (Sun, 03 May 2015)
New Revision: 1008
Modified:
branches/distr-2.6/pkg/distrSim/tests/Examples/distrSim-Ex.Rout.save
Log:
updated Rout.save file
Modified: branches/distr-2.6/pkg/distrSim/tests/Examples/distrSim-Ex.Rout.save
===================================================================
--- branches/distr-2.6/pkg/distrSim/tests/Examples/distrSim-Ex.Rout.save 2015-05-03 05:06:57 UTC (rev 1007)
+++ branches/distr-2.6/pkg/distrSim/tests/Examples/distrSim-Ex.Rout.save 2015-05-03 05:15:42 UTC (rev 1008)
@@ -1,873 +1,847 @@
-
-R version 3.0.1 Patched (2013-09-02 r63805) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i386-w64-mingw32/i386 (32-bit)
-
-R is free software and comes with ABSOLUTELY NO WARRANTY.
-You are welcome to redistribute it under certain conditions.
-Type 'license()' or 'licence()' for distribution details.
-
- Natural language support but running in an English locale
-
-R is a collaborative project with many contributors.
-Type 'contributors()' for more information and
-'citation()' on how to cite R or R packages in publications.
-
-Type 'demo()' for some demos, 'help()' for on-line help, or
-'help.start()' for an HTML browser interface to help.
-Type 'q()' to quit R.
-
-> pkgname <- "distrSim"
-> source(file.path(R.home("share"), "R", "examples-header.R"))
-> options(warn = 1)
-> options(pager = "console")
-> base::assign(".ExTimings", "distrSim-Ex.timings", pos = 'CheckExEnv')
-> base::cat("name\tuser\tsystem\telapsed\n", file=base::get(".ExTimings", pos = 'CheckExEnv'))
-> base::assign(".format_ptime",
-+ function(x) {
-+ if(!is.na(x[4L])) x[1L] <- x[1L] + x[4L]
-+ if(!is.na(x[5L])) x[2L] <- x[2L] + x[5L]
-+ options(OutDec = '.')
-+ format(x[1L:3L], digits = 7L)
-+ },
-+ pos = 'CheckExEnv')
->
-> ### * </HEADER>
-> library('distrSim')
-Loading required package: setRNG
-Loading required package: distr
-Loading required package: startupmsg
-:startupmsg> Utilities for start-up messages (version 0.8)
-:startupmsg>
-:startupmsg> For more information see ?"startupmsg",
-:startupmsg> NEWS("startupmsg")
-
-Loading required package: sfsmisc
-Loading required package: SweaveListingUtils
-:SweaveListingUtils> Utilities for Sweave together with
-:SweaveListingUtils> TeX listings package (version
-:SweaveListingUtils> 0.6.1)
-:SweaveListingUtils>
-:SweaveListingUtils> NOTE: Support for this package
-:SweaveListingUtils> will stop soon.
-:SweaveListingUtils>
-:SweaveListingUtils> Package 'knitr' is providing the
-:SweaveListingUtils> same functionality in a better
-:SweaveListingUtils> way.
-:SweaveListingUtils>
-:SweaveListingUtils> Some functions from package 'base'
-:SweaveListingUtils> are intentionally masked ---see
-:SweaveListingUtils> SweaveListingMASK().
-:SweaveListingUtils>
-:SweaveListingUtils> Note that global options are
-:SweaveListingUtils> controlled by
-:SweaveListingUtils> SweaveListingoptions() ---c.f.
-:SweaveListingUtils> ?"SweaveListingoptions".
-:SweaveListingUtils>
-:SweaveListingUtils> For more information see
-:SweaveListingUtils> ?"SweaveListingUtils",
-:SweaveListingUtils> NEWS("SweaveListingUtils")
-:SweaveListingUtils> There is a vignette to this
-:SweaveListingUtils> package; try
-:SweaveListingUtils> vignette("ExampleSweaveListingUtils").
-
-
-Attaching package: 'SweaveListingUtils'
-
-The following objects are masked from 'package:base':
-
- library, require
-
-:distr> Object oriented implementation of distributions (version
-:distr> 2.5)
-:distr>
-:distr> Attention: Arithmetics on distribution objects are
-:distr> understood as operations on corresponding random variables
-:distr> (r.v.s); see distrARITH().
-:distr>
-:distr> Some functions from package 'stats' are intentionally masked
-:distr> ---see distrMASK().
-:distr>
-:distr> Note that global options are controlled by distroptions()
-:distr> ---c.f. ?"distroptions".
-:distr>
-:distr> For more information see ?"distr", NEWS("distr"), as well as
-:distr> http://distr.r-forge.r-project.org/
-:distr> Package "distrDoc" provides a vignette to this package as
-:distr> well as to several extension packages; try
-:distr> vignette("distr").
-
-
-Attaching package: 'distr'
-
-The following objects are masked from 'package:stats':
-
- df, qqplot, sd
-
-:distrSim> Simulation classes based on package distr (version
-:distrSim> 2.5)
-:distrSim>
-:distrSim> Some functions from package 'stats' are intentionally
-:distrSim> masked ---see distrSimMASK().
-:distrSim>
-:distrSim>
-:distrSim> For more information see ?"distrSim",
-:distrSim> NEWS("distrSim"), as well as
-:distrSim> http://distr.r-forge.r-project.org/
-:distrSim> Package "distrDoc" provides a vignette to this package
-:distrSim> as well as to several related packages; try
-:distrSim> vignette("distr").
-
-
-Attaching package: 'distrSim'
-
-The following object is masked from 'package:stats':
-
- simulate
-
-The following object is masked from 'package:base':
-
- rbind
-
->
-> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
-> cleanEx()
-> nameEx("Contsimulation-class")
-> ### * Contsimulation-class
->
-> flush(stderr()); flush(stdout())
->
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
-> ### Name: Contsimulation-class
-> ### Title: Class "Contsimulation"
-> ### Aliases: Contsimulation-class Contsimulation
-> ### initialize,Contsimulation-method
-> ### Keywords: manip
->
-> ### ** Examples
->
-> N <- Norm() # N is a standard normal distribution.
-> C <- Cauchy() # C is a Cauchy distribution
-> cs <- Contsimulation(filename = "csim",
-+ runs = 10,
-+ samplesize = 3,
-+ seed = setRNG(),
-+ distribution.id = N,
-+ distribution.c = C,
-+ rate = 0.1)
-> simulate(cs)
-> # Each of the 30 random numbers is ideal (N-distributed) with
-> # probability 0.9 and contaminated (C-distributed) with
-> # probability = 0.1
-> Data(cs)
-, , 1
-
- [,1]
-[1,] -0.6264538
-[2,] 0.1836433
-[3,] -0.8356286
-
-, , 2
-
- [,1]
-[1,] 1.5952808
-[2,] 0.3295078
-[3,] -0.8204684
-
-, , 3
-
- [,1]
-[1,] 0.4874291
-[2,] 0.7383247
-[3,] 0.5757814
-
-, , 4
-
- [,1]
-[1,] -0.3053884
-[2,] 1.5117812
-[3,] 0.3898432
-
-, , 5
-
- [,1]
-[1,] -0.6212406
-[2,] 1.7376135
-[3,] 1.1249309
-
-, , 6
-
- [,1]
-[1,] -0.04493361
-[2,] -0.01619026
-[3,] 0.94383621
-
-, , 7
-
- [,1]
-[1,] -0.8415496
-[2,] 0.5939013
-[3,] 4.8029372
-
-, , 8
-
- [,1]
-[1,] 0.78213630
-[2,] 0.07456498
-[3,] -1.98935170
-
-, , 9
-
- [,1]
-[1,] 0.61982575
-[2,] -0.05612874
-[3,] -0.15579551
-
-, , 10
-
- [,1]
-[1,] -1.4707524
-[2,] -0.4781501
-[3,] 0.4179416
-
-> Data.id(cs)
-, , 1
-
- [,1]
-[1,] -0.6264538
-[2,] 0.1836433
-[3,] -0.8356286
-
-, , 2
-
- [,1]
-[1,] 1.5952808
-[2,] 0.3295078
-[3,] -0.8204684
-
-, , 3
-
- [,1]
-[1,] 0.4874291
-[2,] 0.7383247
-[3,] 0.5757814
-
-, , 4
-
- [,1]
-[1,] -0.3053884
-[2,] 1.5117812
-[3,] 0.3898432
-
-, , 5
-
- [,1]
-[1,] -0.6212406
-[2,] -2.2146999
-[3,] 1.1249309
-
-, , 6
-
- [,1]
-[1,] -0.04493361
-[2,] -0.01619026
-[3,] 0.94383621
-
-, , 7
-
- [,1]
-[1,] 0.8212212
-[2,] 0.5939013
-[3,] 0.9189774
-
-, , 8
-
- [,1]
-[1,] 0.78213630
-[2,] 0.07456498
-[3,] -1.98935170
-
-, , 9
-
- [,1]
-[1,] 0.61982575
-[2,] -0.05612874
-[3,] -0.15579551
-
-, , 10
-
- [,1]
-[1,] -1.4707524
-[2,] -0.4781501
-[3,] 0.4179416
-
-> Data.c(cs)
-, , 1
-
- [,1]
-[1,] -0.2807547
-[2,] 1.3197748
-[3,] 7.7332079
-
-, , 2
-
- [,1]
-[1,] 1.720315
-[2,] -1.949413
-[3,] 1.051684
-
-, , 3
-
- [,1]
-[1,] 14.8138609
-[2,] -0.9024312
-[3,] 0.2710277
-
-, , 4
-
- [,1]
-[1,] -0.4130314
-[2,] 1.8065104
-[3,] -0.5520464
-
-, , 5
-
- [,1]
-[1,] 1.913070
-[2,] 1.737613
-[3,] 13.435126
-
-, , 6
-
- [,1]
-[1,] -0.3522399
-[2,] -0.4540178
-[3,] 2.7773206
-
-, , 7
-
- [,1]
-[1,] -0.8415496
-[2,] -0.1243574
-[3,] 4.8029372
-
-, , 8
-
- [,1]
-[1,] -1.268374
-[2,] 3.077498
-[3,] 1.635911
-
-, , 9
-
- [,1]
-[1,] -0.9564330
-[2,] 0.7395454
-[3,] -1.2798578
-
-, , 10
-
- [,1]
-[1,] 0.4020896
-[2,] 0.9720478
-[3,] 0.4833067
-
-> ind(cs)
- [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
-[1,] 0 0 0 0 0 0 1 0 0 0
-[2,] 0 0 0 0 1 0 0 0 0 0
-[3,] 0 0 0 0 0 0 1 0 0 0
-> summary(cs)
-name of simulation: csim
-rate of contamination: 0.100000
-real Data:
-dimension of the observations: 1
-number of runs: 10
-size of sample: 3
-, , 1
-
- [,1]
-Min. -0.8356
-1st Qu. -0.7310
-Median -0.6265
-Mean -0.4261
-3rd Qu. -0.2214
-Max. 0.1836
-
-, , 2
-
- [,1]
-Min. -0.8205
-1st Qu. -0.2455
-Median 0.3295
-Mean 0.3681
-3rd Qu. 0.9624
-Max. 1.5950
-
-, , 3
-
- [,1]
-Min. 0.4874
-1st Qu. 0.5316
-Median 0.5758
-Mean 0.6005
-3rd Qu. 0.6571
-Max. 0.7383
-
-, , 4
-
- [,1]
-Min. -0.30540
-1st Qu. 0.04223
-Median 0.38980
-Mean 0.53210
-3rd Qu. 0.95080
-Max. 1.51200
-
-, , 5
-
- [,1]
-Min. -0.6212
-1st Qu. 0.2518
-Median 1.1250
-Mean 0.7471
-3rd Qu. 1.4310
-Max. 1.7380
-
-, , 6
-
- [,1]
-Min. -0.04493
-1st Qu. -0.03056
-Median -0.01619
-Mean 0.29420
-3rd Qu. 0.46380
-Max. 0.94380
-
-> Data(cs) # different data
-, , 1
-
- [,1]
-[1,] -0.6264538
-[2,] 0.1836433
-[3,] -0.8356286
-
-, , 2
-
- [,1]
-[1,] 1.5952808
-[2,] 0.3295078
-[3,] -0.8204684
-
-, , 3
-
- [,1]
-[1,] 0.4874291
-[2,] 0.7383247
-[3,] 0.5757814
-
-, , 4
-
- [,1]
-[1,] -0.3053884
-[2,] 1.5117812
-[3,] 0.3898432
-
-, , 5
-
- [,1]
-[1,] -0.6212406
-[2,] 1.7376135
-[3,] 1.1249309
-
-, , 6
-
- [,1]
-[1,] -0.04493361
-[2,] -0.01619026
-[3,] 0.94383621
-
-, , 7
-
- [,1]
-[1,] -0.8415496
-[2,] 0.5939013
-[3,] 4.8029372
-
-, , 8
-
- [,1]
-[1,] 0.78213630
-[2,] 0.07456498
-[3,] -1.98935170
-
-, , 9
-
- [,1]
-[1,] 0.61982575
-[2,] -0.05612874
-[3,] -0.15579551
-
-, , 10
-
- [,1]
-[1,] -1.4707524
-[2,] -0.4781501
-[3,] 0.4179416
-
-> savedata(cs) # saves the object in the working directory of R...
-> load("csim") # loads it again...
-> Data(cs) # ...without the data - use simulate to return it!
-NULL
->
->
->
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("Contsimulation-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
-> cleanEx()
-> nameEx("Dataclass-class")
-> ### * Dataclass-class
->
-> flush(stderr()); flush(stdout())
->
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
-> ### Name: Dataclass-class
-> ### Title: Class "Dataclass"
-> ### Aliases: Dataclass-class initialize,Dataclass-method
-> ### Keywords: manip
->
-> ### ** Examples
->
-> D66 <- Dataclass(filename="N74", Data = matrix(1:36,6))
-> D66
-name of Dataclass: Data-Set
-filename of Dataclass: N74
-number of runs: 1
-dimension of the observations: 6
-size of sample: 6
-object was generated by version: 2.5
-> #
-> D <- Dataclass(Data = array(c(1,2,3,4,5,6),c(samplesize=2,obsdim=3,Runs=1)),
-+ filename = "xyz.sav")
-> # A new object of type "Dataclass" is created.
-> #
-> isOldVersion(D) ##NO!
-[1] FALSE
-> #
-> savedata(D)
-> # creates a file called "xyz.sav" where the information is saved and a
-> # copy "xyz.sav.comment" without data
-> Data(D) <- array(c(11,12,13,14,15,16),c(samplesize=2,obsdim=3,Runs=1)) # changes the data of D
-> cload("xyz.sav") # loads the object without data - it is called "D.comment"
-> D.comment
-name of Dataclass: Data-Set
-filename of Dataclass: xyz.sav
-number of runs: 1
-dimension of the observations: 3
-size of sample: 2
-object was generated by version: 2.5
-> load("xyz.sav") # loads the original object "D"
-> Data(D) # the original data: matrix(c(1,2,3,4,5,6),2)
-, , 1
-
- [,1] [,2] [,3]
-[1,] 1 3 5
-[2,] 2 4 6
-
-> #if you have distrTEst available:
-> #evaluate(object = D, estimator = mean) # returns the mean of each variable
->
->
->
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("Dataclass-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
-> cleanEx()
-> nameEx("Simulation-class")
-> ### * Simulation-class
->
-> flush(stderr()); flush(stdout())
->
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
-> ### Name: Simulation-class
-> ### Title: Class "Simulation"
-> ### Aliases: Simulation-class Simulation initialize,Simulation-method
-> ### Keywords: manip
->
-> ### ** Examples
->
-> N=Norm() # N is a standard normal distribution.
-> S=Simulation(filename="xyz",runs=10,samplesize=3,seed=setRNG(),distribution=N)
-> Data(S) # no data yet
-NULL
-> simulate(S)
-> Data(S) # now there are random numbers
-, , 1
-
- [,1]
-[1,] -0.6264538
-[2,] 0.1836433
-[3,] -0.8356286
-
-, , 2
-
- [,1]
-[1,] 1.5952808
-[2,] 0.3295078
-[3,] -0.8204684
-
-, , 3
-
- [,1]
-[1,] 0.4874291
-[2,] 0.7383247
-[3,] 0.5757814
-
-, , 4
-
- [,1]
-[1,] -0.3053884
-[2,] 1.5117812
-[3,] 0.3898432
-
-, , 5
-
- [,1]
-[1,] -0.6212406
-[2,] -2.2146999
-[3,] 1.1249309
-
-, , 6
-
- [,1]
-[1,] -0.04493361
-[2,] -0.01619026
-[3,] 0.94383621
-
-, , 7
-
- [,1]
-[1,] 0.8212212
-[2,] 0.5939013
-[3,] 0.9189774
-
-, , 8
-
- [,1]
-[1,] 0.78213630
-[2,] 0.07456498
-[3,] -1.98935170
-
-, , 9
-
- [,1]
-[1,] 0.61982575
-[2,] -0.05612874
-[3,] -0.15579551
-
-, , 10
-
- [,1]
-[1,] -1.4707524
-[2,] -0.4781501
-[3,] 0.4179416
-
-> Data(S) # the same data as before because the seed has not changed
-, , 1
-
- [,1]
-[1,] -0.6264538
-[2,] 0.1836433
-[3,] -0.8356286
-
-, , 2
-
- [,1]
-[1,] 1.5952808
-[2,] 0.3295078
-[3,] -0.8204684
-
-, , 3
-
- [,1]
-[1,] 0.4874291
-[2,] 0.7383247
-[3,] 0.5757814
-
-, , 4
-
- [,1]
-[1,] -0.3053884
-[2,] 1.5117812
-[3,] 0.3898432
-
-, , 5
-
- [,1]
-[1,] -0.6212406
-[2,] -2.2146999
-[3,] 1.1249309
-
-, , 6
-
- [,1]
-[1,] -0.04493361
-[2,] -0.01619026
-[3,] 0.94383621
-
-, , 7
-
- [,1]
-[1,] 0.8212212
-[2,] 0.5939013
-[3,] 0.9189774
-
-, , 8
-
- [,1]
-[1,] 0.78213630
-[2,] 0.07456498
-[3,] -1.98935170
-
-, , 9
-
- [,1]
-[1,] 0.61982575
-[2,] -0.05612874
-[3,] -0.15579551
-
-, , 10
-
- [,1]
-[1,] -1.4707524
-[2,] -0.4781501
-[3,] 0.4179416
-
-> seed(S)=setRNG()
-> simulate(S)
-> Data(S) # different data
-, , 1
-
- [,1]
-[1,] 1.3586796
-[2,] -0.1027877
-[3,] 0.3876716
-
-, , 2
-
- [,1]
-[1,] -0.05380504
-[2,] -1.37705956
-[3,] -0.41499456
-
-, , 3
-
- [,1]
-[1,] -0.3942900
-[2,] -0.0593134
-[3,] 1.1000254
-
-, , 4
-
- [,1]
-[1,] 0.7631757
-[2,] -0.1645236
-[3,] -0.2533617
-
-, , 5
-
- [,1]
-[1,] 0.6969634
-[2,] 0.5566632
-[3,] -0.6887557
-
-, , 6
-
- [,1]
-[1,] -0.7074952
-[2,] 0.3645820
-[3,] 0.7685329
-
-, , 7
-
- [,1]
-[1,] -0.1123462
-[2,] 0.8811077
-[3,] 0.3981059
-
-, , 8
-
- [,1]
-[1,] -0.6120264
-[2,] 0.3411197
-[3,] -1.1293631
-
-, , 9
-
- [,1]
-[1,] 1.4330237
-[2,] 1.9803999
-[3,] -0.3672215
-
-, , 10
-
- [,1]
-[1,] -1.0441346
-[2,] 0.5697196
-[3,] -0.1350546
-
-> savedata(S) # saves the object in the directory of R...
-> load("xyz") # loads it again...
-> Data(S) # ...without the data - use simulate to return it!
-NULL
->
->
->
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("Simulation-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
-> cleanEx()
-> nameEx("cload")
-> ### * cload
->
-> flush(stderr()); flush(stdout())
->
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
-> ### Name: cload
-> ### Title: cload
-> ### Aliases: cload
-> ### Keywords: methods file
->
-> ### ** Examples
->
-> # see Dataclass and Evaluation for examples
-> ## The function is currently defined as
-> function(filename){
-+ eval.parent(parse(text=paste("load(\"",filename,".comment\")", sep = "")))
-+ }
-function (filename)
-{
- eval.parent(parse(text = paste("load(\"", filename, ".comment\")",
- sep = "")))
-}
->
->
->
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("cload", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
-> cleanEx()
-> nameEx("distrSimMASK")
-> ### * distrSimMASK
->
-> flush(stderr()); flush(stdout())
->
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
-> ### Name: distrSimMASK
-> ### Title: Masking of/by other functions in package "distrSim"
-> ### Aliases: distrSimMASK MASKING
-> ### Keywords: programming distribution documentation
->
-> ### ** Examples
->
-> distrSimMASK()
+
+R Under development (unstable) (2015-05-02 r68310) -- "Unsuffered Consequences"
+Copyright (C) 2015 The R Foundation for Statistical Computing
+Platform: x86_64-unknown-linux-gnu (64-bit)
+
+R is free software and comes with ABSOLUTELY NO WARRANTY.
+You are welcome to redistribute it under certain conditions.
+Type 'license()' or 'licence()' for distribution details.
+
+ Natural language support but running in an English locale
+
+R is a collaborative project with many contributors.
+Type 'contributors()' for more information and
+'citation()' on how to cite R or R packages in publications.
+
+Type 'demo()' for some demos, 'help()' for on-line help, or
+'help.start()' for an HTML browser interface to help.
+Type 'q()' to quit R.
+
+> pkgname <- "distrSim"
+> source(file.path(R.home("share"), "R", "examples-header.R"))
+> options(warn = 1)
+> library('distrSim')
+Loading required package: setRNG
+Loading required package: distr
+Loading required package: startupmsg
+:startupmsg> Utilities for Start-Up Messages (version 0.9.1)
+:startupmsg>
+:startupmsg> For more information see ?"startupmsg",
+:startupmsg> NEWS("startupmsg")
+
+Loading required package: sfsmisc
+Loading required package: SweaveListingUtils
+:SweaveListingUtils> Utilities for Sweave Together with
+:SweaveListingUtils> TeX 'listings' Package (version
+:SweaveListingUtils> 0.7)
+:SweaveListingUtils>
+:SweaveListingUtils> NOTE: Support for this package
+:SweaveListingUtils> will stop soon.
+:SweaveListingUtils>
+:SweaveListingUtils> Package 'knitr' is providing the
+:SweaveListingUtils> same functionality in a better
+:SweaveListingUtils> way.
+:SweaveListingUtils>
+:SweaveListingUtils> Some functions from package 'base'
+:SweaveListingUtils> are intentionally masked ---see
+:SweaveListingUtils> SweaveListingMASK().
+:SweaveListingUtils>
+:SweaveListingUtils> Note that global options are
+:SweaveListingUtils> controlled by
+:SweaveListingUtils> SweaveListingoptions() ---c.f.
+:SweaveListingUtils> ?"SweaveListingoptions".
+:SweaveListingUtils>
+:SweaveListingUtils> For more information see
+:SweaveListingUtils> ?"SweaveListingUtils",
+:SweaveListingUtils> NEWS("SweaveListingUtils")
+:SweaveListingUtils> There is a vignette to this
+:SweaveListingUtils> package; try
+:SweaveListingUtils> vignette("ExampleSweaveListingUtils").
+
+
+Attaching package: ‘SweaveListingUtils’
+
+The following objects are masked from ‘package:base’:
+
+ library, require
+
+:distr> Object Oriented Implementation of Distributions (version
+:distr> 2.6)
+:distr>
+:distr> Attention: Arithmetics on distribution objects are
+:distr> understood as operations on corresponding random variables
+:distr> (r.v.s); see distrARITH().
+:distr>
+:distr> Some functions from package 'stats' are intentionally masked
+:distr> ---see distrMASK().
+:distr>
+:distr> Note that global options are controlled by distroptions()
+:distr> ---c.f. ?"distroptions".
+:distr>
+:distr> For more information see ?"distr", NEWS("distr"), as well as
+:distr> http://distr.r-forge.r-project.org/
+:distr> Package "distrDoc" provides a vignette to this package as
+:distr> well as to several extension packages; try
+:distr> vignette("distr").
+
+
+Attaching package: ‘distr’
+
+The following objects are masked from ‘package:stats’:
+
+ df, qqplot, sd
+
+:distrSim> Simulation Classes Based on Package distr (version
+:distrSim> 2.6)
+:distrSim>
+:distrSim> Some functions from package 'stats' are intentionally
+:distrSim> masked ---see distrSimMASK().
+:distrSim>
+:distrSim>
+:distrSim> For more information see ?"distrSim",
+:distrSim> NEWS("distrSim"), as well as
+:distrSim> http://distr.r-forge.r-project.org/
+:distrSim> Package "distrDoc" provides a vignette to this package
+:distrSim> as well as to several related packages; try
+:distrSim> vignette("distr").
+
+
+Attaching package: ‘distrSim’
+
+The following object is masked from ‘package:stats’:
+
+ simulate
+
+The following object is masked from ‘package:base’:
+
+ rbind
+
+>
+> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
+> cleanEx()
+> nameEx("Contsimulation-class")
+> ### * Contsimulation-class
+>
+> flush(stderr()); flush(stdout())
+>
+> ### Name: Contsimulation-class
+> ### Title: Class "Contsimulation"
+> ### Aliases: Contsimulation-class Contsimulation
+> ### initialize,Contsimulation-method
+> ### Keywords: manip
+>
+> ### ** Examples
+>
+> N <- Norm() # N is a standard normal distribution.
+> C <- Cauchy() # C is a Cauchy distribution
+> cs <- Contsimulation(filename = "csim",
++ runs = 10,
++ samplesize = 3,
++ seed = setRNG(),
++ distribution.id = N,
++ distribution.c = C,
++ rate = 0.1)
+> simulate(cs)
+> # Each of the 30 random numbers is ideal (N-distributed) with
+> # probability 0.9 and contaminated (C-distributed) with
+> # probability = 0.1
+> Data(cs)
+, , 1
+
+ [,1]
+[1,] -0.6264538
+[2,] 0.1836433
+[3,] -0.8356286
+
+, , 2
+
+ [,1]
+[1,] 1.5952808
+[2,] 0.3295078
+[3,] -0.8204684
+
+, , 3
+
+ [,1]
+[1,] 0.4874291
+[2,] 0.7383247
+[3,] 0.5757814
+
+, , 4
+
+ [,1]
+[1,] -0.3053884
+[2,] 1.5117812
+[3,] 0.3898432
+
+, , 5
+
+ [,1]
+[1,] -0.6212406
+[2,] 1.7376135
+[3,] 1.1249309
+
+, , 6
+
+ [,1]
+[1,] -0.04493361
+[2,] -0.01619026
+[3,] 0.94383621
+
+, , 7
+
+ [,1]
+[1,] -0.8415496
+[2,] 0.5939013
+[3,] 4.8029372
+
+, , 8
+
+ [,1]
+[1,] 0.78213630
+[2,] 0.07456498
+[3,] -1.98935170
+
+, , 9
+
+ [,1]
+[1,] 0.61982575
+[2,] -0.05612874
+[3,] -0.15579551
+
+, , 10
+
+ [,1]
+[1,] -1.4707524
+[2,] -0.4781501
+[3,] 0.4179416
+
+> Data.id(cs)
+, , 1
+
+ [,1]
+[1,] -0.6264538
+[2,] 0.1836433
+[3,] -0.8356286
+
+, , 2
+
+ [,1]
+[1,] 1.5952808
+[2,] 0.3295078
+[3,] -0.8204684
+
+, , 3
+
+ [,1]
+[1,] 0.4874291
+[2,] 0.7383247
+[3,] 0.5757814
+
+, , 4
+
+ [,1]
+[1,] -0.3053884
+[2,] 1.5117812
+[3,] 0.3898432
+
+, , 5
+
+ [,1]
+[1,] -0.6212406
+[2,] -2.2146999
+[3,] 1.1249309
+
+, , 6
+
+ [,1]
+[1,] -0.04493361
+[2,] -0.01619026
+[3,] 0.94383621
+
+, , 7
+
+ [,1]
+[1,] 0.8212212
+[2,] 0.5939013
+[3,] 0.9189774
+
+, , 8
+
+ [,1]
+[1,] 0.78213630
+[2,] 0.07456498
+[3,] -1.98935170
+
+, , 9
+
+ [,1]
+[1,] 0.61982575
+[2,] -0.05612874
+[3,] -0.15579551
+
+, , 10
+
+ [,1]
+[1,] -1.4707524
+[2,] -0.4781501
+[3,] 0.4179416
+
+> Data.c(cs)
+, , 1
+
+ [,1]
+[1,] -0.2807547
+[2,] 1.3197748
+[3,] 7.7332079
+
+, , 2
+
+ [,1]
+[1,] 1.720315
+[2,] -1.949413
+[3,] 1.051684
+
+, , 3
+
+ [,1]
+[1,] 14.8138609
+[2,] -0.9024312
+[3,] 0.2710277
+
+, , 4
+
+ [,1]
+[1,] -0.4130314
+[2,] 1.8065104
+[3,] -0.5520464
+
+, , 5
+
+ [,1]
+[1,] 1.913070
+[2,] 1.737613
+[3,] 13.435126
+
+, , 6
+
+ [,1]
+[1,] -0.3522399
+[2,] -0.4540178
+[3,] 2.7773206
+
+, , 7
+
+ [,1]
+[1,] -0.8415496
+[2,] -0.1243574
+[3,] 4.8029372
+
+, , 8
+
+ [,1]
+[1,] -1.268374
+[2,] 3.077498
+[3,] 1.635911
+
+, , 9
+
+ [,1]
+[1,] -0.9564330
+[2,] 0.7395454
+[3,] -1.2798578
+
+, , 10
+
+ [,1]
+[1,] 0.4020896
+[2,] 0.9720478
+[3,] 0.4833067
+
+> ind(cs)
+ [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
+[1,] 0 0 0 0 0 0 1 0 0 0
+[2,] 0 0 0 0 1 0 0 0 0 0
+[3,] 0 0 0 0 0 0 1 0 0 0
+> summary(cs)
+name of simulation: csim
+rate of contamination: 0.100000
+real Data:
+dimension of the observations: 1
+number of runs: 10
+size of sample: 3
+, , 1
+
+ [,1]
+Min. -0.8356
+1st Qu. -0.7310
+Median -0.6265
+Mean -0.4261
+3rd Qu. -0.2214
+Max. 0.1836
+
+, , 2
+
+ [,1]
+Min. -0.8205
+1st Qu. -0.2455
+Median 0.3295
+Mean 0.3681
+3rd Qu. 0.9624
+Max. 1.5950
+
+, , 3
+
+ [,1]
+Min. 0.4874
+1st Qu. 0.5316
+Median 0.5758
+Mean 0.6005
+3rd Qu. 0.6571
+Max. 0.7383
+
+, , 4
+
+ [,1]
+Min. -0.30540
+1st Qu. 0.04223
+Median 0.38980
+Mean 0.53210
+3rd Qu. 0.95080
+Max. 1.51200
+
+, , 5
+
+ [,1]
+Min. -0.6212
+1st Qu. 0.2518
+Median 1.1250
+Mean 0.7471
+3rd Qu. 1.4310
+Max. 1.7380
+
+, , 6
+
+ [,1]
+Min. -0.04493
+1st Qu. -0.03056
+Median -0.01619
+Mean 0.29420
+3rd Qu. 0.46380
+Max. 0.94380
+
+> Data(cs) # different data
+, , 1
+
+ [,1]
+[1,] -0.6264538
+[2,] 0.1836433
+[3,] -0.8356286
+
+, , 2
+
+ [,1]
+[1,] 1.5952808
+[2,] 0.3295078
+[3,] -0.8204684
+
+, , 3
+
+ [,1]
+[1,] 0.4874291
+[2,] 0.7383247
+[3,] 0.5757814
+
+, , 4
+
+ [,1]
+[1,] -0.3053884
+[2,] 1.5117812
+[3,] 0.3898432
+
+, , 5
+
+ [,1]
+[1,] -0.6212406
+[2,] 1.7376135
+[3,] 1.1249309
+
+, , 6
+
+ [,1]
+[1,] -0.04493361
+[2,] -0.01619026
+[3,] 0.94383621
+
+, , 7
+
+ [,1]
+[1,] -0.8415496
+[2,] 0.5939013
+[3,] 4.8029372
+
+, , 8
+
+ [,1]
+[1,] 0.78213630
+[2,] 0.07456498
+[3,] -1.98935170
+
+, , 9
+
+ [,1]
+[1,] 0.61982575
+[2,] -0.05612874
+[3,] -0.15579551
+
+, , 10
+
+ [,1]
+[1,] -1.4707524
+[2,] -0.4781501
+[3,] 0.4179416
+
+> savedata(cs) # saves the object in the working directory of R...
+> load("csim") # loads it again...
+> Data(cs) # ...without the data - use simulate to return it!
+NULL
+>
+>
+>
+> cleanEx()
+> nameEx("Dataclass-class")
+> ### * Dataclass-class
+>
+> flush(stderr()); flush(stdout())
+>
+> ### Name: Dataclass-class
+> ### Title: Class "Dataclass"
+> ### Aliases: Dataclass-class initialize,Dataclass-method
+> ### Keywords: manip
+>
+> ### ** Examples
+>
+> D66 <- Dataclass(filename="N74", Data = matrix(1:36,6))
+> D66
+name of Dataclass: Data-Set
+filename of Dataclass: N74
+number of runs: 1
+dimension of the observations: 6
+size of sample: 6
+object was generated by version: 2.6
+> #
+> D <- Dataclass(Data = array(c(1,2,3,4,5,6),c(samplesize=2,obsdim=3,Runs=1)),
++ filename = "xyz.sav")
+> # A new object of type "Dataclass" is created.
+> #
+> isOldVersion(D) ##NO!
+[1] FALSE
+> #
+> savedata(D)
+> # creates a file called "xyz.sav" where the information is saved and a
+> # copy "xyz.sav.comment" without data
+> Data(D) <- array(c(11,12,13,14,15,16),c(samplesize=2,obsdim=3,Runs=1)) # changes the data of D
+> cload("xyz.sav") # loads the object without data - it is called "D.comment"
+> D.comment
+name of Dataclass: Data-Set
+filename of Dataclass: xyz.sav
+number of runs: 1
+dimension of the observations: 3
+size of sample: 2
+object was generated by version: 2.6
+> load("xyz.sav") # loads the original object "D"
+> Data(D) # the original data: matrix(c(1,2,3,4,5,6),2)
+, , 1
+
+ [,1] [,2] [,3]
+[1,] 1 3 5
+[2,] 2 4 6
+
+> #if you have distrTEst available:
+> #evaluate(object = D, estimator = mean) # returns the mean of each variable
+>
+>
+>
+> cleanEx()
+> nameEx("Simulation-class")
+> ### * Simulation-class
+>
+> flush(stderr()); flush(stdout())
+>
+> ### Name: Simulation-class
+> ### Title: Class "Simulation"
+> ### Aliases: Simulation-class Simulation initialize,Simulation-method
+> ### Keywords: manip
+>
+> ### ** Examples
+>
+> N=Norm() # N is a standard normal distribution.
+> S=Simulation(filename="xyz",runs=10,samplesize=3,seed=setRNG(),distribution=N)
+> Data(S) # no data yet
+NULL
+> simulate(S)
+> Data(S) # now there are random numbers
+, , 1
+
+ [,1]
+[1,] -0.6264538
+[2,] 0.1836433
+[3,] -0.8356286
+
+, , 2
+
+ [,1]
+[1,] 1.5952808
+[2,] 0.3295078
+[3,] -0.8204684
+
+, , 3
+
+ [,1]
+[1,] 0.4874291
+[2,] 0.7383247
+[3,] 0.5757814
+
+, , 4
+
+ [,1]
+[1,] -0.3053884
+[2,] 1.5117812
+[3,] 0.3898432
+
+, , 5
+
+ [,1]
+[1,] -0.6212406
+[2,] -2.2146999
+[3,] 1.1249309
+
+, , 6
+
+ [,1]
+[1,] -0.04493361
+[2,] -0.01619026
+[3,] 0.94383621
+
+, , 7
+
+ [,1]
+[1,] 0.8212212
+[2,] 0.5939013
+[3,] 0.9189774
+
+, , 8
+
+ [,1]
+[1,] 0.78213630
+[2,] 0.07456498
+[3,] -1.98935170
+
+, , 9
+
+ [,1]
+[1,] 0.61982575
+[2,] -0.05612874
+[3,] -0.15579551
+
+, , 10
+
+ [,1]
+[1,] -1.4707524
+[2,] -0.4781501
+[3,] 0.4179416
+
+> Data(S) # the same data as before because the seed has not changed
+, , 1
+
+ [,1]
+[1,] -0.6264538
+[2,] 0.1836433
+[3,] -0.8356286
+
+, , 2
+
+ [,1]
+[1,] 1.5952808
+[2,] 0.3295078
+[3,] -0.8204684
+
+, , 3
+
+ [,1]
+[1,] 0.4874291
+[2,] 0.7383247
+[3,] 0.5757814
+
+, , 4
+
+ [,1]
+[1,] -0.3053884
+[2,] 1.5117812
+[3,] 0.3898432
+
+, , 5
+
+ [,1]
+[1,] -0.6212406
+[2,] -2.2146999
+[3,] 1.1249309
+
+, , 6
+
+ [,1]
+[1,] -0.04493361
+[2,] -0.01619026
+[3,] 0.94383621
+
+, , 7
+
+ [,1]
+[1,] 0.8212212
+[2,] 0.5939013
+[3,] 0.9189774
+
+, , 8
+
+ [,1]
+[1,] 0.78213630
+[2,] 0.07456498
+[3,] -1.98935170
+
+, , 9
+
+ [,1]
+[1,] 0.61982575
+[2,] -0.05612874
+[3,] -0.15579551
+
+, , 10
+
+ [,1]
+[1,] -1.4707524
+[2,] -0.4781501
+[3,] 0.4179416
+
+> seed(S)=setRNG()
+> simulate(S)
+> Data(S) # different data
+, , 1
+
+ [,1]
+[1,] 1.3586796
+[2,] -0.1027877
+[3,] 0.3876716
+
+, , 2
+
+ [,1]
+[1,] -0.05380504
+[2,] -1.37705956
+[3,] -0.41499456
+
+, , 3
+
+ [,1]
+[1,] -0.3942900
+[2,] -0.0593134
+[3,] 1.1000254
+
+, , 4
+
+ [,1]
+[1,] 0.7631757
+[2,] -0.1645236
+[3,] -0.2533617
+
+, , 5
+
+ [,1]
+[1,] 0.6969634
+[2,] 0.5566632
+[3,] -0.6887557
+
+, , 6
+
+ [,1]
+[1,] -0.7074952
+[2,] 0.3645820
+[3,] 0.7685329
+
+, , 7
+
+ [,1]
+[1,] -0.1123462
+[2,] 0.8811077
+[3,] 0.3981059
+
+, , 8
+
+ [,1]
+[1,] -0.6120264
+[2,] 0.3411197
+[3,] -1.1293631
+
+, , 9
+
+ [,1]
+[1,] 1.4330237
+[2,] 1.9803999
+[3,] -0.3672215
+
+, , 10
+
+ [,1]
+[1,] -1.0441346
+[2,] 0.5697196
+[3,] -0.1350546
+
+> savedata(S) # saves the object in the directory of R...
+> load("xyz") # loads it again...
+> Data(S) # ...without the data - use simulate to return it!
+NULL
+>
+>
+>
+> cleanEx()
+> nameEx("cload")
+> ### * cload
+>
+> flush(stderr()); flush(stdout())
+>
+> ### Name: cload
+> ### Title: cload
+> ### Aliases: cload
+> ### Keywords: methods file
+>
+> ### ** Examples
+>
+> # see Dataclass and Evaluation for examples
+> ## The function is currently defined as
+> function(filename){
++ eval.parent(parse(text=paste("load(\"",filename,".comment\")", sep = "")))
++ }
+function (filename)
+{
+ eval.parent(parse(text = paste("load(\"", filename, ".comment\")",
+ sep = "")))
+}
+>
+>
+>
+> cleanEx()
+> nameEx("distrSimMASK")
+> ### * distrSimMASK
+>
+> flush(stderr()); flush(stdout())
+>
+> ### Name: distrSimMASK
+> ### Title: Masking of/by other functions in package "distrSim"
+> ### Aliases: distrSimMASK MASKING
+> ### Keywords: programming distribution documentation
+>
+> ### ** Examples
+>
+> distrSimMASK()
######################################################################
# On masking of and by other functions in package "distrSim"
######################################################################
@@ -880,105 +854,98 @@
we intentionally mask the base function "rbind"
however "rbind" may still be used in exactly the same way
as before masking.
->
->
->
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("distrSimMASK", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
-> cleanEx()
-> nameEx("distrSimoptions")
-> ### * distrSimoptions
->
-> flush(stderr()); flush(stdout())
->
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
-> ### Name: distrSimoptions
-> ### Title: functions to change the global variables of the package
-> ### 'distrSim'
-> ### Aliases: distrSimoptions getdistrSimOption MaxNumberofPlottedObsDims
-> ### MaxNumberofPlottedRuns MaxNumberofSummarizedObsDims
-> ### MaxNumberofSummarizedRuns
-> ### Keywords: misc
->
-> ### ** Examples
->
-> distrSimoptions()
-$MaxNumberofPlottedObs
-[1] 4000
-
-$MaxNumberofPlottedObsDims
-[1] 6
-
-$MaxNumberofPlottedRuns
-[1] 6
-
-$MaxNumberofSummarizedObsDims
-[1] 6
-
-$MaxNumberofSummarizedRuns
-[1] 6
-
-$MaxNumberofPrintedObsDims
-[1] 10
-
-$MaxNumberofPrintedObs
-[1] 10
-
-$MaxNumberofPrintedRuns
-[1] 100
-
-> distrSimoptions("MaxNumberofPlottedObsDims")
-$MaxNumberofPlottedObsDims
-[1] 6
-
-> distrSimoptions("MaxNumberofPlottedObsDims" = 5)
-> # or
-> getdistrSimOption("MaxNumberofPlottedObsDims")
-[1] 5
->
->
->
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/distr -r 1008
More information about the Distr-commits
mailing list