_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
FrontPage › 朱螳覯覈
set.seed(602957)
x <- rnorm(1000)
noise <- rnorm(1000, sd=1.5)
y <- 3*sin(2*x) + cos(0.75*x) - 1.5*(x^2 ) + noise
select <- runif(1000)
frame <- data.frame(y=y, x = x)
train <- frame[select > 0.1,]
test <-frame[select <= 0.1,]


library(mgcv)
glin.model <- gam(y~s(x), data=train)
summary(glin.model)
sx <- predict(glin.model, type="terms")
xframe <- cbind(train, sx=sx[,1])
ggplot(xframe, aes(x=x)) + geom_point(aes(y=y), alpha=0.4) + geom_line(aes(y=sx))


覿襯
library("mgcv")
model <- gam(危覿 ~ s(覲1) + s(覲2),family=binomial, data=training)
summary(model)
pred <- predict(model, test, type="response")
confusionMatrix(ifelse(pred < 0.5, "危", "譟"), test$危覿)
蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2018-04-13 23:12:54

螳 蟆 手鬼 .