utils:::menuInstallPkgs()
local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
if(nchar(pkg)) library(pkg, character.only=TRUE)})
local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
if(nchar(pkg)) library(pkg, character.only=TRUE)})
utils:::menuInstallPkgs()
utils:::menuInstallPkgs()
update.packages(ask='graphics')
utils:::menuInstallPkgs()
utils:::menuInstallPkgs()
SensSpec.demo (sens=0.98, spec = 0.98, prev = 0.0026)
library(teachingdemos)
library(TeachingDemos)
SensSpec.demo (sens=0.98, spec = 0.98, prev = 0.0026)
SensSpec.demo (sens=0.997, spec = 0.985, prev = 0.0026)
set=scan()
set
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
sample(set, 1, replace=T)
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1, replace=T))
mean (sample(set, 1000, replace=T))
mean (sample(set, 1000, replace=T))
mean (sample(set, 1000, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
mean (sample(set, 2000, replace=T))
set = scan ()
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
help("sample")
mean (sample(set, 50, replace=T , prob = 0))
help("mean")
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
mean (sample(set, 50, replace=T))
sample(set, 1, replace=T)
8
8ž
local({fn<-choose.files(filters=Filters[c('R','txt','All'),],index=4)
file.show(fn,header=fn,title='')})
rbinom
rbinom ()
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,10,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
rbinom (1,1000,0.5)
runmean = function(x) {
cumsum (x)/1:length(x)
}
runmean(1:10)
runmean
runmean (rbinom(100,1,0.5))
plot (runmean (rbinom(100,1,0.5)))
plot (runmean (rbinom(10000,1,0.5)))
plot (runmean (rbinom(1000,1,0.5)))
plot (runmean (rbinom(1000,1,0.5)), cex = .5)
plot (runmean (rbinom(1000,1,0.99)), cex = .5)
plot (runmean (rbinom(1000,1,0.99)), cex = .5)
plot (runmean (rbinom(1000,1,0.99)), cex = .5)
plot (runmean (rbinom(1000,1,0.99)), cex = .5)
plot (runmean (rbinom(1000,1,0.99)), cex = .5)
plot (runmean (rbinom(1000,1,0.99)), cex = .5)
plot (runmean (rbinom(1000,1,0.9)), cex = .5)