x <- rnorm(50)
h.select(x)
h.select(x, method = "sj")
x <- matrix(rnorm(100), ncol = 2)
h.select(x)
sm.density(x, method = "cv")
x <- rnorm(50)
y <- x^2 + rnorm(50)
h.select(x, y)
sm.regression(x, y, method = "aicc")
x <- matrix(rnorm(100), ncol = 2)
y <- x[,1]^2 + x[,2]^2 + rnorm(50)
h.select(x, y, method = "cv", structure.2d = "common")
sm.regression(x, y, df = 8)
Run the code above in your browser using DataLab