x <- rnorm(100,mean=1,sd=2); y <- rnorm(100)
plot(x,y)
plot(x,x+y)
q()
install.packages('quantreg')
install.packages('robustbase')
q()
install.packages('lca')
q()
11748+18581
q()
1189/364
257*6
q()
18^2
q()
install.packages('jpeg')
q()
library(kernlab)
x
rnorm(100)
x<-matrix(rnorm(100),20,5)
x
kernelMatrix(polydot(degree=2),x)
K <- kernelMatrix(polydot(degree=2),x)
K
dim(x)
?polydot
62112 /4+25000
sqr(2784)
sqrt(2784)
sqrt(2934)
q()
install.packages('igraph')
Quit
Quit#
quit()
quit
q()
sample(1:6)
sample(1:6,replace=TRUE)
sample(1:6, 10, replace=TRUE)
sample(c('a','b','c'),  10,  replace=TRUE)
q()
527692*12
527692*12 + 1250000*2
q()
plot(rnorm(100))
x=rnorm(100)
plot(x)
plot(x,xlab='aaa')
quit()
q()
()
ア()
q()
()
q()
140*8
80*6*2
80*6*3
q()
msg <- "------------------------ Type  <Return> to continue ------------------------: "
source('~/book_ohmsha_RML/submit/Rcodes/RMLintro_maclinux/Rcodes-chap01-intro.r')
source('Rcodes-chap01-intro.r',echo=TRUE,max.deparse.length=Inf)
source('Rcodes-chap12-ensemble.r',echo=TRUE,max.deparse.length=Inf)
setwd("~/Dropbox/book_ohmsha_RML/submit/Rcodes/RMLintro_maclinux")
source('Rcodes-chap12-ensemble.r',echo=TRUE,max.deparse.length=Inf)
warnings()
View(stagec)
View(stagec)
rpart.plot(rq)       # プロット
rq
source('Rcodes-chap10-svm.r',echo=TRUE,max.deparse.length=Inf)
warnings()
q()
