11 lines
320 B
R
11 lines
320 B
R
library(grDevices)
|
|
pdf(width =10, height = 6)
|
|
par(mfrow = c(1,2), mai = c(0, 0, 0, 0))
|
|
x = c(10,20,3,4,15,32,11,12,33,5,10,2,33,22,11,22,7)
|
|
y = c(3,1,3,4,5,6,7,8,9,23,15,18,45,32,43,65,19)
|
|
par(fig=c(0.05,0.5,0,1))
|
|
hist(x,ylab=expression(F[i]),xlab="Classes",main="")
|
|
par(fig=c(0.55,1,0,1), new=TRUE)
|
|
plot(x,y)
|
|
dev.off()
|